日期:2014-05-17 浏览次数:20933 次
1、准备Windows API,是用C#开发的,所以要准备C#封装的Windows API。可以到以下地址下载:
C#版封装的Windows API,简体版+增加版,源码
http://bmpj.net/forum-viewthread-tid-461-fromuid-13.html
2、定义保存QQ聊天窗体的对象类
???
internal class QQChatWindows { private IntPtr _WindowHwnd = IntPtr.Zero; public IntPtr WindowHwnd { get { return _WindowHwnd; } set { _WindowHwnd = value; } } private string _Caption = String.Empty; public string Caption { get { return _Caption; } set { _Caption = value; } } public QQChatWindows(IntPtr windowhwnd, string caption) { _WindowHwnd = windowhwnd; _Caption = caption; } }
3、遍历QQ聊天窗体
private void EnumQQChatWindows() { this.listQQWindows.Items.Clear(); this._QQListWindows.Clear(); NativeMethods.EnumDesktopWindows(IntPtr.Zero, new NativeMethods.EnumDesktopWindowsDelegate(EnumWindowsProc), IntPtr.Zero); } private bool EnumWindowsProc(IntPtr hWnd, uint lParam) { string qqproname = this.GetProcessName(hWnd); StringBuilder className = new StringBuilder(255 + 1); //ClassName 最长 NativeMethods.GetClassName(hWnd, className, className.Capacity); if (!qqproname.Equals(String.Empty) && qqproname.Equals("QQ") && className.ToString().Equals("TXGuiFoundation")) { StringBuilder caption = new StringBuilder(NativeMethods.GetWindowTextLength(hWnd) + 1); NativeMethods.GetWindowText(hWnd, caption, caption.Capacity); if (!caption.ToString().Equals(String.Empty) && !caption.ToString().Equals("TXFloatingWnd") && !caption.ToString().Equals("TXMenuWindow") && !caption.ToString().Equals("QQ2011")) { QQChatWindows qqchat = new QQChatWindows(hWnd, caption.ToString()); this._QQListWindows.Add(qqchat); this.listQQWindows.Items.Add(caption); } } return true; } public string GetProcessName(IntPtr hWnd) { try { string processname = String.Empty; int proid = 0; uint threadid = NativeMethods.GetWindowThreadProcessId(hWnd, out proid); if (threadid > 0 && proid > 0) { Process pro = Process.GetProcessById(proid); processname = pro.ProcessName; } return processname; } catch { return String.Empty; } }
4、循环自动发送QQ消息
????
private bool SendQQMsg(IntPtr hWnd, string qqcaption, string sendtext)
{
try
{
NativeMethods.ShowWindow(hWnd, NativeMethods.ShowWindowCommands.Normal);
NativeMethods.BringWindowToTop(hWnd);
SendKeys.SendWait(sendtext);
SendKeys.SendWait("^{ENTER}"); //CTRL+ENTER
return true;
}
catch
{
return false;
}
}
源码下载:
百木QQ信息自动发送器 源代码,大家可以完善!!
http://bmpj.net/forum-viewthread-tid-498-fromuid-13.html