按键精灵手机版4个坐标随机点击一个，求代码

晕，那个太麻烦了。你直接去用“无敌点击狗”这种图形化界面 *** 作软件就行，上边有现成的自动点击，随机点击，还有按键模拟，自动录入等。通过无敌点击狗能完成各种复杂的办公自动化，自动点击按键功能。

你这里提到的“自动按下键盘这几个键”，是不是按顺序依次按下，我就当依次按下处理。

Dim RndNum(11)
Dim n, i, m, Result
 
'初始化数组
For i = 0 To 11
    RndNum(i) = 0
Next
 
'生成1-12随机数
n = 0
Randomize
RndNum(0) = Int(12  Rnd + 1)
While n < 11
    Result = 0  '随机数重复标志，0表示不重复，1表示重复
    Randomize
    m = Int(12  Rnd)
    'For循环判断生成随机数是否和前面重复
    For i = 0 To n
        If m = RndNum(i) Then 
            Result = 1
        End If
    Next
     
     If Result = 0 Then 
        n = n + 1
        RndNum(n) = m
    End If
Wend
'把随机数转换成按键
For i = 0 To 11
'MessageBox RndNum(i)
If RndNum(i) = 10 Then 
RndNum(i) = 107
ElseIf RndNum(i) = 11 Then
RndNum(i) = 109
Else 
RndNum(i) = RndNum(i) + 96
End If
Next
'数组RndNum存放结果，下面这一句是查看按键ASCII码的
MessageBox Join(RndNum, "|")
'依次按键
For i = 0 To 11
KeyPress RndNum(i), 1
Next

下面是用记事本测试四次的结果：

要想学好编程，首先要学算法，你这里做不出来，很明显是算法不会。

简单的解决方法是把需要在按下按钮后执行的那一段脚本复制粘贴到按钮点击事件代码中，首先在界面中增加按钮，并且在脚本属性中的“其他”——“设置界面”中，选择“使用按键精灵设置界面”，演示代码如下：
Rem 代码第一部分
MessageBox "执行代码1"
Rem 代码第二部分
MessageBox "执行代码2"
Event Form1Button1Click
Rem 代码第二部分
MessageBox "执行代码2"
End Event

按键精灵常用功能－详细解说[1]－键盘动作－4个功能
(1)单个按键的模拟－模拟键盘的单个按键动作，可以是按1下、按住不动、d起来等3种形式，可以根据自己的需要，设定执行次数。
(2)按键组合的模拟－模拟按键组合，比如ctrl＋shift＋G之类的，但是不能G＋H 这样子哦，那要需要的时候怎么模拟G＋H呢？使用(1)功能－按下G，再按下H，就等于G＋H了嘛~~~（不同步？哦，计算机的反映速度是很快的！）
(3)脚本暂停按任意键继续功能－这里可以设置一个变量，用来表示可能是哪个按键，比如设置了变量key，当key这个变量变动的时候比如key＝49的时候，表示按1就能使脚本继续那么怎么知道哪个数字对应是哪个按键？请看(4)的功能。
(4)得到按键码－在左边的空白输入一个按键，右边就显示出相应的按键码哦。有一些特殊的按键码是多少呢？可以去下载个ASCII码表看看。
举例：打开一个记事本，光标停空白处，按1下你设定的快捷键开始执行你设计的脚本
Rem rem只是注释语句，可以做标记或解释用途。
Rem rem这一行，不会有功能，比如：KeyPress 49 10
Rem 按1键10次，换行
KeyPress 49 10
KeyPress 13 1
Rem 按下1键不动，2秒后d起，换行
KeyDown 49 1
Rem 延时2000毫秒
Delay 2000
KeyUp 49 1
KeyPress 13 1
Rem 按shift＋1组合键，换行
KeyDown 16 1
KeyPress 49 1
KeyUp 16 1
KeyPress 13 1
Rem 提示后，等待任意键继续
SayExpression "请按任意键继续吧。"
KeyPress 13 1
Rem 等待任意键继续
WaitKey
Rem 提示后，等待空格键继续
SayExpression "让我们继续，这次按空格才能继续。"
KeyPress 13 1
Rem 等待space空格键继续
WaitKey Pkey
If Pkey<>32
SayExpression "按空格才能继续！"
KeyPress 13 1
Goto 等待space空格键继续
Else
KeyPress 13 1
SayExpression "好的，演示完成了。"
EndIf
Delay 1000
VBSCall CALL MessageBox("演示完成。")
EndScript
以上脚本的疑问：
1rem－是解释和标记用的，可以让自己思路更有条理和设置方便的跳转goto功能。
2goto－是表示跳转，后面跟标记。例：“goto 等待space空格键继续” 就是说，跳转到标记了“等待space空格键继续”的地方，和rem配合使用。注意：有2个相同标记的时候，会依次跳转哦！可能就跳不到你想的位置了~~~所以请别使用相同的标记！！
3delay－表示此处须延时等待，后面的数值单位是毫秒ms，1000表示1000毫秒，也就是1秒啦。
4SayExpression ""－输出引号内的字符内容，引号里面有什么就输出什么。注意：前提是鼠标光标要停在可以输出字符的地方哦~~~！
5VBSCall CALL MessageBox()－d出一个窗，内容是括号内的东西，可以是""里面的字符串，也可以是常量或变量。
6EndScript－表示脚本结束。
7为什么按下1键后，没有一直输出“1”？2秒后d起1键，总共才输出1个“1”？－在记事本程序，如果一直按住1键，就会连续输出“1”，但是记事本是怎么处理“按住1键”的？这和按键精灵的KeyDown有点不同哦。其实，“按住”、“d起”通常都用于组合键中，比如按下Ctrl、Shift、Alt之类的
8为什么等待按键继续的时候，按键的字符也会出现呢？－因为按键精灵是独立于其它程序执行的，就是说按键精灵在运行，记事本本身也在运行，而按键精灵并没有阻止或完全控制记事本的运行也就是说，按下某个键的同时，既在执行按键精灵的脚本，也在执行某程序本身（按键精灵 *** 作对象的只是显示出来的屏幕画面本身）

1、打开手机上的按键精灵，和电脑版一样，有两种编写脚本的办法，一种是录制脚本，另一种是直接编写代码。

2、录制脚本：录制脚本属于按键精灵最简单的编写办法，点击页面上的录制脚本，进入录制脚本的界面，点击中间的马上录制。

3、然后退出按键精灵，转到你要录制脚本的界面，按下音量+键，接着开始 *** 作，速度快一点，以后运行脚本也会快一些，录制完成后，点击音量-键。即可录制完成，完成后，输入脚本名字。就可以在我的录制脚本下看到已经录制好的脚本了。

4、编写脚本：点击第二个开发者脚本，里面自带了一些脚本，要新建脚本的话，点击左上角的新建。

5、就进入脚本的编写界面了，右侧有常用的命令。比如长按屏幕的某个位置，输入所需要按住某点的位置和按住的时间，然后确定，即可插入命令。

---