寄托天下
查看: 1721|回复: 3
打印 上一主题 下一主题

[经验] 签证被Check后状态自动查询VBS代码 [复制链接]

Rank: 5Rank: 5

声望
156
寄托币
2118
注册时间
2008-6-14
精华
0
帖子
282

2015 US-applicant

跳转到指定楼层
楼主
发表于 2015-4-29 14:30:43 |只看该作者 |倒序浏览
本帖最后由 headhuanglan 于 2015-4-29 14:33 编辑

写给被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
0 0

使用道具 举报

Rank: 5Rank: 5

声望
156
寄托币
2118
注册时间
2008-6-14
精华
0
帖子
282

2015 US-applicant

沙发
发表于 2015-4-29 14:32:50 |只看该作者
裂掉的图是怎么回事?? 一律是小括号哈~~ 请自行补全。

使用道具 举报

Rank: 6Rank: 6

声望
148
寄托币
1689
注册时间
2015-1-4
精华
0
帖子
594
板凳
发表于 2015-4-29 16:24:06 |只看该作者
我是428安家楼被check。。。。。。。。。。。。前面一个女的惹恼了VO的缘故

使用道具 举报

Rank: 5Rank: 5

声望
156
寄托币
2118
注册时间
2008-6-14
精华
0
帖子
282

2015 US-applicant

地板
发表于 2015-4-29 17:27:57 |只看该作者
Arabidopsiser 发表于 2015-4-29 16:24
我是428安家楼被check。。。。。。。。。。。。前面一个女的惹恼了VO的缘故

429安家楼...

使用道具 举报

RE: 签证被Check后状态自动查询VBS代码 [修改]

问答
Offer
投票
面经
最新
精华
转发
转发该帖子
签证被Check后状态自动查询VBS代码
https://bbs.gter.net/thread-1825314-1-1.html
复制链接
发送
回顶部