按键精灵---简单加密、发布

       

        按键精灵是一款模拟鼠标键盘动作的软件。通过简单的编程，按键精灵可以代替双手完成鼠标键盘的动作，不仅可以避免机械对着电脑进行相似的重复工作，更重要的是可以通过对屏幕特征进行判断，并以远快于人脑的速度进行相应操作。编写具有实际功能的文件称为脚本，常见的如自动申请QQ脚本、自动填写信息脚本、游戏脚本等等。

1、如何加密

获取对方电脑MAC地址，并对其加密，以实现软件防盗的功能

Dim aim_num
aim_num = "28221734"//改动此处，实现脚本独立化

//获取MAC地址
VBSBegin 
    Dim mac_adss, mac_16
    Dim i, mac_len
    Dim oAdapters, oAdapter
    Set oAdapters=GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=True")
    For Each oAdapter In oAdapters
    mac_adss=Replace(oAdapter.MACAddress, ":", "")
    next
VBSEnd

Dim m(12)
Dim n(4)
i = 1
j = 1
k = 2

For 12
    //拆分源码 
    m(i) = Mid(mac_adss, i, 1)
    //十六进制转十进制 
    If m(i) = "A" Then 
        m(i) = 10
    ElseIf m(i) = "B" Then
        m(i) = 11
    ElseIf m(i) = "C" Then
        m(i) = 12
    ElseIf m(i) = "D" Then
        m(i) = 13
    ElseIf m(i) = "E" Then
        m(i) = 14
    ElseIf m(i) = "F" Then
        m(i) = 15
    Else 
        m(i) = CInt(m(i))
    End If
    i = i + 1
Next

//加密算法
n(1) = m(1) + m(2) + m(3)
n(2) = m(4) + m(5) + m(6)
n(3) = m(7) + m(8) + m(9)
n(4) = m(10) + m(11) + m(12)

get_num = n(1)

For 3
    get_num =get_num & n(k)
    k = k + 1
Next
If get_num = aim_num Then
...//脚本核心内容

2、获得屏幕分辨率

在基于位置的操作时，为了增加普适性，获得屏幕分辨率并以相对位置作为基准的方法很重要

ScreenWidth = Plugin.Sys.GetScRX()
ScreenHeight = Plugin.Sys.GetScRY()

3、后台按键

后台按键必须先按下，延时后抬起，不能通过类似于前台直接按键的方法完成

Call Plugin.Bkgnd.RightDown(Hwnd, X, Y)
Delay 100 //按下时长
Call Plugin.Bkgnd.RightUp(Hwnd, X, Y)
Delay 100

4、小精灵发布

制作小精灵时要将自动去广告否掉，不然发布不了