我在某个网站上发布出租房屋的广告信息,嫌每次都要添写表单太麻烦,就写了个VBS,自动打开并添写。
这个VBS在WINXP下运行很正常,但是在WIN8下,就会出错。
有人知道怎么解决吗?谢谢!
代码如下:
Set ie=WScript.CreateObject("InternetExplorer.Application")
ie.visible=1
‘用户名和密码我改成XXX了
ie.navigate "http://www.liaohe.net.cn/reg/login1.asp?username=XXX&password=XXXX"
Do
Wscript.Sleep 200
Loop Until ie.ReadyState=4
ie.navigate "http://www.liaohe.net.cn/essc/index22new.asp"
Do
Wscript.Sleep 200
Loop Until ie.ReadyState=4
'下面这一句,在WIN8下会出错,提示缺少对象,感觉跟IE10有关
ie.document.getElementById("goodsname").value="房屋出租"
ie.document.getElementById("firstname").value="方"
ie.document.getElementById("telephone").value="18888888888"
ie.document.getElementById("email").value="11111111@qq.com"
ie.document.getElementsByName("mode")(1).options(0).selected=true
ie.document.getElementById("limit").value="14"
ie.document.getElementById("subject").value="房屋出租"
ie.document.getElementsByTagName("textarea")(0).innerHTML="房屋出租,面积69平。月租金1200元,有意者联系:18888888888 方先生 非诚勿扰!"
这个VBS在WINXP下运行很正常,但是在WIN8下,就会出错。
有人知道怎么解决吗?谢谢!
代码如下:
Set ie=WScript.CreateObject("InternetExplorer.Application")
ie.visible=1
‘用户名和密码我改成XXX了
ie.navigate "http://www.liaohe.net.cn/reg/login1.asp?username=XXX&password=XXXX"
Do
Wscript.Sleep 200
Loop Until ie.ReadyState=4
ie.navigate "http://www.liaohe.net.cn/essc/index22new.asp"
Do
Wscript.Sleep 200
Loop Until ie.ReadyState=4
'下面这一句,在WIN8下会出错,提示缺少对象,感觉跟IE10有关
ie.document.getElementById("goodsname").value="房屋出租"
ie.document.getElementById("firstname").value="方"
ie.document.getElementById("telephone").value="18888888888"
ie.document.getElementById("email").value="11111111@qq.com"
ie.document.getElementsByName("mode")(1).options(0).selected=true
ie.document.getElementById("limit").value="14"
ie.document.getElementById("subject").value="房屋出租"
ie.document.getElementsByTagName("textarea")(0).innerHTML="房屋出租,面积69平。月租金1200元,有意者联系:18888888888 方先生 非诚勿扰!"