java与vb socket 自动更新_JAVA与VB通过SOCKET通讯

在做项目的过程中，本来是想使用JAVA的comm.jar工具实现串口通讯，不知道怎么回事，总是取不到电脑的串口。所以，改为现在的这种模式：java通过socket给vb程序发送指令，然后VB程序通过comm部件给串口发送指令。效果不错。

程序服务端使用VB实现：

代码：

Private lngWSKIndex As Long

Private Sub Form_Load()

lvRecord.ColumnHeaders.Clear

lvRecord.ColumnHeaders.Add , , "ID", lvRecord.Width / 15

lvRecord.ColumnHeaders.Add , , "客户端序列号", lvRecord.Width / 4

lvRecord.ColumnHeaders.Add , , "内容", lvRecord.Width

lvRecord.ListItems.Clear

wskServer(0).LocalPort = 9999

wskServer(0).Listen

lngWSKIndex = 0

If MSComm1.PortOpen = True Then

MSComm1.PortOpen = False

Else

End If

MSComm1.CommPort = 1

MSComm1.Settings = "9600,n,8,1"

MSComm1.PortOpen = True

End Sub

Private Sub wskServer_Close(Index As Integer)

If Index = 0 Then Exit Sub

'关闭客户端对应的应答Socket

Close #Index

'卸载自动加载控件，节省资源

Unload wskServer(Index)

End Sub

'服务器端接收到连接请求

Private Sub wskServer_ConnectionRequest(Index As Integer, ByVal requestID As Long)

lngWSKIndex = lngWSKIndex + 1                     '连接号自动加1

Load wskServer(lngWSKIndex)                       '加载客户端连接请求对应的应答Socket

wskServer(lngWSKIndex).Accept requestID           '允许连接

End Sub

Private Sub wskServer_DataArrival(Index As Integer, ByVal bytesTotal As Long)

Dim strGetData As String

Dim nCount As Integer

Dim i As Integer

wskServer(Index).GetData strGetData, vbString

nCount = lvRecord.ListItems.Count

nCount = nCount + 1

If strGetData = "1=1" Then

lvRecord.ListItems.Add , , nCount

lvRecord.ListItems(nCount).ListSubItems.Add , , "接收到第" & Index & "个警报"

lvRecord.ListItems(nCount).ListSubItems.Add , , "未结账通过"

End If                                                      '只对接收到的客户端发送命令

' wskServer(Index).SendData "信息：" & strGetData & "已收到！"

Dim Temp(0) As Byte

Dim strBuff As String

strBuff = strGetData

MSComm1.Output = strBuff

End Sub

需要添加Winsock部件和MSComm部件

程序的客户端JAVA代码

package com;

import java.io.*;

import java.net.*;

public class Socket_t {

public static void main(String args[]){

try {

Socket_t.SendData("1=1");

Thread.sleep(10000L);

Socket_t.SendData("1=0");

} catch (InterruptedException e) {

// TODO Auto-generated catch block

e.printStackTrace();

}

}

public static void  SendData(String data){

try{

Socket socket=new Socket("127.0.0.1",9999);

BufferedReader sin=new BufferedReader(new InputStreamReader(System.in));

PrintWriter os=new PrintWriter(socket.getOutputStream());

BufferedReader is=new BufferedReader(new InputStreamReader(socket.getInputStream()));

os.write(data);

os.flush();

os.close(); //关闭Socket输出流

socket.close(); //关闭Socket

}catch(Exception e){

e.printStackTrace();

}

}

}