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

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

按键精灵安卓版
立即下载

软件版本:3.3.0
软件大小:62.5M
更新时间:5-24

按键精灵iOS版
立即下载

软件版本:1.3.3
软件大小:29.2M
更新时间:06-14

按键精灵Mac版
立即下载

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

快捷导航

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

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

写一个函数,可以让普通窗口(例如记事本)在屏幕内移动,碰到屏幕边... [复制链接]

1#
本帖最后由 996958883 于 2014-11-22 15:42 编辑

5级题目大泄密

写一个函数,可以让普通窗口(例如记事本)在屏幕内移动,碰到屏幕边缘随机反向移动(类似屏幕保护的汽泡程序),请写出

呵呵~!~
有兴趣复制过去玩玩~!~
  1. Dim sx,sy,a,b,x,y,c
  2. RunApp "notepad.exe"
  3. Hwnd = Plugin.Window.Find(0, "无标题 - 记事本")
  4. Randomize
  5. Call Plugin.Window.Size(Hwnd, 333, 333)
  6. sx = (Plugin.Sys.GetScRX)-333
  7. sy = (Plugin.Sys.GetScRY)-333
  8. Do
  9. a = Int((10 * Rnd) + 1)//调节x的移动位置多大
  10. b=Int((10 * Rnd) + 1)//调节y的移动位置多大
  11. c=Int((20 * Rnd) + 1)//调节延时的时间
  12. s = Int((2 * Rnd) + 1)
  13. call 获取窗口坐标
  14. If x <= 0 Then
  15. If s = 1 Then
  16. Call y1
  17. ElseIf s = 2 Then
  18. Call y2
  19. End if
  20. ElseIf x >= sx Then
  21. If s=1
  22. Call y3
  23. ElseIf s = 2 Then
  24. Call y4
  25. End If
  26. ElseIf y <= 0 Then
  27. If s = 1 Then
  28. Call y1
  29. ElseIf s = 2 Then
  30. y3
  31. End if
  32. ElseIf y >= sy Then
  33. If s = 1 Then
  34. Call y2
  35. ElseIf s = 2 Then
  36. Call y4
  37. End If
  38. Else
  39. Call y1
  40. End If
  41. Delay c
  42. Loop


  43. Sub 获取窗口坐标
  44. sRect = Plugin.Window.GetWindowRect(Hwnd)
  45. dim MyArray
  46. MyArray = Split(sRect, "|")
  47. x = Clng(MyArray(0))
  48. y= Clng(MyArray(1))
  49. End sub


  50. Sub y1
  51. Do Until x>=sx or y >=sy
  52. Call Plugin.Window.Move(Hwnd, x + a, y+b)
  53. call 获取窗口坐标
  54. Delay c
  55. Loop

  56. End Sub
  57. Sub y2
  58. Do Until x>=sx or y <=0
  59. Call Plugin.Window.Move(Hwnd, x + a, y-b)
  60. call 获取窗口坐标
  61. Delay c
  62. Loop
  63. End Sub
  64. Sub y3
  65. Do Until x<=0 or y >=sy
  66. Call Plugin.Window.Move(Hwnd, x - a, y+b)
  67. call 获取窗口坐标
  68. Delay c
  69. Loop

  70. End Sub

  71. Sub y4
  72. Do Until x<=0 or y <=0
  73. Call Plugin.Window.Move(Hwnd, x - a, y-b)
  74. call 获取窗口坐标
  75. Delay c
  76. Loop
  77. End Sub
复制代码

QQ: 996958883
2#

这个支持下,来看看咯

3#

额。。。。。

4#

这个是考试题目吧

5#

该用户帖子内容已被屏蔽

有木有需要帮助写脚本的?
电脑周边:shop2848576.koudaitong.com

微信公众号:xiaodiannaozhoubian
公司主页:http://www.fuqiuyangfk.icoc.in/


I'm QQ :931589898
☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆——南宫泷
6#

64654的供货商

//------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------定做各种游戏脚本和办公脚本有需要的联我的QQ: 1796649146------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------//
7#

学习 学习 看下转折

8#


9#


10#


11#

下载来看看

12#

神奇

13#


按键精灵的世界有时乐有时却很无奈
14#

该用户帖子内容已被屏蔽

15#

该用户帖子内容已被屏蔽

16#

该用户帖子内容已被屏蔽

17#

该用户帖子内容已被屏蔽

18#

看看怎么写的。。。

19#

该用户帖子内容已被屏蔽

20#

学习学习

发新话题 回复该主题