Beiträge von Texos

  • Bräuchte hilfe bei einem _IE link befehl

    Huhu :)
    Vll. kann mir ja jemand helfen wie ich es hinbekomme, dass wenn in einer Seite steht : Abschicken : das er es dann automatisch anklicken soll.
    Das halt nur einmal und nicht öfters.
    Autoit soll aber nur Klicken, wenn im abschicktitelfenster steht : Du hast folgende Bereiche offen stehen : steht.
    was ich versucht habe ging nicht grade so gut weil er es permanent ausgeführt hat. ich habe es in eine While 1 , Wend schleife gesetzt
    achja...

    hier in diesem fenster steht das mit dem abschicken
    die seite ist in 4 abschnitte geteilt.
    in der main.php steht es drin

    http://000.000.000.000/????/????/main.php

    [autoit]

    While 1
    _IEFormElementGetObjByName ( $oForm, "Abschicken" )
    _IELoadWait($oForm)
    _IELinkClickByText ( $oIE, "Abschicken")
    _IELoadWait($oIE)
    Wend

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


    kann mir vll. jemand helfen? :(

  • Bräuchte hilfe bei einem Login-Script

    Hallo,
    wenn ich dieses Script starten will zeigt er mir folgende fehlermeldung an:

    [Blockierte Grafik: http://img3.imageshack.us/my.php?image=au3errorof8.jpg] 
    Wäre sehr nett wenn mir jemand helfen könnte =))
    Früher als ich Win. Xp Home hatte ging es aber seit ich Vista habe nichtmehr...
    Der Fehler ist bei Line 48

    Spoiler anzeigen
    [autoit]

    #NoTrayIcon
    #include
    #include
    #Include

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

    Dim $iMsgBoxAnswer
    $iMsgBoxAnswer = MsgBox(51,"Bestätigen","Wollen sie wirklich fortsetzen?")
    Select
    Case $iMsgBoxAnswer = 6 ;Yes

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

    Case $iMsgBoxAnswer = 7 ;No

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

    Case $iMsgBoxAnswer = 2 ;Cancel

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

    EndSelect

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

    Dim $fenstertitel = "Freewar Bot v0.1"

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

    ;Tray Einstellungen und Menüpunkte
    Opt("TrayOnEventMode",1)
    Opt("TrayMenuMode",1)
    Opt("MouseCoordMode",2)
    TraySetClick ( 16 )
    $fensteritem = TrayCreateItem("Fenster ins Tray")
    TrayItemSetOnEvent(-1,"gui_anzeigen")
    TrayCreateItem("")
    $exititem = TrayCreateItem("Exit")
    TrayItemSetOnEvent(-1,"ExitScript")
    TraySetOnEvent ( $TRAY_EVENT_PRIMARYDOWN, "gui_anzeigen" )
    TraySetState()
    ;Tray Ende

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

    ;erstellt den eingebetten IE
    $oIE = _IECreateEmbedded ()

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

    ;Hauptfenster
    $main_window = GUICreate($fenstertitel, @DesktopWidth-8, @DesktopHeight-66, 0, 0, $WS_CAPTION + $WS_SYSMENU + $WS_MINIMIZEBOX + $WS_VISIBLE + $WS_CLIPSIBLINGS )
    GUISetBkColor (0xded3b9)
    $GUIActiveX = GUICtrlCreateObj($oIE, 10, 60, @DesktopWidth-30, @DesktopHeight-200)
    GUISetState(@SW_SHOW,$main_window )

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

    einloggen()

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

    While 1
    sleep(25)
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitScript()
    EndSelect
    WEnd

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

    Func einloggen()
    _IENavigate ($oIE, "http://www.freewar.de")
    _IELoadWait($oIE)
    _IELinkClickByText ( $oIE, "Login Welt 10" )
    _IELoadWait($oIE)
    $oForm = _IEFormGetObjByName ($oIE, "login_form")
    $oQuery = _IEFormElementGetObjByName ($oForm, "name")
    _IEFormElementSetValue ($oQuery, "IsleOfTechno")
    $oQuery = _IEFormElementGetObjByName ($oForm, "password")
    _IEFormElementSetValue ($oQuery, "yujahi")
    sleep(1000)
    ;_IEFormSubmit ($oForm,0)
    ;$oSubmit = _IEFormElementGetCollection ($oForm, 1)
    $oSubmit = _IEFormElementGetObjByName ( $oForm, "submit" )
    _IEAction ($oSubmit, "click")
    _IELoadWait($oIE)
    _IELinkClickByText ( $oIE, "Hier klicken um Freewar ohne Popup zu starten")

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

    EndFunc

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

    ;minimiert die GUI in tray und zeigt sie wieder, je nachdem was wie der status gerad ist
    func gui_anzeigen()
    If TrayItemGetText ( $fensteritem ) = "Fenster ins Tray" Then
    GUISetState(@SW_HIDE,$main_window)
    TrayItemSetText($fensteritem,"Fenster maximieren")
    Else
    GUISetState(@SW_SHOW,$main_window)
    TrayItemSetText($fensteritem,"Fenster ins Tray")
    EndIf
    EndFunc

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

    func ExitScript()
    GUIDelete($main_window)
    Exit
    EndFunc

    [/autoit]

  • For Next Schleifen

    Nabend,

    wollte euch mal fragen wie ich 2 For Next Schleifen ineinander tun kann, leider weiß ich nur wie es einzeln geht.

    Wäre sehr nett wenn ihr mir helfen könntet.

    Mfg

    Hier mein Beispiel


    Spoiler anzeigen

    Run("notepad.exe")
    WinWait("Unbenannt - Editor")
    WinActivate("Unbenannt - Editor")
    $array = StringSplit("a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z",",")
    for $i= 1 to UBound($array) -1
    Send($array[$i])
    Send("{ENTER}")
    Next


    Exit

  • Zahlen , buchstaben in einer reihe senden

    Hallo, ich suche einen Befehl, der in ein Kästchen die zahl 1 eingibt und dann sendet, danach 12 ,13,14,15,16,17,18,19,20,21,22,23,24...
    das soll er bis 10.000 machen und dann sollen die Buchstaben drankommen. a,ab,ac,ad,ae,af,ag,ah,ai,aj,ak,al,am,an,ao,ap,aq,ar,as,at,au,av,aw,ax,ay,az,ba,bb,bc,bd... und so weiter

    wäre nett wenn mir einer helfen könnte :)