Beiträge von sccssf

Hallo Ihr beiden.

mit der Beobachtung verstehe ich und so komme ich auch meistens zu meinem Erfolgen und brauche hier nicht fragen.

Leider kann ich mich "mehrfach" ins System einloggen. Ist ein Web Dienst für eine Zeiterfassung.

Leider ändert sich beim ausloggen der Titel der Seite nicht. (Sonst könnte ich ja eine Schleife bauen und das Fenster abfragen.)

Es ändert sich die Seite.

http://10.10.10.10:80/abc/123456

auf

http://10.10.10.10:80/abc/indexLogout.html

mehr leider nicht direkt.

Gut es gibt dann auf der Webseite dann "Buttons" die müsste ich dann prüfen mit _IEFormGetCollection könnte ein Weg sein. Problem ist nur wenn auf einer Unterseite mal dann der Button nicht sein sollte, habe ich ein Problem.

Gruß

Steffen

P.S.: Wenn einer sagt er könnte mir helfen könnte ich auch per Privat Nachricht die HTML Seiten schicken.

Hallo an alle,

brauch einen Denkanstoß.

Habe ein Tool geschrieben das eine Internetseite mit bestimmten Parametern öffnet und ein Login macht.

Nun brauche ich noch nach dem Ausloggen, was der User von Hand macht einen Aufruf.
1. Ansatz
Nach dem Login wechsel die Webseite auf einen Login Screen. Es ändert sich die Webadresse und damit auch der Visible Text.
Wie kann ich das prüfen ???

2. Ansatz
Der User bewegt seit einer Zeit "x" keine Maus oder Tastatur.

Das es nicht Sauber geschrieben ist ist mir klar

Danke schon mal für die Unterstützung.

#include<Array.au3>
#include <IE.au3>
#include <Crypt.au3>


if $CmdLine[0] = 0 Then
	MsgBox (16, "Achtung Fehler", "Bitte den Barcodeprüfen auf Passwort oder Benutzername vorhanden sind!")
	Exit
EndIf
Global $1 = "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
Local $hKey = _Crypt_DeriveKey($1, $CALG_AES_256)
Global $command_A = StringSplit($CmdLineRaw, " ")
$sOutput = _Crypt_DecryptData($cmdLine[2], $hKey, $CALG_USERKEY) 
$Output =BinaryToString($sOutput)
RunWait('taskkill /F /IM "iexplore.exe"')
sleep (500)
$oIE = _IECreate("")
_IENavigate($oIE, "http://10.10.1.17:8080/test/test")
_IELoadWait($oIE, 0, 30000)
$oForm = _IEFormGetCollection($oIE, 0)
$oUsername = _IEFormElementGetObjByname($oForm, "UID")
$oPassword = _IEFormElementGetObjByName($oForm, "PWD")
_IEFormElementSetValue($oUsername, $cmdLine[1])
_IEFormElementSetValue($oPassword, $Output)
_IEFormSubmit($oForm)
_Crypt_DestroyKey($hKey)
hier Fehlt der Rest des Codes ???

Danke auch an misterspeed.

Ich habe mich jetzt nochmals intensiv mit consolewrite beschäftigt. Die Funktion war mir vorher nicht so bewusste wie es gehen würde. Dies ist leider das Problem wenn man sich mit der "Programmierung" nicht richtig auskennt und schnell mal was machen möchte.

Dabei ist mir klar das mein Code am Ende nicht 100% aller sauberen Schreibweisen ist.

Danke auch an den Beitrag von Andy, den ich vorher nicht gelesen hatte.

Tutorial: Wie man Script-Fehler erfolgreich sucht/findet bzw. richtig debuggt

So erstmal Herzlichen Dank an Euch. Klar kann ich mich Stunden damit beschäftigen und keine Lösung bekommen oder fragen.

Ich bedanke mich auch herzlich für die Ausführlichen Ausarbeitung meines Problems.

Hier mein Fertiges Skript. Mit ConsoleWrite habe ich es nicht laufen bekommen.

#include <File.au3>

$folder1 = "S:\Druck\Ma_2\__OK\" ;Eingang
$folder3 = "S:\Druck\Ma_2\zwischen\" ;nacherstellen archiveren
$folder4 = "S:\Druck\Ma_2\Ablage\" ;erstellte Ausgangsdatei
$folder5 = "S:\Druck\Scripte\" ;Zwischenablage

FileDelete ($folder5&"*.pdf")
FileMove ($folder1&"*.pdf",$folder3&"*.pdf")
sleep (1000)
runwait ('cmd /c java -jar "S:\\Druck\\Scripte\\pdfsam\\lib\\pdfsam-console-2.4.3e.jar" -o "S:\\Druck\\Scripte\\Ma_2-fertigedatei.pdf" -d "S:\\Druck\\Ma_2\\zwischen\\" concat',"", @SW_HIDE)
Sleep (1000)
FileDelete ($folder3&"*.pdf")
$t=filegettime("S:\Druck\Scripte\Ma_2-fertigedatei.pdf",1,1)
FileMove ("S:\Druck\Scripte\Ma_2-fertigedatei.pdf",$folder4&$t&"_Ma_2.pdf",1)
$Programm = "c:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe"
$Command = "/t"
$File = $folder4 & $t & "_Ma_2.pdf"
$Parameter = "Printer"

$run='"' & $Programm & '" "' & $Command & '" "' & $File & '" ' & $Parameter
Run ($run)

Danke, werde das mal testen und mich melden.

Hallo,

kaum hat man mal ein paar Monate nichts mehr gemacht steht man auf dem Schlau. Ich hoffe ihr könnt mir einen Tip geben.

In der Shell bekomme ich es so zum laufen in meinem Skript nicht.
$Folder4
$t

sind gefüllt von vor Funktion.

run ("c:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe /t "$folder4&$t&"_test.pdf" "Printer","",)

Danke

Danke Oskar habe ich Umgebaut.

Hier mein Code für die Leute die auch die Frage haben wie es geht.

Gruß
Steffen

Hallo,

Zitat von Kanashius

$PWspeichern = GUICtrlCreateInput("", 128, 64, 145, 21,$ES_PASSWORD)

hatte es so gelöst.

Werde deine Funktion mal Testen und sicherlich für besser befinden

Update
oder Besser noch ich verknüpfe unsere Funktionen! Bessere Passworteingabe und sicheres Speichern.

Hast du noch ne Idee zum User Dokumentenverzeichnis, wo jeder User ein recht hat eine INI zu schreiben? AKtuell schreibe ich ja in c:\.

Gruß

Steffen

Danke an euch beide!

Habe es geteste und in "mein" Programm so umgebaut und es Funktioniert.

Das mit den Fenstern war mir gar nicht klar. Gut so häufig macht man das Fenster wirklich nicht auf und zu.

Habe jetzt noch eine Funktion eingebaut damit er mir nicht ***** als Passwort speichert.

Mal sehen was mir noch so einfällt.

Gruß
Steffen

Hallo Phil-IT,

Danke erstmal für die Hilfe.

Nein bevor ich das mit dem minimieren rein geschrieben habe, hat alles Funktioniert.

Ich werde morgen deinen Code testen und berichten.

Ich stelle mich auch etwas schwer den Umfang mancher Befehle im Zusammenhang raus zu bekommen.

Sprich ich suche eine neue Funktion, schaue mir die Beispiele an und schreibe sie für mich um. Blöd ist dann nur wenn man Funktionen kombiniert und dazu dann nichts direkt findet(inkl. Erklärung).

Da ich seit 2 Jahren mal wieder was mit autoit geschrieben habe bin ich innerlich schon zufrieden mit mir.

Steffen

Zitat von Phil-IT

Lol, bei mir gehen die menü buttons gar nicht! auch nicht bevor ich minimiere!

*EDIT: Ohman du musst wenn dann bei einem mode bleiben, also entweder guigetmsg() oder guioneventmode?! hier mal der anfang abgeendert...

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <EditConstants.au3>
Opt('GUIOnEventMode', 1)
Opt('TrayOnEventMode', 1)
Opt('TrayMenuMode', 1)
main()
Func main()
Global $StatusBar1
$Form1 = GUICreate("Arbeitszeiterfassung", 307, 201, 192, 124)
$Setting_Menu = GUICtrlCreateMenu("Menü")
$Setting_exit = GUICtrlCreateMenuItem("Ende", $Setting_Menu)
$helpmenu = GUICtrlCreateMenu("?")
$BJ = GUICtrlCreateMenuItem("Buchungsjournal",$helpmenu)
$Einstellung = GUICtrlCreateMenuItem("Einstellungen",$helpmenu)
$Info = GUICtrlCreateMenuItem("Info",$helpmenu)
$Kommen = GUICtrlCreateButton("Kommen", 32, 16, 113, 113)
GUICtrlSetFont(-1, 18, 800, 0, "@Arial Unicode MS")
GUICtrlSetBkColor(-1, 0x00FF00)
$Gehen = GUICtrlCreateButton("Gehen", 171, 16, 113, 113)
GUICtrlSetFont(-1, 18, 800, 0, "@Arial Unicode MS")
GUICtrlSetBkColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)
$StatusBar1 = _GUICtrlStatusBar_Create($Form1)
_GUICtrlStatusBar_SetBkColor($StatusBar1, 0x0000FF)
_GUICtrlStatusBar_SetText($StatusBar1, "")
GUISetOnEvent($GUI_EVENT_CLOSE, '_Exit')
GUICtrlSetOnEvent($Setting_exit, '_Exit')
GUISetOnEvent($GUI_EVENT_MINIMIZE, '_Minimize')
GUICtrlSetOnEvent($Einstellung, 'settings')
GUICtrlSetOnEvent($Gehen, 'gehen')
GUICtrlSetOnEvent($Kommen, 'kommen')
GUICtrlSetOnEvent($BJ, 'bjn')
GUICtrlSetOnEvent($Info, 'info')
TraySetOnEvent(-7, '_Restore')
$name = IniRead("c:\aze.ini", "User", "Benutzer", "")
$pw = IniRead("c:\aze.ini", "User", "PW", "")
While 1
Sleep(10)
WEnd
EndFunc

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

Func settings()
GUISetState(@SW_HIDE)
$name = IniRead("c:\aze.ini", "User", "Benutzer", "")
$pw = IniRead("c:\aze.ini", "User", "PW", "")
$Form2 = GUICreate("Einstellungen", 293, 126, 192, 124)
$Benutzername = GUICtrlCreateLabel("Benutzername", 8, 16, 100, 22)
GUICtrlSetFont(-1, 10, 800, 0, "@Arial Unicode MS")
$Passwort = GUICtrlCreateLabel("Passwort", 8, 64, 66, 22)
GUICtrlSetFont(-1, 10, 800, 0, "@Arial Unicode MS")
$BNspeichern = GUICtrlCreateInput($name, 128, 16, 145, 21)
$PWspeichern = GUICtrlCreateInput("*****", 128, 64, 145, 21)
$Speichern1 = GUICtrlCreateButton("Speichern", 128, 96, 65, 25)
$Abbrechen = GUICtrlCreateButton("Abbrechen", 208, 96, 65, 25)
GUISetState(@SW_SHOW)

While 1
$nMsg1 = GUIGetMsg()
Switch $nMsg1
Case $GUI_EVENT_CLOSE
GUISetState(@SW_Hide, $Form2)
GUISetState(@SW_SHOW, $Form1)
ExitLoop
Case $Speichern1
IniWrite ("c:\aze.ini","User", "Benutzer", GUICtrlRead ($BNspeichern))
IniWrite ("c:\aze.ini","User", "PW", GUICtrlRead ($PWspeichern))
$name =IniRead("c:\aze.ini", "User", "Benutzer", "")
$pw =IniRead("c:\aze.ini", "User", "PW", "")
GUISetState(@SW_Hide, $Form2)
GUISetState(@SW_SHOW, $Form1)
ExitLoop
Case $Abbrechen
GUISetState(@SW_Hide, $Form2)
GUISetState(@SW_SHOW, $Form1)
ExitLoop
EndSwitch
WEnd
EndFunc

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

Func gehen()
_GUICtrlStatusBar_SetText($StatusBar1, "Bitte Warten!")
$oIE = _IECreate("",0,0)
_IENavigate($oIE, "http://192.168.100.89:8080/info")
_IELoadWait($oIE, 0, 30000)
$oForm = _IEFormGetCollection($oIE, 0)
$oUsername = _IEFormElementGetObjByname($oForm, "UID")
$oPassword = _IEFormElementGetObjByName($oForm, "PWD")
_IEFormElementSetValue($oUsername, $name)
_IEFormElementSetValue($oPassword, $pw)
_IEFormSubmit($oForm)
sleep(500)
$oForm1 = _IEFormGetCollection($oIE, 0)
$Menu1 = _IELinkClickByText($oForm1, "Buchung")
_IELoadWait($oIE)
sleep(800)
$oForm2 = _IEGetObjById($oIE, "2img")
_IEAction($oForm2, "click")
_IELoadWait($oIE)
$oForm3 = _IEGetObjById($oIE, "shutdown")
_IEAction($oForm3, "click")
_IELoadWait($oIE)
_IEQuit($oIE)
_GUICtrlStatusBar_SetText($StatusBar1, "Gehen Gebucht")
EndFunc

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

Func kommen()
_GUICtrlStatusBar_SetText($StatusBar1, "Bitte Warten!")
$oIE = _IECreate("",0,0)
_IENavigate($oIE, "http://192.168.100.89:8080/info")
_IELoadWait($oIE, 0, 30000)
$oForm = _IEFormGetCollection($oIE, 0)
$oUsername = _IEFormElementGetObjByname($oForm, "UID")
$oPassword = _IEFormElementGetObjByName($oForm, "PWD")
_IEFormElementSetValue($oUsername, $name)
_IEFormElementSetValue($oPassword, $pw)
_IEFormSubmit($oForm)
sleep(500)
$oForm1 = _IEFormGetCollection($oIE, 0)
$Menu1 = _IELinkClickByText($oForm1, "Buchung")
_IELoadWait($oIE)
sleep(800)
$oForm2 = _IEGetObjById($oIE, "1img")
_IEAction($oForm2, "click")
_IELoadWait($oIE)
$oForm3 = _IEGetObjById($oIE, "shutdown")
_IEAction($oForm3, "click")
_IELoadWait($oIE)
_IEQuit($oIE)
_GUICtrlStatusBar_SetText($StatusBar1, "Kommen Gebucht")
EndFunc

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

Func bj()
_GUICtrlStatusBar_SetText($StatusBar1, "Bitte Warten!")
$oIE = _IECreate("")
_IENavigate($oIE, "http://192.168.100.89:8080/info")
_IELoadWait($oIE, 0, 30000)
$oForm = _IEFormGetCollection($oIE, 0)
$oUsername = _IEFormElementGetObjByname($oForm, "UID")
$oPassword = _IEFormElementGetObjByName($oForm, "PWD")
_IEFormElementSetValue($oUsername, $name)
_IEFormElementSetValue($oPassword, $pw)
_IEFormSubmit($oForm)
sleep(200)
$oForm1 = _IEFormGetCollection($oIE, 0)
$Menu1 = _IELinkClickByText($oForm1, "Stempelkarte")
_IELoadWait($oIE)
_GUICtrlStatusBar_SetText($StatusBar1, "")
EndFunc

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

Func info()
MsgBox (0,"Info","Version 1.4 "&@CRLF&"25.08.2014 ")
EndFunc

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

Func _Exit()
Exit
EndFunc

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

Func _Minimize()
TraySetState(1)
GUISetState(@SW_HIDE)
EndFunc

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

Func _Restore()
TraySetState(2)
GUISetState(@SW_SHOW)
EndFunc

[/autoit]

Alles anzeigen

Hallo,

so habe meine Funktionen umgeschrieben so das ich auf INIWRITE und INIREAD gehe.(Danke für die Hilfe im alten Theard)
Das geht soweit und die Funktion ist auch 100%.

Nun habe ich noch versucht, dass beim Minimieren das Fenster nur noch als TrayIcon da ist. Dies geht auch, nur leider gehen dann alle andere Funktion nicht mehr.

Sprich er geht nicht mehr in mein Einstellmenü/Exit/Info ...

Also habe ich mir Irgend wie einen Bock rein geholt und ich sehe es nicht.

Als 2 Frage hätte ich noch gewusst wie die INI in das Userprofil schreiben kann. Ich habe zwar zu dem Problem was gelesen es aber nicht verstanden.

Danke schon mal für die Hilfe.

Gruß

Steffen

Hallo PainTain,

Danke schonmal für die Hilfe, werde mir auch noch das mit den Variablen zum Herzen nehmen und ändern.

Habe heute noch die Funktion eingebaut und da kam eins zum anderen.

Nachdem ich jetzt Funktion habe mache ich es noch sauber.

Danke

Steffen

Zitat von PainTain

Du schreibst die ControlID, nicht den Inhalt des Feldes.

Es müsste heißen:

[autoit]

FileWriteLine ("c:\test.ini", GUICtrlRead($Benutzernam))
FileWriteLine ("c:\test.ini", GUICtrlRead($Passwor))

[/autoit]

Abgesehen davon, ich würde dir empfehlen, bessere Namen für Variablen zu verwenden. (Und Präfixe, siehe hier.)
z.B.
$Benutzername und $Benutzernam - da genügt schon ein kleiner Tippfehler und du suchst den Fehler sehr lange.

Hallo an alle,

habe irgend wie gerade mal wieder etwas Bock mit Autoit was zu machen und auszuprobieren.

Leider habe ich an der Stelle.

Case $Speichern1
FileDelete("c:\test.ini")
FileWriteLine ("c:\test.ini", $Benutzernam)
FileWriteLine ("c:\test.ini", $Passwor)
GUISetState(@SW_Hide, $Form2)
GUISetState(@SW_SHOW, $Form1)
ExitLoop

Etwas Probleme er schreibt mir immer in die Erste Zeile eine 13 und in die zweite eine 14.

Warum auch immer ?

[Blockierte Grafik: http://up.picr.de/19297888cc.jpg]

Hiermal mein ganzes Skript. Sicherlich noch verbesserungswürdig. Allerdings bis auf das Problem erledigt es das was es soll.

Danke
Steffen

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <EditConstants.au3>
$Form1 = GUICreate("Arbeitszeiterfassung", 307, 201, 192, 124)
$Setting_Menu = GUICtrlCreateMenu("Menü")
$Setting_exit = GUICtrlCreateMenuItem("Ende", $Setting_Menu)
$helpmenu = GUICtrlCreateMenu("?")
$BJ = GUICtrlCreateMenuItem("Buchungsjournal",$helpmenu)
$Einstellung = GUICtrlCreateMenuItem("Einstellungen",$helpmenu)
$Info = GUICtrlCreateMenuItem("Info",$helpmenu)
$Kommen = GUICtrlCreateButton("Kommen", 32, 16, 113, 113)
GUICtrlSetFont(-1, 18, 800, 0, "@Arial Unicode MS")
GUICtrlSetBkColor(-1, 0x00FF00)
$Gehen = GUICtrlCreateButton("Gehen", 171, 16, 113, 113)
GUICtrlSetFont(-1, 18, 800, 0, "@Arial Unicode MS")
GUICtrlSetBkColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)
$StatusBar1 = _GUICtrlStatusBar_Create($Form1)
_GUICtrlStatusBar_SetBkColor($StatusBar1, 0x0000FF)
_GUICtrlStatusBar_SetText($StatusBar1, "")
GUISetState(@SW_SHOW)
$name = FileReadLine ( "c:\test.ini" , 1 )
$pw = FileReadLine ( "c:\test.ini" , 2 )
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Einstellung
GuiSETState(@SW_HIDE, $Form1)
$name = FileReadLine ( "c:\test.ini" , 1 )
$pw = FileReadLine ( "c:\test.ini" , 2 )
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Einstellungen", 293, 126, 192, 124)
$Benutzername = GUICtrlCreateLabel("Benutzername", 8, 16, 100, 22)
GUICtrlSetFont(-1, 10, 800, 0, "@Arial Unicode MS")
$Passwort = GUICtrlCreateLabel("Passwort", 8, 64, 66, 22)
GUICtrlSetFont(-1, 10, 800, 0, "@Arial Unicode MS")
$Benutzernam = GUICtrlCreateInput($name, 128, 16, 145, 21)
$Passwor = GUICtrlCreateInput($pw, 128, 64, 145, 21)
$Speichern1 = GUICtrlCreateButton("Speichern", 128, 96, 65, 25)
$Abbrechen = GUICtrlCreateButton("Abbrechen", 208, 96, 65, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg1 = GUIGetMsg()
Switch $nMsg1
Case $GUI_EVENT_CLOSE
GUISetState(@SW_Hide, $Form2)
GUISetState(@SW_SHOW, $Form1)
ExitLoop
Case $Speichern1
FileDelete("c:\test.ini")
FileWriteLine ("c:\test.ini", $Benutzernam)
FileWriteLine ("c:\test.ini", $Passwor)
GUISetState(@SW_Hide, $Form2)
GUISetState(@SW_SHOW, $Form1)
ExitLoop
Case $Abbrechen
GUISetState(@SW_Hide, $Form2)
GUISetState(@SW_SHOW, $Form1)
ExitLoop
EndSwitch
WEnd
Case $Gehen
_GUICtrlStatusBar_SetText($StatusBar1, "Bitte Warten!")
$oIE = _IECreate("",0,0)
_IENavigate($oIE, "http://192.168.100.89:/info")
_IELoadWait($oIE, 0, 30000)
$oForm = _IEFormGetCollection($oIE, 0)
$oUsername = _IEFormElementGetObjByname($oForm, "UID")
$oPassword = _IEFormElementGetObjByName($oForm, "PWD")
_IEFormElementSetValue($oUsername, $name)
_IEFormElementSetValue($oPassword, $pw)
_IEFormSubmit($oForm)
sleep(500)
$oForm1 = _IEFormGetCollection($oIE, 0)
$Menu1 = _IELinkClickByText($oForm1, "Buchung")
_IELoadWait($oIE)
sleep(800)
$oForm2 = _IEGetObjById($oIE, "2img")
_IEAction($oForm2, "click")
_IELoadWait($oIE)
$oForm3 = _IEGetObjById($oIE, "shutdown")
_IEAction($oForm3, "click")
_IELoadWait($oIE)
_IEQuit($oIE)
_GUICtrlStatusBar_SetText($StatusBar1, "Gehen Gebucht")
case $Kommen
_GUICtrlStatusBar_SetText($StatusBar1, "Bitte Warten!")
$oIE = _IECreate("",0,0)
_IENavigate($oIE, "http://192.168.100.89:8080/info")
_IELoadWait($oIE, 0, 30000)
$oForm = _IEFormGetCollection($oIE, 0)
$oUsername = _IEFormElementGetObjByname($oForm, "UID")
$oPassword = _IEFormElementGetObjByName($oForm, "PWD")
_IEFormElementSetValue($oUsername, $name)
_IEFormElementSetValue($oPassword, $pw)
_IEFormSubmit($oForm)
sleep(500)
$oForm1 = _IEFormGetCollection($oIE, 0)
$Menu1 = _IELinkClickByText($oForm1, "Buchung")
_IELoadWait($oIE)
sleep(800)
$oForm2 = _IEGetObjById($oIE, "1img")
_IEAction($oForm2, "click")
_IELoadWait($oIE)
$oForm3 = _IEGetObjById($oIE, "shutdown")
_IEAction($oForm3, "click")
_IELoadWait($oIE)
_IEQuit($oIE)
_GUICtrlStatusBar_SetText($StatusBar1, "Kommen Gebucht")
case $Info
MsgBox (0,"Info","Version 1.3 "&@CRLF&"23.08.2014 SCCSSF")
case $BJ
_GUICtrlStatusBar_SetText($StatusBar1, "Bitte Warten!")
$oIE = _IECreate("")
_IENavigate($oIE, "http://192.168.100.89:8080/info")
_IELoadWait($oIE, 0, 30000)
$oForm = _IEFormGetCollection($oIE, 0)
$oUsername = _IEFormElementGetObjByname($oForm, "UID")
$oPassword = _IEFormElementGetObjByName($oForm, "PWD")
_IEFormElementSetValue($oUsername, $name)
_IEFormElementSetValue($oPassword, $pw)
_IEFormSubmit($oForm)
sleep(200)
$oForm1 = _IEFormGetCollection($oIE, 0)
$Menu1 = _IELinkClickByText($oForm1, "Stempelkarte")
_IELoadWait($oIE)
_GUICtrlStatusBar_SetText($StatusBar1, "")
case $Setting_exit
exit
EndSwitch
WEnd

Hallo,

Danke erstmal noch mal für die Hilfe.

Euren Code habe ich verstanden und getestet ist soweit klar.

Ich muss nur an den Code des aktuell geöffneten Seite kommen. Ich kann leider nicht den Link neu öffnen.

Den kompletten Code der Seite möchte ich hier auch nicht hochladen, da es sich um ca. 3500 Zeilen handelt. (Es ist eine Web Basierte Warenwirtschaft.)

Ich glaube ich stehe nur auf dem Schlauch.

Danke

Gruß

Steffen

Morgen erstmal an alle,

die Seite kann ich leider nicht Separat laden da Sie dynamisch ist.

Und ich genau den dynamischen Inhalt auslesen muss.

Werde mal heute eure Vorschläge durch arbeiten.

Gruß

Steffen

Hallo an alle,

habe ein Ansatz Problem.

Brauche einen Inhalt aus einer Web Seite die im IE offen ist.

So sieht die Stelle in der Seite aus. Steht auf einer Seite mit etlichen Tabellen. id ist einmalig

<INPUT onchange=SetDirty(); onkeypress=SetDirty(); id=txtName1 style="WIDTH: 100%; VISIBILITY: inherit" maxLength=50 value="Diesen Inhalt brauche ich" name=txtName1 wfDataFld="Name1">

Danke schon mal für die Unterstützung

Gruß

Steffen

Passwort war ein ! Zeichen was nicht mit gesendet worden ist.

Hier habe ich einen Tip gefunden.

[ offen ] Control Send - Ausrufezeichen??

Danke

Hallo Schnitzel,

mehr steht nicht da.

Rest wird geschrieben. Sprich su Enter und dann die restlichen Befehle nur das Kennwort wird nicht getippt.

>>>> Window <<<<
Title: C:\plink.exe
Class: ConsoleWindowClass
Position: 590, 223
Size: 677, 342
Style: 0x14EF0000
ExStyle: 0x00040310
Handle: 0x00031320

>>>> Control <<<<
Class:
Instance:
ClassnameNN:
Name:
Advanced (Class):
ID:
Text:
Position:
Size:
ControlClick Coords:
Style:
ExStyle:
Handle:

>>>> Mouse <<<<
Position: 776, 236
Cursor ID: 0
Color: 0xFEFEFE

>>>> StatusBar <<<<

>>>> ToolsBar <<<<

>>>> Visible Text <<<<

>>>> Hidden Text <<<<

Gruß

Steffen

Hallo

habe ein kleines Skript geschrieben geht auch fast!

ShellExecute("c:\plink.exe","-v -pw abc test@192.168.99.2:22")
Sleep (3000)
ControlSend("C:\plink.exe","","","su")
Sleep (1000)
ControlSend("C:\plink.exe","","","{ENTER}")
Sleep (1000)
ControlSend("C:\plink.exe","","","PASSWORT")
Sleep (1000)
ControlSend("C:\plink.exe","","","{ENTER}")
sleep (1000)
ControlSend("C:\plink.exe","","","seervice blablabla")

leider nimmt der su Befehl das Passwort nicht an.

Hat einer eine Idee DANKE!

Steffen

So habe mal meinen Fertigen Quelltext hier noch eingestellt.

Aktuell sollte es funktionieren. Die Praxis sollte sich zeigen.
Opt('MustDeclareVars',1) musste ich deaktiviert weil es sonst nicht funktioniert hat.