Beiträge von funkey

Hab auch IE7 und bei mir geht's einwandfrei. Ich verstehe jetzt nicht woran es liegt

#include <IE.au3>

$sUsername = "*****"
$sPassword = "******"

$url = "http://193.27.52.3/Citrix/MetaFrame/default/default.aspx"
$oIE = _IECreate($url, 0,1,1,0)
$oHWND = _IEPropertyGet($oIE, "hwnd")
WinSetState ($oHWND, "", @SW_MAXIMIZE )

ControlSend("DATEV-Software online - Windows Internet Explorer","","",$sUsername)
ControlSend("DATEV-Software online - Windows Internet Explorer","","","{TAB}")
ControlSend("DATEV-Software online - Windows Internet Explorer","","",$sPassword)
ControlSend("DATEV-Software online - Windows Internet Explorer","","","{Enter}")

Hab gesehen, dass es die Seite ja wirklich im Internet gibt
Es geht so nicht wie ich es vorher gepostet hatte (Javascript).

Aber so sollte es gehen, da der Fokus immer auf das Benutzereingabefeld gesetzt wird:

#include <IE.au3>

$sUsername = "*****"
$sPassword = "******"

$url = "http://193.27.52.3/Citrix/MetaFrame/default/default.aspx"
$oIE = _IECreate($url, 1)

Send($sUsername)
Send("{TAB}")
Send($sPassword)
Send("{Enter}")

Ich weiß nicht ob es bei dir so funktioniert, aber bei mir gehts so (ohne Proxy und so Zeug):

Mit den ausdokumentierten Zeilen findest du hoffentlich die Formnamen und Elementnamen die du brauchst.

mfg funkey

Hallo, vllt hilft dir das: IE-Projekt

Du solltest auch nicht die Funktion in der Funktion aufrufen.
So geht's. Man kann jetzt sogar das Programm beenden

Dim $spielname = "Game"
Dim $geld
Dim $einsatz
Dim $wuerfel1
Dim $wuerfel2

MsgBox(0,$spielname,"Hallo!")
$geld = 10
einsatz()

Func einsatz()
While 1
$einsatz = InputBox($spielname,"Wieviel Geld willst du setzten? Du hast " & $geld & " Euro")
If $einsatz = "" Then Exit
If $einsatz > $geld Then
MsgBox(0,$spielname,"Du hast nicht so viel Geld!")
Else
MsgBox(0,$spielname,"Drücke nun auf OK um zu würfeln!")
$wuerfel1 = Random(1,6,1)
$wuerfel2 = Random(1,6,1)
MsgBox(0,$spielname,"Du würfelst eine " & $wuerfel1 & "!")
MsgBox(0,$spielname,"Dein Gegner würfelt eine " & $wuerfel2 & "!")
If $wuerfel1 > $wuerfel2 Then
$geld += $einsatz
MsgBox(0,$spielname,"Glückwunsch! Du hast gewonnen! Du hast nun " & $geld & " Euro")
ElseIf $wuerfel2 > $wuerfel1 Then
$geld -= $einsatz
MsgBox(0,$spielname,"Schade! Du hast verloren! Du hast nun " & $geld & " Euro")
Else
MsgBox(0,$spielname,"Gleichstand! Du hast immernoch " & $geld & " Euro")
EndIf
EndIf
WEnd
EndFunc

Meines Wissens nur mit _IECreateEmbedded. Leider.

Beitrag 3: [ gelöst ] Uhrzeit

Läuft bei mir einwandfrei. Ich kann so viele Dateien wie ich will per Drag and Drop zur Liste hinzufügen und über das 'Datei öffnen-Menü' geht'S auch super.

Also

Hilfe ----> _GUICtrlComboBoxEx_SetImageList

Das war zum Testen, da ich in neue Dateien geschrieben habe, und nicht die alte überschrieben habe.

Z.Bsp. so

#Include <File.au3>
Local $aProgs
_FileReadToArray("programme.txt",$aProgs)

For $i = 1 To $aProgs[0]
ProcessClose($aProgs[$i])
Next

Textdatei:

scite.exe
notepad.exe

Dekompilen wurde nur bis zur Version 3.2.5.1 unterstützt und geht jetzt nicht mehr! Pass besser auf deinen Code auf.

Vllt hilft dir das:

Do
$Zahl = InputBox("","")
Until $Zahl < 50 And StringIsInt($Zahl)

Wo hast du denn diesen Code her?

<div style="display: block;" id="time">01:15:15</div>

Wenn der aus dem Internet-Explorer ist, dann kannst du ihn auch mit _IEBodyReadHTML auslesen, ich verstehe dein Problem noch immer nicht ganz.

Geht in Ordnung Bugfix. Daran hab ich nicht gedacht, das nächste Mal mach ich's besser .

Hab da von Oscar eine tollen regulären Ausdruck bekommen, der passt auch hier:

$string = '<div style="display: block;" id="time">01:15:15</div>'
MsgBox(0,"Zeit",StringRegExpReplace($string, "(<.+?>)", ""))

Wieso sollte man das nicht anklicken können? Sieht für mich aus wie eine ganz normale MsgBox. Ich hab sie mal nachgebaut und getestet:

$str = "Local $x = Sleep(3000)+ControlClick('Windows Media Player 11', '', 'Button1')"
Run('"' & @AutoItExe & '" /AutoIt3ExecuteLine "' & $str & '"')

MsgBox(49,"Windows Media Player 11","Es wird ein Rollback von Windows Media Player auf die früher auf dem Computer installierte Version durchgeführt. Möchten Sie den Vorgang fortsetzen?")

Geht einwandfrei, also einfach mit

ControlClick('Windows Media Player 11', '', 'Button1')

wegklicken!

Hallo Bene!
Du bist ja schon länger hier im Forum als ich und du hast auch schon einige posts hinter dir. Also ich muss sagen es war höchste Zeit dich hier mal vorzustellen

Herzlich Willkommen!

Zitat

hi habe gelesen dass der hex-code von der zahl "1" zb 31 sein soll und von der 2 "32"...weiß jemand wo ne tabelle für die ganze tastatur verfügbar ist?

Da steht doch hex, oder?
Nein, hab eigentlich nur geantwortet, weil da der Befehl von dir noch 'ASCII' hieß und eine Klammer fehlte, das hast du ja behoben, hab nur zusätzlich noch die Hex-Anzeige dazugebaut.

Fasl richtig

$ascii = InputBox ("","String")
MsgBox (0,"","Der ASCII-Code für " & $ascii & " ist : " & (ASC($ascii)&" dezimal und "&(Hex(Asc($ascii),2))&" hex"))