签证被Check后状态自动查询VBS代码

headhuanglanUID: 2504319

写给被Check的同学:
保存下列代码到文本文档，然后修改扩展名为vbs。这样就可以自动从 ceac.state.gov查询被check的VISA状态了。注意我这里的代码location的值是BEJ。针对的是在北京面签的同学哦！其他地方的请自行修改代码。使用方法，双击即可。悲催的MSE被check了。。。。

set WshShell = CreateObject("WScript.Shell")
Set ie=CreateObject("InternetExplorer.Application")
ie.Visible=True
ie.Navigate  "https://ceac.state.gov/CEACStatTracker/Status.aspx"
Do While ie.ReadyState <> 4         
Loop


ie.Document.getElementById("ctl00_ContentPlaceHolder1_ddlApplications").Value="NIV"
ie.Document.getElementById("ctl00_ContentPlaceHolder1_ddlApplications").onchange
WScript.Sleep 10000
ie.Document.getElementById("ctl00_ContentPlaceHolder1_ddlLocation").Value = "BEJ"
ie.Document.getElementById("ctl00_ContentPlaceHolder1_txbCase").Value = "AA004*****这里输入你的DS160申请号"
WScript.Sleep 1000
ie.document.getElementById("ctl00_ContentPlaceHolder1_btnSubmit").click
Do While ie.ReadyState <> 4         
Loop

headhuanglanUID: 2504319

裂掉的图是怎么回事？？ 一律是小括号哈~~ 请自行补全。

ArabidopsiserUID: 3586656

我是428安家楼被check。。。。。。。。。。。。前面一个女的惹恼了VO的缘故

headhuanglanUID: 2504319

Arabidopsiser 发表于 2015-4-29 16:24
我是428安家楼被check。。。。。。。。。。。。前面一个女的惹恼了VO的缘故

429安家楼...