Beiträge von thegrdream

Vielen Dank für eure hilfe!!!

So hat es geklappt:

$CD = DriveGetDrive("CDROM")
If @error Then
MsgBox(4096, "DriveGetDrive", "NO CD!")

Else
If Ubound($CD) = 2 then
WinActivate("Öffnen")
Send($CD[1])

EndIf
EndIf

Zitat von Schnitzel

Das Fenster heist also Öffnen und nicht Offnen

Ja das ist Richtig, Fenster heißt Öffnen aber beim Quellcode hat es mir kein ö rausgegeben

Zitat von name22

Ich bin mir nicht sicher, was genau du da falsch gemacht hast ^^. Kannst du vielleicht die Daten aus dem "Summary" Tab in Autoit Window Info Tool geben? Dann sieht man zumindest ob ControlSend richtig aufgerufen wird.
Da du keinen Fehler beschrieben hast, gehe ich davon aus, dass einfach nichts gesendet wird.

Zitat von Schnitzel

In $CD[0] steht die Anzahl der gefundenen CD Laufwerke
Mit ner For schleife wirst du Probleme haben sobald mehr als 1 CD Laufwerk gefunden wird, deshalb wuerde ich pruefen ob genau eines gefunden wurde
In etwa so

[autoit]

;Hier muss die Datei ausgewahlt werden
$CD = DriveGetDrive("CDROM")
If @error Then
MsgBox(4096, "DriveGetDrive", "NO CD!")
Else
if ubound($CD) = 2 then
ControlSend("Offnen", "", "[CLASS:ToolbarWindow32; INSTANCE:2]", $CD[1])
endif
EndIf

[/autoit]

Alles anzeigen

Habe diese Variante auch probiert, aber es senden auch nichts. Hast du vielleicht noch eine andere Idee mit welchen Funktion man es versuchen könnte?

Zitat von name22

Ich bin mir nicht sicher, was genau du da falsch gemacht hast . Kannst du vielleicht die Daten aus dem "Summary" Tab in Autoit Window Info Tool geben? Dann sieht man zumindest ob ControlSend richtig aufgerufen wird.
Da du keinen Fehler beschrieben hast, gehe ich davon aus, dass einfach nichts gesendet wird.

Ja genau, es wird nichts gesendet.

Summary:

>>>> Window <<<<
Title:Öffnen
Class: #32770
Position: 472, 167
Size: 680, 480
Style: 0x96CC02C4
ExStyle: 0x00010101
Handle: 0x00020712

>>>> Control <<<<
Class: ToolbarWindow32
Instance: 2
ClassnameNN: ToolbarWindow322
Name:
Advanced (Class): [CLASS:ToolbarWindow32; INSTANCE:2]
ID: 1001
Text: Διεύθυνση: C:\Users\maria logistirio\Desktop\Mail Viewer
Position: 72, 5
Size: 338, 22
ControlClick Coords: 100, 17
Style: 0x5600B84D
ExStyle: 0x00000000
Handle: 0x00020750

>>>> Mouse <<<<
Position: 652, 219
Cursor ID: 0
Color: 0xF4F7FB

>>>> StatusBar <<<<

Ich komme irgendwie nicht weiter mit dem Controlsend.

;Hier muss die Datei ausgewahlt werden
$CD = DriveGetDrive("CDROM")
If @error Then
MsgBox(4096, "DriveGetDrive", "NO CD!")
Else
For $1 = 1 To $CD[0]
ControlSend("Offnen", "", "[CLASS:ToolbarWindow32; INSTANCE:2]", $CD[0])
Next
EndIf

Versuche ControlSent zu verwenden, aber Ich glaube verwende es falsch.

;Programm ist gestartet, nun werden Befehle gesendet zum offnen einer Datei
WinWaitActive(" FREE MBOX File Viewer")
Send("{ALT}")
Send("{ENTER 2}")
Send("{TAB 3}")
Send("{ENTER}")

;Hier muss die Datei ausgewahlt werden

$CD = DriveGetDrive("CDROM")
If @error Then
MsgBox(4096, "DriveGetDrive", "NO CD!")
For $1 = 1 To $CD[0]
ControlSend("Offnen", "", $CD[0])
Next
EndIf

Zitat von Schnitzel

Hast du damit noch ein Problem oder kannst du das?
Und warum mit Send() und wohin?

Also damit du verstehst, erkläre ich dir was ich genau machen möchte.

Zuerst wird ein Programm installiert, dann gestarten und danach möchte ich eine Datei aus dem Programm öffnen,
diese Datei ist auf einer CD und soll auf verschiedenen Rechner funktionieren, darum CD Laufwerk suchen und dann Laufwerksbuchstabe als Text senden damit die Datei gefunden wird.

Habe versucht die Datei direkt mit dem Programm zu öffnen, aber dies funktioniert leider nicht. Die Datei muss aus dem Programm geöffnet werden.

Vielen Dank für deine Mühe!

Zitat von Schnitzel

Das was du gepostet hast ist schon sehr nah dran nur bekommst du kein Ergebnis weil bei DriveGetDrive kein Leeryeichen zwischen "CD ROM" stehen darf

Zitat von Schnitzel

Also so:

AutoIt-Quellcode
1
Local $aArray = DriveGetDrive("CDROM")

Vielen Dank für den Tipp!

Zitat

Falls das noch nicht deine Lösung ist wäre interessant was du damit meinst:

Zitat

[Blockierte Grafik: http://www.autoit.de/wcf/icon/quoteS.png] Zitat

den Laufwerkbuchstabe dann als Text sendet,

Zitat

Was meinst du mit als Text senden?
Per Send() irgendwohin?

Ja genau Ich möchte das per Send der Laufwerksbuchstabe gesendet wird.

Hallo Zusammen,

Ich bin neu im Forum und versuchen ein script zu schreiben, komme aber nicht weiter, habe auch die Suchfunktion benutzt aber nichts zu meinem Problem gefunden.

Nun zu meinem Problem, Ich möchte dass das Script nach dem CD Laufwerk sucht und den Laufwerkbuchstabe dann als Text sendet,
wie bekomme Ich das hin?

Wie Ich nach dem CD Laufwerk suche und mir der Laufwerksbuchstaben als Nachricht angezeigt wird habe ich gefunden (siehe Quellcode), aber das ist nicht was Ich möchte.

Local $aArray = DriveGetDrive("CD ROM")
If @error Then
MsgBox(4096, "DriveGetDrive", "Kein CD Kaufwerk.")
Else

For $i =
1 To $aArray[0]
MsgBox(4096, "DriveGetDrive", "Laufwerk " & $i & "/" & $aArray[0] & ":" & @CRLF & StringUpper($aArray[$i]))
Next
EndIf