金猪脚本(原飞猪脚本)以按键精灵教学为主,涉及UiBot,Python,Lua等脚本编程语言,教学包括全自动办公脚本,游戏辅助脚本,引流脚本,网页脚本,安卓脚本,IOS脚本,注册脚本,点赞脚本,阅读脚本以及网赚脚本等各个领域。想制作脚本和学习按键精灵的朋友可以添加按键精灵学习交流群:554127455 学习路上不再孤单,金猪脚本伴你一同成长.
脚本功能很好用,但是那乱得让人有尿意的界面
……总是让人闻风丧胆有木有?吓哭小孩子有木有?
脚本的界面可以说是脚本的门面,要长得好看才能吸引更多怪蜀黍~ 只要咱们懂得利用控件,尽情挥洒咱的无限创作力,一定可以让QUI界面更骚气~
滑动界面
骚气值:五颗星,很骚气
功能:鼠标点击界面滑动,切换到其它页面
效果演示:
主要控件 标签、定时器、选项卡、单选框、热键
大致思路:1 画一个Hotkey 热键 控件,设置热键为左键弹起。
2 使用选项卡控件,创建五个选项页。
3 画五个单选按钮。五个单选按钮。
4 画一个定时器,一个标签(标签在所有控件之上,大小要挡住整个脚本界面。标签设为透明。)
5 在标签点击事件中,启动定时器。
6 定时器事件中,设置当鼠标滑动的时候,选项页就变成其它页面。
7 Hotkey 热键 事件中关闭定时器
代码:Dim x1,x2,y1,y2,选项,选项记录Event Form1.LoadForm1.Hotkey1.Register True Form1.Timer1.Enabled = False //默认定时器是启动状态,所以要先停止 Form1.Timer1.Interval = 120 //设置定时器循环的间隔时间(单位:毫秒)选项=Form1.TabControl1.TabCall 单选框显示()End EventEvent Form1.Label1.ClickGetCursorPos x1, y2选项记录=Form1.TabControl1.TabForm1.Timer1.Enabled = False //防止被重复启动定时器 Form1.Timer1.Enabled = True End EventEvent Form1.Hotkey1.HotkeyForm1.Timer1.Enabled = FalseEnd EventEvent Form1.Timer1.TimerDim dGetCursorPos x2, y2d = (x2 – x1) \ 70 +选项记录If d >=0 and d<=4 ThenForm1.TabControl1.Tab = dEnd IfCall 单选框显示()End EventSub 单选框显示()选项=Form1.TabControl1.TabSelect Case 选项Case 0Form1.OptionBox1.Value = 1Case 1Form1.OptionBox2.Value = 1Case 2Form1.OptionBox3.Value = 1Case 3Form1.OptionBox4.Value = 1Case 4Form1.OptionBox5.Value = 1Case ElseEnd SelectEnd Sub
复制代码
标签热区域
热区域是啥呢?所谓热区域,指的是演示窗口中的一个矩形区域,通过此矩形区域可以得到相应的反馈信息。和按钮响应相比,这种响应类型更容易与背景风格协调一致,使界面更好看。按键中目前不支持热区域的,我们看看用标签如何实现热区域。
骚气值:五颗星,很骚气
功能:点击菜单之后出现子菜单选项
效果演示:
主要控件 标签、图像控件、选项卡、组合框大致思路:1 取一张自己喜欢的图片作为背景。
2 画好标签:菜单、按键学院、学习、工作、游戏等
3 用组合框作为点击菜单之后要显示的子菜单,学习,工作,游戏三个标签放在组合框里。(按键学院的子菜单同理)
4 接下来就是标签的隐藏设置了,点击按键学院,菜单的子菜单则隐藏,按键学院的子菜单显示。
5 比较重要的一点,另外还需要创建一个透明的标签,大小和界面一样大,标签事件里设置隐藏两个子菜单,达到,我们鼠标点击其它地方的时候,子菜单消失的效果。
代码:Event Form1.LoadEnd EventEvent Form1.菜单.ClickCall 重置菜单Form1.菜单列表.Visible = 1Form1.L1.Caption = \”学习\”Form1.L2.Caption = \”工作\”Form1.L3.Caption = \”游戏\”Form1.L1.Visible = 1Form1.L2.Visible = 1Form1.L3.Visible = 1End EventEvent Form1.按键学院.ClickCall 重置菜单Form1.菜单列表.Visible = 1Form1.L1.Caption = \”学院院刊\”Form1.L2.Caption = \”学习资源\”Form1.L3.Caption = \”课堂\”Form1.L1.Visible = 1Form1.L2.Visible = 1Form1.L3.Visible = 1End EventSub 重置菜单()Form1.菜单列表.Visible=0Form1.L1.Visible=0Form1.L2.Visible=0Form1.L3.Visible = 0Form1.学习选项卡.Visible=0End SubEvent Form1.取消.ClickCall 重置菜单End EventEvent Form1.L1.ClickIf Form1.L1.Caption = \”学习\” Then Form1.学习选项卡.Visible = 1Form1.返回.Visible = 1End IfEnd EventEvent Form1.返回.ClickCall 重置菜单End Event