找回密码
 立即注册
GTA5修改器.风灵月影生化危机7修改器.风灵月影三国志13修改器.风灵月影讨鬼传2修改器.风灵月影猎天使魔女修改器.风灵月影
刺客信条修改器虐杀原形2修改器.风灵月影看门狗2修改器.风灵月影鬼泣5修改器.风灵月影上古卷轴5修改器
查看: 57|回复: 0

梦幻西游跑商脚本 VB +大漠找图

[复制链接]

2604

主题

2627

帖子

8001

积分

论坛元老

Rank: 8Rank: 8

积分
8001
发表于 2017-7-3 21:26:48 | 显示全部楼层 |阅读模式
01.jpg

代码是按键精灵模式的,请自己转化为VB 或者 VC。部分代码如下:
Sub 长寿出售
    Rem 22yy
    If csdqsr=0 or csdqsr=2
        Gosub 长寿第一个商人
    Else
        Gosub 长寿第二个商人
    EndIf
    If gm1=1
        Rem 卖佛珠
        VBSCall FindPic(330,82,603,159,"佛珠.bmp",0.7,x,y)
        If x>0 and y>0
            x=x+30
            y=y+33
            Gosub py
            Delay 50
            LeftClick 1
            Delay 300
            Plugin fzchoushou=DBSoft.OCR(0,456,392,502,408,0,0,"Songti_13.Dll",1,0,"000000",0,0,"")
            If fzchoushou=""
                Plugin fzchoushou=DBSoft.OCR(0,456,392,502,408,0,0,"Songti_13.Dll",1,0,"f80000",0,0,"")
            EndIf
            If fzchoushou=""
                Goto 卖佛珠
            EndIf
            fzcs=fzchoushou*1
            If csdqsr=1
                fzcs1=fzcs
            Else
                fzcs2=fzcs
            EndIf
            If fzcs>=fz3
                Gosub 出售动作
                Goto 卖佛珠
            EndIf
            If csdqzt=1
                If csdqsr=1
                    If fzcs1>=fzcs2 and fzcs1>=fz4
                        Gosub 出售动作
                        Goto 卖佛珠
                    EndIf
                Else
                    If fzcs2>=fzcs1 and fzcs2>=fz4
                        Gosub 出售动作
                        Goto 卖佛珠
                    EndIf
                EndIf
            EndIf
        Else
            gm1=0
        EndIf
    EndIf
    If gm2=1
        Rem 卖扇子
        VBSCall FindPic(330,82,603,159,"商品扇子.bmp",0.8,x,y)
        If x>0 and y>0
            x=x+30
            y=y+33
            Gosub py
            Delay 50
            LeftClick 1
            Delay 300
            Plugin szchoushou=DBSoft.OCR(0,456,392,502,408,0,0,"Songti_13.Dll",1,0,"000000",0,0,"")
            If szchoushou=""
                Plugin szchoushou=DBSoft.OCR(0,456,392,502,408,0,0,"Songti_13.Dll",1,0,"f80000",0,0,"")
            EndIf
            If szchoushou=""
                Goto 卖扇子
            EndIf
            szcs=szchoushou*1
            If csdqsr=1
                szcs1=szcs
            Else
                szcs2=szcs
            EndIf
            If szcs>=sz3
                Gosub 出售动作
                Goto 卖扇子
            EndIf
            If csdqzt>0
                If csdqsr=1
                    If szcs1>=szcs2 and szcs1>=sz4
                        Gosub 出售动作
                        Goto 卖扇子
                    EndIf
                Else
                    If szcs2>=szcs1 and szcs2>=sz4
                        Gosub 出售动作
                        Goto 卖扇子
                    EndIf
                EndIf
            EndIf
        Else
            gm2=0
        EndIf
    EndIf
    If gm3=1
        Rem 卖武器
        VBSCall FindPic(330,82,603,159,"商品武器.bmp",0.8,x,y)
        If x>0 and y>0
            x=x+30
            y=y+33
            Gosub py
            Delay 50
            LeftClick 1
            Delay 100
            Plugin wqchoushou=DBSoft.OCR(0,456,392,502,408,0,0,"Songti_13.Dll",1,0,"000000",0,0,"")
            If wqchoushou=""
                Plugin wqchoushou=DBSoft.OCR(0,456,392,502,408,0,0,"Songti_13.Dll",1,0,"f80000",0,0,"")
            EndIf
            If wqchoushou=""
                Goto 卖武器
            EndIf
            wqcs=wqchoushou*1
            If csdqsr=1
                wqcs1=wqcs
            Else
                wqcs2=wqcs
            EndIf
            If wqcs>=wq3
                Gosub 出售动作
                Goto 卖武器
            EndIf
            If csdqzt>0
                If csdqsr=1
                    If wqcs1>=wqcs2 and wqcs1>=wq4
                        Gosub 出售动作
                        Goto 卖武器
                    EndIf
                Else
                    If wqcs2>=wqcs1 and wqcs2>=wq4
                        Gosub 出售动作
                        Goto 卖武器
                    EndIf
                EndIf
            EndIf
        Else
            gm3=0
        EndIf
    EndIf
    If gm1=0 and gm2=0 and gm3=0
        Plugin totalnow=DBSoft.OCR(0,158,414,213,433,0,0,"Songti_13.Dll",1,0,"000000",0,0,"")
        If totalnow=""
            Plugin totalnow=DBSoft.OCR(0,158,414,213,433,0,0,"Songti_13.Dll",1,0,"f80000",0,0,"")
            If totalnow=""
                Plugin totalnow=DBSoft.OCR(0,158,414,213,433,0,0,"Songti_13.Dll",1,0,"009c00",0,0,"")
            EndIf
梦幻跑商源码.rar (9.27 KB, 下载次数: 0, 售价: 10 金钱)
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

快速回复 返回顶部 返回列表