创新路
我们一直在努力

按键之Q语言第一章

按键之Q语言第一章

  今天是2017年的第二个季度的第一章,咱们也学了这么久的按键了,基础的也大致的也讲过了,这次咱们要开始接触按键的语言方面的解读了,既然是开始接触语言了,肯定是比较乏味的,不过呢,我一直有我自己的方法让其变得不枯燥,那么首先看看这节课我们要干些什么呢?

上传一个视频,关于这节课用按键程序要写什么?

如左边视频所示,咱们就是要做两个对话框弹球的效果,让他们像屏保一样在咱们屏幕里面弹球,虽然没什么意义,不过这是咱们理解按键中程序是怎么设计的奠定基础,等你学好了,咱们就可以给各种游戏写辅助了,想必大家玩过游戏的,都知道有辅助有外挂,当然外挂这个现在不透露出来,毕竟这会涉及内存,涉及封包,这些都要有一定程序理解才能去解密修改制作外挂的,所以这里我们就给大家先实现做辅助,后期才做外挂,当然有个重要提示,外挂有风险,入行需谨慎,好了,废话不多说!


  咱们开始讲思路,大家看我是用的两个记事本作为弹球的,这里呢,可以使用任何程序来代替,当然可以用QQ,可以用文档,也可以用我们公司的ERP,也可以用百度HI,等等,只要是电脑里所安装的都可以作为弹球,为了简单,这里我就用记事本来做首发了,所以这里首先就是要运行两个记事本,然后把记事本的对话框调整大小,获取窗口句柄,然后在对话框里面后台输入文字,然后就要开始定义变量了,定义变量了过后就要开始用函数来解决随机出现的问题,然后就要开始做流程的详细安排,数据的录入,定义移动速度,获取屏幕坐标,然后后面就全是逻辑上面的分析了,因为逻辑性比较强,可能会比较晕,大家可以反复阅读然后弄懂后,你就不会觉得咱们这节课无聊枯燥了,因为我们其实正在做的就是让自己常用的程序在桌面实现动态,当我们要用某个程序的时候,鼠标一点,就会停止当前程序弹球变成你要操作的窗口,其他弹球继续在你要操作的窗口后面弹,当你不用当前窗口后,他又会退回到后台继续弹球,是不是想想就有点小激动呢,哈哈,这是后话了,今天你所学的,还不能实现后期多个动态弹球,万事一步步来,等你们消化好了,我就会放出后面的程序,让自己的电脑变成不一样的烟火,废话不多说,来代码!

RunApp "notepad"                                这里就是运行记事本的代码

RunApp "notepad"

Delay 2000

窗口1 = Plugin.Window.Find(0, "无标题 – 记事本")           这里是获取窗口句柄

Call Plugin.Window.SetText(窗口1, "第一弹球")              改名窗口

Call Plugin.Window.SendString(窗口1, "那个龟儿动我电脑")      窗口内输入文本

Delay 2000

窗口2 = Plugin.Window.Find(0, "无标题 – 记事本")

Call Plugin.Window.SetText(窗口2, "第二弹球")

Call Plugin.Window.SendString(窗口2, "再动我电脑打死你")

Call Plugin.Window.Size(窗口1, 200, 200)                 改名窗口大小

Call Plugin.Window.Size(窗口1, 200, 200)   

Dim 窗口1向上,窗口1向左,窗口2向上,窗口2向左               定义变量

Dim 移动速度                                   定义速度变量

Dim 窗口1横坐标,窗口1纵坐标,窗口2横坐标,窗口2纵坐标         定义坐标变量

移动速度 = 1

Function 取随机数(小,大)'!                         实现随机出现窗口位置

    Randomize  

    取随机数=Int((大 – 小 + 1) * Rnd + 小)'!

End Function

窗口1横坐标 = 取随机数(1,Plugin.Sys.GetScRX()-1)

窗口2横坐标 = 取随机数(1,Plugin.Sys.GetScRX()-1)

窗口1纵坐标 = 取随机数(1,Plugin.Sys.GetScRY()-1)

窗口2纵坐标 = 取随机数(1,Plugin.Sys.GetScRY()-1)

Do                                       开始循环弹球

    If 窗口1向左 Then 

        窗口1横坐标 = 窗口1横坐标 – 移动速度        以下都是逻辑判断

    Else 

        窗口1横坐标 = 窗口1横坐标 + 移动速度

    End If

    If 窗口1向上 Then 

        窗口1纵坐标 = 窗口1纵坐标 – 移动速度

    Else 

        窗口1纵坐标 = 窗口1纵坐标 + 移动速度

    End If

    If 窗口2向左 Then 

        窗口2横坐标 = 窗口2横坐标 – 移动速度

    Else 

        窗口2横坐标 = 窗口2横坐标 + 移动速度

    End If

    If 窗口2向上 Then 

        窗口2纵坐标 = 窗口2纵坐标 – 移动速度

    Else 

        窗口2纵坐标 = 窗口2纵坐标 + 移动速度

    End If

    If (窗口1纵坐标+200) > Plugin.Sys.GetScRY() Then 

        窗口1向上 = True

    End If

    If (窗口1横坐标+200) > Plugin.Sys.GetScRX() Then

        窗口1向左 = True

    End If

    if (窗口2纵坐标+200) > Plugin.Sys.GetScRY() Then

        窗口2向上 = True 

    End If

    If (窗口2横坐标+200) > Plugin.Sys.GetScRX() Then 

        窗口2向左 = True

    End If

    If (窗口1纵坐标) < 0 Then 

        窗口1向上 = False

    End If

    If (窗口2纵坐标) < 0 Then

        窗口2向上 = False

    End If

    If (窗口1横坐标) < 0 Then 

        窗口1向左 = False

    End If

    If (窗口2横坐标) < 0 Then

        窗口2向左 = False

    End If

    横轴距离 = abs(窗口1横坐标 – 窗口2横坐标)

    纵轴距离 = abs(窗口1纵坐标 – 窗口2纵坐标)

    If (横轴距离 < 200) and (纵轴距离 < 200) Then 

        If 横轴距离 > 纵轴距离 Then 

            窗口1向左 = not (窗口1向左) 

            窗口2向左 = not (窗口2向左)

        Else 

            窗口1向上 = not (窗口1向上)  

            窗口2向上 = not (窗口2向上)

        End If

    End If 

    Call Plugin.Window.Move(窗口1, 窗口1横坐标, 窗口1纵坐标)         控制窗口移动到需要的位置

    Call Plugin.Window.Move(窗口2, 窗口2横坐标, 窗口2纵坐标)

Loop                                               结束循环弹球


哈哈,看到这里肯定很多人都是蒙的,这就需要自己动手去操作,然后才能明白其中的道理,网上随便下载一个按键精灵,大家去实现吧!!

那今天就分享到这里,有兴趣的可以和我一起来研究其他的程序,当然如果想了解外挂这方面的,也可以和我交流,等按键结束了,我会教大家如果来制作外挂,这里可以透露一点要使用那些程序,(OD破解解密专用,WPE封包截取修改代码达到目的重中之重,CE内存读取修改重点哦)!

  

未经允许不得转载:天府数据港官方信息博客 » 按键之Q语言第一章

客官点个赞呗! (0)
分享到:

评论 抢沙发

评论前必须登录!

天府云博 - 做有态度的开发&运维&设计学习分享平台!

联系我们百度云主机