Wie eben im Chat schon gefragt, soll mein Script einen Satz finden und auf ihn klicken.
Beispiel: Moskito versucht zu programmieren. <- Der Satz ist z.B verlinkt auf eine Internetadresse
Sobald ich mein Script starte, soll er den Beispielsatz erkennen und auf ihn klicken.
[autoit]Func Klick()
While 1
_IELinkClickByText ( $oIE, "Moskito versucht zu programmieren" )
MouseClick("left")
sleep (1000)
send("{BROWSER_REFRESH}")
sleep (360000)
WEnd
naja hast du auch das $oIE erstellt bzw festgelegt?
und füge doch mal nach dem _IELinkClickByText
If @error Then MsgBox(0, "muh", "Fehler bei IELinkClick"&@CRLF&@error)
[/autoit]ein - dann wirst du sehen
Das $oIE habe ich als eingebetteten IE. Wie meinst du das mit If @error Then ... danach einfügen ? Kannst du meinen Beispiel Satz einbauen ?
Hallo
send("{BROWSER_REFRESH}") kannst du durch _IEAction ($oIE,"refresh") ersetzen.
Wird das embedded control wirklich in eine GUI eingebaut, d.h. fügst du es in einer GUI mit GUICtrlCreateObj ein?
Falls nicht, kann es auch nicht funktionieren.
Hab dir hier mal ein bsp gemacht:
#include <ie.au3>
[/autoit] [autoit][/autoit] [autoit]$oIE = _IECreateEmbedded()
[/autoit] [autoit][/autoit] [autoit]GUICreate("")
GUICtrlCreateObj($oIE);Ist WICHTIG!
GUISetState() ;Musst du auch nicht zeigen, dass wichtige ist nur, dass GuiCtrlCreateObj angewendet wird!
[/autoit] [autoit][/autoit] [autoit]While 1
Switch GUIGetMsg()
Case $GUI_EVENT_EXIT
Exit
EndSwitch
WEnd
Func Klick()
While 1
_IELinkClickByText($oIE, "Moskito versucht zu programmieren")
MouseClick("left") ;Kann man bestimmt auch ersetzen durch _IENavigate oder sowas.
_IELoadWait($oIE) ;Wartet bis seite geladen hat, so brauchst du kein Sleep
_IEAction($oIE,"refresh")
Sleep(360000)
WEnd
EndFunc ;==>Klick
Mfg Spider
Vielleicht so?
#include <GUIConstants.au3>
#include <ie.au3>
$oIE = _IECreateEmbedded()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]GUICreate("",800,600) ;Einfenster erstellen
if not IsObj($oIE) then Exit 1 ;wenn es kein Objekt ist ENDE
GUICtrlCreateObj($oIE,0,0,800,600);Ist WICHTIG!
GUISetState() ;Musst du auch nicht zeigen, dass wichtige ist nur, dass GuiCtrlCreateObj angewendet wird!
If _IENavigate($oIE,"www.google.de",1) <> -1 then EXIT;Dem Objekt die URL übergeben und warten bis geladen...
If _IELinkClickByText($oIE, "News",0,1) <> -1 then EXIT ;Auf einen Link klicken und warten bis geladen.....
AdlibEnable("NeuLaden",10000) ;alle 10 Sek. refresh
;~ AdlibEnable("NeuLaden",360000) ;alle 6 Min. refresh
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
AdlibDisable()
Exit
EndSwitch
WEnd
Func NeuLaden()
_IEAction($oIE,"refresh")
EndFunc
GtaSpider bei deinem Script hab ich nur Fehler bekommen 
Es geht immer noch nicht.
Ich benutze ein Script (Privat für mich !) von einem User hier aus dem Forum.
Das Script soll eine kleine Erweiterung haben.
hier ist das Script:
#NoTrayIcon
#include <GUIConstants.au3>
#include <IE.au3>
#Include <Constants.au3>
Dim $fenstertitel = "Freewar Bot v0.1"
[/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
;erstellt den eingebetten IE
$oIE = _IECreateEmbedded ()
;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 )
einloggen()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While 1
sleep(25)
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitScript()
EndSelect
WEnd
Func einloggen()
_IENavigate ($oIE, "http://www.freewar.de")
_IELoadWait($oIE)
_IELinkClickByText ( $oIE, "Login Welt 2" )
_IELoadWait($oIE)
$oForm = _IEFormGetObjByName ($oIE, "login_form")
$oQuery = _IEFormElementGetObjByName ($oForm, "name")
_IEFormElementSetValue ($oQuery, "yyyyyy")
$oQuery = _IEFormElementGetObjByName ($oForm, "password")
_IEFormElementSetValue ($oQuery, "xxxxxx")
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")
EndFunc
Func Klick()
While 1
_IELinkClickByText($oIE, "Im Wasserfall baden")
MouseClick("left") ;Kann man bestimmt auch ersetzen durch _IENavigate oder sowas.
_IELoadWait($oIE)
_IEAction($oIE,"refresh")
Sleep(360000)
WEnd
EndFunc
;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
func ExitScript()
GUIDelete($main_window)
Exit
EndFunc
Bots werden hier nicht supported. Siehe auch https://autoit.de/index.php?page=Thread&threadID=5177.
peethebee
p.s. Wenn man schon fremde Skript nutzt, könnte man wenigstens die Quelle angeben...
Topic closed.
