C# 向其他程序中发送文字

直接用SendMessage(0X985072,0x000C,0,string)就可以了。。

声明:

[DllImport("user32.dll", EntryPoint="SendMessageA")]

public static extern int SendMessage (IntPtr hwnd, int wMsg,

int wParam, StringBuilder lParam)

一般来说在常用的 *** 作系统中有以下几种方式实现进程间通信

管道法（即把一个程序的输入和另一个程序的输出对接起来，实现方式根据自己使用编程语言的不同各异）

信号法，（利用 *** 作系统自带的信号 *** 作，让一个程序给另一个发信号....但是信号的种类有限，所以很少用

共享数据库，安装数据库软件，两个程序能访问同一个数据库，在数据库里放消息

共享网络端口，（可以理解成一个进程使用一个网络端口，另一个想跟他通信的时候就直接去访问这个端口

楼主的想法实现起来是非常复杂的. 因为QQ已经屏蔽了SendMessage函数, 要使用Hook才能写QQ尾巴. 而API Hook已经远远超出我的知识范围. 就算有高手写出来, 楼主也不一定能看得懂.

而且写这种程序, 还不如直接在某个地方事先输入好常用的语句字符, 然后用键盘复制粘贴(CtrlC CtrlV), 这样也很快捷. 而要写一个所有程序通用的这种输入程序, 还不如用紫光拼音输入法自造词句来得更快, 你说是不是?

-----------------我是分隔线-------------------------------

我写过, 不过代码不在手头上. 如果你要往WORD里写入东西, 那不是用SendMessage的, VB可以与WORD用接口连接, 用类方法实现这种功能. 如果要往记事本等写入文本, 才用SendMessage. 以下代码用于改变标题为"无标题 - 记事本"的记事本窗口的文本. 注意, 是设置, 而不是追加文本. 我忘了追加文本是用什么消息了. 抱歉.

Option Explicit

'取句柄.

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Any, ByVal lpsz1 As Any, ByVal lpsz2 As String) As Long

'发消息

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

'设置文本用的消息

Private Const WM_SETTEXT = &HC&

Private Sub Command1_Click()

Dim hWndWindow As Long

Dim hWndEdit As Long

'用FindWindow通过窗口标题取得窗口句柄

hWndWindow = FindWindow(vbNullString, "无标题 - 记事本")

'用findWindowEx通过窗口句柄取得文本框(即"edit")的句柄

hWndEdit = FindWindowEx(hWndWindow, vbNullString, "edit", vbNullString)

'用SendMessage向取得的文本框句柄发送WM_SETTEXT消息

SendMessage hWndEdit, WM_SETTEXT, 0, ByVal "中华人民共和国 Chinese"

End Sub

---