VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > Python基础教程 >
  • C#教程之C#调用大漠插件,发送QQ和微信消息

 

大漠插件就不过多介绍了,不知道的请查下百度。主要是讲解C#怎么调用大漠插件。

大漠插件提供了COM版本,C#直接点击引用,添加即可。然后注册下大漠插件到系统文件夹,注册代码如下:

复制代码
 1      static string AutoRegCom(string strCmd)
 2         {
 3             string rInfo;
 4             try
 5             {
 6                 Process myProcess = new Process();
 7                 ProcessStartInfo myProcessStartInfo = new ProcessStartInfo("cmd.exe");
 8                 myProcessStartInfo.UseShellExecute = false;
 9                 myProcessStartInfo.CreateNoWindow = true;
10                 myProcessStartInfo.RedirectStandardOutput = true;
11                 myProcess.StartInfo = myProcessStartInfo;
12                 myProcessStartInfo.Arguments = "/c " + strCmd;
13                 myProcess.Start();
14                 StreamReader myStreamReader = myProcess.StandardOutput;
15                 rInfo = myStreamReader.ReadToEnd();
16                 myProcess.Close();
17                 rInfo = strCmd + "\r\n" + rInfo;
18                 return rInfo;
19             }
20             catch (Exception ex)
21             {
22                 return ex.Message;
23             }
24         }
复制代码

调用方法:

1             //注册大漠
2             var regResult = AutoRegCom("regsvr32 -s dm.dll");

实例化大漠模块:

private static dmsoft _dmsoft = new dmsoft();

查找微信和QQ的聊天窗口,根据窗口类名来进行模糊查找,然后得到窗口句柄,根据窗口句柄得到窗口的标题、类名信息(QQ聊天窗口的类名是:TXGuiFoundation,微信的聊天窗口类名是:ChatWnd):

复制代码
       var list = new List<int>();
            list.AddRange(_dmsoft.EnumWindow(0, "", "TXGuiFoundation", 18).Split(',').Where(x => !string.IsNullOrWhiteSpace(x)).Select(x => Convert.ToInt32(x)));
            list.AddRange(_dmsoft.EnumWindow(0, "", "ChatWnd", 18).Split(',').Where(x => !string.IsNullOrWhiteSpace(x)).Select(x => Convert.ToInt32(x)));
            windInfoBindingSource.DataSource = list.Select(x => new WindInfo()
            {
                Handle = x,
                ClassName = _dmsoft.GetWindowClass(x),
                Title = _dmsoft.GetWindowTitle(x),
            }).ToList();
复制代码

拿到窗口句柄剩下的事情就好办了。往窗口里面投递文本消息->模拟鼠标按键Enter发送消息。

复制代码
 1          foreach (var windInfo in w.Where(x => x.Enable))
 2                 {
 3                     _dmsoft.BindWindowEx(windInfo.Handle, "gdi", "windows", "windows", "", 0);
 4                     Thread.Sleep(50);
 5                     _dmsoft.SetWindowState(windInfo.Handle, 1);
 6                     _dmsoft.SetWindowState(windInfo.Handle, 8);
 7                     Thread.Sleep(50);
 8                     _dmsoft.SendString2(windInfo.Handle, content);
 9                     Thread.Sleep(200);
10                     _dmsoft.KeyDown(13);
11                     _dmsoft.KeyUp(13);
12                     _dmsoft.SetWindowState(windInfo.Handle, 9);
13                     _dmsoft.SetWindowState(windInfo.Handle, 2);
14                     _dmsoft.UnBindWindow();
15                 }
复制代码

1、通过 BindWindowEx 方法绑定窗口

2、通过 SetWindowState 设置窗口为正常模拟并且设置窗口为激活状态(为了获取到输入焦点) 

3、SendString发送文本到窗口,因为目前窗口已经获取到输入焦点,所以直接投递文本即可

4、模拟按键 Enter ,Enter键在大漠模块里面的虚拟键代码是13,模拟进行按下和弹起的操作,因为大漠模块里面默认设置了按下和弹起操作的间隔时间,所以这里我们不需要再次设置。

5、通过 SetWindowState 设置窗口为取消激活状态,并且设置窗口最小化

6、解绑窗口

大漠插件从3.1235开始进行收费,我使用的是 3.1233 版本免费版的,大漠插件下载地址我也打包了,包含了官方的帮助文档:

链接: https://pan.baidu.com/s/1VJRdpl3scsLxbpxFAWZ_5A 提取码: mu25 



相关教程