按键精灵-常用脚本命令汇集

//~~~~~~~~~~{[做后台的准备]}~~~~~~~~~~~

//下面,用标题名来找父窗口

Hwnd = Plugin.Window.Find(0, "无标题 - 记事本")

//下面,根据父窗口来找子窗口(找对了标题名才有效)

HwndEx = Plugin.Window.FindEx(Hwnd, 0, 0, 0)

//下面,用程序名来找父窗口

Hwnd = Plugin.Window.Find("Notepad", 0)

//下面,根据父窗口来找子窗口(找对了类名才有效)

Hwnd = Plugin.Window.FindEx(Hwnd, 0, "Edit", 0)

//~~~(也可以改指定程序的标题名来得来句柄)~~~

//下面,将指定程序名的标题名变为变量

Hwnd = Plugin.Window.Find("Notepad", 0)

//改变窗口标题

Call Plugin.Window.SetText(Hwnd,"AJJL")

//*********》之后可加第一种父子窗口就OK了《*********

//~~~如果以上都不行,只剩下最后一种方法~~~~

//下面,鼠标指向的程序定为Hwnd这个变量(不过一定要加标记,否则变为假后台)

hwnd=Plugin.Window.MousePoint()

Rem star

Goto star

//区域模糊找色

//(XY,是坐标)(后面的是句柄,左X,上Y,右X,下Y,16位颜色,找的方式,相似度)

XY = Plugin.Bkgnd.FindColorEx(Hwnd, 0, 0, 20, 20, "FFFFFF", 0, 0.9)

//将XY坐标变为变量,再折分成X坐标和Y坐标。

MyArray = Split(XY, "|")  

X = Clng(MyArray(0)): Y = Clng(MyArray(1))  

//后台判色

Color = Plugin.Bkgnd.GetPixelColor(hwndex,300,150)

If color = "020503" Then

//根据固定32位地址的值加红蓝(HP少于就。。。)

Val = Plugin.Memory.Read32Bit(Hwnd, &H400000)         //注意格式:符号&+字母H+8位地址

If clng(val)<=clng(HP)

//*********》经常用到的命令《***********

//自定义间隔时间

UserVar T=60 "设置间隔时间"

Delay T

//延时随机数

//(Randomize---初始化随机值)(rnd--随机)(100-200毫秒)

Randomize

Delay CInt(Rnd*100)+100

//百分比加红蓝     {变量/100*(满血的X坐标—0血的X坐标)+0血的X坐标,Y坐标,”颜色”,寻找方式}

IfColor lan/100*(257-94)+94,MY,"ffbe00",0 Then

//前台 定义变量按键

UserVar Var1=DropList{"关闭":""|"1键":"1"|"2键":"2"|"3键":"3"|"4键":"4"|"5键":"5"|"6键":"6"|"7键":"7"|"8键":"8"|"9键":"9"|"0键":"0"}=0 "设置第一种攻击键"

//后台 定义变量按键 UserVar Var1=DropList{"关闭":""|"1键":49|"2键":50|"3键":51|"4键":52|"5键":53|"6键":54|"7键":55|"8键":56|"9键":57|"0键":48}=0 "设置第一种攻击键

//定义变量数值 UserVar hong=50 "设定HP少到几%,自动吃红。"

//得出窗口的大小,从而得到坐标(左为L;右为R;上为T;下为B)

//  根据指定程序定出句柄

Hwnd = Plugin.Window.Find("Notepad", 0)

//得到整个窗口的大小

sRect = Plugin.Window.GetClientRect(Hwnd)

//开始分离坐标值

MyArray = Split(sRect, "|")  

L = Clng(MyArray(0)): T = Clng(MyArray(1)):R = Clng(MyArray(2)): B = Clng(MyArray(3))

//输入自定义文本

UserVar LF=60 "左范围值"

for i=1 to len(LF)

rr=mid(LF,i,1)

keypress rr,1

Next

//自动发言

UserVar WEZI="内容" "说话的内容"

Call Plugin.Window.SendString(Hwnd,WEZI)

//随机按键

//①

//(中文不用换)

For 100

    call 随机按某键()

    Delay 500

Next

Sub 随机按某键()

    Do

      按键码 = clng(7 * RND + 49)

//7表示有8个按键;49表示最低那个按码值

        Call Plugin.Msg.Tips(  按键码 )

    Loop While 按键码 >57 AND 按键码<48

//设如果按键超出范围不按键,重回出随机值

    KeyPress 按键码, 1

End sub

//②

String_Rnd = "12345678"

Randomize

Ret_Rnd = Int(len(String_Rnd)  * Rnd + 1)

Key_Rnd = Mid(String_Rnd, Ret_Rnd, 1)

TracePrint Key_Rnd

KeyPress Key_Rnd, 1

//③

//一次连续按键

a = "1234567890ABCDEFHIGKLMNOPQRSTUVWXYZ"

CS=8

//CS---按多少次按

For CS

Randomize

MyValue = Int((8 * Rnd) + 1)

//根据a,按顺序只输入到第8个位

KeyPress MID(A, MyValue, 1),1

Next

//随机鼠标点击

UserVar XY=0 "输入方法: X1,Y1|X2,Y2|X3,Y3|……"

sXY = Split(XY,"|")

For i = 0 To UBound(sXY)

MovX = Split(sXY(i), ",")(0)

MovY = Split(sXY(i), ",")(1)

    MoveTo MovX, MovY

Next

①一定秒数后执行命令

tt1=now : tt2 = now              //给TT1和TT2拿系统时间(秒)

Rem start

If second(tt2 - tt1) >= 5 Then              //T2-T1数大于5时执行下面

tt1=now : tt2=now         //清空时间,重新继续

Else

    tt2=now         //T1不变时,给T2拿系统时间

        Goto start

EndIf

②一定分钟后执行命令

LQ=now

主程序****

if DateDiff("s",LQ,now)>10*60

运行子程序

LQ=now

endif

循环

//颜色对比

Function 颜色相似对比(颜色A, 颜色B, 色偏差)

        While len(颜色A) < 6

                颜色A = "0" & 颜色A

        Wend

        While len(颜色B) < 6

                颜色B = "0" & 颜色B

        Wend

        //上面把两个颜色16进制码小于6位的变成6位数

        红A = cint("&h" & mid(颜色A, 5, 2)) : 绿A = cint("&h" & mid(颜色A, 3, 2)) : 蓝A = cint("&h" & mid(颜色A, 1, 2))

        红B = cint("&h" & mid(颜色B, 5, 2)) : 绿B = cint("&h" & mid(颜色B, 3, 2)) : 蓝B = cint("&h" & mid(颜色B, 1, 2))

        //上面是把6位16进制分解成”RGB“(红绿蓝),因为按键的颜色格式为“BBGGRR“(蓝绿红),所以红色是后两位蓝色是前两位中间两位是绿色

        //MsgBox 红A&" "&红B

        If (abs(红B-红A)<色偏差) and (abs(绿B-绿A)<色偏差) and (abs(蓝B-蓝A)<色偏差) then

        颜色相似对比 = true

        Else

        颜色相似对比 = false       

        End If

End Function

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

发表于

我来说两句

0 条评论
登录 后参与评论

相关文章

来自专栏菩提树下的杨过

silverlight如何在运行时用代码动态控制(或创建)动画

silverlight做一些复杂动画时,不可能所有的动画都事先用Blend之类的设计工具"画"好(或者在设计期就在vs里编好),很多时候我们希望在运行时能动态控...

19710
来自专栏阮一峰的网络日志

如何做到 jQuery-free?

jQuery是现在最流行的JavaScript工具库。 据统计,目前全世界57.3%的网站使用它。也就是说,10个网站里面,有6个使用jQuery。如果只考察使...

3134
来自专栏互联网开发者交流社区

最新jquery+easyui_api培训文档

1214
来自专栏HTML5学堂

点击块,让小块动起来 - 函数封装

上一期我们主要讲解JS逻辑和DOM的结合 - JS设置标签的内容和样式,它是实现页面交互效果的重要基础知识。如果想具体了解JS设置标签的内容和样式,可以回复“标...

31412
来自专栏黑泽君的专栏

day40_jQuery学习笔记_01

day01: jQuery基础 --> 选择器、属性和CSS、文档处理 day02: jQuery高级 --> 筛选、事件、效果(动画)、ajax

1042
来自专栏Nian糕的私人厨房

CSS 消除 inline-block 元素间的间隙

从上图的运行结果可以看到,添加 display: inline-block; 属性后,水平呈现的元素间产生了空隙,出现这一现象的本质是,HTML 中存在的空白符...

964
来自专栏xx_Cc的学习总结专栏

iOS-UITextField 全面解析iOS中UITextField 使用全面解析UITextField的代理方法通知UITextField 在storyboard 中设置属性

4926
来自专栏HT

基于 HTML5 Canvas 的 3D 模型列表贴图

少量图片对于我们赋值是没有什么难度,但是如果图片的量大的话,我们肯定希望能很直接地显示在界面上供我们使用,再就是排放的位置等等,这些都需要比较直观的操作,在实际...

26910
来自专栏游戏杂谈

DOM的事件模拟

只有根据DOM2级事件实现这些事件的浏览器才返回true,以非标准方式支持这些事件的浏览器会返回false;

1231
来自专栏Java帮帮-微信公众号-技术文章全总结

Web-第三天 JavaScript学习【悟空教程】

用户在提交表单时,需要对用户的填写的数据进行校验。本案例只对用户名、密码、确认密码和邮箱进行校验。

1401

扫码关注云+社区