Question

按键精灵 有N个窗口(可以指定为记事本窗口）,第一个窗口移动到(0,0)点

有N个窗口(可以指定为记事本窗口）,第一个窗口移动到(0,0)点,其余的窗口根据第一个窗口平铺,窗口不超出屏幕边缘(窗口平铺),请写出代码！！谁能帮忙写出代码，不要网上现有的

Answer 1

代码如下，先打开几个空白的记事本文件，然后运行就可以了

电脑屏幕宽度 = Plugin.Sys.GetScRX()
HwndEx = Plugin.Window.Search("无标题 - 记事本")
MyArray = Split(HwndEx, "|")
窗口数量=UBound(MyArray)
//下面获取第一个窗口的宽度
第一个窗口句柄=clng(MyArray(0))
sRect = Plugin.Window.GetWindowRect(第一个窗口句柄)
第一个MyArray = Split(sRect, "|")
W1 = Clng(第一个MyArray(0)): H1 = Clng(第一个MyArray(1))
W2 = Clng(第一个MyArray(2)): H2 = Clng(第一个MyArray(3))
第一个窗口宽度=W2-W1
实际宽度=电脑屏幕宽度-第一个窗口宽度
每个窗口间隔 = 实际宽度 / (窗口数量-1)
TracePrint 窗口数量&"  每个窗口间隔 " & 每个窗口间隔
For i=0 to 窗口数量-1
    hwnd = clng(MyArray(i))
    TracePrint 每个窗口间隔*i&"  i "&i
    Call Plugin.Window.Move(Hwnd, 每个窗口间隔*i, 100)
Next