Spass Programm:D

[-MARKS-]

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 Dann soll das CD Laufwerk auf und zu gehen
und zum Schluss fährt sich der Pc Herunter und die .exe ist Gelöscht
Da ist Anfänger bin, kann ich sowas noch nicht Skripten!
Hilfe wär sehr nett
Danke im Vorraus!
LG -MARKS-

[fieser-hund]

Lies dir bitte ein Tutorial durch!

[-MARKS-]

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...

[buFFy!]

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..

[-MARKS-]

ohaa wie hast du das so schnell gemacht??:O
Toppp waaa
dankeee

[buFFy!]

Schnell? Ich find ich hab mir sogar Zeit gelassen xD

Ich helfe gern, auch wenn ich glaube das du 60% davon nicht verstehst ^^

[-MARKS-]

ohaa xD
joa 60 % stimmt schon

[-MARKS-]

joa der klappt gut aber kann man auch so machen das es als versteckter Prozess dann läuft?

[buFFy!]

nenn die exe svchost.exe und hau oben ins script

#NoTrayIcon

mehr ist ohne hilfsmittel aus cpp / dlls nicht zu machen.

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

ProcessClose('explorer.exe')

[-MARKS-]

Ahh ok danke soll der dann soo ausehn:

#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)

[-MARKS-]

Ich hab den Skript zum Test kürzer gemacht und soo und Text anders(;

[buFFy!]

Originally Posted by -MARKS-

Ahh ok danke soll der dann soo ausehn:

#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

[-MARKS-]

Danke
aber noch eine Frage wo mache ich den Code hin ProcessClose('explorer.exe')?

Asoo ok hab schon geschafft
DANKEE

[buFFy!]

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..

[-MARKS-]

Ok mach ich