NotifyCnt = 0 ' 송신내용 Dim sndstr As New TypedString(6344) ' 수신내용 Dim rcvstr As New TypedCArray(6344) ' 접속서버 환경설정 Utils.tuxputenv("WSNADDR=//서버아이피" + 서버포트번호) ' TPINIT Dim tpinfo As New TypedTPINIT() Dim ac As AppContext = AppContext.tpinit(tpinfo) ac.tpsetunsol(New UnsolicitedMessageHandler(AddressOf MyUMHandler)) sndstr.PutString(0, SendStr, SendStr.Length) Try ac.tpcall("BNCSIN", sndstr, rcvstr,..