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

软件版本:2014.06
软件大小:22.9M
更新时间:03-18

按键精灵安卓版
立即下载

软件版本:3.3.6
软件大小:62.5M
更新时间:01-16

按键精灵iOS版
立即下载

软件版本:1.6.0
软件大小:29.2M
更新时间:07-29

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

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

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

[交流讨论] 5级考试,我感觉要挂啊 [复制链接]

1#
1.遍历所有窗口,查找符合类名,标题什么什么的.....
  1. TracePrint 遍历窗口("Afx:00400000:8:00010003:00000000:040A0CEF","按键精灵")

  2. Function 遍历窗口(类名, 标题)
  3. sy = Plugin.Window.SearchEx(0,0,0)
  4. 父窗 = split(sy, "|")
  5. For i = 0 To UBound(父窗) - 1
  6. If Plugin.Window.GetClass(父窗(i)) = 类名 and Plugin.Window.GetText(父窗(i)) = 标题 Then
  7. 符合窗口 = 父窗(i)
  8. 遍历窗口 = 遍历窗口&符合窗口&"|"
  9. End If
  10. Next
  11. For i = 0 To UBound(父窗) - 1
  12. If 遍历(父窗(i), 类名, 标题) <> "" Then
  13. 遍历窗口 = 遍历窗口 & 遍历(父窗(i), 类名, 标题)
  14. End If
  15. Next
  16. End Function
  17. Function 遍历(父窗口,类名,标题)
  18. Dim 子窗, 类名2, 标题2
  19. Do
  20. 子窗 = Plugin.Window.FindEx(父窗口, 子窗, 0, 0)
  21. If 子窗 <> 0 Then
  22. 类名2 = Plugin.Window.GetClass(子窗)
  23. 标题2 = Plugin.Window.GetText(子窗)
  24. If 类名2 = 类名 and 标题2 = 标题 Then
  25. 遍历 = 遍历 & 子窗 & "|"
  26. 遍历 = 遍历 & 遍历(子窗, 标题, 类名)
  27. Else
  28. 遍历 = 遍历 & 遍历(子窗, 标题, 类名)
  29. End If
  30. End If
  31. Loop While 子窗
  32. End Function
复制代码
2.打开一个wqm 设定网页控件大小为 550,400
  1. Plugin.Web.Bind ("wqm.exe")//绑定wqm
  2. Delay 200
  3. Hwnd = Plugin.Web.GetHwnd()//获取句柄
  4. Call Plugin.Web.SetSize(550, 400)//调整wqm页面大小
  5. Delay 200
  6. sRect = Plugin.Window.GetWindowRect(Hwnd)//得到现wqm边框大小
  7. dim MyArray
  8. MyArray = Split(sRect, "|")
  9. w1 = Clng(MyArray(0)): h1 = Clng(MyArray(1))
  10. w2 = Clng(MyArray(2)): h2 = Clng(MyArray(3))//得到坐标计算边框的长宽
  11. x = 550 - (w2 - w1) + 550
  12. y = 400 - (h2 - h1) + 400
  13. Call Plugin.Web.SetSize(x, y)
  14. Delay 200
复制代码
3.圆点 200,200 半径100 画圆
  1. Dim x
  2. x = 200
  3. Dim y
  4. y = 100
  5. Dim c
  6. c = 0
  7. Do
  8. MoveTo x, y
  9. Delay 10
  10. x = 200 + 100 * sin(c*3.14/180)
  11. y = 200 - 100 * cos(c*3.14/180)
  12. c=c+1
  13. loop
复制代码
4.多个窗口 循环随机移动
  1. RunApp "notepad.exe"
  2. RunApp "notepad.exe"
  3. RunApp "notepad.exe"
  4. Delay 1000
  5. DimEnv Hwnd1
  6. Hwnd1 = Plugin.Window.Search("记事本")
  7. Do
  8. BeginThread 移动
  9. Delay 1000
  10. Loop
  11. Sub 移动
  12. Hwnd = Split(Hwnd1, "|")
  13. Randomize
  14. x = Int(Rnd * 1280)
  15. Randomize
  16. y = Int(Rnd * 720)
  17. Call Plugin.Window.Move(Hwnd(0), x , y )
  18. Randomize
  19. x = Int(Rnd * 1280)
  20. Randomize
  21. y = Int(Rnd * 720)
  22. Call Plugin.Window.Move(Hwnd(1), x , y )
  23. Randomize
  24. x = Int(Rnd * 1280)
  25. Randomize
  26. y = Int(Rnd * 720)
  27. Call Plugin.Window.Move(Hwnd(2), x , y )
  28. End Sub
复制代码
5.n个窗口 平铺桌面
  1. RunApp "notepad.exe"
  2. RunApp "notepad.exe"
  3. RunApp "notepad.exe"
  4. RunApp "notepad.exe"
  5. Delay 200
  6. 屏幕宽 = Plugin.Sys.GetScRX()
  7. 屏幕高 = Plugin.Sys.GetScRY()
  8. HwndEx = Plugin.Window.SearchEx(0, "记事本", 0)
  9. Dim 数组
  10. 数组 = split(hwndex, "|")
  11. sRect = Plugin.Window.GetWindowRect(数组(0))
  12. MyArray = Split(sRect, "|")
  13. W1 = Clng(MyArray(0)): H1 = Clng(MyArray(1))
  14. W2 = Clng(MyArray(2)): H2 = Clng(MyArray(3))
  15. 边框宽 = w2 - w1
  16. 边框高 = h2 - h1
  17. a = 0 : b = 0 : i = 0
  18. For i = 0 to UBound (数组) - 1
  19. If a + 边框宽 < 屏幕宽 and b + 边框高 < 屏幕高 Then
  20. Call Plugin.Window.Move(数组(i), a, b)
  21. TracePrint a&","&b
  22. Delay 200
  23. a = a + 边框宽
  24. ElseIf b + 边框高 + 边框高 < 屏幕高 Then
  25. a = 0
  26. b = b + 边框高
  27. i = i - 1
  28. End If
  29. Next
复制代码
考试能过么??

2#

你赶紧把代码去掉 小心被处理。

3#

已经挂了 错的代码

发新话题 回复该主题