Project1
标题:
【api篇】控制鼠标操作
[打印本页]
作者:
fux2
时间:
2010-12-29 14:52
标题:
【api篇】控制鼠标操作
撒花撒花，第一次成功地玩了API！！
喵，今天下载了VB控制鼠标的范例，然后反复琢磨和尝试AND咨询终于成功地移植到RGSS上咯~~
范例
Project1.rar
(187.19 KB, 下载次数: 650)
2010-12-29 14:49 上传
点击文件名下载附件
脚本
# 定位鼠标 by Fux2
# 喵的第一次玩API居然都成功！撒花！
class Cursor
M0USEEVENTF_LEFTDOWN = 2 # 鼠标左键按下键值
MOUSEEVENTF_LEFTUP = 4 # 鼠标左键松开键值
# 初始化
def initialize
# 调用user32.dll的GetCursorPos(得到鼠标坐标)函数
@getCursorPos = Win32API.new("user32","GetCursorPos",['P'],'V')
# 调用user32.dll的GetCursorPos(得到鼠标坐标)函数
@setCursorPos = Win32API.new("user32","SetCursorPos",['i']*2,'V')
# 调用user32.dll的mouse_event(鼠标事件,如点击)函数
@mouse_event = Win32API.new("user32","mouse_event",['L']*5,'V')
end
# 获得鼠标坐标
def pos
lpPoint ="\0"*8
@getCursorPos.Call(lpPoint)
x,y = lpPoint.unpack("LL")
return [x,y]
end
# 设定鼠标坐标
def pos=(xy)
@setCursorPos.Call(xy[0],xy[1])
end
# 按下鼠标左键
def leftdown
@mouse_event.Call(M0USEEVENTF_LEFTDOWN,0,0,0,0)
end
# 松开鼠标左键
def leftup
@mouse_event.Call(MOUSEEVENTF_LEFTUP,0,0,0,0)
end
# 点击鼠标左键(按下提起)
def click
leftdown
leftup
end
end
复制代码
作者:
白鬼
时间:
2010-12-29 17:33
干嘛用的？求指导。
作者:
david50407
时间:
2010-12-29 21:11
fux2借挪用一下...
完善...
作者:
Tsar_NicholasII
时间:
2018-6-9 14:19
魔塔样板能用吗
作者:
fux2
时间:
2018-6-9 21:44
Tsar_NicholasII 发表于 2018-6-9 14:19
魔塔样板能用吗
通用，但是主楼的脚本是基于屏幕的鼠标坐标而不是基于用户窗口内的（这东西就是初学时随便弄的）
还是找更成熟的脚本吧。
欢迎光临 Project1 (https://rpg.blue/)
Powered by Discuz! X3.1
Project1.rar
(187.19 KB, 下载次数: 650)
Project1.rar
(187.19 KB, 下载次数: 650)