Question

vb把文本框内的文字复制到 QQ聊天发送框里

问个问题 请问vb如何给按钮定义 把文本框内的文字复制到 QQ聊天发送框里 就做一个类似 qq消息自动发送的软件 急求啊

Answer 1

看看我的理解有错误没有：
你想将一个自定义的文本框中的内容通过qq聊天对话框发送发送出去，是这个意思吧？

如果你想通过程序自动完成这个操作的话，你需要将qq聊天对话框的句柄传给你的程序，然后将文本复制到这个句柄的窗口中，你还需要发送一个“回车”消息给聊天对话框，让聊天对话框将消息发送出去，总体来说，这样很麻烦。

给你一个建议，你可以控制鼠标，让鼠标模拟你的操作是最简单的了。
鼠标模拟过程：
1.选择文本框中的内容；
2.鼠标右键单击；
3.移动到复制菜单项，单击鼠标左键；
4.鼠标移动到聊天对话框粘贴文本；
5.鼠标点击发送。

追问

如何模拟鼠标？ 那还要更改鼠标位置什么的 不是更麻烦吗

追答

用程序控制鼠标位置和模拟鼠标点击你只要3个函数就可以完成了。
但是你要将文本框中的文本拷贝到聊天编辑框中去的话，你要做的事情会很多的：
你需要找到聊天对话框中的编辑框窗口，然后将文本设置到这个聊天编辑框中，最后是发送了，你还是需要模拟鼠标点击发送按钮或者向聊天框发送“回车”模拟来发送消息。
如果是鼠标模拟的话，只需要3个函数就可以了：
移动鼠标，鼠标左键点击，鼠标右键单击。
我这里有一段vc写的代码，你参考一下吧：

// 在指定位置点击鼠标
void CCursorDown::CursorDown(CPoint Point,BOOL CursorBool)
{
CPoint OldPoint;
if(!CursorBool)
GetCursorPos(&OldPoint);
SetCursorPos(Point.x,Point.y);
mouse_event(MOUSEEVENTF_LEFTDOWN,Point.x,Point.y,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,Point.x,Point.y,0,0);
// 鼠标回到原来的位置
SetCursorPos(OldPoint.x,OldPoint.y);
}

Answer 2

点一下字体，然后按右键，有个复制点一下就行了

追问

让它自动复制自动发送 然后循环 不是手动。、、。。。。