[已解决] ie表单提交问题

iaw

<tr><td bgcolor=lightcyan align=center>
<form method="post" action="/cgi-bin/noprice.cgi"  onSubmit="return input_check(this)">

<table bgcolor="snow" border="1" rules="both" cellpadding="7" cellspacing="0"
bordercolorlight=silver bordercolordark=black width=540>
<tr><td nowrap bgcolor="#EAEAEA" align="left">1. (Name)</td>
  <td align="left">&nbsp;&nbsp;&nbsp;<input name="name" type=text size="20"></td></tr><tr><td align="left" nowrap bgcolor="#EAEAEA">2. (E-mail)</td>
   <td align="left">&nbsp;&nbsp;
     <input name="mail" type=text size="32">
    </td></tr>
<tr> <td align="left" nowrap bgcolor="#EAEAEA">3. (Country)</td>
<td align="left">&nbsp;&nbsp;
<select NAME="country">
<option value="Taiwan">&nbsp;(Taiwan)&nbsp;
  <option value="USA">&nbsp;(USA)&nbsp;
  <option value="Japan">&nbsp;(Japan)&nbsp;
  <option value="Asia">&nbsp;(Asia)&nbsp;
  <option value="Europe">&nbsp;(Europe)
  <option value="other">&nbsp;(other)&nbsp;
</select>
</td></tr>
</table>
    <p><input type="submit" value="(Send)">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    <input type="reset" value="(Cancel)">
   </td></tr></form>

这个表单应该提交呢？

kn007

给个网址吧

iaw

http://www.pptp.co.kr/test.cgi

这个网站

kn007

这个用不用选啊. &#44397;&#44032;/&#51648;&#50669;(Country)

该死的韩语，会乱码的

脚本不一定会认韩语，都成问号了，没法选。。。

韩语包被我扔了，我很讨厌韩国，日本！

我再试试

kn007

搞定，源码如下：

#include<IE.au3>
$oIE = _IECreate("http://www.pptp.co.kr/test.cgi")

$ID = _IEGetObjByName ($oIE, "name")
$ID.value = "ABCD"

$PW= _IEGetObjByName ($oIE, "mail")
$PW.value = "123456"

$IP= _IEGetObjByName ($oIE, "country")
$IP.value = "Beijing"
 
$oInputs = _IETagNameGetCollection ($oIE, "INPUT")
For $oInput In $oInputs
If $oInput.type = "submit" Then
_IEAction($oInput,"click")
EndIf
Next

关于11行的"Beijing"，看网页脚本就知道了
给出来：
<SELECT name=country> <OPTION selected value=Korea>&nbsp;????(ROK)&nbsp;<OPTION value=Beijing>&nbsp;中國 北京(??)&nbsp;<OPTION value=Sanghai>&nbsp;中國 上海(??)&nbsp;<OPTION value=Hongkong>&nbsp;中國 香港(??)&nbsp;<OPTION value=Chunjin>&nbsp;中國 天津(??)&nbsp;<OPTION value=Chungqing>&nbsp;中國 重慶(??)&nbsp;<OPTION value=Heukryoungkang>&nbsp;中國 黑龍江省(????)<OPTION value=Kilrim>&nbsp;中國 吉林省(???)&nbsp;<OPTION value=Yonyung>&nbsp;中國 遼寧省(???)&nbsp;<OPTION value=Habuk>&nbsp;中國 河北省(???)&nbsp;<OPTION value=Sandong>&nbsp;中國 山東省(???)&nbsp;<OPTION value=Kangso>&nbsp;中國 江蘇省(???)&nbsp;<OPTION value=Jeolkang>&nbsp;中國 浙江(???)省&nbsp;<OPTION value=Bogkun>&nbsp;中國 福建省(???)&nbsp;<OPTION value=Kwangdong>&nbsp;中國 廣東省(???)&nbsp;<OPTION value=China-other>&nbsp;中國 其他 省(?? ?)&nbsp;<OPTION value=Taiwan>&nbsp;? ?(Taiwan)&nbsp;<OPTION value=USA>&nbsp;? ?(USA)&nbsp;<OPTION value=Japan>&nbsp;? ?(Japan)&nbsp;<OPTION value=Asia>&nbsp;???(Asia)&nbsp;<OPTION value=Europe>&nbsp;? ?(Europe)<OPTION value=other>&nbsp;?? ??(other)&nbsp;</OPTION></SELECT>

rolaka

#include <IE.au3>

;创建对象
$oIE = _IECreate('http://www.pptp.co.kr/test.cgi')

;把页面内容读出来
$Html = _IEBodyReadHTML($oIE)

;给表单加个name属性
$Html = StringReplace($Html, '<FORM', '<FORM name="sss"')

;写回去
_IEBodyWriteHTML($oIE, $Html)

;取得from对象
$oForm = _IEFormGetObjByName($oIE, 'sss')

;写name
$Name = _IEFormElementGetObjByName ($oForm, "name")
_IEFormElementSetValue($Name, "aaaaaaa")

;写mail
$Mail = _IEFormElementGetObjByName ($oForm, "mail")
_IEFormElementSetValue($Mail, "a@a.com")

...可以了 但是 select不知道为什么我这里没办法选- - orz...

form没名字...太缺德了...

rolaka

搞定，源码如下：#include
$oIE = _IECreate("http://www.pptp.co.kr/test.cgi")

$ID = _IEGetObjByName ($oIE, "name")
$ID.value = "ABCD"

$PW= _IEGetObjByName ($oIE, "mail")
$PW.value = "123456"

...
kn007 发表于 2009-7-18 18:10

...= = 按值选...明白了

rolaka

其实还有一个更加猥琐的办法 重写这个页面的源码 那样只需要5行就可以解决了 =v=

kn007

楼上的，还需努力啊，不能因为 form没名字 就生气啊！？

kn007

其实还有一个更加猥琐的办法 重写这个页面的源码 那样只需要5行就可以解决了 =v=
rolaka 发表于 2009-7-18 18:15

又出馊主意

rolaka

=v= 这都是可以的嘛

kn007

我又没说不行，我只是说你出馊主意！？

rolaka

我又没说不行，我只是说你出馊主意！？
kn007 发表于 2009-7-18 18:33

自己构建一个表单提交的话 那个绝对的是更加方便把

好像我们在版聊

kn007

版聊啊，好像是的，不过我好像没事啊，毕竟我这官还是不小的，嘿嘿！
开玩笑，不聊了，下了

kn007

对了，另外我很赞同你所说的自己构建一个表单