z4131246
华铭工控
级别: 工控侠客
精华主题: 0
发帖数量: 582 个
工控威望: 2562 点
下载积分: 23788 分
在线时间: 521(小时)
注册时间: 2010-10-22
最后登录: 2022-08-19
查看z4131246的 主题 / 回贴
楼主  发表于: 2011-04-30 14:31
求各位高手帮我破解下这个文件很急 这文件是EB6000系列的威纶触摸屏的文件因为一些特殊原因密码没了 求各位大师帮帮忙破解
[ 此帖被z4131246在2011-05-03 10:43重新编辑 ]
附件: DC400.rar (62 K) 下载次数:30
网站提示: 请不要用迅雷下载附件,容易出错
lilin0734
lilin
级别: 略有小成
精华主题: 0
发帖数量: 248 个
工控威望: 358 点
下载积分: 1111 分
在线时间: 283(小时)
注册时间: 2007-05-29
最后登录: 2024-08-02
查看lilin0734的 主题 / 回贴
1楼  发表于: 2011-05-03 11:00
自己做一个吧,在里面看到了这个东西

Macro_Command main()
int tp,sj,sp
bool  a,b,c
GetData(a ,"Panasonic FP", R_Binplc ,1010,1)  
GetData(b ,"Panasonic FP", R_Binplc ,1011,1)
GetData(c ,"Panasonic FP", R_Binplc ,1012,1)
    
If a==False Then
GetData(tp ,"Panasonic FP", DT_Binplc ,630,1)
Else If a==True Then
GetData(tp ,"Panasonic FP", DT_Binplc ,631,1)  
End If
SetData(tp ,"Panasonic FP", DT_Binplc ,620,1)

If b==False Then
GetData(sj ,"Panasonic FP", DT_Binplc ,632,1)
Else If b==True Then
GetData(sj ,"Panasonic FP", DT_Binplc ,633,1)  
End If
SetData(sj ,"Panasonic FP", DT_Binplc ,622,1)

If c==False Then
GetData(sp ,"Panasonic FP", DT_Binplc ,634,1)
Else If c==True Then
GetData(sp ,"Panasonic FP", DT_Binplc ,635,1)  
End If
SetData(sp ,"Panasonic FP", DT_Binplc ,621,1)

End Macro_CommandCommonUnShow               ?  macro_command main()
int a,h1
bool b,c,d,d1,e ,f,g
b=true
c=false
GetData(a ,"本机 触摸屏", LW ,9050,1)  
GetData(d ,"Panasonic FP", R ,888,1)
GetData(d1 ,"Panasonic FP", R ,889,1)
GetData(e ,"Panasonic FP", R,493,1)
GetData(f ,"Panasonic FP", R ,492,1)
GetData(g ,"Panasonic FP", R ,350,1)
GetData(h1 ,"Panasonic FP",DT ,87,1)
                      
if e==true then
    SetData(e ,"本机 触摸屏", LB_Binplc ,61,1)
end if  
  
if a<> 10 and a<>11  then
    SetData(c ,"本机 触摸屏", LB ,60,1)
    SetData(c ,"本机 触摸屏", LB ,200,1)
else if f<> true and g<>350  then
   SetData(b ,"本机 触摸屏", LB ,60,1)
end if

if h1==37 or h1==38 or h1==39 then
    SetData(c ,"本机 触摸屏", LB ,60,1)
    SetData(c ,"本机 触摸屏", LB ,200,1)
end if

if a==11 and d==true then
    SetData(c ,"本机 触摸屏", LB,60,1)
end if  
if a==11 and d1==true then
    SetData(c ,"本机 触摸屏", LB ,60,1)
end if

End Macro_Command
本帖最近评分记录:
  • 下载积分:+1(z4131246) 谢谢 真的很感谢你 我实 ..
  • 向前的每一步都不是浪费