- 最後登錄
- 2024-5-13
- 在線時間
- 4344 小時
- 註冊時間
- 2009-8-31
- 閱讀權限
- 20
- 精華
- 9
- UID
- 6965208
- 帖子
- 967
- 積分
- 153 點
- 潛水值
- 40434 米
| 若對尊貴或贊助會員有任何疑問,歡迎向我們查詢。我們的即時通或MSN: admin@eyny.com 一定有人會擔心我查別人的
都是因為橘子 逼我們要升級
但我之前用的是別的身分證字號
現在要升級
網路爬文爬超久的
終於爬到用 按鍵精靈 查 身分證字號
但始終都不會用
腳本如下 誰能教我 拜託@@
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... |
|