批处理之家 - Powered by Discuz! Board

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

作者: 我不是是人 时间: 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 时间: 2015-6-23 15:18

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

作者: yu2n 时间: 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>
复制代码

作者: 我不是是人 时间: 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  
复制代码

以下是錯誤的提示

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

作者: yu2n 时间: 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  
复制代码

作者: 我不是是人 时间: 2015-6-25 12:55

回复 5# yu2n

感謝大神,成功了XDD

欢迎光临批处理之家 (http://bbs.bathome.net/)

Powered by Discuz! 7.2