按键精灵怎么随机生成1到12数字并且不重复

谢谢大神，还有想问下，每次随机得到的数字怎么按顺序按下键盘按键

你这里说的“键盘按键”不清楚，1-9可以按键，但是10，11，12怎么按？

简单的说，就是“键盘随机按键+不重复”
我写到这里就不会写了
Sub 随机技能
dim key(12),i
key(0) = 96
key(1) = 97
key(2) = 98
key(3) = 99
key(4) = 100
key(5) = 101
key(6) = 102
key(7) = 103
key(8) = 104
key(9) = 105
key(10) = 107
key(11) = 109
Randomize
i=int((12)*rnd)
KeyPress key(i), 1
End Sub

还在苦苦守着电脑，心急如焚看着血条越来越少，等着技能CD冷却然后放大招嘛……

想不想浪漫一把，博得基 友欢心，从此只爱你一人？ 

是不是想说，有DateDiff可以获取时间间隔嘛~~

小编今天给大家带来的，可不是这么简单的命令哦~

要么牛哄哄，要么软趴趴！

调取系统底层API

GetTickCount函数介绍：

GetTickCount返回（retrieve）从操作系统启动所经过（elapsed）的毫秒数，它的返回值是DWORD。

函数声明：

Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long

函数范例：计算当前时间和5秒后的时间差

// 获取当前时间

TheTime = GetTickCount()

// 延时 5 秒

Delay 5000

// 再次获取当前时间，计算时间差

TracePrint GetTickCount() - TheTime

运行结果：

2014-8-12 18:01 上传

下载附件 (119.7 KB) 

获取时间间隔：函数DateDiff与函数GetTickCount()对比

DateDiff只能获取到最小单位为：秒的数值

GetTickCount()可以获取到最小单位为：毫秒的数值

有时候，脚本的成败往往就在毫秒之间！

范例：等图找图大神代码

来看看大神提供的等图找图代码段吧~~

//声明函数GetTickCount

Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long

//找出多张图（hsz.bmp、jsj.bmp、ie.bmp）中的其中一张

TracePrint 找多图("hsz.bmp|jsj.bmp|ie.bmp") 

//延迟5000ms，等待图（hsz.bmp）

TracePrint 等图_毫秒("hsz.bmp",5000)

//延迟5000ms，等待多张图（hsz.bmp、jsj.bmp、ie.bmp）中的其中一张

TracePrint 等多图_毫秒("hsz.bmp|jsj.bmp|ie.bmp",5000) 

Function 找多图_数组(图像列表)

        找多图_数组 = 0

        For i = 0 To UBound(图像列表)

                FindPic 0, 0, Plugin.Sys.GetScRX - 1, Plugin.Sys.GetScRY - 1, "Attachment:\\" & 图像列表(i), 1, intX, intY

                If IntX >= 0 Then 

                        找多图_数组 = i + 1

                        Exit For

                End If

        Next

End Function

Function 找多图(图像)

        找多图 = 找多图_数组(split(图像,"|"))

End Function

Function 等图_毫秒(图片, 超时时间)// 利用两次 GetTickCount() 得到时间间隔（单位：毫秒）

        等图_毫秒 = TRUE

        开始时间 = GetTickCount()

        Do

                If GetTickCount() - 开始时间 > 超时时间 Then 等图_毫秒 = FALSE:Exit Do

                FindPic 0, 0, Plugin.Sys.GetScRX - 1, Plugin.Sys.GetScRY - 1, "Attachment:\\" & 图片, 1, intX, intY

        Loop Until IntX >= 0

End Function

Function 等多图_毫秒(图片, 超时时间)// 利用两次 GetTickCount() 得到时间间隔（单位：毫秒）

        开始时间 = GetTickCount()

        Do

                If GetTickCount() - 开始时间 > 超时时间 Then Exit Do

                等多图_毫秒 = 找多图(图片)

        Loop Until 等多图_毫秒

End Function

运行结果：