level 8
lele1894
楼主
//QUI界面建两个,第一个改名叫开始,添加按钮名称Button1,标题随便可以填开始
//第二个界面改名叫Form1,自己随意设计,没有下方启动等按钮。
//开始窗点开始按钮打开小精灵创建第2窗口
Event 开始.Button1.Click
Form1.Show
End Event
//打开后根据标题隐藏开始窗口,制作小精灵标题名"按键小精灵"或更改另起。
Event Form1.Load
Hwndaj = Plugin.Window.Find(0, "按键小精灵")
Call Plugin.Window.Hide(Hwndaj)
End Event
//关闭第2窗口,恢复开始窗口
Event Form1.UnLoad
Call Plugin.Window.Show(Hwndaj)
End Event
//关闭开始窗口,第2窗口同时关闭。
Event 开始.UnLoad
Form1.Close
End Event
//得到鼠标指向的窗口句柄
Hwnd = Plugin.Window.MousePoint()
//得到第2窗口的句柄。就是第2个界面
Hwnd1 = Plugin.Window.Find(0, "主要功能")
//第2个界面循环跟随鼠标得到句柄的窗口
Do
//获得鼠标得到句柄Hwnd边框大小
sRect = Plugin.Window.GetWindowRect(Hwnd)
MyArray = Split(sRect, "|")
L = Clng(MyArray(0)): T = Clng(MyArray(1))
R = Clng(MyArray(2)) : B = Clng(MyArray(3))
//"左" & L & ",右 "& R & ",上" & T & ",下" & B
Delay 10
//循环第2窗口Hwnd1移动到鼠标得到句柄Hwnd右方
Call Plugin.Window.Move(Hwnd1, r, t)
Loop
2015年03月28日 07点03分
1
//第二个界面改名叫Form1,自己随意设计,没有下方启动等按钮。
//开始窗点开始按钮打开小精灵创建第2窗口
Event 开始.Button1.Click
Form1.Show
End Event
//打开后根据标题隐藏开始窗口,制作小精灵标题名"按键小精灵"或更改另起。
Event Form1.Load
Hwndaj = Plugin.Window.Find(0, "按键小精灵")
Call Plugin.Window.Hide(Hwndaj)
End Event
//关闭第2窗口,恢复开始窗口
Event Form1.UnLoad
Call Plugin.Window.Show(Hwndaj)
End Event
//关闭开始窗口,第2窗口同时关闭。
Event 开始.UnLoad
Form1.Close
End Event
//得到鼠标指向的窗口句柄
Hwnd = Plugin.Window.MousePoint()
//得到第2窗口的句柄。就是第2个界面
Hwnd1 = Plugin.Window.Find(0, "主要功能")
//第2个界面循环跟随鼠标得到句柄的窗口
Do
//获得鼠标得到句柄Hwnd边框大小
sRect = Plugin.Window.GetWindowRect(Hwnd)
MyArray = Split(sRect, "|")
L = Clng(MyArray(0)): T = Clng(MyArray(1))
R = Clng(MyArray(2)) : B = Clng(MyArray(3))
//"左" & L & ",右 "& R & ",上" & T & ",下" & B
Delay 10
//循环第2窗口Hwnd1移动到鼠标得到句柄Hwnd右方
Call Plugin.Window.Move(Hwnd1, r, t)
Loop