随时选购服务
需求发布后1小时内收到服务商响应每个需求平均有10个服务商参与95%以上的需求得到了圆满解决所有需求不向雇主收取任何佣金引爆店铺流量，提升网店销量
已收到 3 个服务商的文案稿件
有相似问题想解决?专业顾问来帮助您
01托管赏金到猪八戒网02服务商交稿03选择满意的服务商04服务商工作05验收工作，满意后付款
完成手机认证,保证能随时联系到服务商
参与需求，开始赚钱
第1步：提交您的稿件
第2步：中标后交付作品
第3步：获得赏金
该需求下的优秀交稿
TA的交稿：
我不是高手,不过看到高手似乎未出现,在网上搜了下,找了个自称是**的外挂,不知是否有帮助./dlq.htm
TA的交稿：
http://125.91.13.100/chuanqi.rar&&&这个下载地址随时选购服务
需求发布后1小时内收到服务商响应每个需求平均有10个服务商参与95%以上的需求得到了圆满解决所有需求不向雇主收取任何佣金引爆店铺流量，提升网店销量
已收到 1 个服务商的文案稿件
有相似问题想解决?专业顾问来帮助您
01托管赏金到猪八戒网02服务商交稿03选择满意的服务商04服务商工作05验收工作，满意后付款
通过猪八戒网实名认证,保证身份真实可靠
完成手机认证,保证能随时联系到服务商
参与需求，开始赚钱
第1步：提交您的稿件
第2步：中标后交付作品
第3步：获得赏金
该需求下的优秀交稿您的举报已经提交成功，我们将尽快处理，谢谢！
用PHOTOSHOP。
网上先搜搜吧
大家还关注
(window.slotbydup=window.slotbydup || []).push({
id: '2081942',
container: s,
size: '1000,60',
display: 'inlay-fix'传奇SF挂机脚本 - 简书
下载简书移动应用
写了58914字，被21人关注，获得了49个喜欢
传奇SF挂机脚本
好像现在外挂都过不了登陆器，包括找罗楠拿的收费挂也不行，只好自己写一个挂机脚本。
按键精灵+大漠插件制作，职业：战士、道士，挂机位置尸魔洞一层，打开小地图为全图，分辨率为800×600。自动打怪、自动捡取、自动买药、自动修装备。测试6个小时正常挂机，初学写出来的感觉应该还能优化。不过写出来后也没兴致再玩游戏了。。。毕竟还要吃饭呢。
//PutAttachment "c:\test_game","*.*"
//PutAttachment ".\Plugin", "RegDll.dll"
//call Plugin.Regdll.reg("c:\test_game\dm.dll")
//注册大漠
//设置大漠路径以及字库名
Set dm = createobject("dm.dmsoft")
dm.SetPath ("d:")
dm_ret = dm.SetDict(0,"lanhuo.txt")
//绑定窗口和模式
hwnd = dm.GetMousePointWindow()
dm_ret = dm.BindWindow(hwnd, "dx2", "windows", "windows", 0)
//初始化跑图路径,和人物点
Dim nn,myx, myy
dm_ret = dm.FindStr(230,58,575,331, "宝箱", "ffffff-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
TracePrint "打宝箱"&intX&":"&intY
dm.MoveTo intX + 1, intY + 32
dm.LeftClick
Delay 2000
dm.MoveToEx 390, 230, 100, 100
dm.MoveToEx 390, 230, 100, 100
dm.MoveToEx 390, 230, 100, 100
dm_ret = dm.FindMultiColor(321, 124, 462, 213, "ff0000", "0|1|9c||3|-|3|-|6|-101010", 1.0, 0, intX, intY)
If intX &= 0 and intY &= 0 Then
TracePrint "打恶灵"&intX&":"&intY
dm.MoveTo intX + 15, intY + 45
dm.LeftClick
dm.MoveToEx 390, 230, 100, 100
dm.MoveToEx 390, 230, 100, 100
dm.MoveToEx 390, 230, 100, 100
Rem 捡东西
//判断身边是否有怪，有怪就先打怪，没怪就捡东西
dm_ret = dm.FindMultiColor(321,124,462,213,"ff0000","0|1|9c||3|-|3|-.0,0,intX,intY)
If dm_ret = 1 Then
//捡神开头的物品
dm_ret = dm.FindStrFast(0, 0, 800, 438, "神", "ff|ffffff-ddee-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
TracePrint "捡神"&intX&":"&intY
intX = intX + 25
intY = intY + 13
If intX & myx and intY & myy Then
Call 走左上角()
ElseIf intX & myx and intY & myy Then
Call 走左下角()
ElseIf intX & myx and intY & myy Then
Call 走右上角()
ElseIf intX & myx and intY & myy Then
Call 走右下角()
ElseIf intX = myx and intY & myy Then
Call 走下()
ElseIf intX = myx and intY & myy Then
Call 走上()
ElseIf intX & myx and intY = myy Then
Call 走右()
ElseIf intX & myx and intY = myy Then
Call 走左()
Delay 1000
Goto 捡东西
//捡金或强开头的物品
dm_ret = dm.FindStrFast(0, 0, 800, 438, "金|强", "ff|ffffff-ddee-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
TracePrint "捡金或强"&intX&":"&intY
intX = intX + 13
intY = intY + 18
If intX & myx and intY & myy Then
Call 走左上角()
ElseIf intX & myx and intY & myy Then
Call 走左下角()
ElseIf intX & myx and intY & myy Then
Call 走右上角()
ElseIf intX & myx and intY & myy Then
Call 走右下角()
ElseIf intX = myx and intY & myy Then
Call 走下()
ElseIf intX = myx and intY & myy Then
Call 走上()
ElseIf intX & myx and intY = myy Then
Call 走右()
ElseIf intX & myx and intY = myy Then
Call 走左()
Delay 1000
Goto 捡东西
Rem 买东西
hong = dm.Ocr(304, 425, 318, 440, "ffffff-000000", 1.0)
lan = dm.Ocr(346, 423, 366, 439, "ffffff-000000", 1.0)
TracePrint "红:" & hong
TracePrint "蓝:" & lan
If hong = 0 Then
TracePrint "买红药"
dm.MoveTo 766,566
Delay 2000
dm.LeftClick
dm.MoveTo 166, 22
Delay 2000
dm.LeftClick
dm.MoveTo 574, 83
Delay 2000
dm.LeftClick
dm.MoveTo 50, 205
Delay 2000
dm.LeftClick
dm.KeyPress 48
dm.MoveTo 88, 266
Delay 2000
dm.LeftClick
dm.MoveTo 344, 318
Delay 2000
dm.LeftClick
dm.MoveTo 692, 400 //打开背包
Delay 2000
dm.LeftClick
Delay 2000
//解开红药
dm_ret = dm.FindMultiColor(0, 0, 800, 600, "7b3118", "1|0|6b|6b|7b|942918", 1.0, 0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX, intY
Delay 2000
dm.RightClick
Delay 2000
//使用修复水
dm_ret = dm.FindMultiColor(0, 0, 800, 600, "d6c6ad", "1|0|bda57b,2|0|efc68c,3|0|f7f7de,4|0|b5a594", 1.0, 0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX, intY
Delay 2000
dm.RightClick
Delay 2000
dm.KeyPress 120
Delay 2000
dm.KeyPress 27
Delay 2000
If lan = 0 Then
TracePrint "买蓝药"
dm.MoveTo 766,566
Delay 2000
dm.LeftClick
dm.MoveTo 166, 22
Delay 2000
dm.LeftClick
dm.MoveTo 574, 147
Delay 2000
dm.LeftClick
dm.MoveTo 50, 205
Delay 2000
dm.LeftClick
dm.KeyPress 48
dm.MoveTo 88, 266
Delay 2000
dm.LeftClick
dm.MoveTo 344, 318
Delay 2000
dm.LeftClick
dm.MoveTo 692, 400 //打开背包
Delay 2000
dm.LeftClick
Delay 2000
//解开蓝药
dm_ret = dm.FindMultiColor(0, 0, 800, 600, "104284", "1|0||0||0|215aa5,4|0|738cff", 1.0, 0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX, intY
Delay 2000
dm.RightClick
Delay 2000
//使用修复水
dm_ret = dm.FindMultiColor(0, 0, 800, 600, "d6c6ad", "1|0|bda57b,2|0|efc68c,3|0|f7f7de,4|0|b5a594", 1.0, 0, intX, intY)
If intX &= 0 and intY &= 0 Then
dm.MoveTo intX, intY
Delay 2000
dm.RightClick
Delay 2000
dm.KeyPress 120
Delay 2000
dm.KeyPress 27
dm_ret = dm.FindStr(80,39,744,355,"恶|灵","ffffff-.0,intX,intY)
If intX &= 0 and intY &= 0 Then
TracePrint "屏幕范围找恶灵："&intX&":"&intY
dm.MoveTo intX+25, intY+5
dm.LeftClick
dm.MoveToEx 100, 100, 100, 100
dm.MoveToEx 100, 100, 100, 100
dm.MoveToEx 100, 100, 100, 100
dm_ret = dm.FindStr(80,39,744,355, "宝|箱", "ffffff-000000", 1.0, intX, intY)
If intX &= 0 and intY &= 0 Then
TracePrint "屏幕范围找宝箱："&intX&":"&intY
dm.MoveTo intX+4, intY+51
dm.LeftClick
dm.MoveToEx 390, 230, 100, 100
dm.MoveToEx 390, 230, 100, 100
dm.MoveToEx 390, 230, 100, 100
dm_ret = dm.FindMultiColor(672,0,800,128,"ff0000","0|1|ff|ff|ff|ff,0,intX,intY)
If intX &= 0 and intY &= 0 Then
TracePrint "小地图找怪："&intX&":"&intY
dm.MoveTo intX + i, intY + i
dm.RightClick
zuobiao = dm.Ocr(68,583,129,599, "ffffff-000000", 1.0)
zuobiaox = mid(zuobiao,1,instr(zuobiao, ":")-1)
zuobiaoy = mid(zuobiao,instr(zuobiao, ":")+1,3)
TracePrint "跑图中，当前坐标：" & zuobiaox & ":" & zuobiaoy
If 170 & zuobiaox & 164 and 128 & zuobiaoy & 120 Then
165 & zuobiaox & 150 and 30 & zuobiaoy & 20 Then
ElseIf 28 & zuobiaox & 18 and 80 & zuobiaoy & 70 Then
ElseIf 65 & zuobiaox & 55 and 180 & zuobiaoy & 170 Then
Select case nn
dm.MoveTo 770, 100
dm.RightClick
dm.MoveTo 760, 20
dm.RightClick
dm.MoveTo 630, 60
dm.RightClick
dm.MoveTo 666, 140
dm.RightClick
End Select
//随机走路的子程序，打算用于多线程判断是不是卡住了，后来发现用不到。
Sub 随机走()
TmpRnd = Int(rnd * 8 + 1)
TracePrint "随机走路:" & TmpRnd
Select Case TmpRnd
Call 走左()
Call 走右()
Call 走上()
Call 走下()
Call 走左上角()
Call 走右上角()
Call 走左下角()
Call 走右下角()
End Select
Sub 走左()
dm.MoveTo myx - 90, myy
dm.LeftClick
Sub 走右()
dm.MoveTo myx + 90, myy
dm.LeftClick
Sub 走上()
dm.MoveTo myx, myy - 90
dm.LeftClick
Sub 走下()
dm.MoveTo myx, myy + 90
dm.LeftClick
Sub 走左上角()
dm.MoveTo myx - 90, myy - 90
dm.LeftClick
Sub 走右上角()
dm.MoveTo myx + 90, myy - 90
dm.LeftClick
Sub 走左下角()
dm.MoveTo myx - 90, myy + 90
dm.LeftClick
Sub 走右下角()
dm.MoveTo myx + 90, myy + 90
dm.LeftClick
Sub OnScriptExit()
dm_ret = dm.UnBindWindow()
提取码：s4mi
AFF$神$0.0.56$12
FC30A7F2C0$恶$0.0.48$11
2A895E2A08$灵$0.0.45$11
A48CFCC00$宝$0.0.50$12
6AA9553F8$箱$0.0.64$12
10$2$0.0.16$8
411FE.0.11$8
0$7$0.0.11$8
E0$3$0.0.15$8
7EE0$0$0.0.18$8
0C0$4$0.0.18$8
C0$9$0.0.18$8
6EE0$8$0.0.19$8
3EE0$6$0.0.18$8
FAE0$5$0.0.19$8
840$:$0.0.2$6
911FD00$金$0.0.45$12
7EE0$6$0.0.19$8
FE0$5$0.0.18$8
50$4$0.0.16$8
C800$7$0.0.13$8
E0$9$0.0.19$8
4FE91E0$强$0.0.63$12
如果觉得我的文章对您有用，请随意打赏。您的支持将鼓励我继续创作！
打开微信“扫一扫”，打开网页后点击屏幕右上角分享按钮
如果觉得我的文章对您有用，请随意打赏。您的支持将鼓励我继续创作！
选择支付方式：}