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 ]
Tipp:
Bitte poste dein Skript im Thread ( Tab:Quellcode, [ autoit ] DEIN SKRIPT [ /autoit ] <- ohne Leerzeichen )
Wenn man es erst herunterladen muss, ist die Wahrscheinlichkeit für Hilfe geringer.
Was haltet ihr von dem taschenrechner jetzt ?
Ich halte von einem DL-Link gar nichts. Du solltest Hinweise annehmen, die machen wir nicht aus Jux und Dallerei.
Das Buch habe ich nicht gelesen, den Typen aber mal im TV gesehen.
Mein Eindruck: Der totale Vollpfosten.
Er geht den üblichen Weg:
- Thema von allgemeinem Interesse aussuchen
- stark überspitzte Behauptungen aufstellen
- deren "Wahrheitsgehalt" mit mehr als zweifelhaften Studien untermauern
- alles in ein Buch packen
- Promo-Touren durch ganz Deutschland
Ergebnis: Die Kasse stimmt
Und wenn euch das ganze jetzt an einen Herrn Sarrazin erinnert ist das nicht verwunderlich.
Ich bin der festen Meinung:
Weder Herr Spitzer noch Herr Sarrazin würden vor sich selbst ihre publizierten Ergüsse gelten lassen.
Beiden geht es (mit Erfolg, wie man sieht) nur um Kohle, Kohle, Kohle... 
HotKey arbeitet mit gar keiner Maustaste. Damit klärt sich auch deine Frage.
Im EN-Forum gibt es aber eine MouseOnEvent-UDF (oder ähnlich).
He Leute, haut euch nicht die Rübe ein. 
General Kaboom:
Eine Bitte, die du vielleicht beherzigen kannst. Ich kenn das aus meinen Anfängen, wollte auch gerne etwas von dem mir im Forum gegebenen Support an andere weitergeben. Da schießt man schnell mal übers Ziel hinaus, da einem ein Skript unbekannt und daher falsch vorkommt. Also lieber dann mal selbst die Hilfe bemühen und schauen, was diese Art der Programmierung bedeutet.
Wer z.B. aus der VB-Ecke zu uns stößt, kann mit Msg-Loop nichts anfangen, ist aber bestens vertraut mit OnEvent-Mode.
Ob eine Methode besser als die andere ist, sei völlig dahingestellt. Mit beiden kann man zuverlässig arbeiten. OnEvent-Mode erleichtert es m.M. große Skripte übersichtlich zu halten. Auch die zusätzlichen Makros in diesem Modus (@GUI_CtrlId, @GUI_CtrlHandle, @GUI_WinHandle, @GUI_DragFile, @GUI_DragId, @GUI_DropId) können einiges an Vorteil mit sich bringen. Aber das ist wirklich Geschmackssache.
- Syntax erweitert auf alternative Verwendung von Operator Konstanten.
- Installer für UserCallTips hinzugefügt
s. Post #1
Tipp:
Bitte poste dein Skript im Thread ( Tab:Quellcode, [ autoit ] DEIN SKRIPT [ /autoit ] <- ohne Leerzeichen )
Wenn man es erst herunterladen muss, ist die Wahrscheinlichkeit für Hilfe geringer.
- 64 + 4 sind 68
- Du musst keine Variablen deklarieren, wenn du es nicht musst
minx:
Sorry, aber da sollte man anders herangehen.
- 64 + 4 = 68 ---> dann weiß niemand mehr, wie sich der Style zusammensetzt, insofern durchaus sinnvoll
- Das Deklarieren von Variablen ist immer guter Stil. So bequem es auch ist, dass AutoIt es nicht explizit fordert, so leicht verleitet es auch zur Schlamperei. Der beste Weg ist eigentlich mit Opt('MustDeclareVars', 1) zu arbeiten.
Und die Reihenfolge dieser Abfragen bestimmt somit das Ergebnis bzw. den Datentyp.
das ist eher Philosophisch^^
Sehe ich auch so.
Diese Abfragelogik erlaubt dann auch solche im ersten Moment seltsam erscheinenden Umwandlungsoperationen:
Func __Bool2Num($bool)
Return BitAND($bool, True)
EndFunc ;==>__Bool2Num
Func __Num2Bool($num)
Return Not Not $num
EndFunc ;==>__Num2Bool
Auch von mir Alles Gute!
Und dazu ein kleines Ständchen: Anna
NIL könnte man also imho in AutoIt mit FALSE ersetzen.
Jein.
So, wie AutoIt damit umgeht, kann 0 und Leerstring als FALSE betrachtet werden. Das beißt sich aber mit Inhalten bzw. Nicht-Inhalten von Variablen. Dadurch haben Variablen, die ohne Wertzuweisung erstellt werden, leider einen Wert, der als 0, Leerstring oder FALSE gelesen wird.
Abhilfe schafft halt der typenkorrekte Vergleich bzw. das Vorbelegen der Variablen mit eineindeutigen Werten.
Je länger ich mit AutoIt arbeite, desto unglücklicher bin ich mit dem Datentyp Variant. Er verleitet zu schnell zu Fehlern. Selbst eine typgenaue Deklaration schützt nicht davor, dass ein String in einer Integeroperation verwendet wird. Variant als Datentyp passt sich einfach an statt einen Fehler zu bringen, somit kann ein Flüchtigkeitsfehler sich gut verstecken. :wacko:
Die Ursache liegt u.A. in der Verwendung des Datentyps Variant. So praktisch das i.A. ist -- hier tritt es uns in den Hintern.
Folgende Probleme fallen hier zusammen:
- AutoIt hat nicht einen Wert wie z.B. 'nil' in LUA, also das definierte 'Nichts'
- eine frisch deklarierte Variable ohne Wertzuweisung hat nur ein "unklares Nichts" als Wert, sowohl 0 als auch Leerstring sind somit ein "unklares Nichts"
Bei Vergleichen ist es somit zwingend erforderlich nicht Äpfel mit Birnen, sondern Datentypgleich zu vergleichen:
[autoit]
; FALSCH:
$a = 0
If $a = 'abc' Then
; RICHTIG:
If $a = 1234
; oder RICHTIG
$a = '0'
If $a = 'abc' Then
Damit ist garantiert, dass der Vergleich auch gewünschte Ergebnisse liefert.
Was passiert in den "gemischten" Abfragen?
[autoit]$a = 0 ; also ein Integerwert
If $a = "abc" ; laut dieser Abfrage soll ein Vergleich von Integerwert $a=0 mit einem anderen Wert stattfinden.
Da Variant nun versucht die Werte typgleich zu gestalten wird mit Int("abc") verglichen - und das ergibt: 0
Somit ist 0 = 0 und der Vergleich ist WAHR.
w.z.b.w.
Dein Konzept ist aus folgenden Gründen sinnfrei:
Du kannst den Wert von Variablen nicht dynamisch mit deren Wert durch Auslesen Name/Wert speichern. Denn es gibt in AutoIt keine Möglichkeit den Namen einer Variablen auszulesen.
Also musst du in deinem Skript sowieso auf den DIR BEKANNTEN Variablennamen zugreifen. Du kannst natürlich den zugehörigen Wert in Verbindung mit dem Namen in einer INI speichern (Variablenname=Wert). Aber beim Lesen aus der INI hat Assign nichts verloren. Das Auslesen erfolgt dann nach dem Muster:
; z.B. für eine Variable $zaehler
$zaehler = IniRead($INI, 'sektion', 'zaehler', '')
Na dann Sei uns Willkommen! Auf viele schöne gemeinsame Stunden im Forum.
Wie du sicher schon bemerkt hast, ist vielen von uns eine hintergründige Art von Ironie, teilweise auch Zynismus (aber nie böse) eigen. Also durchaus das Gelesene mit einem Zwinkern betrachten.
Ich freue mich immer, wenn auch Mädels sich für AutoIt (bzw. generell Programmierung) begeistern können. Dieser Bereich ist viel zu stark von Männern dominiert.
Hallo Janine,
habe mich gerade mal etwas mit dem Thema Easybox beschäftigt. Jetzt verstehe ich, was du mit "arme Easybox-Besitzerin" meinst. 
Ich habe einen Thread gefunden, indem beschrieben wird, wie man die Box im vollen Umfang konfigurieren kann. Vodafone Easybox 803 / 903/ 904 "jailbreaken"
Vielleicht bringt dich das etwas weiter. Viel Glück dabei.
gibt es einen Grund für deine Beiden sinnfreien Kommentare in diesem Beitrag ?
Den zweiten Beitrag habe ich deutlich als OT markiert, viele Nicks sind einfach bunt zusammengewürfelt. Jane Do hat aber in der Kriminalistik eine feste Bedeutung. Insofern war ich einfach nur neugierig, weshalb man sich damit identifiziert.
Tut mir leid, wenn du Post 1 als sinnfrei betrachtest. Sehe ich anders. Solch Anrufmonitoring ist eine prima Sache. Und in diesem nicht bestreitbaren Sachzusammenhang wollte ich auf eine Möglichkeit bei vorhandener FritzBox hinweisen.
[OT]
Warum nennst du dich "Unbekannte Tote" ? 
[/OT]
ein Anruferlog wenn man mal außer Haus ist usw.
Möglichkeiten gibt es sehr viele, die Grundfunktionen sind ja in dem Script vorhanden.
Für eine Fritzbox gibt es da "Fritz!AppTicker", da kann ich von überall sehen, wer angerufen hat - angerufen wurde, habe Zugriff auf das Telefonbuch der Box und kann dieses im Smartphone nutzen, kann auch die Box fernwarten.
Ich denke, da gibt es kaum noch Erweiterungsmöglichkeiten /-Bedarf.
