Bräuchte hilfe bei einem _IE link befehl

Texos

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?

Texos

helf mir doch jemand =(

**funkey**

Es ist schwer zu helfen, ohne url.
Ich würde eine Schleife mit Wingettitle(....) machen, dann StringInStr, dann _IEFormSubmit oder _IELinkClickByText, aber wie gesagt, ohne besseren Code von dir oder url kann ich nicht viel mehr sagen.

Texos

Hier ist die ganze Url

Spoiler anzeigen

[autoit]

#NoTrayIcon
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#include <IE.au3>
#Include <Constants.au3>

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

Dim $fenstertitel = "Helferlein"

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

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

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

$oIE = _IECreateEmbedded ()

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

$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.german-diablo-players.de")
_IELoadWait($oIE)
_IELinkClickByText ( $oIE, "Login Datenbank" )
_IELoadWait($oIE)
$oForm = _IEFormGetObjByName ($oIE, "login_form")
$oQuery = _IEFormElementGetObjByName ($oForm, "name")
_IEFormElementSetValue ($oQuery, "????")
$oQuery = _IEFormElementGetObjByName ($oForm, "password")
_IEFormElementSetValue ($oQuery, "????")
sleep(1000)
;_IEFormSubmit ($oForm,0)
;$oSubmit = _IEFormElementGetCollection ($oForm, 1)
$oSubmit = _IEFormElementGetObjByName ( $oForm, "submit" )
_IEAction ($oSubmit, "click")
_IELoadWait($oIE)

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

; die hp ist in 4 abschnitte geteilt : Da, wo die ganzen aktionen stehen.(obenlinks)
;D ann ein Chat untendrunter. Obenrechts und untenrechts etwas zum einloggen etc.
; obenlinks das fenster : http://213.239.212.176/freewar/internal/main.php
; Ich bräuchte nur obenlinks das. da wo man alles machen kann in dem fenster : sachen abschicken , sachen einstellen etc.
; er soll also nicht die main.php seite aufrufen sondern einfach nur in dieser nach dem Begriff "Abschicken" suchen und draufklicken.

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

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

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

;hier das klappt irgendwie nicht...

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

EndFunc

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

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]

</IE>

Texos

hilfe =)