您好,各位大侠:
小弟最近碰到一台以太网通讯的设备,上位机通过winsock控件来采集、发送数据,现在数据发送是OK了,但是数据采集上来的是乱码,小弟对VBS也才接触,很多地方都不懂,希望各位能帮忙看看,程序如下:
Function Visible_Trigger(Byval Item)
Dim Client,scr,tagst,cnvt,data,a,b,c
Dim i,j
a ="SI"
Set scr =HMIRuntime.Screens("Start")
Set Client =ScreenItems("Ctl1")
Client.Protocol ="sckTCPProtocol"
Client.RemoteHost ="192.168.1.2"
Client.RemotePort =6000
Client.LocalPort =4001
If (Client.State =0) Or (Client.State =9) Or(Client.State =8)Then
Client.Close
Client.Connect
End If
If Client.State =7 Then
Item.GetData data
Item.SendData a
cnvt =CStr(data)
MsgBox cnvt
End If
End Function
这个Getdata函数采集的数据是什么类型的呢?我用CStr指令也还是乱码,目前用的“TCP&UDP测试工具”调试工具,调试工具发送一个长度的字符,这边winsock读的是正确的,多了就是乱码..........