下記A.txtよりキーワードをgoogle検索窓にコピペしてスクショをとるソースコードになります。
https://www.google.co.jpのURLをAMAZONとかのURLに変更するとスクリプトが動かなくなる理由を教えて下さい。
どうぞよろしくお願い致します。
Dim ie,fid,i
ie = createOLEobj("InternetExplorer.Application")
ie.visible = True
wid = HNDtoID( ie.hwnd )
ACW( wid, 0, 0 )
CtrlWin( wid, MAX )
fid = FOpen("A.txt",F_READ)
For i = 1 to FGET(fid,F_LINECOUNT)
Dim kw,rc,j,k,rr,url
kw = FGet(fid, i)
ie.navigate("https://www.google.co.jp/")
ie_wait( ie )
sleep( 1 )
ie.Document.getElementsByName("q").Item(0).Value = kw
sleep( 1 )
ie.Document.Forms(0).Submit()
ie_wait( ie )
sleep( 1 )
rc = ie.Document.getElementsByClassName("rc")
Print "["+i+"="+kw+"]:"
For j = 0 To rc.Length-1
rr = rc.Item(j).getElementsByClassName("r").Item(0)
url = rr.getElementsByTagName("A").Item(0).href
Print " ("+j+"="+url+"#)"
If j = 0 Then k = url
Next
ie.navigate(k)
ie_wait( ie )
sleep( 1 )
GetTime()
k = G_TIME_YY4+G_TIME_MM2+G_TIME_DD2+ "" _
+ G_TIME_HH2+G_TIME_NN2+G_TIME_SS2
SaveImg("sc"+kw+"_"+k, wid, , , , , , 25)
Next
FClose(fid)
CtrlWin( wid, NORMAL )
ie.Quit()
Procedure ie_wait( ie )
Repeat
Sleep( 1/16 )
Until (! ie.busy) and (ie.readyState=4)
Sleep( 1/16 )
FEnd