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

1 名前：名無しさん＠お腹いっぱい。 [2009/12/09(水) 05:27:33 ID:J1DL1P1U0] Windowsを自動化させるツールUWSC。 www.uwsc.info/ uwsc使いのみなさま、ﾏﾀｰﾘ己のスクリプトを晒しましょ。 382 名前：374 mailto:sage [2010/04/28(水) 19:57:44 ID: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="www.google.com/images?hl=ja&source=imghp&q="+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 383 名前：374(2) mailto:sage [2010/04/28(水) 19:58:59 ID:TGzzLXVI0] cutword="</A>" cut=toScanWord(str2,cutword) //print cut str2=afterScanWord(cut,"imgurl=") str2=beforeScanWord(str2,"&") print str2 nokori=copy(str2,pos(cutword,str2)+length(cutword),length(str2))// print nokori ie.navigate(str2) ieWait(ie) sleep(2) id=GetID(str2,"IEFrame") sckey(id,vk_alt,f,a) number=page*18+i numberStr=""+number orgName=copy(str2,pos("/",str2,-1)+1,length(str2)) orgName=chgmoj(orgName,":","") name=folder+"\"+keyword+"\"+numberStr+"_"+orgName print name id2=GetID("画像の保存","#32770") ifb id2>0 then sendstr(id2,name,1,true) sleep(2) sendstr(id2,name,1,true) sendstr(id2,name,1,true) sleep(1) clkitem(id2,"保存",CLK_BTN) sleep(1) else id2=GetID("Web ページの保存","#32770") clkitem(id2,"キャンセル") endif next 384 名前：374(3) mailto:sage [2010/04/28(水) 19:59:41 ID:TGzzLXVI0] next function fromScanWord(str,scan) // 検索ワード以後の文字列を切り取る　検索ワード含む result=copy(str,pos(scan,str),length(str)) fend function toScanWord(str,scan) // 検索ワード以前の文字列を切り取る　検索ワード含む result=copy(str,0,pos(scan,str)+length(scan)-1) fend function afterScanWord(str,scan) // 検索ワード以後の文字列を切り取る　検索ワード含まない result=copy(str,pos(scan,str)+length(scan),length(str)) fend function beforeScanWord(str,scan) // 検索ワード以前の文字列を切り取る　検索ワード含まな result=copy(str,0,pos(scan,str)-1) fend procedure ieWait(ie) REPEAT SLEEP(0.1) UNTIL !(ie.Busy) AND (ie.ReadyState = 4) fend

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef