怎么向其他程序的EDIT发送消息实现自动登录?在线等待!! ( 积分: 200 )

漠风 · 2005-09-02

一个程序,运行后出现用户和密码,还有一个<确定>按钮和<取消>按钮。如何用DELPHI编程实现自动输入用户名和密码，并向‘确定’按钮发送回车的消息？请各位大侠帮帮我！最好给出源码！

漠风 · 2005-09-02

一个程序,运行后出现用户和密码,还有一个<确定>按钮和<取消>按钮。如何用DELPHI编程实现自动输入用户名和密码，并向‘确定’按钮发送回车的消息？请各位大侠帮帮我！最好给出源码！

delphibbs_Lee · 2005-09-02

FindWindow找到登陆窗体的句柄，然后找子窗体(用户跟密码Edit)的句柄，然后发送消息 WM_Char最后再找确定的句柄发送回车，或者鼠标点击消息。 你也可以看看SendInput函数。

漠风 · 2005-09-02

太深奥了,请给出源码好吗?

江南大米 · 2005-09-02

findwindow查找窗口句柄，findwindowex查找控件句柄，用sendmessage发消息 以前一位DFW写的自动QQ发消息的程序： procedure TForm1.Timer1Timer(Sender: TObject); var mainhnd,sunhnd,fbuttonhandle:thandle; butff:string; begin butff:=edit1.Text ; mainhnd:=findwindow(nil,'对话模式'); if mainhnd<>0 then begin  sunhnd:=findwindowex(mainhnd,0,'RichEdit',nil);  fbuttonhandle:=findwindowex(mainhnd,0,'button','送讯息(&s)');  if sunhnd<>0 then   begin    sendmessage(sunhnd,wm_settext,20,lparam(butff));    SendMessage(FButtonHandle,WM_LBUTTONDOWN,0,0);    SendMessage(FButtonHandle,WM_LBUTTONUP,0,0);  end; end; end;

漠风 · 2005-09-03

上面的程序不行呀?怎么才能找到用户名和密码还有确定按钮的句柄呢?请列出源程序!

sbzldlb · 2005-09-03

var  p:TPoint; GetCursorPos(p) hand:=WindowFromPoint(p);

漠风 · 2005-09-03

详细一点好吗?能给出具体的源程序吗?

chenybin · 2005-09-04

看我回答的帖子，问题和你的一样， http://www.delphibbs.com/delphibbs/dispq.asp?lid=3180681 搞不定留下QQ，不过要记得结贴

漠风 · 2005-09-04

还是搞不定呀!主要是这个程序运动出现登录对话框后在任务栏中没有出现，你的程序对于在任务栏中出现的对话框都能起作用。怎么办呀？

lichengbin · 2005-09-05

用Spy++查看这些窗口的ClassName,Caption，然后FindWindow/FindWindowEx去查找，完了就是SetWindowText设置，和发送WM_COMMAND消息的事啦

漠风 · 2005-09-06

to lichengbin：   能详细点吗？列出源码好吗？

chenybin · 2005-09-06

嘿嘿，lichengbin没有测过吧，不能那样找的，而且找不到 下面是设置登录选项的代码，是从初学者1号那里拿来的 var  s1,s2,s3,s4:tHandle;  m:string; begin  m:='网吧模式';  s1:=findWindowEx(0,0,'#32770',nil);//QQ主窗体  s2:=getDlgItem(s1,324);//隐身  postMessage(s2,BM_setcheck,BST_CHECKED,0);  s3:=getDlgItem(s1,16021);//网吧模式  sendMessage(s3,CB_selectstring,-1,integer(pChar(m)));  s4:=getDlgItem(s1,16032);//按钮  sendMessage(s4,bm_click,0,0);   另外参考 void GetPasswd(HWND hWndlog) { HWND hWndCbo,hQqNum,hWndEdt; long nType; hWndCbo=GetDlgItem(hWndlog,138); //取得QQ号码输入框(组合框)句柄,138是该窗口ID hQqNum=GetWindow(hWndCbo,GW_CHILD);//由于窗口是CBS_DROPDOWN样式,因此它有一个EDIT子窗口,取得该EDIT句柄 GetWindowText(hQqNum,szQqNum,20);//取得QQ登录号码 hWndEdt = FindWindowEx(hWndlog, 0, "Edit", NULL);//取得QQ密码框句柄 nType = SendMessage(hWndEdt, EM_GETPASSWORDCHAR, 0, 0);//得到该密码框属性,用做取完密码后恢复该属性用 PostMessage( hWndEdt, EM_SETPASSWORDCHAR, 0, 0);//去除密码框密码属性 Sleep (100);//停止100毫秒,这点很重要 SendMessage (hWndEdt,WM_GETTEXT,255,(LPARAM)szPasswd);//取出QQ登录密码 PostMessage (hWndEdt,EM_SETPASSWORDCHAR,nType,0);//恢复QQ密码框属性 DialogBoxParam(hInstDLL, MAKEINTRESOURCE(IDD_DIALOG), NULL, (DLGPROC)ProcMain, 0);//显示结果 } http://dev.csdn.net/Develop/article/26%5C26112.shtm   http://www.delphibbs.com/delphibbs/dispq.asp?LID=3187036

lichengbin · 2005-09-06

嘿嘿，楼上又测试过什么哩？从别的地方COPY一段代码过来的吧[

] 1.楼主没说是QQ吧？ 2.楼主说的是其他程序中的EDIT，CB_selectstring这是对什么才能用的消息？ Spy++是分析提取登录窗口的类名、标题特征和EDIT的类名，然后用FindWindow/FindWindowEx来查找，不知道哪里有问题呢？ 你这玩意不是用的FindWindowEx找的？ s1:=findWindowEx(0,0,'#32770',nil);//QQ主窗体

chenybin · 2005-09-06

http://www.delphibbs.com/delphibbs/dispq.asp?LID=3187036   楼上的兄弟，非常感谢你的关注，一开始我也觉得很简单,但是测试过用FindWindowEx找不到。窗口句柄没有问题,但是用spy＋＋可以看到里面的Edit是找不到的，可以去看我回的那个帖子。还特意请教了初学者1号，告诉我怎么获得这个dlg数值。 俺说了俺是是抄的，没说是自己写的，而且还放了链接。 兄弟看帖这么马虎不行哦,冤枉好人啊[

][

]

lichengbin · 2005-09-06

怎么向其他程序的EDIT发送消息实现自动登录?在线等待!! 一个程序,运行后出现用户和密码,还有一个<确定>按钮和<取消>按钮。如何用DELPHI编程实现自动输入用户名和密码，并向‘确定’按钮发送回车的消息？请各位大侠帮帮我！最好给出源码！ 这是楼主的问题原文，难道是我语文学得太差，理解力太差？从头至尾，没发现跟QQ的登录有什么关系，跟你贴的 http://www.delphibbs.com/delphibbs/dispq.asp?LID=3187036 有什么关系 未必所有要登录的程序都跟QQ一样吧，常规的数据库程序的登录不就是直接Edit和Button组成的，难道它的窗体类名还是'#32770'不成？难道用FindWindow/FindWindowEx还会找不到？ 兄弟看帖这么马虎不行哦,冤枉好人啊[

][

]

chenybin · 2005-09-06

lichengbin误会了，我拿那个帖子的目的是初学者1号兄的回答，用它的方法可以找到那个DlgID，但是不知道为什么用FindWindowEx找不到，可能是我的类名写错了或者是Caption写错了，但是用Spy确实看不到，我用的是2005贺岁版，只能捕获QQ号码那个下拉框中的编辑框，和QQ号码这个Tab页，其他的都找不到，但是用初学者1号兄的方法可以找到 "QQ号码"这个Lable，“清除记录”等按钮，不知道为什么，引申出去，对我们自己也算多知道了一种软件保护的办法，我这方面知识比较匮乏，还往lichengbin大虾指点 下班以后放我自己的测试代码和按初学者1号兄弟的代码修改的代码

lichengbin · 2005-09-06

来自：chenybin, 时间：2005-9-4 1:21:44, ID：3190941 看我回答的帖子，问题和你的一样， 来自：lichengbin, 时间：2005-9-5 15:11:38, ID：3192324 | 编辑 用Spy++查看这些窗口的ClassName,Caption，然后FindWindow/FindWindowEx去查找，完了就是SetWindowText设置，和发送WM_COMMAND消息的事啦 来自：chenybin, 时间：2005-9-6 15:59:20, ID：3193809 嘿嘿，lichengbin没有测过吧，不能那样找的，而且找不到 我应该还没有看错你的话，误会你吧？[}

]

chenybin · 2005-09-06

我们还是不要吵了，帮忙解决问题吧，我用FindWindow找不到，不知道用什么办法来处理 蓝色部分是我的代码，红色部分是修改初学者1号的代码，不知道为什么我那样就搜索不下去了， unit Main; interface uses    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,    Dialogs, StdCtrls, ExtCtrls, DB, Grids, DBGrids; type    TForm1 = class(TForm)        Button1: TButton;        Button2: TButton;        Button3: TButton;        Timer1: TTimer;        DBGrid1: TDBGrid;        DataSource1: TDataSource;        Memo1: TMemo;        procedure Button1Click(Sender: TObject);        procedure Button2Click(Sender: TObject);        procedure Timer1Timer(Sender: TObject);        procedure Button3Click(Sender: TObject);    private        { Private declarations }        g_hNum, g_hPsw: THandle;        g_hProc, g_hKey: HHOOK;        function SetQQHook(hQQLogin: HWND): Boolean; stdcall;    public        { Public declarations }    end; var    Form1: TForm1; implementation {$R *.dfm} (*// 钩子过程，监视“登陆”的命令消息 function CallWndProc(nCode: Integer;wParam:  WPARAM ; lParam:LPARAM ): LRESULT;CALLBACK; { CWPSTRUCT *p = (CWPSTRUCT * )lParam;        // 捕获“登陆”按钮        if (p->message == WM_COMMAND && p->wParam ==16032)        //下面个函数是我在第四部分介绍-“处理密码”部分会仔细说明        //当用户点了登陆按钮，说明QQ号码和QQ密码已经填写完毕，当然可以去获得密码了        GetPasswrod();        return CallNextHookEx(g_hProc, nCode, wParam, lParam); } // 键盘钩子过程，监视“登陆”的热键消息 LRESULT CALLBACK KeyboardProc(int nCode, WPARAM wParam, LPARAM lParam) {   // 捕获热键消息，记录键盘的按键盘过程,pmsg是PMSG类型的，i是全局Static类型的   pmsg.wParam =wParam;   i++;   if (wParam == VK_RETURN) //用户使用键盘“回车”来登陆，用户用了回车后，就可以可以去获得密码了   GetPasswrod();   return CallNextHookEx(g_hKey, nCode, wParam, lParam); }  *) [blue]procedure TForm1.Button1Click(Sender: TObject); var    FHandle, YsHandle, DlmsHandle, DlHandle: THandle; begin    // 主窗口句柄    FHandle := FindWindow('#32770', nil);    if FHandle = 0 then Exit;    // 隐身    YsHandle := FindWindowEx(FHandle, 0, PChar('SysTabControl32'), PChar('Tab1'));    while YsHandle <> 0 do begin        //GetWindowText(YsHandle, PChar(sBuf), 255);        //YsHandle := FindWindowEx(FHandle, YsHandle, PChar('Button'), nil);        YsHandle := FindWindowEx(FHandle, YsHandle, PChar('Edit'), nil);// 没用，估计是因为类名错了，但是我又没办法获得类名        if YsHandle > 0 then            SendMessage(YsHandle, WM_SETTEXT, 0, Integer(PChar('aa')))    end;    {if CHandle = 0 then Exit;    // 登录模式    CHandle := FindWindowEx(FHandle, 0, PChar('ComboBox'), nil);    CHandle := FindWindowEx(FHandle, CHandle, PChar('Edit'), nil);    if CHandle = 0 then Exit;    CHandle := FindWindowEx(FHandle, CHandle, PChar('Edit'), nil);    if CHandle > 0 then        SendMessage(CHandle, WM_SETTEXT, 0, Integer(PChar('aa')))  } end;[/blue] [red]procedure TForm1.Button2Click(Sender: TObject); var    s1, s2, s3, s4: THandle;    m: string; begin    m := '网吧模式';    s1 := FindWindowEx(0, 0, '#32770', nil); //QQ主窗体    s2 := getDlgItem(s1, 324); //隐身    postMessage(s2, BM_setcheck, BST_CHECKED, 0);    s3 := getDlgItem(s1, 16021); //网吧模式    SendMessage(s3, CB_selectstring, -1, Integer(PChar(m)));    s4 := getDlgItem(s1, 16032); //按钮    SendMessage(s4, bm_click, 0, 0); end;[/red] function TForm1.SetQQHook(hQQLogin: HWND): Boolean; var    bRet: Boolean;    dwThreadID: DWORD; begin    //获得登陆框的句柄 end; (*    bRet := False;    if hQQLogin > 0 then begin        dwThreadID := GetWindowThreadProcessId(hQQLogin, nil); //这是什么意思？看MSDN        g_hNum := getDlgItem(hQQLogin, 138); //不同版本QQ，此处不一样！得到QQ号的子窗口句柄        g_hPsw := getDlgItem(hQQLogin, 180); //不同版本QQ，此处不一样！得到QQ密码的子窗口句柄        if (g_hNum = 0) or (g_hPsw = 0) then Exit;        // 分别键盘HOOK，和界面部分消息处理的HOOK        g_hProc := SetWindowsHookEx(WH_CALLWNDPROC, CallWndProc, g_hInstDLL, dwThreadID);        g_hKey := SetWindowsHookEx(WH_KEYBOARD, KeyboardProc, g_hInstDLL, dwThreadID);        bRet = (g_hProc <> nil) and (g_hKey <> NULL);    end    else begin        // 卸载钩子        bRet := UnhookWindowsHookEx(g_hProc)&& UnhookWindowsHookEx(g_hKey);        g_hProc := nil;        g_hKey := 0;        g_hNum := 0;        Return bRet;    end; end;*) procedure TForm1.Timer1Timer(Sender: TObject); begin    (*//处理WM_TIMER代码    if (!IsWindow(g_hQQLogin)) //判断g_hQQLogin是否是有效的窗口句柄    {    HWND hLogin=NULL;    g_hQQLogin = NULL;    SetQQHook(NULL);      //参数为NULL是卸载HOOK，参数为句柄是安装句柄    do    {    //利用FindWindowEx查找QQ登陆窗口，具体参数意思请查MSDN    g_hQQLogin=FindWindowEx(NULL,g_hQQLogin,"#32770",NULL);  //对话框的类都是#32770    //找到类名是#32770后，再在其窗体内找一个具有“  登录QQ”的BUTTON按纽    //这一句很关键，如果你的QQ登陆窗口上没有"  登录QQ"字样，那么获取密码将失败！    hLogin = FindWindowEx(g_hQQLogin, NULL, "Button", "  登录QQ"    }    while (g_hQQLogin ! = NULL && hLogin = = NULL); //直到找到指定的窗口，即：QQ登陆窗口    if (g_hQQLogin ! = NULL)        {     SetQQHook(g_hQQLogin);//安装HOOK，此函数在DLL文件中第二部分中介绍    }    }   *) end; [red]procedure TForm1.Button3Click(Sender: TObject); var    I: Integer;    tempHandle, QQHandle: THandle; begin    for I := 0 to 50000 do begin        QQHandle := FindWindowEx(0, 0, '#32770', nil);        tempHandle := getDlgItem(QQHandle, I);        if tempHandle <> 0 then begin            Memo1.Lines.Add(intToStr(I));            SendMessage(tempHandle, WM_SETTEXT, 0, Integer(PChar(intToStr(I))));            showWindow(I, SW_HIDE);            tempHandle := 0;        end;    end; end;[/red] end.

lichengbin · 2005-09-07

刚刚看了看QQ贺岁版的登录画面，如果你写个小程序，Timer中用WindowFromPoint、GetWindowThreadProcessID来取密码编辑框的句柄、进程ID、线程ID等，可以取到，没有问题的，所以用FindWindow应该可以找到的，Spy++找不到就不知道什么原因啦

怎么向其他程序的EDIT发送消息实现自动登录?在线等待!! ( 积分: 200 )

漠风

Unregistered / Unconfirmed

漠风

Unregistered / Unconfirmed

delphibbs_Lee

Unregistered / Unconfirmed

漠风

Unregistered / Unconfirmed

江南大米

Unregistered / Unconfirmed

漠风

Unregistered / Unconfirmed

sbzldlb

Unregistered / Unconfirmed

漠风

Unregistered / Unconfirmed

chenybin

Unregistered / Unconfirmed

漠风

Unregistered / Unconfirmed

lichengbin

Unregistered / Unconfirmed

漠风

Unregistered / Unconfirmed

chenybin

Unregistered / Unconfirmed

lichengbin

Unregistered / Unconfirmed

chenybin

Unregistered / Unconfirmed

lichengbin

Unregistered / Unconfirmed

chenybin

Unregistered / Unconfirmed

lichengbin

Unregistered / Unconfirmed

chenybin

Unregistered / Unconfirmed

lichengbin

Unregistered / Unconfirmed

Similar threads