【有源码】发个扫雷小助手，源码奉上。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

落小雨

RE: 【有源码】发个扫雷小助手，源码奉上。TC蛋蛋【原创】 [修改]

pop_tiger

多谢分享

tbmbx2017

喜闻乐见的帖子呀！

hehuangzang

的顶顶顶顶顶顶顶顶顶顶

pk321

看看看待看看看待看看看待看看看待

yanjin0917

hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh

yanjin

wwwwwwwwwwwwwwwww

a80453421

5555555555555

五行属二

发个扫雷