Such maschine

1. offizieller Beitrag

    hi könnt ihr mir helfen ich will eine suchmachine basteln
    die die daten von google benutzt wie geht das ? könnt ihr mir das machen alles andere hab ich schon ^^

    Spoiler anzeigen

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 341, 161, 194, 124)
    GUISetIcon("C:\Programme\Kong\Kong.exe")
    GUICtrlCreateInput("", 16, 32, 305, 21)
    GUICtrlSetBkColor(-1, 0xD8E4F8)
    $Button1 = GUICtrlCreateButton("Suchen", 16, 64, 305, 25, 0)
    GUICtrlSetBkColor(-1, 0xD8E4F8)
    $Button2 = GUICtrlCreateButton("Bye Bye", 16, 96, 305, 25, 0)
    GUICtrlSetBkColor(-1, 0xD8E4F8)
    $Label1 = GUICtrlCreateLabel("Copyright tom12345mes", 112, 136, 117, 17)
    GUICtrlSetBkColor(-1, 0xD8E4F8)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

    EndSwitch
    WEnd

    Also wir sind hier ja nicht "Das-Mach-Mal-Forum". Vllt findest du einen der es dir macht, aber um etwas zu lernen versuch es doch am besten für dich. Für Fragen stehen wir dir ja gerne zur Verfügung.

    Tipp: Du kannst mit dem Link arbeiten: "http://www.google.de/search?hl=de&q=<dein Suchbergriff>" und so immer dessen Quelltext auslesen.

    mfg
    Jautois

    Einmal editiert, zuletzt von Jautois (16. Januar 2009 um 16:11)

    was ist jetzt das problem??????

    Spoiler anzeigen

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>


    Local $Suchen ,$Bye

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Suchen", 341, 161, 194, 124)
    GUISetIcon("C:\Programme\Kong\Kong.exe")
    GUICtrlCreateInput("", 16, 32, 305, 21)
    GUICtrlSetBkColor(-1, 0xD8E4F8)
    $Suchen = GUICtrlCreateButton("Suchen", 16, 64, 305, 25, 0)
    GUICtrlSetBkColor(-1, 0xD8E4F8)
    $Bye = GUICtrlCreateButton("Bye Bye", 16, 96, 305, 25, 0)
    GUICtrlSetBkColor(-1, 0xD8E4F8)
    $Copyright = GUICtrlCreateLabel("Copyright tom12345mes", 112, 136, 117, 17)
    GUICtrlSetBkColor(-1, 0xD8E4F8)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###


    While 1
    $msg = GUIGetMsg()

    Select
    Case $Bye
    Exit
    EndSelect
    Sleep ( 20 )
    WEnd

    • Offizieller Beitrag

    Es wird Dir nichts bringen, wenn Du mit Koda eine GUI bastelst und hast von den Befehlen keinen blassen Schimmer.
    Zuerst mal solltest Du anfangen die Befehle aus der Hilfe zu lernen. Fang mit einfachen Beispielen (wie "Hello World") an. Lerne die Befehle kennen und was sie bewirken. Zu den meisten Befehlen findest Du ein Beispielscript. Wenn Du das unter einem anderen Namen abspeicherst kannst Du auch Änderungen daran vornehmen und sehen, was diese bewirken.

    habe erstmal nur die grundfunktion reingemacht

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <IE.au3>
    #include <INet.au3>

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 600, 161, 194, 124)
    GUISetIcon("C:\Programme\Kong\Kong.exe")
    $ie = _IECreateEmbedded()
    $Group1 = GUICtrlCreateObj($ie,325,25,300, 200)
    GUICtrlSetFont($Group1, 8, 400, 0, "MS Sans Serif")
    $ie.navigate("http://autoit.de/")
    $Combo1 = GUICtrlCreateCombo("Suchmaschienen",220, 33, 100, 21)
    GUICtrlSetData(-1,"-----------------------------------------|Fireball|Google|MSN|Yahoo|-----------------------------------------|Versandhäuser|-----------------------------------------|Bauer|Neckermann|Otto|Schwab|Quelle|-----------------------------------------|Internet Versand|-----------------------------------------|Amazon|Ebay|")
    $Input = GUICtrlCreateInput("", 16, 32, 200, 21)
    GUICtrlSetBkColor(-1, 0xD8E4F8)
    $Button1 = GUICtrlCreateButton("Suchen", 16, 64, 305, 25, 0)
    GUICtrlSetBkColor(-1, 0xD8E4F8)
    $Button2 = GUICtrlCreateButton("Bye Bye", 16, 96, 305, 25, 0)
    GUICtrlSetBkColor(-1, 0xD8E4F8)
    $Label1 = GUICtrlCreateLabel("Copyright tom12345mes", 112, 136, 117, 17)
    GUICtrlSetBkColor(-1, 0xD8E4F8)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

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

    Case $Button1
    Switch GUICtrlRead($Combo1)
    Case "Google"
    $ie.navigate('http://www.google.de/search?hl=de&q='&GUICtrlRead($Input))
    EndSwitch
    EndSwitch
    WEnd

    [/autoit]