|
|
马上加入TC
您需要 登录 才可以下载或查看，没有帐号？立即注册
x
本帖最后由 huangliang72 于 2015-7-20 19:15 编辑
新手多看,多试试几遍就上手了.我也是才接触没多长时间
变量 总麻将句柄,停止句柄
功能 启动_热键()// 启动自动游戏
变量 窗口句柄=窗口获取鼠标所在句柄()
变量 父句柄 =窗口获取父窗口(窗口句柄)
变量 标题=窗口获取标题(父句柄)
如果(标题!="启动的窗口")
设置托盘气泡("鼠标指定的窗口错误","")
否则如果(字符串查找(总麻将句柄,窗口句柄)>=0)
设置托盘气泡("此窗口已经运行中!!","")
否则如果(字符串查找(总麻将句柄,窗口句柄)==-1)
总麻将句柄=总麻将句柄&窗口句柄&"|"
线程开启("麻将",窗口句柄)
结束
结束
功能 终止_热键()
变量 当前句柄=窗口获取鼠标所在句柄()
如果(字符串查找(总麻将句柄,当前句柄)>=0)
停止句柄=当前句柄
结束
结束
功能 麻将(句柄)
设置托盘气泡("开始自动麻将","")
变量 dm = 插件("dm.dmsoft"),dm_ret
dm_ret = dm.SetPath(获取资源路径("rc:"))
dm_ret = dm.LoadPic("操作.bmp")
dm_ret = dm.SetDict(0, "字.txt")
dm_ret = dm.BindWindow(句柄,"gdi","windows","normal",0)
变量 x,y,ret
循环(dm.GetWindowState(句柄,0)==1)//窗口不在自动停止线程
如果(停止句柄==句柄)
跳出
结束
等待(1000)
结束
设置托盘气泡("已停止当前","")
dm_ret = dm.UnBindWindow()
总麻将句柄=字符串替换(总麻将句柄,句柄&"|","")
停止句柄=""
结束
功能 子程序(对象)
//大漠对象带入这里,直接可以大漠命令,跟"我的鼠标"一样格式
结束
功能 我的鼠标(xx,yy,对象)
对象.moveto(xx,yy)
等待(100)
对象.LeftClick()
结束
|
|
[复制链接]
/2 
发表于 2015-7-20 19:05:04
