Gibt es nun auch noch eine Lösung für die Navigation mit Pfeiltasten?
Boshaft könnte ich sagen: Denk doch mal ein bischen nach... 
Weise den Pfeiltasten über GuiSetAccelerators Dummy-ID's zu. Bei Auslösen der Dummies durch die Pfeiltasten prüfst du mit den Edit-Funktionen die Zeichenposition im Edit. Wenn = 0 wiederum Fokuswechsel. 
Jetzt bleibt das Problem, das ich mit z.B. Backspace nicht wieder in das erste Control komme, wenn der Cursor am Anfang des zweiten steht...
Im zweiten Edit (über "WM_COMMAND") den $iCode "$EN_CHANGE" abfragen und dabei Länge Inhalt Edit2 prüfen, wenn = 0, dann Fokus auf Edit 1 ans Ende.
da ich sonst mit AutoIT scripte aber diesmal brauch ich Batch!
Wenn es zwingend Batch sein muss, dann ruf doch ein AutoItskript, dass die Ladebalken-Geschichte erledigt, über deine Batch auf.
Edit:
Habe mal kurz in Batch-Tuts geschaut, wenn das Laden in einem Task läuft, kannst du über die Existenz des Taskes die Schleife steuern, wenn der Task beendet ist, wird die Schleife verlassen.
Probier mal:
set Zaehler=³
:LOOP
echo.
echo Programm wird geladen ...
echo.
echo %Zaehler%
set /a Zaehler=%Zaehler%²
ping 127.0.0.1 -n 3>nul
cls
TaskList|Find "Taskname" >NUL || If Errorlevel 1 Goto WEITER
Goto LOOP
:WEITERDas kannst du so machen:
[autoit]#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$hGUI = GUICreate("Edit Test")
$1 = GUICtrlCreateEdit("Test", 5, 5, 390, 195, $ES_WANTRETURN)
$2 = GUICtrlCreateEdit("", 5, 200, 390, 195, $ES_WANTRETURN)
GUISetState()
GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")
While GUIGetMsg() <> -3
WEnd
Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
Local $hWndFrom, $iCode
$hWndFrom = $ilParam
$iCode = BitShift($iwParam, 16) ; Hi Word
If $hWndFrom = GUICtrlGetHandle($1) And $iCode = 1281 Then ControlFocus($hGUI, '', $2)
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_COMMAND
Einen wirklichen Sinn kann ich in dem Vergleich nicht finden. Wie schon gesagt wurde ist es zweifelhaft, ob diese Art des Vergleiches überhaupt realistisch ist.
Und wozu überhaupt der Speed-Test mit anderen Sprachen?
Wem AutoIt zu langsam ist (was vermutlich bei 1% der User in wiederum höchstens 1% der Anwendungsfälle wirklich signifikant sein mag), der sollte Inline ASM verwenden und schon flutscht die Sache. 
Wie stelle ich im Programm fest, ob eine EXCEL-Datei geöffnet ist, und wie spreche ich dann diese Datei an, so dass ich meine Daten dort abladen kann.
Bitte dazu nicht diesen Thread hijacken - ist ein anderes Thema. Eröffne dazu einen eigenen Thread in "Hilfe und Unterstützung".
Für H&U halte ich das auch für sinnvoll.
Mein Hauptaccount ist ein werbefreier (ist ja auch ein Bezahl-Account).
Aber für Foren, Kontakte zu Shops etc. pp. verwende ich nur Freemailer, wenn die dann vollgespamt werden ist mir das egal. 
Achja: Der Spam von Web.de wird bei mir als solcher durch den Spamfilter (bei Weiterleitung auf meinen Hauptacc.) ins Nirvana befördert.
JEDES Mal erhält der Empfänger irgendwelche sinnlose Werbung.
Sorry, aber das ist Schwachsinn! - Das passiert nur, wenn du den Web-Mailer benutzt.
Bei Verwendung über einen Mail-Client (z.B. Thunderbird od. Outlook etc.) hast du keinerlei Werbung.
Ich hatte aus Urzeiten einen Account bei web.de, immer mal wieder eingewählt um ihn am Leben zu halten. Normalerweise läuft da nix drüber. War aber auch der einzige Account der ein paar Adressen enthielt, u.A. die von meinem Haupt-Account.
Plötzlich bekam ich dann von diesem Konto eine Mail mit Link für irgendeine Schmuddelseite. Als weitere Verteiler alle Adressen aus dem Adressbuch dieses Kontos. Es hatte also jemand geknackt.
Also:
- eingeloggt
- Passwort geändert (ein richtig kryptisches mit 14 Zeichen)
- Sicherheitsabfrage für vergessenes Passwort geändert -->> SEHR WICHTIG!! Wenn der Fremde diese Infos geholt hat bekommt er jederzeit ein neues Passwort für den Account.
Dann war Ruhe.
Oder du verwendest meine OwnContext UDF.
So unterschiedlich sind halt die Befindlichkeiten.
An deinem Bsp. kann ich nun gar nix Schlimmes finden.
Wobei ich es in der Regel so handle, dass Strings mit einfachem Anführungskennzeichen markiert werden und String im String mit doppeltem. Un das hat rein ergonomische Gründe, da es wesentlich einfacher ist, das einfache Anführungszeichen zu tippen, als das doppelte.
Aber wir wollen mal den Thread nicht total in OT überführen.
Ich bevorzuge eher die 2. Variante.
Dann kommst du vermutlich aus einer (Programmier)Sprachecke, die nur eine Quota kennt und somit die Maskierung mit sich selbst erzwingt. 
Kann ich persönlich gar nix mit anfangen, viel zu unübersichtlich beim Lesen.
Run kann max. 4 Parameter entgegennehmen, du rufst es mit 5 auf. :wacko:
Bau dir den Programmaufruf ausserhalb des Runbefehls zusammen, bedenke dass einige Parameter als quotierter String angehängt werden könnten. Also unterschiedliche Quota verwenden.
Übergib dann die Variable, die den parametrisierten Aufruf enthält an Run.
Am Besten:
Vorher in der Konsole testen, wie der Aufruf aussehen muss, damit es funzt.
Die Aktionen solltest du mit den IE-Komponenten realisieren. Dazu verwendest du
[autoit]_IEAction
[/autoit]Nun, "ADODB" ist das Zauberwort, das dir mit einer Suche auf MSDN alles offenbart.
Link MSDN - ADO Referenz
Das Ergebnis ist ein Recordset, so kannst du damit umgehen:
[autoit]
; ...
While Not $result.EOF
For $i = 0 To $result.Fields.Count - 1
ConsoleWrite($result.Fields($i).Name & " " & $result.Fields($i).Value & @CRLF)
Next
$result.MoveNext
WEnd
$result.Close
$adCN.Close
Was ich auf den ersten Blick an Fehlern gesehen habe, habe ich entfernt. (doppelte Deklarationen etc.)
Es funktioniert soweit, aber Auswahl mit Enter ist grad nicht möglich, hab jetzt nicht weiter gesucht warum. Gucke selbst mal.
Auch die Liste erscheint kleiner als angegeben. Ich arbeite selten mit dem Listbox-Ctrl, kann mich aber schwach erinnern, dass bei bestimmten Werten eine fehlerhafte Darstellung erfolgt. Allerdings kannte ich das bisher nur im Zusammenhang mit Win2K.
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListBoxConstants.au3>
#include <WindowsConstants.au3>
#include <GUIListBox.au3>
#Include <WinAPI.au3>
#include <Misc.au3>
Opt("GUICloseOnESC", 0)
#Region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit]Global $show = False
Global $indexB = -1
Global $SenseGui, $SenseCtrl, $guiBox, $box
Global $POSSenseGui[2]
Global $aData[34] = ["Österreich","Australien","Belgien","Bosnien","Brasilien","Kanada","Schweiz","Tschechien","Deutschland","Dänemark","Spanien","Frankreich","Großbritannien","Griechenland","Ungarn","Kroatien","Italien","Irland","Mexico","Malta","Malaysia","Norwegen","Nigeria","Niederlande","Polen","Russland","Schweden","Slowakei","Slowenien","Türkei","England","Amerika","Venezuela","Südafrika"]
$guiBox = GUICreate('', 180, 100, 300, 100, BitOR($WS_SIZEBOX, $WS_POPUP), BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
$box = _GUICtrlListBox_Create($guiBox, '', 0, 0, 180, 101, BitOR($LBS_SORT, 0x00B00002))
; ListBox muß 1 Pixel höher als GUI sein - sonst fehlerhafte Darstellung <<<<<<<<<<<<<<<< BEACHTEN !!!!!! >>>>>>>>>>>>>>>>>>>>>>>>>>
For $i = 0 To UBound($aData) -1 ; falls Daten mit _FileReadToArray gelesen werden: StartIndex=1
_GUICtrlListBox_AddString($box, $aData[$i])
Next
#EndRegion Box
GUIRegisterMsg($WM_COMMAND, "MY_WM_COMMAND")
GUIRegisterMsg($WM_MOVE, "_WM_MOVE")
GUIRegisterMsg(0x231, "_WM_ENTERSIZEMOVE")
#EndRegion - Deklarationen Sense
#Region Main
;~ $Form1 = GUICreate("Tarifsuchmaschine", 506, 125, 2608, 362)
$Form1 = GUICreate("Tarifsuchmaschine", 506, 125, 608, 362)
$SenseGui = $Form1 ; <== Für Allgemeingültigkeit Zuweisung an $SenseGui
$name = GUICtrlCreateInput("Bitte Land eingeben...", 8, 40, 201, 21)
$button1 = GUICtrlCreateButton("Such!", 8, 64, 201, 33)
$label1 = GUICtrlCreateLabel("Bitte Land eingeben", 8, 16, 204, 17)
$label2 = GUICtrlCreateLabel("", 232, 32, 164, 89)
$Pic1 = GUICtrlCreatePic("", 400, 8, 73, 57)
$us = GUICtrlCreateLabel("Deine Suche: ", 232, 8, 164, 17)
$SenseCtrl = $name ; <== Für Allgemeingültigkeit Zuweisung an $SenseCtrl
$hInput = GUICtrlGetHandle($name)
GUISetState()
#EndRegion Main
$var1="0"
$Internet="0"
$aufbau="0"
$an="0"
$ab="0"
$inet="0"
$sms = "0"
$zahl = "0"
$land= "0"
While 1
_ChooseBox()
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $button1
consolewrite($name)
_lauf()
_bilder()
EndSwitch
WEnd
Func _lauf()
[/autoit] [autoit][/autoit] [autoit]_abkurz()
If $zahl = "0" Then
$zahl = IniRead("list.ini", "liste", GUICtrlRead($name),"false")
$land = GuiCtrlRead($name)
_suchen()
_suchen2()
If IniRead("list.ini", "internet", GUICtrlRead($name),"false") = "False" Then
consolewrite(" Failed!")
_ausgabe2()
Elseif 1 then
_ausgabe()
Endif
Else
_suchen3()
_suchen4()
If IniRead("list.ini", "liste", $zahl,"false") = "False" Then
consolewrite(" Failed!")
_ausgabe2()
Elseif 1 then
_ausgabe()
Endif
EndIf
EndFunc
Func _suchen()
$aufbau = IniRead("list.ini","tarif"&$zahl,"aufbau","fehlt")
$an = IniRead("list.ini","tarif"&$zahl,"an","fehlt")
$ab = IniRead("list.ini","tarif"&$zahl,"ab","fehlt")
$sms = IniRead("list.ini","tarif"&$zahl,"sms","fehlt")
consolewrite("suchen1 tarif"&$zahl&" ")
EndFunc
Func _suchen2()
$zahl = IniRead("list.ini", "internet", GUICtrlRead($name),"false")
$inet = IniRead("list.ini","inettar"&$zahl,"kosten","fehlt")
consolewrite("suchen2 inettar"&$zahl&" ")
endfunc
Func _suchen3()
$tar2 = IniRead("list.ini","liste",$zahl,"fehlt")
$aufbau = IniRead("list.ini","tarif"&$tar2,"aufbau","fehlt")
$an = IniRead("list.ini","tarif"&$tar2,"an","fehlt")
$ab = IniRead("list.ini","tarif"&$tar2,"ab","fehlt")
$sms = IniRead("list.ini","tarif"&$tar2,"sms","fehlt")
consolewrite("suchen3 tarif"&$tar2&" ")
EndFunc
Func _suchen4()
[/autoit] [autoit][/autoit] [autoit]$tar = IniRead("list.ini","internet",$zahl,"fehlt")
$land = $zahl
$inet = IniRead("list.ini","inettar"&$tar,"kosten","fehlt")
consolewrite("suchen4 inettar"&$tar&" ")
endfunc
[/autoit] [autoit][/autoit] [autoit]func _bilder()
GUICtrlSetImage($pic1,"")
GUICtrlSetImage($pic1,@WorkingDir&"\"&$land&".gif")
EndFunc
Func _abkurz()
If IniRead("list.ini", "abkurz", GUICtrlRead($name),"false") <> "false" Then
$zahl = iniRead("list.ini","abkurz", GUICtrlRead($name),"false")
Else
$zahl = "0"
Endif
EndFunc
Func _ausgabe()
GuiCtrlSetData($label2,"Fixkosten:" & @TAB &$aufbau & "€" & @CRLF & "Ankommend:" &@TAB& $an & "€ / Minute" & @CRLF & "Abgehend:" &@TAB& $ab& "€ / Minute" & @CRLF& "SMS:" & @TAB &@TAB& $sms & "€"& @CRLF & "Daten:"&@TAB&@TAB& $inet & "€ /50kb")
GuiCtrlSetData($us,"Deine Suche: "&$land)
Consolewrite(" Deine Suche:"&$land)
endfunc
Func _ausgabe2()
GuiCtrlSetData($label2,"Land nicht gefunden!"& @CRLF & "Bitte Eingabe überprüfen")
EndFunc
#region - SenseFuncs
Func _ChooseBox()
If Not $show Then Return
;~ If Not $show Or ControlGetText($SenseGui, '', $SenseCtrl) = "" Then
;~ GUISetState(@SW_HIDE, $guiBox)
;~ $show = False
;~ Return
;~ EndIf
If _IsPressed('0D') Then ; ENTER
If _GUICtrlListBox_GetText($box, $indexB) <> 0 Then
ControlSetText($SenseGui, '', $SenseCtrl, _GUICtrlListBox_GetText($box, $indexB))
EndIf
GUISetState(@SW_HIDE, $guiBox)
$show = False
ElseIf _IsPressed('1B') Then ; ESC
GUISetState(@SW_HIDE, $guiBox)
$show = False
ElseIf _IsPressed('26') Then ; UP
If $indexB > 0 Then
$indexB -= 1
_GUICtrlListBox_SetCurSel($box, $indexB)
Sleep(90)
EndIf
ElseIf _IsPressed('28') Then ; DOWN
If $indexB < _GUICtrlListBox_GetCount($box)-1 Then
$indexB += 1
_GUICtrlListBox_SetCurSel($box, $indexB)
Sleep(90)
EndIf
EndIf
EndFunc
Func MY_WM_COMMAND($hWnd, $Msg, $wParam, $lParam)
Local $nNotifyCode = BitShift($wParam, 16)
Local $hCtrl = $lParam
Local $hSenseCtrl = $SenseCtrl
If Not IsHWnd($hSenseCtrl) Then $hSenseCtrl = GUICtrlGetHandle($hSenseCtrl)
If ($nNotifyCode = 1024 Or $nNotifyCode = 6) And $hCtrl = $hSenseCtrl Then
Local $str = ControlGetText($SenseGui, '', $SenseCtrl)
$indexB = _GUICtrlListBox_FindString($box, $str)
_GUICtrlListBox_SetCurSel($box, $indexB)
$caret = _CaretPos()
If Not @error And Not $show Then
If $caret[3] + $caret[4] - 95 < 0 Then ; Platz für Liste über dem Ctrl ausreichend?
WinMove($guiBox, '', $caret[0], $caret[1] +25) ; Versatz 25 (Ctrlhöhe+5) unter y vom Ctrl
Else
WinMove($guiBox, '', $caret[0], $caret[1] -95) ; Versatz 95 (Boxhöhe+10) über y vom Ctrl
EndIf
GUISetState(@SW_SHOWNOACTIVATE, $guiBox)
$show = True
EndIf
ElseIf $hCtrl = $box And $nNotifyCode = 1 Then
$indexB = _GUICtrlListBox_GetCurSel($box)
ControlSetText($SenseGui, '', $SenseCtrl, _GUICtrlListBox_GetText($box, $indexB))
GUISetState(@SW_HIDE, $guiBox)
$show = False
ElseIf $show And $nNotifyCode = 512 And $hCtrl = $lParam And Not $hCtrl = $box Then
GUISetState(@SW_HIDE,$guiBox)
$show = False
EndIf
Return $GUI_RUNDEFMSG
EndFunc
Func _WM_ENTERSIZEMOVE($hWnd)
If $hWnd = $SenseGui Then $POSSenseGui = WinGetPos($SenseGui)
EndFunc
Func _WM_MOVE($hWnd)
If $hWnd = $SenseGui Then
Local $pos = WinGetPos($guiBox)
Local $postemp = WinGetPos($SenseGui)
WinMove($guiBox,"",$pos[0]-($POSSenseGui[0]-$postemp[0]),$pos[1]-($POSSenseGui[1]-$postemp[1]))
$POSSenseGui = WinGetPos($SenseGui)
EndIf
EndFunc
Func _CaretPos()
Local $old = Opt("CaretCoordMode", 0) ;relative mode
Local $c = WinGetCaretPos() ;relative caret coords
Local $w = WinGetPos("") ;window's coords
Local $f = ControlGetFocus("","") ;text region "handle"
Local $e = ControlGetPos("", "", $f) ;text region coords
Local $h = ControlGetHandle("", "", $f) ;Ctrl-Handle
Local $t[5]
If IsArray($c) and IsArray($w) and IsArray($e) Then
If _WinAPI_IsClassName($SenseCtrl, 'Edit') Then ; Input wird als Edit-Class erkannt
$t[0] = $c[0] + $w[0] + $e[0]
ElseIf _WinAPI_IsClassName($SenseCtrl, 'ComboBox') Then
$t[0] = $w[0] + $e[0]
EndIf
$t[1] = $c[1] + $w[1] + $e[1]
$t[2] = $h
$t[3] = $w[1]
$t[4] = $e[1]
Opt("CaretCoordMode", $old)
Return $t ;absolute screen coords of caret cursor
Else
Opt("CaretCoordMode", $old)
SetError(1)
EndIf
EndFunc
#endregion - SenseFuncs
Wer Lesen kann ist klar im Vorteil: Tab:Quellcode
Wenn du das in den Editor packst wird das nichts. Du brauchst immer nur den "Quellcode"-TAB benutzen. Der Tab "Editor" ist eigentlich sinnfrei.
Und wenn der Code länger als ein paar Zeilen ist: in Spoiler packen [ spoiler ] [ autoit ] Code [ /autoit ] [ /spoiler ]
