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

Rank: 5Rank: 5

帖子
715 
积分
1295 
技术
150  
捐助
0  
注册时间
2012-11-1 
1楼 跳转到 »
发表于 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

yu2n

Rank: 5Rank: 5

帖子
715 
积分
1295 
技术
150  
捐助
0  
注册时间
2012-11-1 
2楼
发表于 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

返回列表