- 138 名前：名無しさん＠お腹いっぱい。 [2007/06/13(水) 18:56:52 ID:Aw2OORCD0]
- すいません！初心者です。教えてください。
URLのインナーテキストをペーストして、
フォームの19番目のテキストエリアに自動的にコピーさせたいのですが、、、
どうすれば・・・
IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.visible = True
IE.navigate("++++++/")
REPEAT
SLEEP(0.1)
UNTIL !IE.BUSY AND IE.READYSTATE=4
SENDSTR(0, IE.document.body.innerHTML)
SLEEP(0.2)
IE.navigate("++++/")
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
|
 |
