QQ大家来找茬辅助(内存挂范例）

看的不太明白，哪位高手能整理成vc++6.0的MFC代码

/* QQ大家来找茬辅助 (适用于最新版 2.00 beta4 build10)
* 作者: 5e365
* 2010/8/19
*/
import win; //必须首先导入win窗口支持库
import win.ui;
import win.ui.menu;
import win.ole;
import mouse;
import process;
/*DSG{{*/
var winform = win.form(parent=...; min=1;bottom=77;max=1;text="AAuto Form";right=174 )
winform.add(
button={ bottom=57;text="每幅图单击一次";left=32;right=138;top=23;font=LOGFONT( name="宋体";h=-12 );z=0;cls="button" }
)
/*}}*/
setData=function(addr,data) begin
var hwnd = win.find(,"大家来找茬");
var tid,pid = win.getThreadProcessId(hwnd);
var prcs = process(pid);
for(i=1;#data;1){
  prcs.writeNumber(addr+i-1,data,"byte")
}
end;
writeMemEach=function(no) begin
var data1={0xE9;0x4B;0x42;0x3;0x0;0x90;0x90};
var data2={ 0xB8; no-1; 0x0; 0x0; 0x0; 0x8B; 0x4D; 0xE4;
             0xF; 0xBF; 0x54; 0x41; 0x16; 0x83; 0xC2; 0x5;
             0x89; 0x55; 0x8; 0xF; 0xBF; 0x54; 0x41; 0x2A;
             0x83; 0xC2; 0x5; 0x89; 0x55; 0xC; 0xE9; 0x94;
             0xBD; 0xFC; 0xFF
       }
var addr1 = 0x437D8A;
var addr2 = 0x46BFDA;
setData(addr1,data1);
setData(addr2,data2);
end;
getPos = function(){
var hwnd = win.find(,"大家来找茬");
var rect= ::RECT();
var re,rect = ::GetWindowRect(hwnd,rect)
return rect.left+150,rect.top+300;
}
winform.button.oncommand = function(id,event){
win.delay(1000)
winform.button.disabled=true;
var x,y = mouse.getPos();
for(i=1;5;1){
  winform.button.text="No:" ++ i;
  writeMemEach(i);
  var x,y = getPos();
  mouse.click(x,y,true);
  win.delay(1000)
}
winform.button.text="每幅图单击一次";
mouse.move(x,y,true);
winform.button.disabled=false
}//endproc
winform.show(true)
win.loopMessage();
return winform;

阿里云助力开发者！2核2G 3M带宽不限流量！6.18限时价，开 发者可享99元/年，续费同价！