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