仙境传说自动加血器 源码

原文地址：http://www.ecranesoft.com/bbs/showtopic-9681.aspx

import win.ui;
import process;
/*DSG{{*/
var winform = win.form(parent=...; bottom=121;max=false;right=294;text="仙境传说自动加血器" )
winform.add( 
checkbox={ bottom=64;text="少于百分比自动加";left=11;top=42;font=LOGFONT( name="宋体";h=-12 );z=7;right=125;cls="checkbox" };
edit={ bottom=34;right=132;left=63;top=13;font=LOGFONT( name="宋体";h=-12 );z=1;text="edit";edge=1;cls="edit" };
static={ bottom=40;color=0;right=64;left=8;top=16;font=LOGFONT( name="宋体";h=-14;out=3;family=2;clip=2;quality=1 );transparent=1;align="center";text="当前血：";z=4;cls="static" };
static2={ bottom=36;color=0;right=193;left=136;top=15;font=LOGFONT( name="宋体";h=-14;out=3;family=2;clip=2;quality=1 );transparent=1;align="center";text="当前蓝：";z=5;cls="static" };
checkbox4={ bottom=93;text="无限复活草";left=175;top=73;font=LOGFONT( name="宋体";h=-12 );z=11;right=254;cls="checkbox" };
static3={ bottom=73;right=191;left=170;top=49;font=LOGFONT( name="宋体";h=-12 );z=8;transparent=1;text="%";cls="static" };
lblLink={ notify=1;color=16711680;text="使用快手(AAuto Quicker制作) 点这里获得程序源代码";left=1;top=97;font=LOGFONT( name="";h=-12 );transparent=1;z=2;bottom=115;right=292;cls="static" };
checkbox2={ bottom=67;text="自动加满金钱";left=180;top=41;font=LOGFONT( name="宋体";h=-12 );z=9;right=271;cls="checkbox" };
checkbox3={ bottom=93;text="无限弓箭";left=41;top=72;font=LOGFONT( name="宋体";h=-12 );z=10;right=110;cls="checkbox" };
edit3={ bottom=65;right=165;left=127;top=44;font=LOGFONT( name="宋体";h=-12 );z=6;text="80";edge=1;cls="edit" };
edit2={ bottom=35;right=266;left=197;top=11;font=LOGFONT( name="宋体";h=-12 );z=3;text="edit2";edge=1;cls="edit" }
)
/*}}*/

 

 var Colo=winform.lblLink.color;
var Dianji=0;
winform.wndproc = function(hwnd,message,wparam,lparam){

if(message = 0x200){
    
    if(Dianji=0){
        if(winform.lblLink.color!=16711680){
            winform.lblLink.color=16711680
            winform.redraw();
            }
        }
    else {
        
        if(winform.lblLink.color!=128){
            winform.lblLink.color=128;
            winform.redraw()
            }
    }
        }

    //无返回值则继续调用默认回调函数
}//endproc

import win.cur; 
var hand = win.cur.load(32649/*_IDC_HAND*/ )

winform.lblLink.wndproc = function(hwnd,message,wparam,lparam){ 

    if( message = 0x200/*_WM_MOUSEMOVE*/ ){
        
        win.cur.setCur(); 
        if(winform.lblLink.color!=12937777){
            winform.lblLink.color=12937777;
            winform.redraw();
            }       
        }

    //winform.lblLink.color=Colo;
    
}//endproc

winform.lblLink.oncommand = function(id,event){
    import process;
    process.execute("http://www.ecranesoft.com/");
    Dianji=1;
    winform.lblLink.color=128;
    winform.redraw()
}//endproc

function duneicun(Pid,dizhi){
    /*var语句声明的变量作用域限于函数内部*/
    prcs=process(Pid)
    var n = prcs.readNumber(dizhi,"WORD")
    return n;   
}

function xieneicun(Pid,dizhi,shuzhi){
    /*var语句声明的变量作用域限于函数内部*/ 
    prcs=process(Pid)
    prcs.writeNumber(dizhi,shuzhi,"WORD")   
}

tmid = winform.addtimer(800/*毫秒*/,function(hwnd,msg,id,tick){//定时执行代码

        var Pid;
        for processEntry in process.each( "eRBO_Ex3.exe") { 
            Pid=processEntry.th32ProcessID;
        }
        if(!Pid){
            return ; 
            }   
                
    lan = duneicun(Pid,0x2503A64)
    xue = duneicun(Pid,0x2503A5C)
    
    winform.edit.text=xue;
    winform.edit2.text=lan;
    
    if(winform.checkbox.checked=1){
        var zuidaxue=duneicun(Pid,0x2503A60);
        var zuidalan=duneicun(Pid,0x2503A68);
        var nz;
        
        nz=zuidaxue*winform.edit3.text*0.01;
        if(nz>=xue){
            var nxue =math.modf(zuidaxue*0.8)
            xieneicun(Pid,0x2503A5C,nxue)
            }
        
        nz=zuidaxue*winform.edit3.text*0.01;
        if(nz>=lan){
        var nlan =math.modf(zuidalan*0.8)
            xieneicun(Pid,0x2503A64,nlan)
            }
        }
        
    if(winform.checkbox2.checked=1){
            xieneicun(Pid,0x00ADFED8,99);
            }
        
    if(winform.checkbox3.checked=1){
        xieneicun(Pid,0x00ADEB38,50)    
        }
        
    if(winform.checkbox4.checked=1){
        xieneicun(Pid,0x00ADFF78,9)
        }
    
    //winform.killtimer(id)//移除此定时器
    });

winform.show() 
win.loopMessage();