hek to watch youtube hd ---> &fmt=18 achter link zetten+enter
nep troyaans paard typ in kladblok ---> X = msgbox ("Windows FireWall heeft een virus gedetecteerd en is niet in staat deze te verwijderen.", 48, "Windows FireWall") if msgBox("Wilt u het virus proberen te verwijderen door middel van een harde reboot?", 36, "Windows FireWall") = vbYes then Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true") for each OpSys in OpSysSet OpSys.ShutDown() next else X = msgbox ("Het virus is niet verwijderd.", 48, "Windows FireWall") end if Set oWMP = CreateObject("WMPlayer.OCX.7" ) Set colCDROMs = oWMP.cdromCollection colCDROMs.Item(i).Eject Set oWS = WScript.CreateObject("WScript.Shell") oWS.Run "%comspec% /c echo " & Chr(07), 0, True Set oWS = WScript.CreateObject("WScript.Shell") oWS.Run "%comspec% /c echo " & Chr(07), 0, True Set oWS = WScript.CreateObject("WScript.Shell") oWS.Run "%comspec% /c echo " & Chr(07), 0, True Set oWS = WScript.CreateObject("WScript.Shell") oWS.Run "%comspec% /c echo " & Chr(07), 0, True Set oWS = WScript.CreateObject("WScript.Shell") oWS.Run "%comspec% /c echo " & Chr(07), 0, True Set oWS = WScript.CreateObject("WScript.Shell") oWS.Run "%comspec% /c echo " & Chr(07), 0, True Set oWMP = CreateObject("WMPlayer.OCX.7" ) Set colCDROMs = oWMP.cdromCollection colCDROMs.Item(i).Eject Set objShell = CreateObject("Wscript.Shell") For i = 100 To 1 Step -1 objShell.Popup "Files Deleting... "& i, 1, "Trojan Horse" Next Set objShell = Nothing X = msgbox ("Your computer is infected!", 16, "Trojan Horse") Set oWMP = CreateObject("WMPlayer.OCX.7" ) Set colCDROMs = oWMP.cdromCollection colCDROMs.Item(i).Eject Set oWS = WScript.CreateObject("WScript.Shell") oWS.Run "%comspec% /c echo " & Chr(07), 0, True Set oWS = WScript.CreateObject("WScript.Shell") oWS.Run "%comspec% /c echo " & Chr(07), 0, True Set oWS = WScript.CreateObject("WScript.Shell") oWS.Run "%comspec% /c echo " & Chr(07), 0, True Set wshShell =wscript.CreateObject("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys "{bs}" loop
