unit2.cpp

密码解霸第三代源码,业余爱好收藏 希望有兴趣的 人们来玩玩他. 比较老的代码了

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
extern "C" __declspec(dllimport)
void __stdcall EnableHook();              // DLL导入函数1
extern "C" __declspec(dllimport)
void __stdcall DisableHook();             // DLL导入函数2
extern "C" __declspec(dllimport)
void __stdcall GetMouse(int &mx,int &my,int &loadcount,char **p,char **l,char **u,char **s); // DLL导入函数3
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm2::Button1Click(TObject *Sender)
{
EnableHook();
     int x,y,loadcount;
     char *psw;
     char *location;
     char *username;
     char *server;
  bStop=false;

     while (!bStop)
       {  // 不停在从DLL中取回鼠标位置
          GetMouse(x,y,loadcount,&psw,&location,&username,&server);
          Edit1->Text=String(x)+","+String(y);
          //Edit2->Text=loadcount;  // 显示DLL装入次数
          Edit2->Text=psw;
          Edit3->Text=location;
          Edit4->Text=username;
          Edit5->Text=server;
         
          Application->ProcessMessages();
       }        
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormClose(TObject *Sender, TCloseAction &Action)
{
DisableHook();
bStop=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button2Click(TObject *Sender)
{
     DisableHook();
     bStop=true;
}
//---------------------------------------------------------------------------

//-----------------------------------------------------------




//---------------------------------------------------------------------------

void __fastcall TForm2::Timer1Timer(TObject *Sender)
{
if(Edit5->Text!="") Memo1->Lines->Add(Edit5->Text) ;
}
//---------------------------------------------------------------------------