Beiträge von skorpion-de

Hallo,

ich hab probleme mit Controlsend.
Es funktioniert nicht wirklich wenn ich entweder den Namen des Fensters eingebe oder versuche das Handle einzugeben.

Wie mache ich das richtig?

[autoit]

Global $oExcel
Global $Pfad
Global $oWorkbook
Global $A17 ;Cockpit Benutzername
Global $A18 ;Cockpit Kennwort
Global $C17 ;ProgrammPfad

[/autoit][autoit][/autoit][autoit]

#include <Excel.au3>

[/autoit][autoit][/autoit][autoit]

Local $oExcel = _Excel_Open(0,0,0,0,1) ;Variable Excel Öffnen
Local $Pfad = @ScriptDir & "\Datei_V2.xlsx" ;Variable Pfad und Datei - Diese Datei sollte bereits existieren
Local $oWorkbook = _Excel_BookOpen($oExcel, $Pfad) ; Variable Workbook inklusiv Excel öffnen und Pfad

[/autoit][autoit][/autoit][autoit]

$A17 = _Excel_RangeRead($oWorkbook,"Tabelle1", "A17")
$A18 = _Excel_RangeRead($oWorkbook,"Tabelle1", "A18")
$C17 = _Excel_RangeRead($oWorkbook,"Tabelle1", "C17")

[/autoit][autoit][/autoit][autoit]

_Excel_Close($oExcel)

[/autoit][autoit][/autoit][autoit]

ShellExecute ($C17)
WinWait ("Anmeldung","")
local $hWnd = WinGetHandle("Anmeldung","")
Local $hControl = ControlGetHandle ($hWnd,"","")

[/autoit][autoit][/autoit][autoit]

MsgBox (0,"MSG",$hWnd & @LF & $hControl)

[/autoit][autoit][/autoit][autoit]

ControlSend ("","","[CLASS:Internet Explorer_Server; INSTANCE:1]","^{a}{DEL}",0) ;Funktioniert
ControlSend ("Anmeldung","","[CLASS:Internet Explorer_Server; INSTANCE:1]",$A17,1) ;Funktioniert nicht
ControlSend ($hControl,"","[CLASS:Internet Explorer_Server; INSTANCE:1]","{TAB}^{a}{DEL}",0) ;Funktioniert nicht
ControlSend ($hWnd,"","[CLASS:Internet Explorer_Server; INSTANCE:1]",$A18,1) ;Funktioniert nicht
;ControlSend ("","","[CLASS:Internet Explorer_Server; INSTANCE:1]","{TAB}{ENTER}",0)

[/autoit][autoit][/autoit][autoit]

Exit

[/autoit]

>>>> Window <<<<
Title: Anmeldung - Windows Internet Explorer
Class: IEFrame
Position: -1920, 0
Size: 1920, 1080
Style: 0x16CF0000
ExStyle: 0x00000100
Handle: 0x0007045A

>>>> Control <<<<
Class: Internet Explorer_Server
Instance: 1
ClassnameNN: Internet Explorer_Server1
Name:
Advanced (Class): [CLASS:Internet Explorer_Server; INSTANCE:1]
ID:
Text:
Position: 0, 80
Size: 1904, 992
ControlClick Coords: 1330, 290
Style: 0x56000000
ExStyle: 0x00000000
Handle: 0x00070240

Hallo
mit welchen Mitteln kann ich die FileVersion setzen für die exe die ich mit Build erzeuge?

Danke habe ich gefunden

Kann es sein das es daran liegt wie die Java-Anwendung (jnlp) programmiert ist?

Bei einer anderen Java-Anwenung (jnlp) funktioniert es perfekt.

wo finde ich die INet.au3?

Hallo
kann es sein das Controlsend nicht auf eine Java-Anwendung wirkt?

Das Script läuit ohne Probleme durch aber ohne die entsprechenden Eintragungen.

Das hier ist der Code:

[autoit]

Global $oExcel
Global $Pfad
Global $oWorkbook
Global $A2 ;EDITH Benutzername
Global $A3 ;EDITH Kennwort

[/autoit][autoit][/autoit][autoit]

#include <Excel.au3>

[/autoit][autoit][/autoit][autoit]

Local $oExcel = _Excel_Open(0,0,0,0,1) ;Variable Excel Öffnen
Local $Pfad = @ScriptDir & "\Datei.xlsx" ;Variable Pfad und Datei - Diese Datei sollte bereits existieren
Local $oWorkbook = _Excel_BookOpen($oExcel, $Pfad) ; Variable Workbook inklusiv Excel öffnen und Pfad

[/autoit][autoit][/autoit][autoit]

$A2 = _Excel_RangeRead($oWorkbook,"Tabelle1", "A2")
$A3 = _Excel_RangeRead($oWorkbook,"Tabelle1", "A3")

[/autoit][autoit][/autoit][autoit]

_Excel_Close($oExcel)

[/autoit][autoit][/autoit][autoit]

ShellExecute ("http://edith.intranet.deutschebahn.com/webstart/edith.jnlp")
WinWait ("EDITH","")

[/autoit][autoit][/autoit][autoit]

ControlSend ("EDITH","","",$A2,0)
ControlSend ("EDITH","","","{TAB}",0)
ControlSend ("EDITH","","",$A3,0)
ControlSend ("EDITH","","","{TAB}",0)
MsgBox(0,"Daten",$A2 & @LF & $A3)

[/autoit][autoit][/autoit][autoit]

Exit

[/autoit]

wie ist denn der code für Shift+Pos1?
irgendwas mit

[autoit]

{Home}

[/autoit]

Hallo,
wie kann ich ein Formularfeld vor Neueintrag leeren? Der Browser ist nicht festlegbar.

Ich kann zwar vor jedem Eintrag 50 mal del drüber laufen lassen aber schön ist was anderes

[autoit]

Sleep (2000)
Send ("{DEL 50}")
Send ( $A17, 1)
Send ("{TAB}")
Send ("{DEL 50}")
Send ( $A18, 1)
Send ("{TAB}")
;Send ("{ENTER}", 0)

[/autoit]

Inzwischen funktioniert es.

ShellExecute ist was ich gebraucht habe.

[autoit]

ShellExecute("http://fred.noncd.rz.db.de/fred/fred.jnlp")

[/autoit]

Dim habe ich durch Global ersetz

Einen Fehler, falls es die Excel-Datei nicht gibt zum Auslesen des Wertes sprich Passwort, möchte ich eigentlich nicht abfangen.
Wenn der User die Datei verschlampert oder umbenennt soll er sich melden wenn es nicht funktoniert.

Nach Run habe ich ein WinWait eingefügt.
Hatte das Sleep drin weil ich anfänglich Probleme hatte mit dem Send.

ControlSend funktioniert leider nicht.

[autoit]

Global $oExcel
Global $Pfad
Global $oWorkbook
Global $CellValue

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

#include <Excel.au3>

[/autoit][autoit][/autoit][autoit]

Local $oExcel = _Excel_Open(0)

[/autoit][autoit][/autoit][autoit]

Local $Pfad = @ScriptDir & "\Passwort.xlsx" ; Diese Datei sollte bereits existieren
Local $oWorkbook = _Excel_BookOpen($oExcel, $Pfad)

[/autoit][autoit][/autoit][autoit]

$CellValue = _Excel_RangeRead($oWorkbook,"Tabelle1", "A1")

[/autoit][autoit][/autoit][autoit]

;MsgBox(0,"wert", $CellValue, 2)

[/autoit][autoit][/autoit][autoit]

Local $oWorkbook = _Excel_Close($oExcel, $Pfad)

[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

Run("g:\AutoIt3\Examples\FRED.cmd")
WinWait("Fred Login","")
If Not WinActive("Fred Login","") Then WinActivate("Fred Login","")

[/autoit][autoit][/autoit][autoit]

WinWaitActive("Fred Login","")
Send ($CellValue,1)
Send ("{ENTER}")

[/autoit][autoit][/autoit][autoit]

WinMove("FRED Einsatzplanung","",1920,0,1920,1050)
Exit

[/autoit]

Mit welchem Befehl kann ich eine Java Anwendung über das Intranet starten?

http://fred.noncd.rz.db.de/fred/fred.jnlp

Mit Run geht es nicht oder hat nichit geklappt.

Ich kann das ganze zwar in eine cmd packen und über eine cmd starten, aber es ginge sicher auch hier über AutoIt

Danke Vorab für die Antwort

Danke erstmal für die Hilfe
hier erstmal das Ergebnis

[autoit]

Dim $oExcel
Dim $Pfad
Dim $oWorkbook
Dim $CellValue

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

#include <Excel.au3>

[/autoit][autoit][/autoit][autoit]

Local $oExcel = _Excel_Open(0)

[/autoit][autoit][/autoit][autoit]

Local $Pfad = @ScriptDir & "\Passwort.xlsx" ; Diese Datei sollte bereits existieren
Local $oWorkbook = _Excel_BookOpen($oExcel, $Pfad)

[/autoit][autoit][/autoit][autoit]

$CellValue = _Excel_RangeRead($oWorkbook,"Tabelle1", "A1")

[/autoit][autoit][/autoit][autoit]

;MsgBox(0,"wert", $CellValue, 2)

[/autoit][autoit][/autoit][autoit]

Local $oWorkbook = _Excel_Close($oExcel, $Pfad)

[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

Run("g:\AutoIt3\Examples\FRED.cmd")
If Not WinActive("Fred Login","") Then WinActivate("Fred Login","")
sleep(15000)

[/autoit][autoit][/autoit][autoit]

WinWaitActive("Fred Login","")
Send($CellValue,1)
send ("{ENTER}")

[/autoit][autoit][/autoit][autoit]

WinMove("FRED Einsatzplanung","",1920,0,1920,1050)
Exit

[/autoit]

Sorry tut mir leid ich versteh das nicht
schön wäre ein funktionierendes Beispiel

ich komme weder mit
_Excel_open
noch
_Excel_BookOpen
weiter

Und ja ich versuche seit Tagen aus der Hilfe schlau zu werden. Aber scheinbar bin ich zu doof.
Genau darum wäre ein Beispiel was funktioniert hilfreich. Denn wie es scheint bin ich nicht in der Lage die Hilfe richtig zu lesen und anzuweden.

Hallo,

ich arbeite neu mit AutoIt und bin nun seit über einer Woche am versuchen eine Excel Zelle auszulesen.
Ich bekomme aber sogar mit der Beispiel Datei einen Fehler

Vielleicht kann mir jemand helfen?

Dies ist mein Code

#include <Excel.au3>

Local $sFilePath1 = @ScriptDir & "\Test1.xls" ; Diese Datei sollte bereits existieren
Local $oExcel = _Excel_BookOpen($sFilePath1)

[autoit]

Local

[/autoit][autoit][/autoit][autoit]

If @error = 1 Then
MsgBox(0, "Fehler!", "Das Excel-Objekt konnte nicht erstellt werden")
Exit
ElseIf @error = 2 Then
MsgBox(0, "Fehler!", "Die Datei existiert nicht!")
Exit
EndIf

[/autoit][autoit][/autoit][autoit]

Fehlermeldung:
"E:\Eigene Dateien\Autoit\excel.au3" (4) : ==> Incorrect number of parameters in function call.:
Local $oExcel = _Excel_BookOpen($sFilePath1)
Local $oExcel = ^ ERROR

[/autoit]

Was mache ich falsch?

Die ganzen Hilfen habe ich versucht alle, und ich meine wirlich alle zu kopieren umzuändern oder was auch immer aber immer ohne Erfolg