【按键精灵】制作后台鼠标操作脚本

准备工具

按键精灵

官网自行下载：http://download.myanjian.com/

大漠插件

是一款比较牛的插件，可以支持易语言
链接：https://pan.baidu.com/s/1Io1rwQWuLRlriYmdXDR0yw
提取码：qk85
–来自百度网盘超级会员V8的分享

代码编写

Event Form1.Button1.Click
	PutAttachment "H:\tool\大漠插件\大漠插件3.1233", "*.*"
	PutAttachment ".\plugin","RegDll.dll"
	Call Plugin.RegDll.Reg("H:\tool\大漠插件\大漠插件3.1233\dm.dll")
	set dm = createobject("dm.dmsoft")
	ver = dm.Ver()
	TracePrint ver
	Dim journeyTime,frequency

    journeyTime =  Form1.InputBox1.Text
    frequency = Form1.InputBox2.Text
    Hwnd = 394512
	//最大化窗口
	Call Plugin.Window.Max(Hwnd)
	Delay 1000
		// display: dx 鼠标:windows后台 键盘:windows后台 模式1
	dm_ret = dm.BindWindow(Hwnd,"dx2","windows","windows",1)
	dm.moveTo 1870,734
	dm.leftClick
	Delay 500
	//点击联盟科技
	dm.moveTo 1097,555
	dm.leftClick
	Delay 500
	//点击战争
	dm.moveTo 1079,263
    dm.leftClick
	Delay 500
	//选择快速征兵
	dm.moveTo 806,358
    dm.leftClick
	Delay 500
	//捐献
	dm.moveTo 1072,800
	Call clickTen()
	//返回
	dm.moveTo 1168,256
	dm.leftClick
	Delay 300
	//点击遗迹
	dm.moveTo 1130,215
	dm.leftClick
	Delay 300
	//捐献4级遗迹
	dm.moveTo 1150,796
	dm.leftClick
	Delay 300
	dm.moveTo 1078,832
	Call clickTen()
End Event



Function clickTen()
	dm.leftClick
	Delay 1300
	dm.leftClick
	Delay 1300
	dm.leftClick
	Delay 1300
	dm.leftClick
	Delay 1300
	dm.leftClick
	Delay 1300
	dm.leftClick
	Delay 1300
	dm.leftClick
	Delay 1300
	dm.leftClick
	Delay 1300
	dm.leftClick
	Delay 1300
	dm.leftClick
	Delay 1300
End Function

代码解释

• clickTen 表示方法，可以直接通过call进行调用
• Event Form1.Button1.Click 表示按钮点击事件，点击后会触发里面的所有内容
• dm.BindWindow(Hwnd,“dx2”,“windows”,“windows”,1) 表示大漠绑定窗口，dx2则表示鼠标后台操作，dx是鼠标前台操作
• dm.leftClick 鼠标点击一次
• Delay 1300 等待时长，单位是ms
• dm.moveTo 1078,832 鼠标移动到 坐标X：1078,Y：832
• Call Plugin.Window.Max(Hwnd) 表示把窗口最大化