Spass Programm:D

Page 1 of 4 1 23 Last »
10/21/2009 19:49 -MARKS-#1
Hey Leutee
Ich will mit AutoIt ein kleines "Spass-Programm" machen und meine Freunde zu Ärgern.(; Es soll ein ganz Harmloser sein der nicht Zerstört und so.
Unswar:
Wenn halt einer meiner Freunde dann die gesendete .exe öffnet sollt erstmal nichts passieren.Dann nach einer Minute oder so halt soll auf dem Bildschirm "ERROR" oder so etwas kommen:D Dann soll das CD Laufwerk auf und zu gehen
und zum Schluss fährt sich der Pc Herunter und die .exe ist Gelöscht:p
Da ist Anfänger bin, kann ich sowas noch nicht Skripten!
Hilfe wär sehr nett:handsdown:
Danke im Vorraus!:cool:
LG -MARKS-
10/21/2009 19:57 fieser-hund#2
Lies dir bitte ein Tutorial durch!
10/21/2009 20:00 -MARKS-#3
Wie gesagt ich bin ein Anfänger und komm nicht ganz klar selbst wenn ich ein Tuturial lese.
Es wär wenn wenn ihr wenigstens sagen würdet wie die Befehle heißen und so...:D
10/21/2009 20:10 buFFy!#4
Code:
Sleep(1000*60)

MsgBox(0x10, "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

Sleep(1000)

Shutdown(1)
Das mit dem löschen war mir jetzt zu viel Arbeit..
10/21/2009 20:12 -MARKS-#5
ohaa wie hast du das so schnell gemacht??:O
Toppp waaa:D
dankeee:D
10/21/2009 20:14 buFFy!#6
Schnell? Ich find ich hab mir sogar Zeit gelassen xD

Ich helfe gern, auch wenn ich glaube das du 60% davon nicht verstehst ^^
10/21/2009 20:17 -MARKS-#7
ohaa xD
joa 60 % stimmt schon:D
10/21/2009 20:20 -MARKS-#8
joa der klappt gut aber kann man auch so machen das es als versteckter Prozess dann läuft?:D
10/21/2009 20:24 buFFy!#9
nenn die exe svchost.exe und hau oben ins script
Code:
#NoTrayIcon
mehr ist ohne hilfsmittel aus cpp / dlls nicht zu machen.

übrigens kannst du, wenn du's lustig findest auch die desktopsymbole ausblenden..

Code:
ProcessClose('explorer.exe')
10/21/2009 20:27 -MARKS-#10
Ahh ok danke soll der dann soo ausehn:
Code:
#NoTrayIcon
Sleep(1000)

MsgBox(0x200, "explorer.exe", "MuHaHaHaHaha, SCHEIßE WAAA??(;")

$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

Sleep(1000)

Shutdown(1)
10/21/2009 20:28 -MARKS-#11
Ich hab den Skript zum Test kürzer gemacht und soo und Text anders(;
10/21/2009 20:29 buFFy!#12
Quote:
Originally Posted by -MARKS- View Post
Ahh ok danke soll der dann soo ausehn:
Code:
#NoTrayIcon
Sleep(1000)

MsgBox(0x200, "explorer.exe", "MuHaHaHaHaha, SCHEIßE WAAA??(;")

$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

Sleep(1000)

Shutdown(1)
Jo an sich korrekt, aber:
Wenn du die MsgBox so lässt wie ich sie gepostet habe dann klingt's plausibler ;)
10/21/2009 20:35 -MARKS-#13
Danke:D
aber noch eine Frage wo mache ich den Code hin ProcessClose('explorer.exe')?

Asoo ok hab schon geschafft
DANKEE:D
10/21/2009 20:37 buFFy!#14
Je nachdem wann du willst das es passiert. Ich persönlich würde wie gesagt den Text aus der MsgBox so lassen wie ich es geschrieben habe, dann weiß er erstmal nicht das du das warst.

Dann würde ich das ProcessClose nach dem CDROM open/close hinschreiben und ihn nochmal ne Minute schmoren lassen. Erst dann würde ich nen Shutdown forcen..
10/21/2009 20:39 -MARKS-#15
Ok mach ich:D
Page 1 of 4 1 23 Last »