delphi 向窗体发送一个字符串_[按键精灵手机版教程]不用插件，也能后台发送消息...

金猪脚本(原飞猪脚本)以按键精灵教学为主,涉及UiBot，Python,Lua等脚本编程语言,教学包括全自动办公脚本,游戏辅助脚本,引流脚本,网页脚本,安卓脚本,IOS脚本,注册脚本,点赞脚本,阅读脚本以及网赚脚本等各个领域。想制作脚本和学习按键精灵的朋友可以添加按键精灵学习交流群:554127455 学习路上不再孤单,金猪脚本伴你一同成长.

今天，咱们天纵少侠06大大，给大家带来了一个API哦，不用插件，也能实现后台发送消息。通过调用API，把字符串分割成一个一个字符，发送到目标窗口。

快看看，少侠的秘密宝剑吧~~

---

API介绍：PostMessage

PostMessage是Windows API(应用程序接口) 中的一个常用函数，用于将一条消息放入到消息队列中。该函数将一个消息放入(寄送)到与指定窗口创建的线程相联系消息队列里，不等待线程处理消息就返回，是异步消息模式。

使用方法及参数：

声明：

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

复制代码

调用：

1. PostMessage hwnd, wMsg, wParam, lParam

复制代码

其中：hwnd是指目标窗体的句柄，wMsg这里使用参数&H102，代表直接发送字符串。wParam表示要发送的内容，lParam这里引用0。(当wMsg的参数为&H102的时候，最后一个参数lParam无效，故引用0即可)

---

不使用插件，发送消息的具体实现

1. //声明API
2. Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
3. //直接发送消息：通过将字符串分割成一个一个字符，发送到目标窗体
4. Function SendString(hwnd,str)
5. For i = 1 To Len(str)
6. PostMessage hwnd, &H102, ASC(Mid(Str,i,1)), 0
7. Next
8. End Function
9. //调用函数SendString
10. SendString 目标窗体句柄,"加入按键学院实战班，坐拥脚本江山与美人~~~"

复制代码

其中：关键的代码段为“PostMessage hwnd, &H102, ASC(Mid(Str,i,1)), 0”。“ASC(Mid(Str,i,1))”，先将字符串中字符一个一个取出，转化为ANSI值，传送到目标窗体。

---

通过窗口插件，也可以实现发送消息

按键精灵中自带的窗体插件：Find、Search、MousePoint等也可以实现查找窗口句柄，然后实现发送消息。大家如果感兴趣，也可以自己去试试哦~~

命令名称：Find 查找窗口命令功能：查找窗口类名或者标题命令参数：参数1 字符串型，窗口类名

参数2 字符串型，窗口标题返 回 值：整数型，窗口句柄脚本例子：

(8.x语法)Call RunApp("notepad.exe")

• Delay 1500 //0表示忽略

//下面这句是查找窗口类名("Notepad")或者标题(0),返回找到的句柄Hwnd

Hwnd = Plugin.Window.Find("Notepad