梦幻西游新区抢线脚本
本脚本是配合按键精灵使用使用前请西在下载按键精灵
[url=ftp://down6.bitscn.com/tangtang/qm6chs_tk.zip]点击下载[/url]
如果不会使用请下载 使用教程
[url=ftp://down6.bitscn.com/tangtang/mhxqqx.rar]点击下载[/url]
把VBSCall MessageBox("请使用窗口模式！")
VBSCall MessageBox("请点确定后把鼠标移动到你挤的区的位置然后按任意键继续 ")
WaitKey
VBSCall GetCursorPos(x0,y0)
Rem 1
Plugin A=Window.Find("WSGAME","梦幻西游ONLINE")
Plugin Window.Active(A)
Plugin s = Window.GetClientRect(A)
MyArray = Split(s, "|", -1, 1)
x1=MyArray(0)
y1=MyArray(1)
x3=x0-x1
y3=y0-y1
If a<>0
Rem 2
MoveTo x1+x3,y1+y3
LeftClick 1
Delay 40
IfColor 277+x1,290+y1,20bce0,2
MoveTo x1+356,y1+307
LeftClick 1
Delay 50
LeftClick 1
Delay 40
Goto 2
Else
Goto 4
EndIf
Else
EndIf
Rem 4
Delay 300
IfColor 277+x1,290+y1,20bce0,2
Goto 2
EndIf
VBSCall MessageBox("梦幻已经进入请登陆游戏！")
[[i] 本帖最后由 棉花糖 于 2007-12-15 00:06 编辑 [/i]] 上面是经过本人测试成功的另附上 网上找到的一脚本 未测试过
梦幻西游"新区"自动抢线脚本说明:
分辨率1024*768 16位色下 多人测试通过,完全可以正常使用!
本脚本只提供学习研究使用,拒绝商业运行.出现一切后果与本人无关!
[color=blue]本脚本只适合:"梦幻西游"没出现游戏通知"提示页面"时使用:)[/color]当然如果您对脚本编写有一定基础,只要稍微修改一下就可以做到.通用了:)之所以没发出通用脚本是不希望别人拿去加到自己的小精灵中卖钱 哈哈~等我学会脚本加密在发出来吧:L
本脚本使用了[color=red]窗口插件[/color],使用前请检查[color=royalblue]"按键精灵"目录下的"plugin"文件夹内[/color]有没有[color=seagreen]Window.dll文件[/color].如果没有.请到按键精灵官网下载
玩过梦幻的基本都能看明白"1=二排列表一区 2=二排列表二区 3=二排列表三区"的意思了吧:)默认是二排第三个服务器名=3.使用时请根据你所在的游戏服务器[color=royalblue]在自定义中修改数字来选择[/color].
tys=100 是 鼠标点击服务器名和弹出"网络连接"窗口的移动和点击速度.请根据你自己的网络做适当调整
//〓〓〓〓〓〓〓〓〓〓〓〓★设置变量★〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓
UserVar fenqu=3 1=二排列表一 2=二排列表二 3=二排列表三
UserVar tys=100 普通抢线模式的延时时间,1秒=1000毫秒
//〓〓〓〓〓〓〓〓〓〓〓〓★主程序★〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓
dim yd tys fenqu
Rem 移动
Plugin yd = Window.Foreground()
Plugin Window.Move(yd,0,0)
Delay 100
//按启动键后,移动窗口到屏幕左上角
Gosub 服务器名
EndIf
EndScript
//〓〓〓〓〓〓〓〓〓〓〓〓★子程序★〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓
Sub 服务器名
Rem 二排第一列服务器名
If fenqu=1
MoveTo 61 390
Delay tys
LeftClick 1
Delay tys
MoveTo 231 329
Delay tys
LeftDoubleClick 1
Delay tys
Gosub 找色
EndIf
Rem 二排第二列服务器名
If fenqu=2
MoveTo 133 390
Delay tys
LeftClick 1
Delay tys
MoveTo 231 329
Delay tys
LeftDoubleClick 1
Delay tys
Gosub 找色
EndIf
Rem 二排第三列服务器名
If fenqu=3
MoveTo 198 390
Delay tys
LeftClick 1
Delay tys
MoveTo 231 329
Delay tys
LeftDoubleClick 1
Delay tys
Gosub 找色
EndIf
Return 服务器名
//〓〓〓〓〓〓〓〓〓〓〓〓★子程序★〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓
Sub 找色
IfColor 207,207,A8F0F0,0
EndScript
Delay tys
Else
Gosub 服务器名
EndIf
Return 找色
// 〓〓〓〓〓〓〓〓〓〓〓〓★备★注★〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓
//【脚本经过修改、测试,可以正常使用】
//【创作日期】2007.12.03
//【脚本作者】武狂
// 〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓
页:
[1]