Hallo und guten Abend erstmal
Also ein Kumpel hat mich gebeten eine Art "Bot" für my-shamhaar.de zu erstellen, der die Seite mit seiner ID im Hintergrund alle 20min aufruft!! Das ist mir gelungen und funktioniert auch bestens ;):
Spoiler anzeigen
#RequireAdmin
#include <IE.au3>
Do
$IE = _IECreate("http://my-schamhaar.de/showpage.php?uid=136069", 0, 0)
_IELoadWait($IE)
Sleep (1230000)
Until 23 = @HOUR and 59 = @MIN and 59 = @SEC
[/autoit]Aufgrund des kleinen Erflogserlebnisses hab ich mir gedacht: Warum nich gleich ne komplette GUI wo man auf nen Button klickt um die Schleife zu starten und wo ausserdem noch ausgegeben wird wie lang das Schamhaar momentan ist Ich habs bis jetzt nur soweit geschafft das das mit Hilfe von MouseClickDrag + (STRG+C) und ClipGet geht, dazu muss die Seite aber geöffnet sein!!
Hier:
Spoiler anzeigen
#RequireAdmin
#include <IE.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 274, 203, 230, 147)
$Button1 = GUICtrlCreateButton("Selfvote starten", 24, 56, 225, 57, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("Größe: ", 24, 136, 39, 17)
$Edit1 = GUICtrlCreateInput("", 24, 32, 225, 21)
$Label5 = GUICtrlCreateLabel("Link eingeben:", 24, 8, 74, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_Func1 ()
EndSwitch
WEnd
Func _Func1 ()
Do
ControlDisable("Form1", "", $Button1)
$link = ControlGetText("Form1", "", $Edit1)
$IE = _IECreate($link)
_IELoadWait($IE)
;WinSetState ( "[active]", "", @SW_MAXIMIZE )
Sleep (5000)
;MouseClickDrag("left", 257, 476, 316, 476, 50)
;sleep (1500)
;send ("^c")
;sleep (1000)
;$groesse = ClipGet()
;$Label2 = GUICtrlCreateLabel($groesse, 64, 136, 36, 17)
sleep (1210000)
Until 23 = @HOUR and 59 = @MIN and 59 = @SEC
msgbox (64, "Programm neu starten", "Es ist jetzt 0:00 Uhr! Der Bot muss neu gestartet werden!")
exit
endfunc
Die grüenen Bereiche kennzeichnen die Bereiche, die ein verstecktes Fenster nicht ermöglichen!!
Nun habe ich die Frage, wie ich auf so einer my-Schamhaar-ID-Seite: http://my-schamhaar.de/showpage.php?uid=136069
Den Bereich mit der Größe auslesen kann um ihn dann im Label2 anzuzeigen??
Danke im vorraus für eure Hilfe !!!
MfG der sondaschuela