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

软件版本:2014.05
软件大小:76.8M
更新时间:2-21

按键精灵安卓版
立即下载

软件版本:3.2.2
软件大小:62.5M
更新时间:04-24

按键精灵iOS版
立即下载

软件版本:1.2.5
软件大小:29.2M
更新时间:04-18

按键精灵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#

写一个函数,可以让普通窗口(例如记事本)在屏幕内移动,碰到屏幕边缘随机反向移动

[url=http://bbs.anjian.com/thread-576954-1-1.html]按键精灵14周年庆典火热进行中!点击领奖[
5#

111111111111111111111

天空一声巨响,老子闪
6#

该用户帖子内容已被屏蔽

7#

:@

8#

看看学习下···

9#

看看代码

[url=http://bbs.anjian.com/thread-576954-1-1.html]按键精灵14周年庆典火热进行中!点击领奖[
10#

看看。。。。。。。。。。。。。。。

11#

学习了。。。。。

12#

看看看看看看

13#

参考一下,多谢

不接单,勿扰,谢谢!
14#

写一个函数,可以让普通窗口(例如记事本)在屏幕内移动,碰到屏幕边缘随机反向移动

15#

11111111

[url=http://bbs.anji
16#

看看佛挡杀佛

17#

釜釜釜釜釜釜釜釜釜釜

18#

就是需要这个了

19#

看看

20#

学学,好像有噶回复隐藏了

发新话题 回复该主题