02-25-2009, 05:26 PM
I tried
Function pings
Trigger CN7
It would be possible to create something like this in a QM dialog?
Note: another program that does this: http://www.tools4ever.com/products/free/freeping/
Function pings
Trigger CN7
str controls = "7 8 9 10"
str e7 e8 e9 e10
if(!ShowDialog("pings" 0 &controls 0 0 0 0 0 10 0.5)) ret
ArrangeWindows 1
if(e10.len)
,str comando.format("/K ping -t %s" e10)
,run "%COMSPEC%" comando
,int hwnd=win
,0.25
,str temp.format("Rama D - %s" e10)
,temp.setwintext(hwnd)
if(e9.len)
,comando.format("/K ping -t %s" e9)
,run "%COMSPEC%" comando
,hwnd=win
,0.25
,temp.format("Rama C - %s" e9)
,temp.setwintext(hwnd)
if(e8.len)
,comando.format("/K ping -t %s" e8)
,run "%COMSPEC%" comando
,hwnd=win
,0.25
,temp.format("Rama B - %s" e8)
,temp.setwintext(hwnd)
if(e7.len)
,comando.format("/K ping -t %s" e7)
,run "%COMSPEC%" comando
,hwnd=win
,0.25
,temp.format("Rama A - %s" e7)
,temp.setwintext(hwnd)
ArrangeWindows 4
;BEGIN DIALOG
;0 "" 0x90CA0A44 0x100 0 0 127 135 "Pings"
;7 Edit 0x54030080 0x200 30 14 68 14 ""
;8 Edit 0x54030080 0x200 30 34 68 14 ""
;9 Edit 0x54030080 0x200 30 52 68 14 ""
;10 Edit 0x54030080 0x200 30 72 68 14 ""
;1 Button 0x54030001 0x4 12 116 48 14 "Ping"
;2 Button 0x54030000 0x4 66 116 48 14 "Cancel"
;3 Static 0x54000000 0x0 12 16 18 12 "A:"
;4 Static 0x54000000 0x0 12 36 18 13 "B:"
;5 Static 0x54000000 0x0 12 54 18 12 "C:"
;6 Static 0x54000000 0x0 12 74 18 12 "D:"
;7 Edit 0x54030080 0x200 30 14 68 14 ""
;8 Edit 0x54030080 0x200 30 34 68 14 ""
;9 Edit 0x54030080 0x200 30 52 68 14 ""
;10 Edit 0x54030080 0x200 30 72 68 14 ""
;END DIALOG
;DIALOG EDITOR: "" 0x2020002 "" ""It would be possible to create something like this in a QM dialog?
Note: another program that does this: http://www.tools4ever.com/products/free/freeping/