Ein Programm ohne GUI

1. offizieller Beitrag

    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
    [autoit]

    #include <GUIConstants.au3>
    #include <ie.au3>
    #include <string.au3>

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

    Opt("TrayOnEventMode",1)
    Opt("GuiOnEventMode",1)

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

    ;................................................................................................
    ;GUI
    $GUI = GUICreate("KM Baby Search V3", 160, 250, 498, 260, -1, $WS_EX_TOOLWINDOW)
    GUISetOnEvent($GUI_EVENT_CLOSE,"ExitScript")
    GUISetBkColor ( 0xCCE0E9 )

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

    ;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)

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

    ;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)

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

    ;Search Button
    $Search = GUICtrlCreateButton("Dein Baby Suchen", 17, 160, 124, 25, 0)
    GUICtrlSetOnEvent(-1,"search")
    GUICtrlSetFont(-1, 9, 800, 0, "Comic Sans MS")

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

    ;Mozilla Firefox Button
    $Firefox = GUICtrlCreateButton("Mozilla Firefox", 24, 190, 109, 25, 0)
    GUICtrlSetOnEvent(-1,"_FF")
    GUICtrlSetFont(-1, 9, 800, 0, "Comic Sans MS")

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

    ;Close Button
    $Close = GUICtrlCreateButton("Schließen", 40, 220, 75, 25, 0)
    GUICtrlSetOnEvent(-1,"ExitScript")
    GUICtrlSetFont(-1, 9, 800, 0, "Comic Sans MS")

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

    ;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()
    ;................................................................................................

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

    $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

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

    Func stop()
    $Suche = False
    EndFunc

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

    Func _FF()
    Run ( "C:\Programme\Mozilla Firefox\firefox.exe "&GUICtrlRead($BabyLinkList))
    EndFunc

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

    Func ExitScript()
    Exit
    EndFunc

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

    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

    [/autoit]

    Danke für alle Hilfe

    Einmal editiert, zuletzt von König Mickey (27. Oktober 2007 um 08:29)

    @Pee The Bee

    Es ist nichts illegales man kann bei RTL für Babys Voten also wie süß die sind und so, mein Bruder is da auch drin (Fotos von ihm, 4 Stück an der Zahl) und dafür habe ich das Programm gemacht damit man nicht jede Seite durchgucken muss nach denn Fotos von ihm.


    Hier wofür das Programm ist wo es die Fotos raussucht und dann die Links ausspuckt:
    http://www.rtl.de/ratgeber/micro…oting_top10.php


    Nur halt will ich das Programm geändert haben das er alles im Hintergrund (ohne GUI) macht und dann Firefox (mit 4 Tabs wo die 4 Links drin sind).

    Das ist soweit ich sehe nix illegales :) :) :)

    Also weiß jemand wie das geht ich bin für jede Hilfe die kommt Dankbar.

    Das ist eine süße Seite.

    Wo kann man die bestellen? Im RTL Onlineshop? :D

    Naja, die Seite werde ich mal so nach und nach durchsehen. Will ja auch gerne 2 "bestellen", aber ohne dicken Bauch ;) LOL

    LG, Lina.

    Lieben Gruß,
    Alina

    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    Geheime Information: ;)
    k3mrwmIBHejryPvylQSFieDF5f3VOnk6iLAVBGVhKQegrFuWr3iraNIblLweSW4WgqI0SrRbS7U5jI3sn50R4a15Cthu1bEr

    Ist schon ok werd ich nächstemal machen.

    Aber jetzt mal wieder zum Thema kann da jemand Helfen bei meinem Problem worum es hier eigentlich geht?

    Hier nochma worum es geht

    Spoiler anzeigen

    Danke für alle Hilfe die kommt :) :) :)

    8 Mal editiert, zuletzt von König Mickey (27. Oktober 2007 um 09:22)