menu menubar {
My Info:Myinfo
}
Alias myinfo { dialog -ma MyInfo MyInfo }
dialog MyInfo {
title "Pc Info by ALBaShaH"
size -1 -1 185 200
button "&Close", 1, 92 172 50 20, cancel, default
box "", 2, 1 -5 182 204
text "Nickname", 3, 7 8 48 20
edit "", 4, 70 5 100 20, read, autohs
text "Ip Address", 5, 7 28 50 20
edit "", 6, 70 25 100 20, read, autohs
text "Server", 7, 7 48 35 20
edit "", 8, 70 45 100 20, read, autohs
text "Port", 9, 7 68 30 20
edit "", 10, 70 65 100 20, read, autohs
text "Host", 11, 7 88 30 20
edit "", 12, 70 85 100 20, read, autohs
text "O/S", 13, 7 108 25 20
edit "", 14, 70 105 100 20, read, autohs
text "Idle", 15, 7 128 25 20
edit "", 16, 70 125 100 20, read, autohs
text "Uptime", 17, 7 148 40 20
edit "", 18, 70 145 100 20, read, autohs
button "&�������", 19, 30 172 50 20
}
on 1:dialog:Myinfo:init:0:{ pcupdate }
on 1:dialog:Myinfo:sclick:19:{ pcupdate }
alias pcupdate { if ($dialog(Myinfo) != $null) { did -ra myinfo 4 $me | did -ra myinfo 6 $ip | if ($server != $null) { did -ra myinfo 8 $server } | else { did -ra myinfo 8 Not Connected } | did -ra myinfo 10 $port | if ($host != $null) { did -ra myinfo 12 $host } | else { did -ra myinfo 12 Not Connected } | did -ra myinfo 14 $os | did -ra myinfo 16 $duration($idle) | did -ra myinfo 18 $duration($int($calc($ticks / 1000))) } }
اخوكم احمد الباشا
My Info:Myinfo
}
Alias myinfo { dialog -ma MyInfo MyInfo }
dialog MyInfo {
title "Pc Info by ALBaShaH"
size -1 -1 185 200
button "&Close", 1, 92 172 50 20, cancel, default
box "", 2, 1 -5 182 204
text "Nickname", 3, 7 8 48 20
edit "", 4, 70 5 100 20, read, autohs
text "Ip Address", 5, 7 28 50 20
edit "", 6, 70 25 100 20, read, autohs
text "Server", 7, 7 48 35 20
edit "", 8, 70 45 100 20, read, autohs
text "Port", 9, 7 68 30 20
edit "", 10, 70 65 100 20, read, autohs
text "Host", 11, 7 88 30 20
edit "", 12, 70 85 100 20, read, autohs
text "O/S", 13, 7 108 25 20
edit "", 14, 70 105 100 20, read, autohs
text "Idle", 15, 7 128 25 20
edit "", 16, 70 125 100 20, read, autohs
text "Uptime", 17, 7 148 40 20
edit "", 18, 70 145 100 20, read, autohs
button "&�������", 19, 30 172 50 20
}
on 1:dialog:Myinfo:init:0:{ pcupdate }
on 1:dialog:Myinfo:sclick:19:{ pcupdate }
alias pcupdate { if ($dialog(Myinfo) != $null) { did -ra myinfo 4 $me | did -ra myinfo 6 $ip | if ($server != $null) { did -ra myinfo 8 $server } | else { did -ra myinfo 8 Not Connected } | did -ra myinfo 10 $port | if ($host != $null) { did -ra myinfo 12 $host } | else { did -ra myinfo 12 Not Connected } | did -ra myinfo 14 $os | did -ra myinfo 16 $duration($idle) | did -ra myinfo 18 $duration($int($calc($ticks / 1000))) } }
اخوكم احمد الباشا
تعليق