自動化ツールuwsc使いよ集まれ5

自動化ツールuwsc使いよ集まれ5 at SOFTWARE

382:374
10/04/28 19:57:44 TGzzLXVI0
結局晒してしまう　google画像検索で出た画像を指定数、自動保存する
ここから

keyword="九龍城" // 検索キーワード
downKazu=30　 // ダウンロードしたい数

folder="C:\Documents and Settings\k\My Documents\My Pictures"　// 保存先フォルダ
public FS = CreateOleObj("Scripting.FileSystemObject")
ifb FS.FolderExists(folder+"\"+keyword)=false then
FS.CreateFolder(folder+"\"+keyword)
endif
for page=0 to ((downKazu+17)/ 18)
pagenum=page*18
URL="URLﾘﾝｸ(www.google.com)"+keyword+"&start="+pagenum+"&ndsp=18"

public ie = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
ie.navigate(URL)
REPEAT
SLEEP(0.1)
UNTIL !(ie.Busy) AND (ie.ReadyState = 4)
allhtml=ie.document.body.outerHTML

次ページ

続きを表示

1を表示