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

Rank: 1

帖子
22 
积分
48 
技术
0  
捐助
0  
注册时间
2015-1-22 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2015-6-23 12:06 | 只看该作者

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

本帖最后由 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

Rank: 8Rank: 8

帖子
6388 
积分
18831 
技术
978  
捐助
100  
注册时间
2010-10-9 
2楼
发表于 2015-6-23 15:18 | 只看该作者 
  1. Set ie=WScript.CreateObject("InternetExplorer.Application")

  2. ie.document.getElementById("venue").value=7
复制代码
链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

yu2n

Rank: 5Rank: 5

帖子
715 
积分
1295 
技术
150  
捐助
0  
注册时间
2012-11-1 
3楼
发表于 2015-6-24 13:47 | 只看该作者
本帖最后由 yu2n 于 2015-6-24 13:49 编辑

贴全你的代码。

0.hta 测试没有问题
  1. <html>

  2.   <body>

  3.     <select name="venue" id="venue" class="ComboBox" onchange="">

  4.       <option value="0">請選擇場地</option>

  5.       <option value="sport1">望廈體育館(重建中)</option>

  6.       <option value="sport9">塔石體育館 - 乒乓球室</option>

  7.       <option value="sport8">得勝體育中心</option>

  8.       <option value="sport3">奧林匹克體育中心 - 運動場</option>

  9.       <option value="sport4">奧林匹克體育中心(戶外天地)</option>

  10.       <option value="sportp">奧林匹克體育中心(戶外天地-三育)</option>

  11.       <option value="sportj">奧林匹克體育中心(羽毛球場)</option>

  12.       <option value="um">氹仔東北體育中心</option>

  13.       <option value="sportx">東亞運動會體育館</option>

  14.       <option value="sport7">網球學校</option>

  15.       <option value="sport6">保齡球中心 - 壁球室</option>

  16.       <option value="sportm">保齡球中心 - 乒乓球室</option>

  17.     </select>

  18.     <script language="vbscript">

  19.       document.getElementById("venue").value="sportj"

  20.     </script>

  21.   </body>

  22. </html>
复制代码
『千江有水千江月』千江有水，月映千江；万里无云，万里青天。    http://yu2n.qiniudn.com/

TOP

我不是是人

Rank: 1

帖子
22 
积分
48 
技术
0  
捐助
0  
注册时间
2015-1-22 
4楼
发表于 2015-6-24 15:40 | 只看该作者
回复 3# yu2n 
  1. Set ie=WScript.CreateObject("InternetExplorer.Application")

  2. ie.visible=true

  3. ie.navigate "http://www.sport.gov.mo/zh/vbs/login"

  4. While ie.ReadyState <> 4 Or ie.Busy = True  

  5. Do

  6. Wscript.Sleep 200

  7. Loop Until ie.ReadyState=4

  8. '打帳號

  9. ie.document.getElementById("username").value="河蟹河蟹"

  10. '打密碼

  11. ie.document.getElementById("password").value="河蟹河蟹"

  12. '按確定

  13. ie.document.all("btn").click

  14. Wscript.Sleep 6000

  15. '進入下一個頁面,期望在新頁面中的下拉菜單中自動選擇"奧林匹克體育中心(羽毛球場)"

  16. ie.document.getElementById("venue").value=7

  17. Wend  
复制代码
以下是錯誤的提示

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

TOP

yu2n

Rank: 5Rank: 5

帖子
715 
积分
1295 
技术
150  
捐助
0  
注册时间
2012-11-1 
5楼
发表于 2015-6-24 17:26 | 只看该作者
试试：
  1. Set ie=CreateObject("InternetExplorer.Application")

  2. ie.visible=true

  3. ie.navigate "http://www.sport.gov.mo/zh/vbs/login"

  4. While ie.ReadyState <> 4 Or ie.Busy = True  

  5.   Do

  6.     Wscript.Sleep 200

  7.   Loop Until ie.ReadyState=4

  8.   '打帳號

  9.   ie.document.getElementById("username").value="河蟹河蟹"

  10.   '打密碼

  11.   ie.document.getElementById("password").value="河蟹河蟹"

  12.   '按確定

  13.   ie.document.all("btn").click

  14. Wend

  15. 

  16. Wscript.Sleep 6000

  17.   

  18. While ie.ReadyState <> 4 Or ie.Busy = True  

  19.   Do

  20.     Wscript.Sleep 200

  21.   Loop Until ie.ReadyState=4

  22.   ie.document.getElementById("venue").value=7

  23. Wend  
复制代码
『千江有水千江月』千江有水，月映千江；万里无云，万里青天。    http://yu2n.qiniudn.com/

TOP

我不是是人

Rank: 1

帖子
22 
积分
48 
技术
0  
捐助
0  
注册时间
2015-1-22 
6楼
发表于 2015-6-25 12:55 | 只看该作者
回复 5# yu2n

感謝大神,成功了XDD

TOP

返回列表