• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.2.9
软件大小:62.5M
更新时间:12-07

按键精灵iOS版
立即下载

软件版本:1.3.1
软件大小:29.2M
更新时间:09-29

按键精灵Mac版
立即下载

软件版本:1.1.0
软件大小:12.3M
更新时间:12-29

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

将同一标题的所有窗口在桌面进行平铺,要求不得超出屏幕宽、高界... [复制链接]

1#

//假设打开5个记事本
num = 5
For num
Delay 1000
RunApp "notepad.exe"
Next
HwndEx = Plugin.Window.Search("记事本")
Hwnd = Split(HwndEx, "|")
ScreenX = Plugin.Sys.GetScRX()
ScreenY = Plugin.Sys.GetScRY()
sRect = Plugin.Window.GetWindowRect(Hwnd(0))
dim MyArray
MyArray = Split(sRect, "|")
x = MyArray(2) - MyArray(0)
y = MyArray(3) - MyArray(1)
sx = 0
sy = 0
i = 0
While (ScreenY-sy >y) //纵向还有足够容量
While (ScreenX - sx > x)//横向还有足够容量
Delay 100
Call Plugin.Window.Move(Hwnd(i),Cstr(sx),Cstr(sy))
sx = sx + x
i = i + 1
If i > UBound(Hwnd)-1 Then
ExitScript
End If
Wend
sy = sy + y
sx=0
Wend

发新话题 回复该主题