Q5/ws_objects/Ew_axmswinsock.pbl.src/w_ws.srw

$PBExportHeader$w_ws.srw
forward
global type w_ws from window
end type
end forward

global type w_ws from window
boolean visible = false
integer width = 311
integer height = 236
boolean titlebar = true
string title = "ws"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
boolean resizable = true
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
end type
global w_ws w_ws

type variables
Integer ins_HeartBeatSec = 0
end variables

event open;this.openuserobject(sys_wsc)
timer(0.1)
end event

on w_ws.create
end on

on w_ws.destroy
end on

event timer;//IF sys_buf_new THEN
//	IF IsValid(w_waitforwsrslt) THEN
//		Close(w_waitforwsrslt)
//	END IF
//END IF

IF sys_login THEN
	IF sys_wsc.getstate() <> 7 THEN
		Timer(0)
		MessageBox("系统提示","远程服务断开连接,系统即将退出!",information!)
		HALT
//	ELSE
//		IF ins_HeartBeatSec >= sys_HeartBeatSec THEN
//			ins_HeartBeatSec = 0
//			s_msgFrame s_msg
//			s_msg.FrameHead = 2
//			s_msg.frame_str[1] = String(sys_Status)
////			sys_wsc.setsendmsg( s_msg, 1)
////			sys_wsc.TriggerEvent('ue_send') //发送命令
//		ELSE
//			ins_HeartBeatSec ++
//		END IF
	END IF
	
END IF





end event