【api篇】控制鼠标操作

fux2

撒花撒花，第一次成功地玩了API！！
喵，今天下载了VB控制鼠标的范例，然后反复琢磨和尝试AND咨询终于成功地移植到RGSS上咯~~
范例

Project1.rar (187.19 KB, 下载次数: 650)

2010-12-29 14:49 上传

点击文件名下载附件

脚本

1. # 定位鼠标 by Fux2
   
2. # 喵的第一次玩API居然都成功！撒花！
   
3. class Cursor
   
4. 
   
5.   M0USEEVENTF_LEFTDOWN  = 2      # 鼠标左键按下键值     
   
6.   MOUSEEVENTF_LEFTUP    = 4      # 鼠标左键松开键值
   
7.   
   
8.   # 初始化
   
9.   def initialize
   
10.       # 调用user32.dll的GetCursorPos(得到鼠标坐标)函数
    
11.       @getCursorPos = Win32API.new("user32","GetCursorPos",['P'],'V')
    
12.       # 调用user32.dll的GetCursorPos(得到鼠标坐标)函数
    
13.       @setCursorPos = Win32API.new("user32","SetCursorPos",['i']*2,'V')
    
14.       # 调用user32.dll的mouse_event(鼠标事件,如点击)函数
    
15.       @mouse_event = Win32API.new("user32","mouse_event",['L']*5,'V')
    
16.   end
    
17.   
    
18.   # 获得鼠标坐标
    
19.   def pos
    
20.       lpPoint ="\0"*8
    
21.       @getCursorPos.Call(lpPoint)
    
22.       x,y = lpPoint.unpack("LL")
    
23.       return [x,y]
    
24.   end
    
25.    
    
26.   # 设定鼠标坐标
    
27.   def pos=(xy)
    
28.       @setCursorPos.Call(xy[0],xy[1])
    
29.   end
    
30.    
    
31.   # 按下鼠标左键
    
32.   def leftdown
    
33.       @mouse_event.Call(M0USEEVENTF_LEFTDOWN,0,0,0,0)
    
34.   end
    
35.    
    
36.   # 松开鼠标左键
    
37.   def leftup
    
38.        @mouse_event.Call(MOUSEEVENTF_LEFTUP,0,0,0,0)
    
39.   end
    
40.      
    
41.   # 点击鼠标左键(按下提起)
    
42.   def click
    
43.       leftdown
    
44.       leftup
    
45.     end
    
46.    
    
47. end

复制代码

fux2

Tsar_NicholasII 发表于 2018-6-9 14:19
魔塔样板能用吗

通用，但是主楼的脚本是基于屏幕的鼠标坐标而不是基于用户窗口内的（这东西就是初学时随便弄的）
还是找更成熟的脚本吧。

Tsar_NicholasII

魔塔样板能用吗

david50407

fux2借挪用一下...
完善...

白鬼

干嘛用的？求指导。