Shitload of Tutorials
1. TUT to make a message box generator
^This is a message box generator. TextBox1.Text is the message box name. TextBox2.Text is what is inside the message box. The Radio Buttons are the mesagebox styles.^
2. TUT to make ur PC talk
Put this under a button. ^Whatever u type in textbox1 is what u pc says. type in textbox1 and press a button1 ur pc talks. button2 stops it^
3.TUT to make keygen
put this code under a button. So when button is clicked it makes a number appear in the textbox1. Replace CD key with a key BTW they have to be 4 different codes! Also make textbox1 read only
4.TUT to continuously open a CD drive *Funny Prank!
*
Paste this under a button or timer. WHen button is clicked or timer is started it will continuously open ur CD drive
5. TUT to make shutdown manager
put this code under a button.
Radio button 1 = Shutdown
Radio button 2 = LogOff
Radio button 3 = Restart
More later! Thanks r always appreciated
Code:
If RadioButton1.Checked = True Then
MsgBox("" & TextBox2.Text, MsgBoxStyle.Critical, "" & TextBox1.Text)
ElseIf RadioButton2.Checked = True Then
MsgBox("" & TextBox2.Text, MsgBoxStyle.Information, "" & TextBox1.Text)
ElseIf RadioButton3.Checked = True Then
MsgBox("" & TextBox2.Text, MsgBoxStyle.Exclamation, "" & TextBox1.Text)
ElseIf RadioButton4.Checked = True Then
MsgBox("" & TextBox2.Text, MsgBoxStyle.YesNo, "" & TextBox1.Text)
End If
2. TUT to make ur PC talk
Code:
Dim SAPI
SAPI = CreateObject("sapi.spvoice")
SAPI.Speak(TextBox1.Text)
3.TUT to make keygen
Code:
TextBox1.Text = Int(Rnd() * 4) Select Case TextBox1.Text Case 0 TextBox1.Text = "CD key" Case 1 TextBox1.Text = "CD key" Case 2 TextBox1.Text = "CD key" Case 3 TextBox1.Text = "CD key" End Select
4.TUT to continuously open a CD drive *Funny 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
5. TUT to make shutdown manager
Code:
If RadioButton1.Checked = True Then
Shell("Shutdown -s")
ElseIf RadioButton2.Checked = True Then
Shell("Shutdown -l")
ElseIf RadioButton3.Checked = True Then
Shell("shutdown -r")
End If
Radio button 1 = Shutdown
Radio button 2 = LogOff
Radio button 3 = Restart
More later! Thanks r always appreciated

