
Im a newbie into this and im wondering how (because im sure it is?

Any ideas ?
Moderators: JRL, Dorian (MJT support)
What do you want to do with the results which are returned after clicking "search"?1. goto google.com
2. read line1
3. enter it into the searchfield
4. click search
5. repeat
Code: Select all
Let>page=http://www.google.com/search?h1=en&source=hp&q=
Let>searchterm=macroscheduler
Let>searchpage=%page%%searchterm%
HTTPRequest>searchpage,,GET,,result
MessageModal>result
Code: Select all
MouseMove>0,0
Let>k=1
Label>start
ReadLn>c:\\\temp\\\test.txt,k,line
If>line=##EOF##,finish
MessageModal>line
Let>k=k+1
Goto>start
Label>finish
Let>delay=1
IE_Create>0,IE[0]
IE_Navigate>%IE[0]%,http://google.com/,r
IE_Wait>%IE[0]%,r
Wait>delay
IE_Wait>%IE[0]%,r
Wait>delay
Let>FrameName={""}
Let>FormName={"f"}
Let>FieldName={"q"}
Let>FieldValue={"%line%"}
IE_FormFill>%IE[0]%,str:FrameName,str:FormName,str:FieldName,str:FieldValue,0,r
Let>FrameName={""}
Let>FormName={"f"}
Let>TagValue={"btnG"}
IE_ClickTag>%IE[0]%,str:FrameName,str:FormName,INPUT,NAME,str:TagValue,r
IE_Wait>%IE[0]%,r
Wait>delay
Label>end_script
Code: Select all
Wait>3.5
GetScreenRes>sX,sY
Min>min
Sec>sec
Hour>hour
ScreenCapture>0,0,sX,sY,c:\temp\cap.%hour%.%min%.%sec%.jpg
Thanks again, testing it out, its got a lot of backlashes just because the original aricle has:adroege wrote:Why so many backslashes? I think this is a problem.ReadLn>c:\\\temp\\\test.txt,k,line
Code: Select all
ReadLn>c:\temp\test.txt,k,line
Code: Select all
MouseMove>0,0
Let>k=1
Label>start
ReadLn>C:\temp\test.txt,k,line
If>line=##EOF##,finish
MessageModal>line
Let>k=k+1
Let>delay=1
IE_Create>0,IE[0]
IE_Navigate>%IE[0]%,http://google.com/,r
IE_Wait>%IE[0]%,r
Wait>delay
IE_Wait>%IE[0]%,r
Wait>delay
Let>FrameName={""}
Let>FormName={"f"}
Let>FieldName={"q"}
Let>FieldValue={%line%}
IE_FormFill>%IE[0]%,str:FrameName,str:FormName,str:FieldName,str:FieldValue,0,r
Let>FrameName={""}
Let>FormName={"f"}
Let>TagValue={"btnG"}
IE_ClickTag>%IE[0]%,str:FrameName,str:FormName,INPUT,NAME,str:TagValue,r
IE_Wait>%IE[0]%,r
Wait>delay
Wait>10
GetScreenRes>sX,sY
Min>min
Sec>sec
Hour>hour
ScreenCapture>0,0,sX,sY,c:\temp\cap.%hour%.%min%.%sec%.jpg
Label>finish
Goto>start