Beiträge von johny1099

Guten Morgen zusammen

ich habe in der Zwischenzeit versucht eine Lösung zu finden. Hierbei habe ich noch eine Funktion _FFReadHTML() gefunden. Was haltet ihr davon es so zu machen?

[autoit]

#include <File.au3>
#include <String.au3>
#include <Array.au3>
#include <File.au3>
#include <ff.au3>

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

Dim $arr, $string_html,$kurs

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

Dim $start_search_string = '<input name="base_amount" id="form_base_amount_input_hidden" value="'
Dim $end_search_string = '" type="hidden">'
If FileExists(@ScriptDir & '\oanda_output.txt') Then FileDelete(@ScriptDir & '\oanda_output.txt')
_FFStart("http://www.oanda.com/lang/de/currency/converter/")
If _FFIsConnected() Then
$string_html = _FFReadHTML("body")
FileWriteLine(@ScriptDir & '\oanda_output.txt', $string_html)
_FileReadToArray(@ScriptDir & '\oanda_output.txt', $arr)
For $i = 1 To $arr[0]
If StringInStr($arr[$i], $start_search_string) Then
$kurs = _StringBetween(StringStripWS($arr[$i],1),$start_search_string,$end_search_string)
MsgBox(0, "Kurs Euro ==> US Dollar", 'Der aktuelle Kurs: ' &$kurs[0] )
ExitLoop
EndIf
Next
EndIf
_FFQuit()

[/autoit]

MfG
johny1099

Hallo zusammen

gibt es eine Möglichkeit den Kurs auszulesen bzw. einen anderen Betrag einzugeben.

Ich habe bereits eine Funktion gefunden, welche die Homepage automatisch öffnet. Aber leider weiss ich nicht wie ich auf das Feld Kurs zugreifen kann.

[autoit]

#include <FF.au3>

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

_FFStart("http://www.oanda.com/lang/de/currency/converter/")

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

If _FFIsConnected() Then

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

EndIf

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

[Blockierte Grafik: http://www.bilder-space.de/bilder/f20c0b-1309447679.jpg#]

MfG
johny1099

vielen Dank für die detaillierten Erläuterungen.

MfG
johny1099

danke für die zahlreichen Kommentare meiner Frage.

Aber wieso ist DIM veraltet?

MfG
johny1099

Hallo Kleiner

Zitat

Ausserhalb einer Funktion Deklarierten Variablen müssen Global gekennzeichnet sein

Das Script funktioniert aber auch mit Dim. Und es ist lediglich ein Warnhinweis und keine Fehlermeldung.

MfG
johny1099

Hallo zusammen

ich "teste" im Moment ein Beispielfunktion ==> _GUICtrlListView_GetColumnCount.au3

Ich habe mit Dim eineVariable hinzugefügt.

Wenn ich CTRL+F5 drücke bekomme ich folgenden Warnhinweis

WARNING: 'Dim' deprecated as declaration. Prefer to use Local or Global.

[autoit]

#AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <GuiConstantsEx.au3>
#include <GuiListView.au3>

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

Dim $var1 ; neu hinzugefügt

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

$Debug_LV = False ; Check ClassName being passed to ListView functions, set to True and use a handle to another control to see it work
_Main()
Func _Main()
Local $hListView
GUICreate("ListView Get Column Count", 400, 300)
$hListView = GUICtrlCreateListView("col1|col2|col3", 2, 2, 394, 268)
GUISetState()
$var1 = _GUICtrlListView_GetColumnCount($hListView)
MsgBox(0,"Variable $var1: ",$var1)
MsgBox(4160, "Information", "Column Count: " & _GUICtrlListView_GetColumnCount($hListView))
; Loop until user exits
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
GUIDelete()
EndFunc ;==>_Main

[/autoit]

Soll bei der Deklarierung von Variablen Dim nicht mehr verwendet werden?

MfG
johny1099

vielen Dank für die ausführliche Erklärung.

MfG
johny1099

ich meinte ohne mit der Maus auf das ComboFeld klicken. Ich möchte mit der TAB Taste von Input_1 auf das ComboFeld und dann "blättern" mit Pfeil nach unten Taste. (ohne das ComboFeld zu öfffen.)

MfG
johny1099

Hallo Raupi

das Script von Dir funktioniert auch bestens. Ich habe aber festgestellt wenn ich auf dem ComboFeld bin (ohne Öffenen des ComboFelds) und Pfeil nach unten drücke springt er sofort ins Input_3 Feld, Ich möchte gerne mit der Pfeil nach Unten Taste "blättern" ohne das Combo Feld zu öffnen. Ist so etwas auch möglich?

MfG
johny1099

Hallo Schnuffel

auch von mir alles Gute zum Geburtstag.

MfG
johny1099

Hallo name22

das funktioniert soweit sehr gut.

Ich habe nur festgestellt, dass wenn ich auf dem ComboFeld bin und die Pfeiltaste nach unten drücke der Cursor sofort auf das Input_3 Feld springt. Ich kann jetzt nicht mehr "blättern" wenn ich auf dem ComboFeld bin und die Pfeiltaste nach unten drücke.

MfG
johny1099

Hallo name22

sorry, dass ich das für Dich unverständlich formuliert habe. Ich meine zum nächsten Control (s. Beispiel ==> $input_3).

Wie kann ich prüfen ob eine Änderung des Combobox Inhalts stattgefunden hat.?

MfG
johny1099

Hallo zusammen

ist es möglich, dass nach Auswahl eines Eintrages in der ComboBox, der Cursor automatisch in nächste Feld wechselt?

[autoit]

#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
Dim $form_main = GUICreate("Beispiel Formular",250,250)
Dim $input_1 = GUICtrlCreateInput("",10,10,100,20)
Dim $combo_1 = GUICtrlCreateCombo("",10,50,100,20,$CBS_DROPDOWNLIST)
GUICtrlSetData(-1,"Entry 1|Entry 2|Entry 3","Entry 1")
Dim $input_3 = GUICtrlCreateInput("",10,90,100,20)
Dim $bttn_exit = GUICtrlCreateButton("Exit",180,200,60,30)

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

GUISetState()
While 1
$nmsg = GUIGetMsg()
Select
Case $nmsg = -3 or $nmsg = $bttn_exit
Exit
EndSelect
WEnd

[/autoit]

MfG
johny1099

vielen Dank für die Geduld und detaillierte Beantwortung meiner Fragen

Ich werde wohl noch ein bischen weiter "experimentieren" müssen, um das alles richtig verstehen zu können

MfG
johny1099

Hallo progandy

$hBtnImages = _GUIImageList_Create(32, 32, 5, 3, 6)

_GUIImageList_AddIcon($hBtnImages, "ieframe.dll", -36869, True) ; 1 = normal
_GUIImageList_AddIcon($hBtnImages, "ieframe.dll", -36870, True) ; 2 = hot
_GUIImageList_AddIcon($hBtnImages, "ieframe.dll", -36871, True) ; 3 = pressed
_GUIImageList_AddIcon($hBtnImages, "ieframe.dll", -36872, True) ; 4 = disabled
_GUIImageList_AddIcon($hBtnImages, "ieframe.dll", -36884, True) ; 5 = defaultet
_GUIImageList_AddIcon($hBtnImages, "ieframe.dll", -36885, True) ; 6 = stylus hot

Frage:

1. steht die 2=hot für die Aktion wenn man mit der Maus auf den Button fährt?
2. defaultet ==> wann kommt das zum Zug und was bedeutet dies?
3. stylus hot ==> Was bedeutet das?

Sorry aber ich verstehe folgenden Text nicht:

Bei Win7 wechselt ein Fokussierter Button zwischen "defaultet" und "stylus hot", bei XP hat ein fokussierter Button den Zustand "stylus hot".

MfG
johny1099

vielleicht hilft Dir dieses Tool weiter.

Process Monitor ist ein erweitertes Überwachungstool für Windows, mit dem die Dateisystem-, Registrierungs- und Prozess-/Threadaktivitäten in Echtzeit angezeigt werden.

http://technet.microsoft.com/de-ch/sysinternals/bb896645

MfG
johny10999

Guten Morgen progandy

Ich benötige dieses Script für Windows 7 (Build 7601) 32bit.

Das ist genau das, was ich gerne haben möchte.

Wenn ich die Maus auf den 1.Button (von oben) bewege, so ändert das Symbol vom "Aufrufezeichen" zu einem "Fragezeichen". Ebenso habe ich festgestellt wenn ich das Script ausführe (F5) und danach zu einem anderen Programm in der Taskliste wechsle und anschliessend zurück in die GUI wechsle so ändern sich die Symbole von Button 1von alleine.

Klicke ich auf Button 2 (disabled) passiert nichts. (wahrscheinlich weil der Button disabled ist)

Klicke ich auf Button 3 passiert ebenfalls nichts.(warum ist mir nicht ganz klar)

Klicke ich auf Button 4 und verlasse den Button mit dem Mauszeiger, wechseln ebenfalls die Icon's in dem Button.

Wo wird das Verhalten des "Wechseln der Buttons) gesteuert?

MfG
johny1099

Ich habe es versucht mit weissem Button . Sieht aber leider auch nicht zufriedenstellend aus.

Vielleicht hat noch jemand anders eine Idee?

MfG
johny1099

Ich habe versuchsweise mal das Icon ohne den Button eingefügt. Hierbei wird kein weisses Quadrat angezeigt.

Gibt es nicht eine Möglichkeit ohne Photoshop bzw. Gimpp, da ich das Icon aus einer DLL auftrufe.

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Gui = GUICreate("Test", 200, 200, -1, -1, -1)
$icon = GUICtrlCreateIcon("ieframe.dll", 36871, 60, 140, 32, 32)
GUICtrlSetState(-1, $GUI_DISABLE)
$button = GUICtrlCreateButton(" " & " STOP", 50, 130, 140, 50,$WS_CLIPSIBLINGS)
$icon = GUICtrlCreateIcon("ieframe.dll",36871,50,30,40,40)
GUICtrlSetFont(-1, 12, 400)
GUISetState(@SW_SHOW, $Gui)

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

While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $button
EndSelect
WEnd

[/autoit]

MfG
johny1099

Hallo zusammen

gibt es eine Möglichkeit das "weisse Quadrat beim STOP Symbol zu entfernen?

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Gui = GUICreate("Test", 200, 200, -1, -1, -1)
$icon = GUICtrlCreateIcon("ieframe.dll", 36871, 60, 140, 32, 32)
GUICtrlSetState(-1, $GUI_DISABLE)
$button = GUICtrlCreateButton(" " & " STOP", 50, 130, 140, 50,$WS_CLIPSIBLINGS)
GUICtrlSetFont(-1, 12, 400)
GUISetState(@SW_SHOW, $Gui)

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

While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $button
EndSelect
WEnd

[/autoit]