Hej, for et par dage siden startede jeg med AutoIT v3, og da en ven spurgte mig om jeg kunne lave en bot til Netstationen, tog jeg det som en udfordring til at lære sproget at kende
Anyway, jeg har fået smidt et lille stykke kode sammen, og har nu nogle spørgsmål angåene diverse ting. Men først, her er mit code:
#Include <Date.au3>
#include <GUIConstants.au3>
#include ""
$Forside1 = "Mozilla Firefox forside"
$Account = "dkzdarwich"
$Password = "Fjernet"
$Netstation1 = "Netstationen:Chatunivers for unge"
$Netstation2 = "http://www.n.dk"
$Text = "Hej med dig_
;GUICreate ("'Netstationen' bot - By bliz0r", 200, 100)
;GuiSetState(@SW_SHOW)
send("#r")
WinwaitActive("Kør")
Send("Firefox.exe{ENTER}")
WinWaitactive($Forside1)
MouseClick("Primary", 528, 70, 1, 10)
Send("http://www.netstationen.dk{ENTER}")
sleep(5000)
Mouseclick("Primary", 343, 610, 1, 10)
Sleep(5000)
Mouseclick("Primary", 1260, 10, 1, 10)
;WinSetState($Netstation2, @SW_HIDE)
;Sleep(5000)
;WinWaitActive($Netstation1)
;WinActive($Netstation1)
;WinClose($Netstation1)
;Sleep(5000)
;WinSetState($Netstation2, @SW_SHOW)
WinWaitActive($Netstation2)
MouseClickDrag("Primary", 122, 197, 30, 5)
MouseClick("Primary", 205, 42, 1, 10)
Send($Account)
MouseClick("Primary", 312, 40, 1, 10)
Send($Password)
MouseClick("Primary", 390, 41, 1, 10)
Sleep(30000)
Mouseclick("Primary", 160, 177, 1, 10)
Sleep(1000)
Mouseclick("Primary", 59, 289, 1, 10)
Sleep(1000)
Send("/goto 154{ENTER}")
Sleep(10000)
$Loop = 0
While 1
mouseClick("Primary", 260, 192, 1, 10)
Sleep(120000)
MouseClick("Primary", 190, 290, 1, 10)
Sleep(120000)
Send($Text)
MouseClick("Primary", 116, 290, 1, 10)
Sleep(120000)
MouseClick("Primary", 136, 161, 1, 10)
Send($Text)
If $error=@error Then ExitLoop
msgbox(0,"Error Code", "Error = " & $error)
WEnd
Jeg har haft nogle diverse problemer, ved at få lukket "$Netstation1 = "Netstationen:Chatunivers for unge"" Ned, heraf:
;WinSetState($Netstation2, @SW_HIDE)
;Sleep(5000)
;WinWaitActive($Netstation1)
;WinActive($Netstation1)
;WinClose($Netstation1)
;Sleep(5000)
;WinSetState($Netstation2, @SW_SHOW)
Jeg kunne hverken få den til at gemme, eller lukke $Netstation1 ned, men kan dog godt lukke $Netstation2, efter jeg har åbnet den op. Jeg har ingen idé om hvorvidt jeg kan få lukket den ned på den måde, så jeg valgte at bruge et:
"Mouseclick("Primary", 1260, 10, 1, 10)"
Da jeg fast beslut på at kunne lukke den med WinKill/WinClose, vil jeg gerne vide om i har et svar på det.
Et andet spørgsmål er angåene "$Text = "Hej med dig_", det var planen at bruge #Include "" til en tekstfil, også bruge den, via en lang liste at vælge et tilfældigt at
Send("Sæt en af sætningerne ind fra vedlæggene textfil.txt {ENTER}")
Håber nogle af jer kan svare på mine spørgsmål...