per autoit internetverbindung abfragen?

Page 2 of 2 1 2
03/22/2010 22:33 antrix99#16
ich peil das jetzt garnicht mehr richtig ^^
hier mal der source:

PHP Code:
#include <ImageSearch.au3>
#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 469, 110, 279, 314)
$Combo1 = GUICtrlCreateCombo("Anbaukram", 208, 16, 249, 25)
GUICtrlSetData(-1,"Getreide|Salat")
GUICtrlCreateEdit("", 8, 8, 185, 89)
GUICtrlSetData(-1, StringFormat("1.) Wähle hier aus was \r\n     du anbauen willst\r\n\r\n2.) Drücke auf Start und \r\n     lehne dich zurück"))
$Start = GUICtrlCreateButton("Start", 224, 56, 91, 33, 0)
$Exit = GUICtrlCreateButton("Exit", 344, 56, 91, 33, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

****[FEHLENDES STÜCK]******


$x1 = 0
$y1 = 0

Func _start()
    Sleep (3000)
    While 1
        MouseClick ("LEFT",880,280,1,5)
        Sleep (500)
$result = _ImageSearch("Getreide.bmp",1,$x1,$y1,2)
if $result=1 Then
    MouseClick ("LEFT",$x1,$y1,1,5)
EndIf 
was muss da jetzt rein das er mit den button "start" und "exit" startet und beendet
und das die combobox gelesen wird und das dann das bild ersetzt wird mit dem was da in der combobox steht

ich peil das nicht mehr :/
03/23/2010 14:32 .nAno#17
PHP Code:
#include <ImageSearch.au3>
#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 469, 110, 279, 314)
Global $Combo1 = GUICtrlCreateCombo("Anbaukram", 208, 16, 249, 25)
GUICtrlSetData(-1,"Getreide|Salat")
GUICtrlCreateEdit("", 8, 8, 185, 89)
GUICtrlSetData(-1, StringFormat("1.) Wähle hier aus was \r\n     du anbauen willst\r\n\r\n2.) Drücke auf Start und \r\n     lehne dich zurück"))
$Start = GUICtrlCreateButton("Start", 224, 56, 91, 33, 0)
$Exit = GUICtrlCreateButton("Exit", 344, 56, 91, 33, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$x1 = 0
$y1 = 0

Func _start()

Switch GuiCtrlRead ( $Combo1 )

Case "Getreide"
$bild = "Getreide.bmp"
Case "Salat"
$bild = "Salat.bmp"
EndSwitch

    Sleep (3000)
    While 1
        MouseClick ("LEFT",880,280,1,5)
        Sleep (500)
$result = _ImageSearch( $bild ,1,$x1,$y1,2)
if $result=1 Then
    MouseClick ("LEFT",$x1,$y1,1,5)
EndIf 
Switch/Case kannst du wahlweise durch ElseIf ersetzen ;)
03/23/2010 14:35 antrix99#18
funkt leider immernoch nicht..kann ich dir das script mal schicken und du überprüfst mal das script auf fehler ....ich weiß echt nicht weiter ich möchte doch nur ne ordnetliche gui die funkt >_<
Page 2 of 2 1 2