Hallo ich habe ein Programm das einen Namen sucht und zwar "Leon Faust" auf einer Homepage dort sucht er solange bis er 4 mal diesen Namen gefunden hat.
Nun soll das Programm aber soll das Programm so am ende aussehen:
- Ohne GUI
- Sobald man das Programm starte soll er automatisch nach dem Namen "Leon Faust" suchen
- Sobald er alle 4 Links gefunden hat soll er Mozilla Firefox starten mit allen 4 Links
Also das Programm soll im Hintergrund laufen (ohne GUI) beim start des Programmes dann automatisch anfangen nach dem namen "Leon Faust" zu suchen und wenn er alle 4 Links gefunden hat soll er Mozilla Firefox starten (mit 4 Tabs wo alle 4 Links geöffnet sind).
Der Code des Programmes.
Spoiler anzeigen
#include <GUIConstants.au3>
#include <ie.au3>
#include <string.au3>
Opt("TrayOnEventMode",1)
Opt("GuiOnEventMode",1)
;................................................................................................
;GUI
$GUI = GUICreate("KM Baby Search V3", 160, 250, 498, 260, -1, $WS_EX_TOOLWINDOW)
GUISetOnEvent($GUI_EVENT_CLOSE,"ExitScript")
GUISetBkColor ( 0xCCE0E9 )
;BabyNameLabel und Input
$BabyName = GUICtrlCreateLabel("Dein Babyname", 8, 8, 98, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1,0xFF82CD)
$BabyNameInput = GUICtrlCreateInput("", 8, 26, 142, 21)
;BabyLinkLabel und List
$BabyLink = GUICtrlCreateLabel("Dein RTL-Baby Link", 8, 64, 130, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1,0xFF82CD)
$BabyLinkList = GUICtrlCreateList("", 8, 82, 142, 71)
;Search Button
$Search = GUICtrlCreateButton("Dein Baby Suchen", 17, 160, 124, 25, 0)
GUICtrlSetOnEvent(-1,"search")
GUICtrlSetFont(-1, 9, 800, 0, "Comic Sans MS")
;Mozilla Firefox Button
$Firefox = GUICtrlCreateButton("Mozilla Firefox", 24, 190, 109, 25, 0)
GUICtrlSetOnEvent(-1,"_FF")
GUICtrlSetFont(-1, 9, 800, 0, "Comic Sans MS")
;Close Button
$Close = GUICtrlCreateButton("Schließen", 40, 220, 75, 25, 0)
GUICtrlSetOnEvent(-1,"ExitScript")
GUICtrlSetFont(-1, 9, 800, 0, "Comic Sans MS")
;Tray Menü
Opt("TrayMenuMode",1)
$Tray = TraySetClick("9")
$TrayStop = TrayCreateItem("Suche Stoppen")
TrayItemSetOnEvent(-1,"stop")
$TrayAbout = TrayCreateItem("Mozilla Firefox")
GUICtrlSetOnEvent(-1,"_FF")
$TrayEmpty = TrayCreateItem("")
$TrayClose = TrayCreateItem("Beenden")
TrayItemSetOnEvent(-1,"ExitScript")
TraySetState()
;................................................................................................
$oie = _IECreate("http://www.rtl.de/ratgeber/microsites/baby07/voting_top10.php?start=0",0,0)
_IELoadWait($oie)
$max = _StringBetween(_IEBodyReadText($oie),"| ... | "," | weiter")
$max = $max[0]
GUISetState(@SW_SHOW)
While 1
Sleep(100)
WEnd
Func stop()
$Suche = False
EndFunc
Func _FF()
Run ( "C:\Programme\Mozilla Firefox\firefox.exe "&GUICtrlRead($BabyLinkList))
EndFunc
Func ExitScript()
Exit
EndFunc
Func search()
Local $found = 0
Global $Suche = True
Local $BName = GUICtrlRead($BabyNameInput)
If $BName = "" Then
$BName = "Leon Faust"
GUICtrlSetData($BabyNameInput,"Leon Faust")
EndIf
For $i = 1 to $max
_IENavigate($oie,"http://www.rtl.de/ratgeber/microsites/baby07/voting_top10.php?start="&$i)
$str = _IEBodyReadText($oie)
If $Suche = False Then ExitLoop
If StringInStr($str,$BName) Then
GUICtrlSetData($BabyLinkList,"http://www.rtl.de/ratgeber/microsites/baby07/voting_top10.php?start="&$i&"|")
$found += 1
If $found >= 4 Then ExitLoop
EndIf
Sleep(2)
Next
EndFunc
Danke für alle Hilfe