06/12/02 19:33:04 DDIOW/mZ0
// Internet Explorer 上での文字設定、ボタンのクリック （COM利用）
// エディトボックス、ボタンはHTMLソースの'NAME='や'VALUE=' から確認
IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
IE.Navigate("URLﾘﾝｸ(prog-etc.bbs.thebbs.jp))// 掲示板
while True // 接続表示待ち
if (! IE.busy) and (IE.readyState=4) then Break
sleep(0.1)
wend
GETTIME()
timeｂ=g_time_yy2+"年"+g_time_mm2+"月"+g_time_dd2+"日"+g_time_hh2+"時"+g_time_nn2+"分"
IE.document.all["body"].value = timeｂ// タイトル書込み
IE.document.all["sm"].click()
IE.document.all["sm"].click() //ここがうまくいかなくて書き込めないTHEBBS 書き込み