[已解决]vbs如何实现选中网页中选择下拉菜单中的选项

我不是是人 · 发表于 2015-6-23 12:06:00

本帖最后由 pcl_test 于 2016-7-23 21:17 编辑

各位大神好
小弟有一個問題
<select name="venue" id="venue" class="ComboBox" onchange="clear_sport_type_reminder(); load_sport_type();">
<option value="0">請選擇場地</option>
<option value="sport1">望廈體育館(重建中)</option>
<option value="sport9">塔石體育館 - 乒乓球室</option>
<option value="sport8">得勝體育中心</option>
<option value="sport3">奧林匹克體育中心 - 運動場</option>
<option value="sport4">奧林匹克體育中心(戶外天地)</option>
<option value="sportp">奧林匹克體育中心(戶外天地-三育)</option>
<option value="sportj">奧林匹克體育中心(羽毛球場)</option>
<option value="um">氹仔東北體育中心</option>
<option value="sportx">東亞運動會體育館</option>
<option value="sport7">網球學校</option>
<option value="sport6">保齡球中心 - 壁球室</option>
<option value="sportm">保齡球中心 - 乒乓球室</option>
</select>
以上是某網頁中的下拉菜單的選項
請問一下如何用VBS做到自動選擇下拉菜單中的選項
跪求各位大神幫忙 m(_ _)m
小弟不才用
Set ie=WScript.CreateObject("InternetExplorer.Application")
ie.document.getElementById("venue").value="sportj"
的時候失敗了

CrLf · 发表于 2015-6-23 15:18:08

Set ie=WScript.CreateObject("InternetExplorer.Application")
ie.document.getElementById("venue").value=7

复制代码

yu2n · 发表于 2015-6-24 13:47:43

本帖最后由 yu2n 于 2015-6-24 13:49 编辑

贴全你的代码。

0.hta 测试没有问题

<html>
<body>
<select name="venue" id="venue" class="ComboBox" onchange="">
<option value="0">請選擇場地</option>
<option value="sport1">望廈體育館(重建中)</option>
<option value="sport9">塔石體育館 - 乒乓球室</option>
<option value="sport8">得勝體育中心</option>
<option value="sport3">奧林匹克體育中心 - 運動場</option>
<option value="sport4">奧林匹克體育中心(戶外天地)</option>
<option value="sportp">奧林匹克體育中心(戶外天地-三育)</option>
<option value="sportj">奧林匹克體育中心(羽毛球場)</option>
<option value="um">氹仔東北體育中心</option>
<option value="sportx">東亞運動會體育館</option>
<option value="sport7">網球學校</option>
<option value="sport6">保齡球中心 - 壁球室</option>
<option value="sportm">保齡球中心 - 乒乓球室</option>
</select>
<script language="vbscript">
document.getElementById("venue").value="sportj"
</script>
</body>
</html>

复制代码

我不是是人 · 发表于 2015-6-24 15:40:50

回复 3# yu2n

Set ie=WScript.CreateObject("InternetExplorer.Application")
ie.visible=true
ie.navigate "http://www.sport.gov.mo/zh/vbs/login"
While ie.ReadyState <> 4 Or ie.Busy = True
Do
Wscript.Sleep 200
Loop Until ie.ReadyState=4
'打帳號
ie.document.getElementById("username").value="河蟹河蟹"
'打密碼
ie.document.getElementById("password").value="河蟹河蟹"
'按確定
ie.document.all("btn").click
Wscript.Sleep 6000
'進入下一個頁面,期望在新頁面中的下拉菜單中自動選擇"奧林匹克體育中心(羽毛球場)"
ie.document.getElementById("venue").value=7
Wend

复制代码

以下是錯誤的提示

是不是因為網頁進入了下一個頁面,所以需要一些方式才可以令VBS從新讀取網頁的資料???

yu2n · 发表于 2015-6-24 17:26:01

试试：

Set ie=CreateObject("InternetExplorer.Application")
ie.visible=true
ie.navigate "http://www.sport.gov.mo/zh/vbs/login"
While ie.ReadyState <> 4 Or ie.Busy = True
Do
Wscript.Sleep 200
Loop Until ie.ReadyState=4
'打帳號
ie.document.getElementById("username").value="河蟹河蟹"
'打密碼
ie.document.getElementById("password").value="河蟹河蟹"
'按確定
ie.document.all("btn").click
Wend
Wscript.Sleep 6000
While ie.ReadyState <> 4 Or ie.Busy = True
Do
Wscript.Sleep 200
Loop Until ie.ReadyState=4
ie.document.getElementById("venue").value=7
Wend

复制代码

我不是是人 · 发表于 2015-6-25 12:55:39

回复 5# yu2n

感謝大神,成功了XDD

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[问题求助] [已解决]vbs如何实现选中网页中选择下拉菜单中的选项

浏览过的版块