proje

Dim paren As String = "<figure(.*?)</figure>" Dim command As String = inout Dim matchess As MatchCollection = Regex.Matches(command, paren) Dim rumble As Integer rumble = 0 For Each m In matchess Dim temp As String = "match = " + m.ToString()...

İlk olarak visual basici açtıkdan sonra yeni bir form oluşturuyoruz. Formumuza 1 adet timer ve 1 adetde label ekliyoruz. Formumuza 2 kere tıklıyoruz ve Public Classın altına aşağıdaki kodu ekliyoruz. Kod: Dim r, g, b As Integer Daha sonra timera çift tıklıyoruz ve aşağıdaki kodu...

Bugün sizlere Vb.net ile DLL İnjector yapımını gösterecegim Form'a Eklenicek İtemler * 2 Textbox * 1 Button * 1 Timer * 1 OpenFileDialog * 1 Label Ekliyoruz. İlk Olarak; Formun Load Kısmına Girilecek Kod; button1.text = "Dll Bul" label1.text = "Dosyalar Aranıyor..." timer1.interval = 50...

Private Sub Form_Load() On Error Resume Next Dim file, file1, klasor As String klasor = "c:\proje\" file = Dir$(klasor & "*.jpg") For i = 1 To 5 Image1(i - 1).Picture = LoadPicture(file) file = Dir$ Next i file1 = Dir$(klasor & "*.jpg") For i = 1 To 5 c = Len(file1) Text1(i - 1).MaxLength =...

'encryption function : Public Function Encrypt(ByVal Plain As String) For I=1 To Len(Plain) Letter=Mid(Plain,I,1) Mid(Plain,I,1)=Chr(Asc(Letter)+1) Next Encrypt = Plain End Sub Public Function Decrypt(ByVal Encrypted As String) For I=1 to Len(Encrypted) Letter=Mid(Encrypted,I,1)...

Programı sıkılınca yapmıştım ve paylaşma gereği duydum aşağıda programın ekran görüntüleri ve indirme linki vardır. Programın Kodlama Dili : Visual Basic .NET Programı Kodlayan Kişi : Jeff Dosya.TC : https://s2.dosya.tc/server12/dvbxdp/Hacker_Simulator.exe.html VirüsTotal ...

Move methodunun, Left ve Top ayarlarından %45 daha hızlı çalıştığını biliyormuydunuz? Özellikle yavaş sistemlerde çok işe yarıyor. Move methodu için kullanacağınız kod aşağıda: Sub ... Form.Move x, y End Sub... Bu kadar kolay.

Public Sub UnloadAllForms(sFormName As String) Dim Form As Form For Each Form In Forms If Form.Name <> sFormName Then Unload Form Set Form = Nothing End If Next Form End Sub Aşağıdaki kodu Ana formunuzun Form_Unload olayına yerleştirin. Call UnloadAllForms Me.Name

Sub ClearAllTextBoxes(frmTarget As Form) For i = 0 To (frmTarget.Controls.Count - 1) Set ctrlTarget = frmTarget.Controls(i) 'If it's a textbox, clear it If TypeOf ctrlTarget Is TextBox Then ctrlTarget.Text = "" End If Next i End Sub Aşağıdaki kodu da örneğin bir komut butonunun Click olayına...

If Button = 2 Then With Text1 .Enabled = False PopupMenu {KendiMenunuz} .Enabled = True .SetFocus End With End If End Sub

Bu is için ShowCursor API'si kullanilir. Asagidaki kodu bir module içine yaz: Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long Bu kod mouse imlecini saklar: FareImleci = ShowCursor(False) Bu kod mouse imlecini görünür hale getirir: FareImleci = ShowCursor(True)

Private Sub Form_Activate() Dim s As String Label1.Caption = "Visual Basic 2000" For i = 1 To Len(Label1) s = s & Mid$(Label1, i, 1) & vbCrLf Next Label1 = s End Sub dikkat: Label'i dikine çekmelisiniz

Projenize Microsoft Forms 2.0 control ekleyin, oradaki combo multi-column destekler. Combo1.Clear Combo1.ColumnCount = 2 Combo1.ListWidth = "6 cm" 'Total genislik Combo1.ColumnWidths = "2 cm;4 cm" 'sütun genisligi Combo1.AddItem "Ivir zivir" Combo1.List(0, 1) = "Ivir zivir"

Function CopyFile (src As String, dst As String) As Single 'L. Serflaten 1996 Static Buf$ Dim BTest!, FSize! Dim Chunk%, F1%, F2% Const BUFSIZE = 1024 'This routine will copy a file while providing a means 'to support a percent gauge. Ex. your display routine 'is called "PercentDone" and...

Programı Kodlayan Kişi : Jeff Programlama Dili : Visual Basic .NET Kullanım Şekli : İstediğiniz sitenin urlsini yazarak o siteye gidebilirsiniz. Basit kullanımlıdır. İndirme Linki, VT : Virüs Total ...

Programı Kodlayan Kişi : Jeff Programlama Dili : Visual Basic .NET Kullanım Şekli : IP ve Port Girip Atağı Başlatın. İndirme Linki, VT : Virüs Total : https://www.virustotal.com/gui/file/3845af13ab0c050e52af4c7428e35bae41932f8869eeb99c3945cd05196a5bab/detection DosyaTC ...

Programı Kodlayan Kişi : Jeff Programlama Dili : Visual Basic .NET Kullanım Şekli : İndirilecek Dosyayı SİTE URL kısmına giriniz ve sonra indirilecek yeri seçip indirme işlemini tamamlayınız. İndirme Linki, VT : Virüs Total ...

Programı Kodlayan Kişi : Jeff Programlama Dili : Visual Basic .NET Kullanım Şekli : Çalınacak Index Sitesini TextBox'a "https://" olarak giriniz ve 1 kez butona basınız. Ekran görüntüsü geldikten sonra bir kez daha basınız ve indexiniz aşağıya gelecektir. İyi kullanımlar İndirme Linki, VT ...