Hallo,
in dem folgendem Code habe ich eine Funktion "OkButton", welche nicht erkennt, dass sie da ist. Sobald ich den Button drücke, passiert nichts.
C
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Inet.au3>
#include <String.au3>
#include <Array.au3>
#include <MsgBoxConstants.au3>
Opt("GUIOnEventMode", 1)
$Form1 = GUICreate("Quellcode-Finder", 497, 232, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
$URL = GUICtrlCreateLabel("URL", 8, 8, 37, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlCreateInput("", 8, 32, 481, 28)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Search_1 = GUICtrlCreateLabel("Search_1", 8, 72, 73, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlCreateInput("", 8, 96, 481, 28)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Search_2 = GUICtrlCreateLabel("Search_2", 8, 136, 73, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlCreateInput("", 8, 160, 481, 28)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("OK", 416, 200, 75, 25)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUISetOnEvent($Button1, "OkButton")
GUISetState(@SW_SHOW)
Func Form1Close()
Exit
EndFunc
While 1
Sleep(100)
WEnd
Func OkButton()
MsgBox(0, "Test", "Test")
;$S = GUICtrlRead($URL)
;Local $source = _INetGetSource($S)
;$S1 = GUICtrlRead($Search_1)
;$S2 = GUICtrlRead($Search_2)
;Dim $ary = _StringBetween($source, $S1, $S2)
;_ArrayDisplay($ary)
EndFunc