vbs脚本应用之午饭抢沙发必备
在以前公司提供午餐的时候，公司一般会在首页发布用于预定午餐的表单网页，我们需要回复这个表单以确定用餐人数。然后我们吃饭的时候，要在一份名单上签名，上面有每个人的名字。于是谁抢到午餐的沙发，绝对是一件很光荣的事情，如果你成功蝉联好几次，那更是爽的不得了。。。呵呵，是的这就是最简单的快乐，其中滋味只有体会了才知道。于是每个人都绞尽脑汁的想第一时间抢到沙发，拿到这最简单的荣誉光环。有人直接跟管理部打通关节，让他们每次更新网页的时候，人工通知一下。而我属于坐的比较远的，跟管理部混的不熟，所以我决定写个程序抢沙发，想了一下，决定写一个VBS脚本，简单又实用。
订餐网页比较简单，网址是固定的，只要你在第一时间点击了上面的提交按钮，你就是沙发了。因为管理部在更新网页之前，进入订餐地址会出现错误，而正在更新的时候显示的是不可访问，更新完之后是可以访问。利用这个机制，我做一个个监测脚本，一个订餐简本。监测脚本就是每间隔一段时间不断用ie探测该网页，如果是未更新状态，则ie.title是“错误”，如果不是这个标题。就可以启动订餐脚本开始不断预订的动作了。下面是监测简本
'==================================================================================='create by dnfchan'this script is used to watch web page'===================================================================================dim WshShell,oc,cset WshShell = CreateObject("Wscript.shell")oc=ucase(wshshell.regread("HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName"))if oc<>"xxxxxxx" thenmsgbox "對不起，您不是xxx先生，無權使用，謝謝！",,"Welcome"'msgbox "Sorry, you are not MR Deng,So you have no rights to use it, thank you!",,"Welcome"wscript.quitend ifmsgbox "歡迎您使用，xxx先生！",,"Welcome"dim ieset ie = createobject("internetexplorer.application")ie.visible =0ie.menubar=0ie.addressbar=0ie.toolbar=0ie.statusbar=0doie.navigate("http://hr-xxxx.xxx.inventec/Lists/Survey7/NewForm.aspx")Do While (ie.Busy or ie.ReadyState<>4) wscript.sleep 100Loop a=ie.Document.Title if a<> "錯誤" then createobject("wscript.shell").run("D:\book_dinner.vbs")ie.quitexit doend ifloop
开始时身份监测，读取注册表的计算机名，如果不是你自己的电脑名就终止。
因为ie监测比较耗资源，所以把它设置为不可以见，其他参数皆是0，以节省资源消耗。订餐地址不便公开，所以就用xxx代替了。
开始监测，当标题不是错误时候，说明管理部有动作了，那么这个时候启动另一个脚本。它的作用是一直刷新网页，并尝试点击提交按钮，知道成功为止。
代码如下
'==================================================================================='create by dnfchan'this script is used to order dinner '===================================================================================on error resume nextDim ws,ie,elemlistset ws = wscript.CreateObject("wscript.shell")set ie =wscript.createobject("internetexplorer.application")ie.visible=trueie.navigate "http://hr-xxx.xxx.inventec/Lists/Survey7/NewForm.aspx"'open ie to access dinner order pageDo While ie.ReadyState<>4 WScript.Sleep 200Loopi=0'set elemlist = ie.document.getElementsByTagName("input")'For Each elem In elemlist'If elem.type="checkbox" Then'elem.checked = true'i=i+1'end if'nextdo ie.document.all("ctl00$m$g_75aeb5b6_93ae_4c36_af0b_102a6332b308$ctl00$toolBarTbltop$RightRptControls$ctl01$ctl00$diidIOSaveItem").click 'submit the page,success to order dinnerDo While ie.ReadyState<>4 wscript.sleep 200Loopie.document.location.reload(true)Do While ie.ReadyState<>4 Loopa=ie.Document.Title if a="錯誤" then exit doloop'msgbox "You are success to book "&i&" dinner",,"Book Success"
订餐脚本不断刷新，点击提交按钮。当再次进入订餐地址出现“错误”title的时候，说明你已经成功了。
整个订餐过程，只要开启了监测脚本就可以了，后面的工作它会全自动进行。最后还是说下，脚本语言学起来真的很简单，这是我学了一天就写出来的
脚本