【マクロ】　UWSC　Part3　【シェアウェア化】

【マクロ】　UWSC　Part3　【シェアウェア化】 at SOFTWARE

138:名無しさん＠お腹いっぱい。
07/06/13 18:56:52 Aw2OORCD0
すいません！初心者です。教えてください。
URLのインナーテキストをペーストして、
フォームの19番目のテキストエリアに自動的にコピーさせたいのですが、、、
どうすれば・・・

IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.visible = True
IE.navigate("URLﾘﾝｸ(++++++))
REPEAT
SLEEP(0.1)
UNTIL !IE.BUSY AND IE.READYSTATE=4
SENDSTR(0, IE.document.body.innerHTML)
SLEEP(0.2)
IE.navigate("URLﾘﾝｸ(++++))
REPEAT
SLEEP(0.1)
UNTIL !IE.busy AND IE.readystate=4
IE.document.forms[0].id.value = "++++"
IE.document.forms[0].pass.value = "++++"
SLEEP(5)
ID = GETID("GET_ACTIVE_WIN")
clkitem(ID,"ログイン",CLK_ACC)
SLEEP(5)
ID = GETID("GET_ACTIVE_WIN")
clkitem(ID,"記事の作成",CLK_ACC)
SLEEP(2)
IE.document.forms[1].elements[0].value = "+++++"
IE.document.forms[1].elements[19].value

次ページ

続きを表示

1を表示