【有源码】发个扫雷小助手，源码奉上。TC蛋蛋【原创】

lyf1314

游客，如果您要查看本帖隐藏内容请回复

奉上源码：
namespace winme
DM=com("dm.dmsoft")
function start_click()
list.deleteall("list0")
hwnd,a,id,x,b,i
xy,yy
i=0
x=#01005361
hwnd=window.findwindow("扫雷")
id=combo.getcursel("ComboBox0")
if(id==0)
    a=9
    b=9
endif
if(id==1)
    a=16
    b=16
endif
if(id==2)
    a=30
    b=16
endif
if(id==3)
    a=convert.strtoint(edit.gettext("edit0"),0)
    b=convert.strtoint(edit.gettext("edit1"),0)
endif
while(i<b)
    xy=DM.ReadData(hwnd,str.format("%x",x),a)
    yy=str.replace(str.replace(str.replace(str.replace(str.replace(str.replace(str.replace(str.replace(str.replace(str.replace(str.replace(xy,"8F","雷"),"41","无"),"42","无"),"43","无"),"44","无"),"45","无"),"46","无"),"47","无"),"48","无"),"49","无"),"0F","无")
    list.addstring("list0",yy)
    x=x+#20
    i=i+1
endwhile
return true
endfunction
function exit_click()
help.exit()
return true
endfunction
function button0_click()
help.confirmationbox("选择正确的模式，开局点击任意一个开始计时后，扫描雷区,自定义模式选手动输入宽，高。","扫雷助手",1,true)
return true
endfunction

function init()
combo.setcursel("ComboBox0",0)
control.show("edit0",false)
control.show("edit1",false)
control.show("Static10",false)
control.show("Static11",false)
return true
endfunction
function timer0_ontime()
id
id=combo.getcursel("ComboBox0")
if(id==3)
    control.show("edit0",true)
    control.show("edit1",true)
    control.show("Static10",true)
    control.show("Static11",true)
else
    control.show("edit0",false)
    control.show("edit1",false)
    control.show("Static10",false)
    control.show("Static11",false)
endif
return true
endfunction
endnamespace

xuhuanqi

顶顶，沙发

小丶笨笨

好家伙  火星人

yy1314

不认识英文。。。。

Guard

:*英文版的，我喜欢。

hui1165103041

支持啊！~:-o

TC

牛B人士

陌上青衣。

蛋蛋。。。写点2D游戏代码吧

ltsi001

好东西，顶起

ldongh

顶。。。。。