怎么没人回答阿，简单的问题啊。。。(50分)

hazf2008 · 2006-10-26

如何从进程名知道窗体句柄和进程ID啊？ 比如获得QQ宠物的句柄。。。 谢谢各位。。。

hazf2008 · 2006-10-26

怎么没人回答阿，简单的问题啊。。。

xinxinhg · 2006-10-26

findwindow

yanzhaozhizi · 2006-10-26

var Wnd: HWND;       Wnd := FindWindow(nil, 窗体Caption标题);

shang_rich · 2006-10-26

hw: HWND;  pid: dword;  h: THandle;  tt: Cardinal; begin   hw:=FindWindow(nil,'进程名或窗口名');    ///    if hw = 0 then                            ///       获得句柄ID      Exit;                                  ///    GetWindowThreadProcessId(hw, @pid);                  ///    h := OpenProcess(PROCESS_ALL_ACCESS, false, pid);    ///    if h = 0 then                                        ///打开句柄      Exit; end; 我只知道这么点,希望可以帮到你,另外我的ID不能提问,要二天后,借你的地盘问个问题, 不好意思!~ 我要做一个(热血江湖)会加自动加血加蓝的外挂, 具体代码如下: unit Mainf; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ComCtrls,StdCtrls, ExtCtrls; type  TMainForm = class(TForm)    TimerSM: TTimer;    TimerNG: TTimer;    TimerJN: TTimer;    CheckBoxSM: TCheckBox;    CheckBoxNG: TCheckBox;    EditSM: TEdit;    EditNG: TEdit;    CheckBoxJN: TCheckBox;    Button1: TButton;    Button2: TButton;    Label1:TLabel;    procedure CheckBoxSMClick(Sender: TObject);    procedure TimerSMTimer(Sender: TObject);    procedure Button2Click(Sender: TObject);    procedure Button1Click(Sender: TObject);    procedure CheckBoxNGClick(Sender: TObject);    procedure TimerNGTimer(Sender: TObject);    procedure CheckBoxJNClick(Sender: TObject);    procedure TimerJNTimer(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; const  SHENGMING: dword = $01453318; //红  NEIGONG: dword = $0145331C; // 蓝 var  MainForm: TMainForm;  hw: HWND;  pid: dword;//游戏句柄ID  h: THandle;//游戏句柄  tt: Cardinal;  procedure KeyF2;//按键  procedure KeyF3;  procedure KeyF4; implementation {$R *.dfm} procedure TMainForm.Button1Click(Sender: TObject); begin  if  h = 0 then //如果句柄没打开   begin    hw:=FindWindow(nil,'YB_OnlineClient');    ///    if hw = 0 then          ///       获得句柄ID      Exit;          ///    GetWindowThreadProcessId(hw, @pid);          ///    h := OpenProcess(PROCESS_ALL_ACCESS, false, pid);    ///    if h = 0 then          ///打开句柄      Exit;          ///   end;  TimerNG.Interval := 1000 div trunc(5);  TimerSM.Interval := 1000 div trunc(5);  TimerJN.Interval := 1000 div trunc(2);///每秒钟运行次数 end; procedure TMainForm.CheckBoxSMClick(Sender: TObject); begin   if CheckBoxSM.Checked then  //控制Timer是否运行    begin     EditSM.Enabled := false;     TimerSM.Enabled := true;    end   else    begin     EditSM.Enabled := true;     TimerSM.Enabled := false;  end; end; procedure TMainForm.TimerSMTimer(Sender: TObject); var  Sm: integer; // tt: DWORD; begin  ReadProcessMemory(h,pointer( SHENGMING), @Sm,sizeof(Sm), tt); //扫描内存数据    if ((Sm <= StrToInt(EditSM.Text))and(Sm<>0)) and (h<>0) then //如果血量值少于设定值并且不等于0     begin        KeyF3;     //按F3键     Label1.Caption :='F3运行中';     end; end; procedure KeyF2; begin   keybd_event(VK_F2,mapvirtualkey(VK_F2,0),0,0);   keybd_event(VK_F2,mapvirtualkey(VK_F2,0),keyeventf_keyup,0);//按F2键 end; procedure KeyF3; begin   keybd_event(VK_F3,mapvirtualkey(VK_F3,0),0,0);   keybd_event(VK_F3,mapvirtualkey(VK_F3,0),keyeventf_keyup,0);//按F3键 end; procedure KeyF4; begin   keybd_event(VK_F4,mapvirtualkey(VK_F4,0),0,0);   keybd_event(VK_F4,mapvirtualkey(VK_F4,0),keyeventf_keyup,0);//按F4键 end; procedure TMainForm.Button2Click(Sender: TObject); begin  if h <> 0 then   begin    MessageBeep(0);    CloseHandle(h);   end;   close; end; end. 没有进游戏时,Label没有反应, 进入游戏了,按下按钮,当血量少于设定值时Label改变,说明Timer在运行, 可是游戏里不会自动加血,于是我改变了一下按键,把F3改成了F4, 游戏里还是没有反应,但我切到外挂窗口,按一下Alt键,外挂窗口关闭, 由此证明模拟键盘F4键一直进行中 后来我又换了一个模拟键盘的方法, 改变如下: procedure KeyF3; begin   PostMessage(Application.Handle, WM_KEYDOWN, VK_F4, 0);   PostMessage(Application.Handle, WM_KEYUP, VK_F4, 0); end; 和 procedure KeyF3; begin   PostMessage(h, WM_KEYDOWN, VK_F4, 0);   PostMessage(h, WM_KEYUP, VK_F4, 0); end; 在游戏里还是没有反应,并且外挂窗口也没有反应了,但是Label标签改变 由是我再改成 procedure KeyF3; begin   PostMessage(h, WM_KEYDOWN, VK_F4, 0);   PostMessage(h, WM_KEYUP, VK_F4, 0);   setcursorpos(500,400);   mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);   mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0); end; 这时鼠标在游戏里点击正常,键盘没有反应 在此麻烦大侠帮下忙,找下问题所在, 或再给几个模拟键盘的方法 非常感谢!!!!!

怎么没人回答阿，简单的问题啊。。。(50分)

hazf2008

Unregistered / Unconfirmed

hazf2008

Unregistered / Unconfirmed

xinxinhg

Unregistered / Unconfirmed

yanzhaozhizi

Unregistered / Unconfirmed

shang_rich

Unregistered / Unconfirmed

Similar threads