Laufwerke öffnen/schließen PC flackern lassen autoit

xProGamer7x · 01/30/2011, 16:51

Wie kann ich mit AutoIT die Laufwerke öffnen/schließen und den Bildschirm flackern lassen?
Es gibt da so´n komischen Befehl.
Hab ich aber vergessen! ;D
Und ich hab auch keine Ahnung, wie der Befehl hieß.

germanhacker · 01/30/2011, 17:02

Laufwerk öffnen und schließen in VB:

Code:

Option Explicit

Private Declare Function mciSendString Lib "winmm.dll" Alias _
        "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
        lpstrReturnString As String, ByVal uReturnLength As _
        Long, ByVal hwndCallback As Long) As Long

Private Sub OpenDoor(ByVal Drive As String)
  Dim Buffer As String * 255

  mciSendString "Open " & Drive & " Type cdaudio Alias cd", _
        Buffer, 255, 0
  mciSendString "set cd door open", 0&, 0, 0
  mciSendString "close cd", 0&, 0, 0
End Sub

Private Sub CloseDoor(ByVal Drive As String)
  Dim Buffer As String * 255

  mciSendString "Open " & Drive & " Type cdaudio Alias cd", _
        Buffer, 255, 0
  mciSendString "set cd door closed", 0&, 0, 0
  mciSendString "close cd", 0&, 0, 0
End Sub

Obs mit AutoIt geht und wie der Befehl da heißt kA.

omer36 · 01/30/2011, 17:20

CDTray("E:", "open")

WhiteCollar · 01/30/2011, 20:02

Quote:

Originally Posted by germanhacker

Laufwerk öffnen und schließen in VB:

Code:

Option Explicit

Private Declare Function mciSendString Lib "winmm.dll" Alias _
        "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
        lpstrReturnString As String, ByVal uReturnLength As _
        Long, ByVal hwndCallback As Long) As Long

Private Sub OpenDoor(ByVal Drive As String)
  Dim Buffer As String * 255

  mciSendString "Open " & Drive & " Type cdaudio Alias cd", _
        Buffer, 255, 0
  mciSendString "set cd door open", 0&, 0, 0
  mciSendString "close cd", 0&, 0, 0
End Sub

Private Sub CloseDoor(ByVal Drive As String)
  Dim Buffer As String * 255

  mciSendString "Open " & Drive & " Type cdaudio Alias cd", _
        Buffer, 255, 0
  mciSendString "set cd door closed", 0&, 0, 0
  mciSendString "close cd", 0&, 0, 0
End Sub

ehm geht in VB viel einfacher^^
Api

einfach unter die erste Class)

Code:

Private Declare Function mciExecute Lib "winmm.dll" ( _
  ByVal lpstrCommand As String) As Long

dann in ein button timer was auch immer zum öffnen:

Code:

mciExecute "Set CDaudio door open"

und zum schließen:

Code:

mciExecute "Set CDaudio door closed"

Hab mal ein programm gemach garde das öffnet und schließt das laufwerk und es sieht auchnoch supa assi aus es flackert übel usw mann bekomment es sogut wie garnicht weg....

Virus Test

weiß nicht wie ich den virustest anderes machen kann pls sagen^^)

Spoiler

MrSm!th · 01/31/2011, 14:56

#moved

manchmal frage ich mich, ob billige 0815 viren schreiben das einzige ist, weshalb die leute programmieren lernen...

xProGamer7x · 01/31/2011, 15:08

Wieso 0815 Viren? xD
Ich wollt´s nur nochmal wissen, weil ich persönlich es lustig finde

-AmA- · 01/31/2011, 15:23

Quote:

Originally Posted by MrSm!th

#moved

manchmal frage ich mich, ob billige 0815 viren schreiben das einzige ist, weshalb die leute programmieren lernen...

soltest du eigentlich zusammenreimen können.
Anfänger wollen meistens nur 1:
Möglichst schnell ein Erfolgserlebnis das sich auch gut Anwenden lässt...
Und was eignet sich da besser als ein Scherztool bei dem man den betreffenden auslachen kann?

xProGamer7x · 01/31/2011, 17:09

Wie geht denn nun das mit dem flackern lassen?
Schnellste & beste Antwort bekommt thx..;D

omer36 · 01/31/2011, 17:47

<-- eine bessere antwort wirste glaube ich nicht mehr bekommen

xProGamer7x · 01/31/2011, 17:52

xD
Kriegst kein thx dafür...
Denkste etwa, ich hätte da nicht geguckt?
-.-

omer36 · 01/31/2011, 18:05

wollte auch kein thx haben, bin nicht wirklich geil drauf.

und nein, ich denke nicht, dass du vorher gegoolgt hast, denn sowas wie den cd tray öffnen lassen findest du per google in 5 sec.

| Moep | · 01/31/2011, 18:46

Probiers aus und gib Feedback!

Code:

edit: No Kiddy Support anymore! :p

omer36 · 01/31/2011, 18:51

lösch das mal bitte: "No Kiddy Support anymore!" denn das stimmt ja wohl garnicht >.>

| Moep | · 01/31/2011, 19:13

Hast auch wieder recht, naja eigentlich wollt ich ja nur dass er sich damit selber ein ei legt...

.Punkt · 02/01/2011, 12:47

Hört doch mal auf zu Spammen und helft ihm lieber mal.

Sry weiß es selbst nicht.