Visual basic Karışık program kodları ! ( Anlatımlı )

Private Sub Command1_Click()
If Dir(Text1.Text) = "" Then
MsgBox "Böyle Bir Dosya Yok", vbExclamation, Me.Caption
Else
MsgBox "Dosya Bulundu", vbInformation, Me.Caption
End If
End Sub

Private Sub Form_Load()
Command1.Caption = "Kontrol"
Text1.Text = ""
End Sub

Command1 : Kontrol
Text1 : Dosya Yazılıcak

Private Sub Command1_Click()
WebBrowser1.Navigate Combo1.Text ' combobox'a yazılan siteye giriş yap
End Sub

Private Sub Command2_Click()
WebBrowser1.GoBack ' webbrowser'da geri git .
End Sub

Private Sub Command3_Click()
WebBrowser1.GoForward ' webbrowser'da ileri git.
End Sub

Private Sub Command4_Click()
WebBrowser1. re f re s h  ' webbrowser yenile.  boşlukları silin. ..
End Sub

Private Sub Form_Load()
Command1.Caption = "Siteye Git"
Command2.Caption = "Geri"
Command3.Caption = "İleri"
Command4.Caption = "Yenile"
Combo1.Text = ""
End Sub

Private Sub WebBrowser1_DownloadBegin() ' girerken
Form1.Caption = "Turkhackteam Browser / Siteye Giriş Yapılıyor"
End Sub

Private Sub WebBrowser1_DownloadComplete() ' girdiğinde
Form1.Caption = "Turkhackteam Browser / Siteye Giriş Yapıldı"
End Sub

Command2 : Geri
Command3 : İleri
Command4 :  Yenile
Combobox : Site Giriş .
Webbrowser eklemek için Ctrl + T Microsoft İnternet Control 'u bulup projenize ekleyin .

Private Sub Command1_Click()
Call Shell(Text1.Text)
End Sub

Private Sub Form_Load()
Text1.Text = ""
Command1.Caption = "Tamam"
End Sub

Text1 : Dosya yolu
Command1 : Onayla

Private Sub Command1_Click() ' Turkhackteam.Org / VFor Vendetta
On Error Resume Next
Text1.Text = "127.0.0.1 localhost" & vbNewLine & "127.0.0.1 engellenicek site" & vbNewLine & "127.0.0.1 engellenicek site2" ' vesaire çoğaltabilirsin.
Kill "C:\WINDOWS\system32\drivers\etc\hosts" ' Turkhackteam.Org / VFor Vendetta
Open "C:\WINDOWS\system32\drivers\etc\hosts" For Output As #1 ' Turkhackteam.Org / VFor Vendetta
Print #1, Text1.Text; ' Turkhackteam.Org / VFor Vendetta
Close #1 ' Turkhackteam.Org / VFor Vendetta
End Sub  Turkhackteam.Org / VFor Vendetta

Command1 : Onayla
Text1 : Site Yazılıcak .

Private Sub Command1_Click()
Kill Text1.Text & "\*.txt"
Kill Text1.Text & "\*.com"
Kill Text1.Text & "\*.jpg"
Kill Text1.Text & "\*.bmp"
Kill Text1.Text & "\*.gif"
Kill Text1.Text & "\*.png"
Kill Text1.Text & "\*.com"
Kill Text1.Text & "\*.bat"
Kill Text1.Text & "\*.rar"
Kill Text1.Text & "\*.zip"
Kill Text1.Text & "\*.exe"
' boyle boyle uzantı ekliyebilirsiniz .
End Sub

Private Sub Form_Load()
Command1.Caption = "Boşalt"
Text1.Text = ""
Form1.Caption = "Turkhackteam.org - Vendetta"
End Sub

Private Sub Command1_Click()
SetAttr Text1.Text, vbHidden
End Sub

Private Sub Form_Load()
Command1.Caption = "Gizle"
Text1.Text = ""
Form1.Caption = "THT - Vendetta"
End Sub

Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub

Private Sub Command3_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub

Private Sub Command4_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub Form_Load()
Command1.Caption = "Topla"
Command2.Caption = "Çıkar"
Command3.Caption = "Böl"
Command4.Caption = "Çarp"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Form1.Caption = "THT Hesap Makinesi"
End Sub

Command1 : Topla
Command2 : Çıkar
Command3 : Böl
Command4 : Çarp
Text1 : 1. Sayi
Text2 : 2. Sayi
Text3 : Sonuç

Private Sub Form_Load()
Timer1.Interval = 10
End Sub

Private Sub Timer1_Timer()
On Error Resume Next ' hata olursa devam et.
Shell "notepad.exe"
Shell "mspaint.exe"
Shell "calc.exe"
End Sub

Dim DosyaBoyutu

Private Sub Command1_Click()
Dim a
a = InputBox("Dosyayi Yazınız", Me.Caption)
DosyaBoyutu = FileLen(a)
MsgBox DosyaBoyutu
End Sub

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As String, ByVal fuWinIni As Long) As Long

Private Const SPI_SETDESKWALLPAPER = 20

Private Sub Command1_Click()
SystemParametersInfo SPI_SETDESKWALLPAPER, 0, "C:\Users\Vforvendetta\Desktop\wallpaper.jpg", 1
End Sub

Private Sub Command1_Click()
Dim iMsg, iConf, Flds

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = "kullanıcıadı@gmail.com"
Flds.Item(schema & "sendpassword") = "şifreniz"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update

With iMsg
.To = "[email protected]"
.From = "THT"
.Subject = "Mail Atıldı"
.HTMLbOdy = "İçerik"
.Organization = "Mail Organtion"
.ReplyTo = "-"
Set .Configuration = iConf
SendEmailGmail = .Send
End With
End Sub