返回列表 发帖
我不是是人

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 
积分
18843 
技术
982  
捐助
100  
注册时间
2010-10-9 
2楼
发表于 2015-6-23 15:18 | 只看该作者 
Set ie=WScript.CreateObject("InternetExplorer.Application")
ie.document.getElementById("venue").value=7COPY
链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

yu2n

Rank: 5Rank: 5

帖子
715 
积分
1298 
技术
151  
捐助
0  
注册时间
2012-11-1 
3楼
发表于 2015-6-24 13:47 | 只看该作者
本帖最后由 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>COPY
『千江有水千江月』千江有水，月映千江；万里无云，万里青天。    http://yu2n.qiniudn.com/

TOP

我不是是人

Rank: 1

帖子
22 
积分
48 
技术
0  
捐助
0  
注册时间
2015-1-22 
4楼
发表于 2015-6-24 15:40 | 只看该作者
回复 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  COPY
以下是錯誤的提示

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

TOP

yu2n

Rank: 5Rank: 5

帖子
715 
积分
1298 
技术
151  
捐助
0  
注册时间
2012-11-1 
5楼
发表于 2015-6-24 17:26 | 只看该作者
试试：
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  COPY
『千江有水千江月』千江有水，月映千江；万里无云，万里青天。    http://yu2n.qiniudn.com/

TOP

我不是是人

Rank: 1

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

感謝大神,成功了XDD

TOP

返回列表