GUI HILFE

1. offizieller Beitrag

    ich habe mir eine gui erstellt in der auch eine inputbox ist nun möchte ich den input in einer funktion einbinden!
    wie tue ich das??

    [autoit]

    #include <GUIConstants.au3>
    $Form1 = GUICreate("Jappy info", 280, 180, 200, 125)
    $Input1 = GUICtrlCreateInput("Name", 15, 15, 150, 20, -1, $WS_EX_CLIENTEDGE)
    $Button = GUICtrlCreateButton("LOS" , 50,50,175,25)
    GUISetState(@SW_SHOW)
    While 1
    $msg = GuiGetMsg()

    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop
    EndSelect
    WEnd
    Func Button()
    #include <INet.au3>

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

    $SRE = StringRegExp(_INetGetSource('http://www.jappy.de/suche?name=INPUT VON INPUT1'),'</strong><br>(.{18})',3)

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

    If Stringinstr(_INetGetSource('http://www.jappy.de/suche?name=INPUT VON INPUT1') , '<div class="erNick"><span class="no">') Then
    MsgBox(0,"Jappy-on", "Momentan : on " & @CRLF & "Letzte aktivitet : " & $SRE[0])
    Else
    MsgBox(0,"Jappy-off", "Momentan : off " & @CRLF & "Letzte aktivitet : " & $SRE[0])
    EndIf
    EndFunc

    [/autoit]
    • Offizieller Beitrag

    Hallo und herzlich willkommen :)

    So sollte es gehen:

    Spoiler anzeigen
    [autoit]

    ;Includes immer am start!
    #include<Inet.au3>
    #include<GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

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

    $Form1 = GUICreate("Jappy info", 280, 180, 200, 125)
    $Input1 = GUICtrlCreateInput("Name", 15, 15, 150, 20, -1, $WS_EX_CLIENTEDGE )
    $Button = GUICtrlCreateButton("LOS", 50, 50, 175, 25)
    GUISetState(@SW_SHOW)
    While 1
    $msg = GUIGetMsg()

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

    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop
    Case $msg = $Button
    ;InetExplorerCapable: Damit leerzeichen und so mit übergeben werden.
    ;GuiCtrlRead ließt das angegebene Control aus.
    $sGetSource = _INetGetSource('http://www.jappy.de/suche?name='&_INetExplorerCapable(GUICtrlRead($Input1)))
    $SRE = StringRegExp($sGetSource, '</strong><br>(.{18})', 3)

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

    If StringInStr($sGetSource, '<div class="erNick"><span class="no">') Then
    MsgBox(0, "Jappy-on", "Momentan : on " & @CRLF & "Letzte aktivitet : " & $SRE[0])
    Else
    MsgBox(0, "Jappy-off", "Momentan : off " & @CRLF & "Letzte aktivitet : " & $SRE[0])
    EndIf
    EndSelect
    WEnd

    [/autoit]

    Mfg Spider