
金猪脚本(原飞猪脚本)以按键精灵教学为主,涉及UiBot,Python,Lua等脚本编程语言,教学包括全自动办公脚本,游戏辅助脚本,引流脚本,网页脚本,安卓脚本,IOS脚本,注册脚本,点赞脚本,阅读脚本以及网赚脚本等各个领域。想制作脚本和学习按键精灵的朋友可以添加按键精灵学习交流群:554127455 学习路上不再孤单,金猪脚本伴你一同成长.

脚本功能很好用,但是那乱得让人有尿意的界面

……总是让人闻风丧胆有木有?吓哭小孩子有木有?

脚本的界面可以说是脚本的门面,要长得好看才能吸引更多怪蜀黍~ 只要咱们懂得利用控件,尽情挥洒咱的无限创作力,一定可以让QUI界面更骚气~
滑动界面
骚气值:五颗星,很骚气

功能:鼠标点击界面滑动,切换到其它页面
效果演示:

主要控件 标签、定时器、选项卡、单选框、热键
大致思路:1 画一个Hotkey 热键 控件,设置热键为左键弹起。
2 使用选项卡控件,创建五个选项页。
3 画五个单选按钮。五个单选按钮。
4 画一个定时器,一个标签(标签在所有控件之上,大小要挡住整个脚本界面。标签设为透明。)
5 在标签点击事件中,启动定时器。
6 定时器事件中,设置当鼠标滑动的时候,选项页就变成其它页面。
7 Hotkey 热键 事件中关闭定时器
- 代码:Dim x1,x2,y1,y2,选项,选项记录
- Event Form1.Load
- Form1.Hotkey1.Register True
- Form1.Timer1.Enabled = False //默认定时器是启动状态,所以要先停止
- Form1.Timer1.Interval = 120 //设置定时器循环的间隔时间(单位:毫秒)
- 选项=Form1.TabControl1.Tab
- Call 单选框显示()
- End Event
- Event Form1.Label1.Click
- GetCursorPos x1, y2
- 选项记录=Form1.TabControl1.Tab
- Form1.Timer1.Enabled = False //防止被重复启动定时器
- Form1.Timer1.Enabled = True
- End Event
- Event Form1.Hotkey1.Hotkey
- Form1.Timer1.Enabled = False
- End Event
- Event Form1.Timer1.Timer
- Dim d
- GetCursorPos x2, y2
- d = (x2 - x1) 70 +选项记录
- If d >=0 and d<=4 Then
- Form1.TabControl1.Tab = d
- End If
- Call 单选框显示()
- End Event
- Sub 单选框显示()
- 选项=Form1.TabControl1.Tab
- Select Case 选项
- Case 0
- Form1.OptionBox1.Value = 1
- Case 1
- Form1.OptionBox2.Value = 1
- Case 2
- Form1.OptionBox3.Value = 1
- Case 3
- Form1.OptionBox4.Value = 1
- Case 4
- Form1.OptionBox5.Value = 1
- Case Else
- End Select
- End Sub
复制代码
标签热区域
热区域是啥呢?所谓热区域,指的是演示窗口中的一个矩形区域,通过此矩形区域可以得到相应的反馈信息。和按钮响应相比,这种响应类型更容易与背景风格协调一致,使界面更好看。按键中目前不支持热区域的,我们看看用标签如何实现热区域。
骚气值:五颗星,很骚气

功能:点击菜单之后出现子菜单选项
效果演示:

主要控件 标签、图像控件、选项卡、组合框大致思路:1 取一张自己喜欢的图片作为背景。
2 画好标签:菜单、按键学院、学习、工作、游戏等
3 用组合框作为点击菜单之后要显示的子菜单,学习,工作,游戏三个标签放在组合框里。(按键学院的子菜单同理)
4 接下来就是标签的隐藏设置了,点击按键学院,菜单的子菜单则隐藏,按键学院的子菜单显示。
5 比较重要的一点,另外还需要创建一个透明的标签,大小和界面一样大,标签事件里设置隐藏两个子菜单,达到,我们鼠标点击其它地方的时候,子菜单消失的效果。
- 代码:Event Form1.Load
- End Event
- Event Form1.菜单.Click
- Call 重置菜单
- Form1.菜单列表.Visible = 1
- Form1.L1.Caption = "学习"
- Form1.L2.Caption = "工作"
- Form1.L3.Caption = "游戏"
- Form1.L1.Visible = 1
- Form1.L2.Visible = 1
- Form1.L3.Visible = 1
- End Event
- Event Form1.按键学院.Click
- Call 重置菜单
- Form1.菜单列表.Visible = 1
- Form1.L1.Caption = "学院院刊"
- Form1.L2.Caption = "学习资源"
- Form1.L3.Caption = "课堂"
- Form1.L1.Visible = 1
- Form1.L2.Visible = 1
- Form1.L3.Visible = 1
- End Event
- Sub 重置菜单()
- Form1.菜单列表.Visible=0
- Form1.L1.Visible=0
- Form1.L2.Visible=0
- Form1.L3.Visible = 0
- Form1.学习选项卡.Visible=0
- End Sub
- Event Form1.取消.Click
- Call 重置菜单
- End Event
- Event Form1.L1.Click
- If Form1.L1.Caption = "学习" Then
- Form1.学习选项卡.Visible = 1
- Form1.返回.Visible = 1
- End If
- End Event
- Event Form1.返回.Click
- Call 重置菜单
- End Event