大航海时代Online威尼斯国家论坛

标题: 小小脚本 [打印本页]

作者: 填充 时间: 2009-1-10 14:16
标题: 小小脚本
我用过的，除非你用错不然一定可以用

挂炮-TNS1039任务帕西面无需361插件式后台脚本

快键设定: F8 自定义档 F2 料理 F3 救助 F4水桶 F5 水平 F6 弹道 F7 速射 F8修理

Plugin hwnd = Window.GetKeyFocusWnd()
Delay 2000
For 99
For 1
      Gosub 技能
EndFor
For 60
      Gosub 战斗
EndFor
For 2
      Gosub 料理
EndFor
For 5
      Gosub 修理
EndFor
EndFor
Sub 技能
Plugin Window.SendKeyPress(hwnd,119)
//f8 自定义档
Delay 2000
Plugin Window.SendKeyPress(hwnd,118)
//f7 速射
Delay 2000
Plugin Window.SendKeyPress(hwnd,119)
// f8
Delay 2000
Plugin Window.SendKeyPress(hwnd,117)
// f6 弹道
Delay 2000
Plugin Window.SendKeyPress(hwnd,119)
// f8
Delay 2000
Plugin Window.SendKeyPress(hwnd,116)
// f5 水平
Delay 2000
// Plugin Window.SendKeyPress(hwnd,121)
// Delay 2000
// Plugin Window.SendKeyPress(hwnd,118)
// Delay 2000
Return 技能
Sub 战斗
Plugin Window.SendKeyPress(hwnd,112)
Delay 500
Plugin Window.SendKeyPress(hwnd,113)
Delay 500
Plugin Window.SendKeyPress(hwnd,114)
Delay 500
Return 战斗
Sub 料理
Plugin Window.SendKeyPress(hwnd,119)
// f8
Delay 1000
Plugin Window.SendKeyPress(hwnd,113)
// f2 料理
Delay 1000
Plugin Window.SendKeyPress(hwnd,119)
// f8 修理
Delay 1500
Plugin Window.SendKeyPress(hwnd,115)
// f4 水桶
Delay 500
Plugin Window.SendKeyPress(hwnd,119)
Delay 1500
Plugin Window.SendKeyPress(hwnd,114)
// f3 救助
Delay 500
Return 料理
Sub 修理
Plugin Window.SendKeyPress(hwnd,119)
Delay 500
Plugin Window.SendKeyPress(hwnd,119)
Delay 500
Return 修理

[ 本帖最后由填充于 2009-1-10 14:20 编辑 ]

作者: 填充 时间: 2009-1-10 14:16

采集用，貌似奶子做的需要361插件

F1采级 F6 料理  F8料理可以放二种`很简单的脚本

````````````````````````````````````````````````````````````````````````
VBS set TiShiObj = createobject("WScript.Shell")
Tishi="注意:不要动鼠标，直到窗口切换为止!!!"
Plugin hwn=Window.GetKeyFocusWnd()
VBS Dim Blood
VBS Dim DX,DY
//获取窗口原始位置函数
Plugin handle=Window.Foreground()
Plugin s = Window.GetClientRect(handle)
MyArray = Split(s, "|", -1, 1)
DX = MyArray(0)
DY = Myarray(1)
For 50000
For 6
      Plugin Window.Active(hwn)
      Delay 300
      Plugin Window.Restore(hwn)
      Delay 500
      VBSCall ReadMemory(&H00a90e84,2,Blood)
      Delay 300
      KeyDown 18,1
      KeyPress 9,1
      KeyUp 18,1
      Delay 300
      If Blood < 250
         For 2
            Plugin Window.SendKeyPress(hwn,121) //本人后加上的
            Delay 1000
            Plugin Window.SendKeyPress(hwn,112)
            Delay 2000
            Plugin Window.SendKeyPress(hwn,117)
            Delay 1000
            Plugin Window.SendKeyPress(hwn,112)
            Delay 2000
            Plugin Window.SendKeyPress(hwn,119)
            Delay 1000
         EndFor
      EndIf
      For 40
         Plugin Window.SendKeyPress(hwn,112)
         Delay 2000
         Plugin Window.SendKeyPress(hwn,112)
         Delay 3000
         Plugin BGKM5.LClick(hwn,780,290)
         Delay 1000
         Plugin Window.SendKeyPress(hwn,13)
         Delay 200
         Plugin Window.SendKeyPress(hwn,121) //F10本人后来加上的
         Delay 800
      EndFor
EndFor
Gosub 丢弃物品
EndFor
Sub 丢弃物品
Plugin Window.Active(hwn)
Delay 500
Plugin Window.Restore(hwn)
Delay 500
Plugin Window.SendKeyPress(hwn,13)
Delay 200
Call TiShiObj.Popup(Tishi,2,"2秒后窗口自动关闭",0)
Delay 100
Rem 以下是丢弃废物
Plugin Window.SendKeyPress(hwn,121) //F10本人后加上的
Delay 500
Plugin Window.SendKeyPress(hwn,118)
Delay 2000
MoveTo 437-5+DX,393-24+DY
Delay 1000
LeftClick 1
Delay 1000
MoveTo 120-5+DX,164-24+DY
Delay 1000
KeyDown 17,1
For 4
      Delay 500
      LeftClick 1
EndFor
Delay 500
KeyUp 17,1
Delay 500
MoveTo 636-5+DX,420-24+DY
Delay 1000
LeftClick 1
Delay 500
Plugin Window.SendKeyPress(hwn,27)
Delay 300
Plugin Window.SendKeyPress(hwn,27)
Return 丢弃物品

作者: 填充 时间: 2009-1-10 14:17

无敌模式后台采集--我写的无需361插件

PutAttachment .plugin
Plugin dol = Window.Find(0,"大航海时代 Online")
For 200
For 12
      Plugin Window.SendKeyPress(dol,120)
      Delay 1000
      Plugin Window.SendKeyPress(dol,112)
      Delay 7500

EndFor
Plugin Window.SendKeyPress(dol,120)
Delay 1000
Plugin Window.SendKeyPress(dol,113)
Delay 1000
EndFor

作者: 填充 时间: 2009-1-10 14:17

奶子专用超级后台划船脚本要361插件支持滴

//自定义栏: F1-操帆 F2-划船 F3-警戒 F4-望风/运用 F5-救助 F6-料理 F7-随你（因为用不到） F8-随你（同F7）
//800*600窗口随意位置。
//快捷键F1-F7为“没有登录”，F8-自定义栏，F9-使用技能,F10-F12也选“没有登录”
//首先选中游戏窗口，然后开始脚本，然后就可以切换到其他程序，不用管了。
//本脚本是和361度后台插件一起配合使用
//脚本开始后不要再手动调整视角
//记得出去的时候船上要有木头。
//本脚本不消除异状（耗子，想家，睡不着之类的），所以出去前把装备存了。
//别看这个脚本很短，其实是相当的巧的。
Plugin awin=Window.GetKeyFocusWnd()
Plugin BGKM5.RDown(awin,500,50)
Delay 100
Plugin BGKM5.MMove(awin,500,500)
Plugin BGKM5.RUp(awin,500,500)
While 1
Plugin Window.SendKeyPress(awin,119)
//F8
Delay 2900
Plugin Window.SendKeyPress(awin,112)
Plugin Window.SendKeyPress(awin,113)
Plugin Window.SendKeyPress(awin,114)
Plugin Window.SendKeyPress(awin,115)
Plugin Window.SendKeyPress(awin,116)
Plugin Window.SendKeyPress(awin,117)
Plugin Window.SendKeyPress(awin,118)
Delay 100
Plugin Window.SendKeyPress(awin,120)
Plugin BGKM5.LDBCLK(awin,760,323)
Plugin BGKM5.RClick(awin,500,500)
EndWhile

[ 本帖最后由填充于 2009-1-10 14:22 编辑 ]

作者: 填充 时间: 2009-1-10 14:19

  网络上流行的划船脚本  需要361插件

VBS Dim i,j,ren,chp,hp,xmin,pd1,pd2,hpmax,delaymax,hcsw,jssw
VBS Dim sw1,sw2,sw3,sw4,sw5,sw5_1,sw5_2,sw1_1,day,day1,day2,day3,day4
VBS Dim chpAdd,renAdd,hpAdd,DayAdd
UserVar hpmax=60 吃料理体力上限
UserVar delaymax=30 调节网速
UserVar hcsw=1 转圈/点岸开关,1转圈,0点岸边
UserVar sw1=1 操帆开关1开启0关闭(F5)
UserVar sw1_1=1 操帆加速练习开关1启用0关闭
UserVar sw2=1 划船开关1开启0关闭(F2)
UserVar sw3=1 自定义开关1开启0关闭(F3)
UserVar sw4=1 自定义开关1开启0关闭(F4)
UserVar sw5=1 漂副官开关1开启0关闭
UserVar sw5_1=1 二副官开关1开启0关闭
UserVar sw5_2=80 漂副官职位天数(天)
VBS chpAdd=&H00af851a
VBS renAdd=&H00af850c
VBS hpAdd=&H00af8500
VBS dayAdd=&H00afa3c4
VBSCall Call GetCursorPos(pd1,pd2)
Plugin hwn=Window.Foreground()
//Plugin hwn=Window.GetKeyFocusWnd()
Plugin win=BGKM5.ScrToCli(hwn,pd1,pd2)
MyArray = Split(win, "|", -1, 1)
pd1 = MyArray(0)
pd2 = MyArray(1)
Gosub 读参数
VBS day4=day
While 1
Gosub 点岸边
Gosub 救助
Gosub 点岸边
Gosub 吃料理
Gosub 点岸边
Gosub 划船
Gosub 点岸边
Gosub 操帆
Gosub 点岸边
Gosub 自定义1
Gosub 点岸边
Gosub 自定义2
Gosub 点岸边
Gosub 副官
Gosub 点岸边
EndWhile
Sub 读参数
Plugin ren=Memory.Read16Bit(hwn,renAdd)
Plugin xmin=Memory.Read16Bit(hwn,hpAdd)
Plugin chp=Memory.Read16Bit(hwn,chpAdd)
Plugin day=Memory.Read32Bit(hwn,dayAdd)
Return 读参数
Sub 清屏
VBS i=0
Plugin Window.SendKeyPress(hwn,120)
Return 清屏
Sub 划船
If sw2=1
      Gosub 读参数
      VBS hp=xmin
      While hp=xmin
         Plugin Window.SendKeyPress(hwn,113)
         Plugin Window.SendKeyPress(hwn,27)
         Gosub 点岸边
         Gosub 读参数
         VBS i=i+1
         If i-delaymax>0
            Goto 超时退出
         EndIf
      EndWhile
      Rem 超时退出
      Gosub 清屏
EndIf
Return 划船
Sub 操帆
If sw1=1
      Gosub 读参数
      VBS hp=xmin
      While hp=xmin
         Plugin Window.SendKeyPress(hwn,116)
         Plugin Window.SendKeyPress(hwn,27)
         Gosub 点岸边
         Gosub 读参数
         VBS i=i+1
         If i-delaymax>0
            Goto 超时退出1
         EndIf
      EndWhile
      Rem 超时退出1
      If sw1_1=1
         Plugin BGKM5.LClick(hwn,781,581)
      EndIf
      Gosub 清屏
EndIf
Return 操帆
Sub 点岸边
If hcsw=1
      Plugin BGKM5.RClick(hwn,pd1,pd2)
      Plugin BGKM5.LDBCLK(hwn,pd1,pd2)
EndIf
If hcsw=0
      Plugin BGKM5.LDBCLK(hwn,pd1,pd2)
      Plugin BGKM5.LDBCLK(hwn,pd1+20,pd2)
EndIf
Return 点岸边
Sub 副官
If sw5=1
      Gosub 读参数
      VBS day1=(day-day4)/sw5_2-(day-day4)\sw5_2
      VBS day2=day-day4-sw5_2
      If day1=0 and day2>=0 and day3-day<>0
         VBS day3=day
         For 3
            Plugin Window.SendKeyPress(hwn,123)
         EndFor
         Delay 2000
         Plugin Window.SendKeyPress(hwn,40)
         Delay 1000
         Plugin BGKM5.LClick(hwn,343,98)
         Delay 1000
         Plugin Window.SendKeyPress(hwn,38)
         Delay 1000
         Plugin Window.SendKeyPress(hwn,13)
         Delay 1000
         Plugin Window.SendKeyPress(hwn,27)
      EndIf
EndIf
Return 副官
Sub 自定义1
If sw3=1
      Gosub 读参数
      VBS hp=xmin
      While hp=xmin
         Plugin Window.SendKeyPress(hwn,114)
         Plugin Window.SendKeyPress(hwn,27)
         Gosub 点岸边
         Gosub 读参数
         VBS i=i+1
         If i-delaymax>0
            Goto 超时退出2
         EndIf
      EndWhile
      Rem 超时退出2
      Gosub 清屏
EndIf
Return 自定义1
Sub 自定义2
If sw4=1
      Gosub 读参数
      VBS hp=xmin
      While hp=xmin
         Plugin Window.SendKeyPress(hwn,115)
         Plugin Window.SendKeyPress(hwn,27)
         Gosub 点岸边
         Gosub 读参数
         VBS i=i+1
         If i-delaymax>0
            Goto 超时退出3
         EndIf
      EndWhile
      Rem 超时退出3
      Gosub 清屏
EndIf
Return 自定义2
Sub 救助
Gosub 读参数
While ren=0 or chp=0
      Plugin Window.SendKeyPress(hwn,112)
      Gosub 点岸边
      Plugin Window.SendKeyPress(hwn,27)
      Gosub 读参数
EndWhile
Return 救助
Sub 吃料理
Gosub 读参数
While xmin-hpmax<0
      Plugin Window.SendKeyPress(hwn,118)
      Gosub 点岸边
      Plugin Window.SendKeyPress(hwn,27)
      Gosub 读参数
EndWhile
Return 吃料理

作者: bella 时间: 2009-1-10 15:46