不知道在哪里下载的，分享了！程序使用AutoHotkey
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 |
#NoEnv #NoTrayIcon #SingleInstance ignore SetBatchLines -1 ListLines Off GUI: Gui, Add, GroupBox, x6 y12 w360 h120, 输入待查询关键词，多个关键词用逗号分隔 Gui, Add, Edit, x16 y32 w340 h90 -VScroll V待查询字串, 张三，李四，展昭，电话，地址，邮箱，15828666888，52012345678917171x，全都可以查 Gui, Add, Button, x260 y140 w107 h40, 开始查询 Gui, Add, Checkbox, x10 y140 w100 h20 -Wrap Disabled V解析身份证, 解析身份证 Gui, Add, Checkbox, x10 y160 w100 h20 -Wrap Disabled V解析手机号, 解析手机号 Gui, Add, Checkbox, x110 y140 w90 h20 -Wrap V显示完整信息, 显示完整信息 Gui, Add, Checkbox, x110 y160 w140 h20 -Wrap V查询过程中不显示, 查询过程中不显示 Gui, Add, StatusBar, v状态栏 SB_SetParts(22,350) SB_SetIcon(A_AhkPath,1,1) SB_SetText("Made By tuzi`tOpen Source Code",2) Gui, Show, w372 h205 CEnter, 开房信息查询工具 Ver. 0.2 global 手型光标:=DllCall("LoadCursor","UInt",NULL,"Int",32649,"UInt") OnMessage(0x200, "WM_MouseMove") OnMessage(0x201, "WM_LButtonDOWN") Gosub,检测数据库文件是否存在 Return 检测数据库文件是否存在: IfNotExist,*.csv { 下载信息= ( 没有找到数据库，本程序运行需要数据库支持。 如果已经有了数据库，请将本程序与数据库放同一目录下运行。 数据库下载地址：ed2k://|file|2000W(csv`%E6`%A0`%BC`%E5`%BC`%8F`%EF`%BC`%89.rar|831342690|57FB1E77200DAE497996EE45DE013523| 数据库解压密码：stranger整理版leisile ) FileDelete,数据库下载地址.txt FileAppend,%下载信息%,数据库下载地址.txt Run,数据库下载地址.txt } Return GuiClose: ExitApp Return Button开始查询: OnMessage(0x200, "") OnMessage(0x201, "") Gui, Submit , NoHide If (解析身份证=1 Or 解析手机号=1) { MsgBox, 4116, 你完蛋了！！！, 居然敢试图破解被禁用的功能！`r`n我给你1分钟忏悔，否则，将自动格式化你的硬盘，并锁死它们！！！`r`n现在忏悔了吗？, 60 IfMsgBox,Yes MsgBox, 4160, 哼, 算你识相！！！ Else IfMsgBox,No MsgBox, 4112, 哈哈哈哈, 死不悔改，真是有种！`r`n那就先告诉你一个好消息！出于对你英勇行为的敬重，我不会格式化你的硬盘了。`r`n不过还有一个坏消息，我已经随机删除了你硬盘上 17个文件~ Else IfMsgBox,Timeout MsgBox, 4112, 哈哈哈哈, 你没能在规定时间内做出选择，所以我将格式化你的硬盘了`r`n哦，不对，是已经在格式化你的硬盘了~~~~ Run,https://www.xlboo.com/ } 查询结果数量=0 SB_SetParts(22,200,144) SB_SetText("正在查询~ 共找到：" . 查询结果数量 . "条结果!",2) SB_SetProgress(0,3,"show") StringReplace,待查询字串,待查询字串,，,`,,All 待查询字串数组:=StrSplit(待查询字串,",") 待查询字串数量:=待查询字串数组.MaxIndex() Loop,*.csv { File:=FileOpen(A_LoopFileLongPath,"r") Loop { Line:=File.ReadLine() Loop,%待查询字串数量% IfInString,Line,% 待查询字串数组[A_Index] { 查询结果数量++ SB_SetText("正在查询~ 共找到：" . 查询结果数量 . "条结果!",2) arr:=StrSplit(Line,",") If (显示完整信息=1) 模版:="姓名：" . arr[1] . "`r`nCardNo：" . arr[2] . "`r`n备注：" . arr[3] . "`r`n证件类型：" . arr[4] . "`r`n证件号：" . arr[5] . "`r`n性别：" . arr[6] . "`r`n生日：" . arr[7] . "`r`n地址：" . arr[8] . "`r`nZip：" . arr[9] . "`r`nDirty：" . arr[10] . "`r`nDistrict1：" . arr[11] . "`r`nDistrict2：" . arr[12] . "`r`nDistrict3：" . arr[13] . "`r`nDistrict4：" . arr[14] . "`r`nDistrict5：" . arr[15] . "`r`nDistrict6：" . arr[16] . "`r`n名：" . arr[17] . "`r`n姓：" . arr[18] . "`r`nDuty：" . arr[19] . "`r`n手机：" . arr[20] . "`r`n电话：" . arr[21] . "`r`n传真：" . arr[22] . "`r`n邮箱：" . arr[23] . "`r`n民族：" . arr[24] . "`r`nTaste：" . arr[25] . "`r`nEducation：" . arr[26] . "`r`n公司：" . arr[27] . "`r`n公司电话：" . arr[28] . "`r`n公司地址：" . arr[29] . "`r`nCzip：" . arr[30] . "`r`n家庭：" . arr[31] . "`r`nVersion：" . arr[32] . "`r`nid：" . arr[33] Else 模版:="姓名：" . arr[1] . "`r`n证件号：" . arr[5] . "`r`n地址：" . arr[8] . "`r`n手机：" . arr[20] . "`r`n邮箱：" . arr[23] 查询结果:=查询结果 . 模版 . "`r`n`r`n`r`n" If (查询过程中不显示=0) MsgBox, 4160, 查询成功, %模版% Continue } If (File.AtEOF<>0) Break } File.Close() SB_SetProgress("+9.5",3) } SB_SetProgress(0,3,"hide") SB_SetParts(22,350) SB_SetText("查询完毕! 共找到：" . 查询结果数量 . "条结果!",2) FileAppend,%查询结果%,查询结果.txt Run,查询结果.txt Return WM_LBUTTONDOWN() { If (A_GuiControl="状态栏") Run,https://www.xlboo.com/ } WM_MOUSEMOVE() { If (A_GuiControl="状态栏") DllCall("SetCursor","UInt",手型光标) } SB_SetProgress(Value=0,Seg=1,Ops="") { Static SB_GETRECT := 0x40a , SB_GETPARTS := 0x406 , SB_PROGRESS , PBM_SETPOS := 0x402 , PBM_SETRANGE32 := 0x406 , PBM_SETBARCOLOR := 0x409 , PBM_SETBKCOLOR := 0x2001 , dwStyle := 0x50000001 Gui,+LastFound ControlGet,hwndBar,hWnd,,msctls_statusbar321 If (!StrLen(hwndBar)) { rErrorLevel := "FAIL: No StatusBar Control" } Else If (Seg<=0) { rErrorLevel := "FAIL: Wrong Segment Parameter" } Else If (Seg>0) { SendMessage, SB_GETPARTS, 0, 0,, ahk_id %hwndBar% SB_Parts := ErrorLevel - 1 If ((SB_Parts!=0) && (SB_Parts<seg)) {="" rerrorlevel="" :="FAIL: Wrong Segment Count" }="" else="" if="" (sb_parts)="" varsetcapacity(rect,16,0)="" sendmessage,sb_getrect,seg-1,&rect,,ahk_id="" %hwndbar%="" errorlevel="" loop,4="" n%a_index%="" n1="" controlgetpos,,,n3,n4,,ahk_id="" (instr(sb_progress,":"="" seg="" ":"))="" hwndprog="" hwndbar="" "\:"="" "\:(?p<hwnd="">([^,]+|.+))",p)) ? phWnd : } Else { If (RegExMatch(Ops,"i)-smooth")) dwStyle ^= 0x1 hWndProg := DllCall("CreateWindowEx","uint",0,"str","msctls_Progress32" ,"uint",0,"uint", dwStyle ,"int",0,"int",0,"int",0,"int",0 ,"uint",DllCall("GetAncestor","uInt",hwndBar,"uInt",1) ,"uint",0,"uint",0,"uint",0) SB_Progress .= (StrLen(SB_Progress) ? "," : "") hwndBar ":" Seg ":" hWndProg } Black:=0x000000,Green:=0x008000,Silver:=0xC0C0C0,Lime:=0x00FF00,Gray:=0x808080 Olive:=0x808000,White:=0xFFFFFF,Yellow:=0xFFFF00,Maroon:=0x800000,Navy:=0x000080 Red:=0xFF0000,Blue:=0x0000FF,Fuchsia:=0xFF00FF,Aqua:=0x00FFFF If (RegExMatch(ops,"i)\bBackground(?P[a-z0-9]+)\b",bg)) { If ((StrLen(bgC)=6)&&(RegExMatch(bgC,"i)([0-9a-f]{6})"))) bgC := "0x" bgC Else If !(RegExMatch(bgC,"i)^0x([0-9a-f]{1,6})")) bgC := %bgC% If (bgC+0!="") SendMessage, PBM_SETBKCOLOR, 0 , ((bgC&255)<<16)+(((bgC>>8)&255)<<8)+(bgC>>16) ,, ahk_id %hwndProg% } If (RegExMatch(ops,"i)\bc(?P[a-z0-9]+)\b",fg)) { If ((StrLen(fgC)=6)&&(RegExMatch(fgC,"i)([0-9a-f]{6})"))) fgC := "0x" fgC Else If !(RegExMatch(fgC,"i)^0x([0-9a-f]{1,6})")) fgC := %fgC% If (fgC+0!="") SendMessage, PBM_SETBARCOLOR, 0 , ((fgC&255)<<16)+(((fgC>>8)&255)<<8)+(fgC>>16) ,, ahk_id %hwndProg% } If ((RegExMatch(ops,"i)(?P[^ ])?range((?P\-?\d+)\-(?P\-?\d+))?",r)) && (rIn!="-") && (rHi>rLo)) { SendMessage,0x406,rLo,rHi,,ahk_id %hWndProg% } Else If ((rIn="-") || (rLo>rHi)) { SendMessage,0x406,0,100,,ahk_id %hWndProg% } If (RegExMatch(ops,"i)\bEnable\b")) Control, Enable,,, ahk_id %hWndProg% If (RegExMatch(ops,"i)\bDisable\b")) Control, Disable,,, ahk_id %hWndProg% If (RegExMatch(ops,"i)\bHide\b")) Control, Hide,,, ahk_id %hWndProg% If (RegExMatch(ops,"i)\bShow\b")) Control, Show,,, ahk_id %hWndProg% ControlGetPos,xb,yb,,,,ahk_id %hwndBar% ControlMove,,xb+n1,yb+n2,n3-n1,n4-n2,ahk_id %hwndProg% SendMessage,PBM_SETPOS,value,0,,ahk_id %hWndProg% } } If (RegExMatch(rErrorLevel,"^FAIL")) { ErrorLevel := rErrorLevel Return -1 } Else Return hWndProg } |
源码下载：[download id=”11″]
