Gibt es Control Pixelsearch und wo lieg in mein Script der Fehler?

  • Hallo Leute ich habe 2 Fragen

    Gibt es als UDF eine Control Pixelsearch Function?

    Und die nächste frage.

    Wo liegt der fehler im folgendem Script? Wenn ich einen der Beiden Button anklicke bekomme ich immer als Error WEnd^ ERROR

    Spoiler anzeigen
    [autoit]

    $show = TrayCreateItem("Show")
    $hide = TrayCreateItem("Hide")
    TrayCreateItem("")
    $exit = TrayCreateItem("Exit")
    $oIE = ObjCreate("Shell.Explorer.2")
    $oIE2 = ObjCreate("Shell.Explorer.2")
    $lol = GUICreate("PaidAngel", 200, 150, 826,588, $WS_POPUP, $WS_EX_TOOLWINDOW + $WS_EX_TOPMOST)

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

    $start = GUICtrlCreateTab (5, 5, 190,140)
    GUICtrlCreateTabItem("Start")
    $1 = GUICtrlCreateButton("Hammertausch",15, 35, 100)
    $2 = GUICtrlCreateButton("Fix Besucher",15, 65, 100)
    GUISetState()
    $hammertauch = 0
    $fixbesucher = 0
    While 1
    $msg = TrayGetMsg()
    $msgg = GUIGetMsg()
    Select
    Case $msg = $show
    Guisetstate(@SW_SHOW, $lol)
    Case $msg = $hide
    Guisetstate(@sw_hide, $lol)
    Case $msg = $exit
    Exit
    Case $msgg = $GUI_EVENT_CLOSE
    Exit
    Case $msgg = $1
    If $hammertauch = 0 Then
    $tab1 = GUICtrlCreateTabItem("Hammertausch")
    GUICtrlCreateObj($oIE, 10, 30, 180, 110)
    $oIE.navigate ("http://www.hammertausch.net/frame.php?userid=3302")
    $hammertauch = 1
    ContinueCase
    EndIf
    If $hammertauch = 1 Then
    _GUICtrlTab_DeleteItem ($start, 1)
    $oIE.navigate ("about:blank")
    $hammertauch = 0
    EndIf
    Case $msgg = $2
    If $fixbesucher = 0 Then
    GUICtrlCreateTabItem("Fix Besucher")
    GUICtrlCreateObj($oIE2, 10, 30, 180, 110)
    $oIE2.navigate ("http://fixbesucher.de/view.php?user=User")
    $fixbesucher = 1
    ContinueCase
    EndIf
    If $fixbesucher = 1 Then
    _GUICtrlTab_DeleteItem ($start, 1)
    $oIE.navigate ("about:blank")
    $hammertauch = 0
    EndIf
    EndSelect
    WEnd

    [/autoit]

    Vielen dank für eure Hilfe

    Mario2323

  • Hi,

    1) Nee, solch eine UDf gibt es nicht, PixelSearch geht nur auf dem Bildschrim, d.h. das Fenster muss aktiv sein.
    2) Da liegt der Fehler: ContinueCase
    Wenn du die rausmachst stürtzt dein Script nicht mehr ab, aber es sind immer noch kleinere Fehler drin, die du aber auch bestimmta lleine rasugriegst :)

  • Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <GuiTab.au3>
    #include <WindowsConstants.au3>

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

    $show = TrayCreateItem("Show")
    $hide = TrayCreateItem("Hide")
    TrayCreateItem("")
    $exit = TrayCreateItem("Exit")
    $oIE = ObjCreate("Shell.Explorer.2")
    $oIE2 = ObjCreate("Shell.Explorer.2")
    $lol = GUICreate("PaidAngel", 200, 150, 826,588, $WS_POPUP, $WS_EX_TOOLWINDOW + $WS_EX_TOPMOST)

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

    $start = GUICtrlCreateTab (5, 5, 190,140)
    GUICtrlCreateTabItem("Start")
    $1 = GUICtrlCreateButton("Hammertausch",15, 35, 100)
    $2 = GUICtrlCreateButton("Fix Besucher",15, 65, 100)
    GUISetState()
    $hammertauch = 0
    $fixbesucher = 0
    While 1
    $msg = TrayGetMsg()
    $msgg = GUIGetMsg()
    Select
    Case $msg = $show
    Guisetstate(@SW_SHOW, $lol)
    Case $msg = $hide
    Guisetstate(@sw_hide, $lol)
    Case $msg = $exit
    Exit
    Case $msgg = $GUI_EVENT_CLOSE
    Exit


    Case $msgg = $1
    If $hammertauch = 0 Then
    $tab1 = GUICtrlCreateTabItem("Hammertausch")
    GUICtrlCreateObj($oIE, 10, 30, 180, 110)
    $oIE.navigate ("http://www.hammertausch.net/frame.php?userid=3302")
    $hammertauch = 1
    Else
    _GUICtrlTab_DeleteItem ($start, 1)
    $oIE.navigate ("about:blank")
    $hammertauch = 0
    EndIf
    Case $msgg = $2
    If $fixbesucher = 0 Then
    GUICtrlCreateTabItem("Fix Besucher")
    GUICtrlCreateObj($oIE2, 10, 30, 180, 110)
    $oIE2.navigate ("http://fixbesucher.de/view.php?user=User")
    $fixbesucher = 1
    Else
    _GUICtrlTab_DeleteItem ($start, 1)
    $oIE.navigate ("about:blank")
    $hammertauch = 0
    EndIf
    EndSelect
    WEnd

    [/autoit]