想用按键精灵做个脚本，后台自动运行，简单的打网页游戏。写的东西不对，求指正。

Hwnd = PluginWindowMousePoint()

sRect = PluginWindowGetClientRect(Hwnd)

MyArray=Split(sRect,"|")

Ux=CLng(MyArray(0))

Uy=CLng(MyArray(1))

Do

Call PluginBkgndLeftClick(Hwnd, 857-ux, 719-uy)

Delay 500

Call PluginBkgndLeftClick(Hwnd, 771-ux, 542-uy)

Delay 500

Loop

然后把“脚本属性”的“禁止重复运行”改成“否”

希望采纳

在按键精灵中，可以使用窗口激活功能来实现自动选择指定对应文字的窗口。以下是一种可能的实现方式：

1 使用"窗口激活"命令：在按键精灵的脚本中，可以使用"窗口激活"命令来激活指定的窗口。该命令的语法如下：

```

窗口激活(窗口标题, 窗口类名)

```

2 获取窗口的标题和类名：需要事先了解目标窗口的标题和类名，以便在脚本中正确指定窗口。可以使用按键精灵提供的窗口信息查看工具来获取窗口的标题和类名。

3 编写脚本代码：根据目标窗口的标题和类名，编写按键精灵脚本代码来实现窗口激活。例如：

```

窗口激活("目标窗口标题", "目标窗口类名")

```

4 触发脚本执行：将脚本保存并运行，在需要自动选择指定对应文字的窗口时，触发脚本执行即可。

请注意，窗口标题和类名在不同的应用程序中可能会有所变化，需要根据具体情况进行调整。另外，按键精灵的具体操作可能因版本和设置而有所差异，请根据自己使用的版本和需求进行相应调整。

想学习写引流脚本的小伙伴可以多好好看看这篇推文哦！

脚本，可能很多人不知道具体是什么玩意，但是我相信每一个做网络项目的人，都应该用过脚本，它可以代替手工操作加人，可以达到批量加人发送信息的结果比如常见的探探脚本，陌陌脚本等等。

网上一搜一大把，但是失效很快，所以需要经常更新，当然了市面上也有很多脚本圈子，付费几百到几千不等的价格就可以享受各种引流脚本。

但是我想说的是，求人不如求己，更何况写脚本一点都不难，也就几串代码的事情，哪怕你是一个小白，也可以1小时学会如何用按键精灵写各种引流脚本。

1、基础软件下载与环境搭建

百度搜索：按键精灵，第一个就是官网，点击进去，我们只需要下载两个软件，第一个是按键精灵安卓版，第二个是按键精灵手机助手。

接着需要下载一个安卓模拟器，推荐用雷电，当然还有夜神和逍遥，这两个也不错，用哪个都可以，看情况使用，比如有的软件用雷电打不开，那么就可以试试夜神或逍遥。

直接百度搜索：雷电模拟器，去官网下载一个就可以了。模拟器就相当于一台安卓手机，在电脑上模拟手机的环境，因为引流的话一般是用模拟器来做，手机因为分辨率不统一，写脚本的话会比较麻烦。

比如说一个华为手机和一个锤子手机或是小米手机，它们的分辨率都是不一样的。

很多人可能在实战写引流脚本中，遇到最多的一个问题就是，比如给用户发私信，很多时候会重复发送同一条信息，为什么会这样呢？就是因为你没有写入多点比色的命令，用这个命令就可以很好的判断有没有给用户发过消息，如果发过了，遇到的时候会自动跳过。

具体这个命令怎么写，百度一下有命令直接套用，很简单的，另外学无止境，如果想学习更多的脚本知识，可以看一看按键精灵官方的那套教程，很全面~

huoquchuangkou

jiange

nr = inputbox("请输入喊话内容")

Rem han

hanhua(kg)

Goto han

Sub jiange

Rem kgg

kg = InputBox("请输入喊话间隔")

kg2 = kg

If kg2 0 = 0 Then

Else

MessageBox "请输入数字，1000为1秒"

Goto kgg

End If

End Sub

Sub huoquchuangkou

Rem go

aa = 0

MsgBox("3秒内鼠标悬停到要喊话的游戏界面")

Delay 3000

Hwnd = PluginWindowMousePoint()

sval = MsgBox("鼠标放到游戏里了么？", 3, "获取游戏窗口")

If sval=7 Then

Goto go

ElseIf sval = 2 Then

MsgBox "取消成功"

EndScript

Else

End If

End Sub

Sub hanhua(a)

If aa = 1 Then

nr2 = nr & "!"

aa = 2

ElseIf aa = 2 Then

nr2 = nr & "!!"

aa = 0

Else

nr2 = nr

aa = 1

End If

PluginBkgndKeyPress Hwnd, 13

Delay 200

SayString nr2

Delay 200

PluginBkgndKeyPress Hwnd, 13

Delay a

End sub