17173上的采集脚本~~~能自动登录登出~~~

lullaby

http://bbs.17173.com/topics/125/200807/05/2311650,1.html
绝对好用。。。速度很快。。。不会超过300次。。。能自动登录登出。。。

raiki0212

偶只用一个人做的脚本，。。。。。。。
别的都有风险。。。。

純潔

原帖由 bella 于 2008-7-18 10:34 发表


还好已经64不需要再受折磨了

还经历过一次小黑屋呢。。。哎。。。万恶的冒64

555555555555555555555555555555555555555555555555

lullaby

还好我的号烂得应该没人要

flylcx

如果脚本出错, 将可能出现在公众频道里喊出自己用户名密码的情况

小野的梦魇

要盗号相当容易了，读你计算机里的按键精灵脚本就好了

海雷丁H

怎么盗法？

bella

有人说用这种脚本有被盗号风险的

flylcx

....................
科技因人而发展..........................

bella

还好已经64不需要再受折磨了

还经历过一次小黑屋呢。。。哎。。。万恶的冒64

watertnt

是不是这个：

转载：
本脚本是根据某脚本改写（好像在173论坛发过，不过我之前没挂过采集因此也没有特别留意，这次是别人直接在QQ传给我的），首先感谢原脚本作者的无私分享

脚本也许还不是很完善，希望大家使用后有什么问题及时向我提出以便我改进

使用脚本前请大家先仔细阅读脚本说明，复制代码时请将说明部分也一并复制到精灵里

以下为脚本


//---------------脚本说明---------------
// 1. 适合行动力 > 400 玩家。
// 2. 800*600窗口模式，窗口位置随意。
// 3. 支持5种料理长时间挂机
// 4. 采集开始前先调整人物位置和视角，使人物位于采集目标的左边，并使得采集的图标恰好
// 处于采集目标上（例如南美东南岸的红花），以防后台鼠标点空，造成人物位置移动（退
// 出游戏重新登录后视角是朝向人物的正面方向，脚本会自动调整视角时采集图标重新位于
// 采集目标之上）。然后点一次采集目标，使人物正面面对采集目标。
// 5. 本脚本分前台模式及后台模式，通过设置“后台模式开关”项选择。前台模式可防GM密语
// 及人物胡乱走动，完全无需监管。后台模式运行时如网络状况不佳可能会出现人物胡乱走
// 动的现象，需要定时监管。后台模式运行时只有丢弃废物和登入登出时才会自动弹到前台
// ，其余时间都在后台运行。
// 6. 后台模式时游戏窗口不可最小化，但可以被其他窗口遮挡
// 7. 使用前台模式时最好将人物状态设为完全屏蔽，否则可能会导致不正常登出
// 8. 每采集大约300次自动登出登入一次，将用户名及密码修改为自己的即可，支持大小写及各
// 种特殊字符。
// 9. 快捷键设置：F8 自定义栏 F7 装载 F9 任务，其他位置均设为不使用。
// 10. 自定义栏 ：F1 采集 F2-F6 料理，如果料理不足5种相应位置留空即可。
// 11.脚本延时可通过“延时”变量进行设置，默认为25，即按下F8后2.5秒弹出自定义栏，使
// 用者可根据自己的网络情况自行设置。
// 12.应用于按键精灵6.71版，需要361后台鼠标插件支持
// 13.使用本脚本前请确定采集技能的使用次数为0，最好进入一次出航所或者登出游戏一次使
// 技能使用次数清零
// 14.用户名和密码的修改并不是直接修改脚本中的字符，在精灵主界面（选择脚本的界面）选
// 择脚本后在右边的脚本属性栏修改（修改启动/中止热键处）
//-------------脚本------------------
// *********定义变量*******************************
VBS dim shiftDown, VKCode, nAscCode, nSkillCounter
UserVar UserName="aaaaaaaaa" 用户名
UserVar Password="aaaaaaaaa" 密码
UserVar mainDalay=25 延时
UserVar swBackGround=DropList{后台模式:1|前台模式:0}=1 后台模式开关
//*************************************************
VBS set TiShiObj = createobject("WScript.Shell")
Plugin hwn=Window.GetKeyFocusWnd()
VBS Dim Blood
VBS hpAddr = &H00ab94d4
VBS Dim DX,DY
//获取窗口原始位置函数
Plugin handle=Window.Foreground()
Plugin s = Window.GetClientRect(handle)
MyArray = Split(s, "|", -1, 1)
DX = MyArray(0)
DY = Myarray(1)
gmleft = MyArray(0) + 8
gmtop = MyArray(1) + 461
gmright = MyArray(0) + 586
gmbottom = MyArray(1) + 561
// Main route
Sub main
Rem start
For 50000
For 9
Plugin Window.Active(hwn)
Delay 300
Plugin Window.Restore(hwn)
Delay 300
If swBackGround=1
KeyDown 18,1
KeyPress 9,1
KeyUp 18,1
EndIf
Delay 300
For 4
For 7
If swBackGround=0
Gosub 取色防GM
EndIf
Plugin Window.SendKeyPress(hwn,119)
Delay mainDalay*100
Plugin Window.SendKeyPress(hwn,112)
Delay 3000
If swBackGround=1
Plugin BGKM5.LClick(hwn,780,290)
Else
MoveTo DX+780,DY+290
Delay 50
LeftClick 1
EndIf
Delay 200
Plugin Window.SendKeyPress(hwn,13)
EndFor
Plugin Blood=Memory.Read16Bit(handle, hpAddr)
If Blood < 250
Gosub 吃料理
EndIf
If swBackGround=0
Gosub 取色防GM
EndIf
Plugin Window.SendKeyPress(hwn,119)
Delay mainDalay*100
Plugin Window.SendKeyPress(hwn,112)
Delay mainDalay*130
Plugin Window.SendKeyPress(hwn,120)
Delay mainDalay*100
Plugin Window.SendKeyPress(hwn,27)
Delay 300
Plugin Window.SendKeyPress(hwn,27)
Delay 1000
EndFor
Gosub 丢弃交易品
EndFor
Gosub LogOut
Delay 25000
Gosub LogIn
Delay mainDalay*280
Delay 500
KeyDown 17,1
KeyDown 37,1
Delay 1550
KeyUp 37,1
KeyUp 17,1
EndFor
Return main
Sub 丢弃交易品
Plugin Window.Active(hwn)
Delay 300
Plugin Window.Restore(hwn)
Delay 1000
Plugin Window.SendKeyPress(hwn,118)
Delay mainDalay*100
MoveTo 437-5+DX,393-24+DY
Delay 50
LeftClick 1
Delay 200
MoveTo 120-5+DX,164-24+DY
Delay 50
KeyDown 17,1
LeftClick 30
Delay 100
KeyUp 17,1
MoveTo 636-5+DX,420-24+DY
Delay 100
LeftClick 1
Delay 50
Plugin Window.SendKeyPress(hwn,27)
Delay 50
Plugin Window.SendKeyPress(hwn,27)
Return 丢弃交易品
Sub 吃料理
For 4
If swBackGround=0
Gosub 取色防GM
EndIf
Plugin Window.SendKeyPress(hwn,119)
Delay mainDalay*100
Plugin Window.SendKeyPress(hwn,113)
Delay 50
Plugin Window.SendKeyPress(hwn,114)
Delay 50
Plugin Window.SendKeyPress(hwn,115)
Delay 50
Plugin Window.SendKeyPress(hwn,116)
Delay 50
Plugin Window.SendKeyPress(hwn,117)
Delay 1000
EndFor
Return 吃料理
Sub 取色防GM
//聊天框内取色防GM
VBSCall FindColor(gmleft, gmtop, gmright, gmbottom, "79f2f2", x, y)
If x>0 and y>0
Delay 5000
Gosub LogOut
Delay 900000
Gosub LogIn
Delay mainDalay*280
Delay 500
KeyDown 17,1
KeyDown 37,1
Delay 1550
KeyUp 37,1
KeyUp 17,1
Goto start
EndIf
Return 取色防GM
// 登入游戏
Sub LogIn
MoveTo DX+50, DY+50
Delay 50
LeftClick 1
MoveTo DX+400, DY+439
Delay 50
LeftClick 1
Delay 3000
// 颜色比较判断是否进入到登录画面
Rem check1
IfColor DX+439, DY+486, b19f83, 0
MoveTo DX+50, DY+50
For 10
RightClick 1
Delay 20
EndFor
Else
Delay 5000
Goto check1
EndIf
Delay 1000
MoveTo DX+293, DY+240
Delay 100
LeftClick 1
Delay 100
KeyPress 8,20
Delay 100
Gosub ProcessUsername
Delay 1000
KeyPress 13,1
Delay 500
Gosub ProcessPassword
Delay 1000
KeyPress 13,1
Delay 1000
// 颜色比较判断是否进入到选择帐号画面
Rem check2
IfColor DX+320,DY+192,e1e2e4,0
KeyPress 13,1
Else
Delay 2000
Goto check2
EndIf
Delay 1000
// 颜色比较判断是否进入到选择游戏世界画面
Rem check3
IfColor DX+451,DY+455,dad5cc,0
KeyPress 13,1
Else
Delay 2000
Goto check3
EndIf
Delay 1000
// 颜色比较判断是否进入到选择角色画面
Rem check4
IfColor DX+284,DY+402,e0d9cd,0
KeyPress 13,1
Else
Delay 2000
Goto check4
EndIf
Return LogIn
// 登出游戏
Sub LogOut
Plugin Window.Active(hwn)
Delay 100
Plugin Window.Restore(hwn)
Delay 1000
KeyDown 17,1
KeyPress 76,1
KeyUp 17,1
Delay 1000
KeyPress 13,1
Return LogOut
// ASCII码转换为精灵按键码
Sub ASCtoVK
// 数字0-9
If nAscCode>=48 And nAscCode<=57
VKCode = nAscCode
shiftDown = 0
// 小写字母
ElseIf nAscCode>=97 And nAscCode<=122
VKCode = nAscCode - 32
shiftDown = 0
// 大写字母
ElseIf nAscCode>=65 And nAscCode<=90
VKCode = nAscCode
shiftDown = 1
// !
ElseIf nAscCode=33
VKCode = 49
shiftDown = 1
// @
ElseIf nAscCode=64
VKCode = 50
shiftDown = 1
// #$%
ElseIf nAscCode>=35 And nAscCode<=37
VKCode = nAscCode + 16
shiftDown = 1
// ^
ElseIf nAscCode=94
VKCode = 54
shiftDown = 1
// &
ElseIf nAscCode=38
VKCode = 55
shiftDown = 1
// *
ElseIf nAscCode=42
VKCode = 56
shiftDown = 1
// (
ElseIf nAscCode=40
VKCode = 57
shiftDown = 1
// )
ElseIf nAscCode=41
VKCode = 48
shiftDown = 1
// -
ElseIf nAscCode=45
VKCode = 189
shiftDown = 0
// _
ElseIf nAscCode=95
VKCode = 189
shiftDown = 1
// =
ElseIf nAscCode=61
VKCode = 187
shiftDown = 0
// +
ElseIf nAscCode=43
VKCode = 187
shiftDown = 1
// [
ElseIf nAscCode=91
VKCode = 219
shiftDown = 0
// {
ElseIf nAscCode=123
VKCode = 219
shiftDown = 1
// ]
ElseIf nAscCode=93
VKCode = 221
shiftDown = 0
// }
ElseIf nAscCode=125
VKCode = 221
shiftDown = 1
// '
ElseIf nAscCode=39
VKCode = 222
shiftDown = 0
// "
ElseIf nAscCode=34
VKCode = 222
shiftDown = 1
// ;
ElseIf nAscCode=59
VKCode = 186
shiftDown = 0
// :
ElseIf nAscCode=58
VKCode = 186
shiftDown = 1
// \
ElseIf nAscCode=92
VKCode = 220
shiftDown = 0
// |
ElseIf nAscCode=108
VKCode = 220
shiftDown = 1
// ,
ElseIf nAscCode=44
VKCode = 188
shiftDown = 0
// <
ElseIf nAscCode=60
VKCode = 188
shiftDown = 1
// .
ElseIf nAscCode=46
VKCode = 190
shiftDown = 0
// >
ElseIf nAscCode=62
VKCode = 190
shiftDown = 1
// /
ElseIf nAscCode=47
VKCode = 191
shiftDown = 0
// ?
ElseIf nAscCode=63
VKCode = 191
shiftDown = 1
Else
VKCode = 32
shiftDown = 0
EndIf
Return ASCtoVK
// 处理用户名字符串
Sub ProcessUsername
dim array(), arrayAsc(),strLength, i
i = 0
strLength = Len(UserName)
redim array(strLength-1)
redim arrayAsc(strLength-1)
For strLength
array(i) = Mid(UserName, i+1, 1)
nAscCode = Asc(array(i))
Gosub ASCtoVK
Gosub SendKeyPress
i = i+1
EndFor
Return ProcessUsername
// 处理密码字符串
Sub ProcessPassword
dim array(), arrayAsc(),strLength, i
i = 0
strLength = Len(Password)
redim array(strLength-1)
redim arrayAsc(strLength-1)
For strLength
array(i) = Mid(Password, i+1, 1)
nAscCode = Asc(array(i))
Gosub ASCtoVK
Gosub SendKeyPress
i = i+1
EndFor
Return ProcessPassword
// 输入用户名及密码
Sub SendKeyPress
If shiftDown = 0
KeyPress VKCode,1
Else
KeyDown 16,1
KeyPress VKCode,1
KeyUp 16,1
EndIf
Return SendKeyPress

watertnt

那个脚本我貌似已经收藏了，就是还没用过...

言身寸舟方

17173网游第一论坛-信息提示



错误的参数传递!   返回  
[返回来源]