新手教，这个命令式怎么给鼠标位置赋值的？？

电脑寄生虫

1. .版本 2
   
2. 
   
3. 
   
4. 
   
5. .子程序 _标签3_鼠标位置被移动, 逻辑型
   
6. 
   
7. .参数 横向位置, 整数型
   
8. 
   
9. .参数 纵向位置, 整数型
   
10. 
    
11. .参数 功能键状态, 整数型
    
12. 
    
13. .局部变量 是否移入, 逻辑型, 静态
    
14. 
    
15. 
    
16. 
    
17. .如果 (0 ≤ 横向位置 且 横向位置 ≤ 标签3.宽度 且 0 ≤ 纵向位置 且 纵向位置 ≤ 标签3.高度)
    
18. 
    
19.     .如果真 (是否移入 ＝ 假)
    
20. 
    
21.         SetCapture (标签3.取窗口句柄 ())    ’主要是这个地方，单步调试发现，执行完这步后，横向位置变65506（左右差不了几个数）了。
    
22. 
    
23.         标签2.标题 ＝ “鼠标移入”  
    
24. 
    
25.         是否移入 ＝ 真
    
26. 
    
27.     .如果真结束
    
28. 
    
29. 
    
30. 
    
31. .否则
    
32. 
    
33.     .如果真 (是否移入 ＝ 真)
    
34. 
    
35.         ReleaseCapture ()
    
36. 
    
37.         标签2.标题 ＝ “鼠标移出”
    
38. 
    
39.         是否移入 ＝ 假

复制代码