java vb 混编_vb与java的混合!(网络编程)

Dear 丶 2022-11-03 04:09 152阅读 0赞

这两个程序实现了网络聊天vb编的程序只是一个辅助............java写的服务器:importjava.io.\*;importjava.net.\*;importjava.awt.\*;importjava.awt.event.\*;publicclassServerextends...

这两个程序实现了网络聊天

vb编的程序只是一个辅助............

java写的服务器:

import java.io.\*;

import java.net.\*;

import java.awt.\*;

import java.awt.event.\*;

public class Server extends WindowAdapter implements ActionListener\{

static ServerSocket s=null;

static Socket temp=null;

static PrintWriter writer=null;

static BufferedReader net=null;

static Frame frm=new Frame("Server");

static Button send=new Button("Send");

static Label lab=new Label();

static TextArea text=new TextArea();

static Server me=new Server();

public Server()\{

\}

public static void main(String args\[\])\{

frm.setSize(600,400);

send.addActionListener(me);

frm.setLayout(new FlowLayout());

frm.add(lab);

frm.add(text);

frm.add(send);

frm.addWindowListener(me);

try\{

s=new ServerSocket(8000);

System.out.println("Listening...");

temp=s.accept();

System.out.println("Connecting to "+temp.getInetAddress().toString()+"...");

while((temp.isConnected())!=true)\{\}

System.out.println("Conencted.");

frm.setVisible(true);

writer=new PrintWriter(temp.getOutputStream());

net=new BufferedReader(new InputStreamReader(temp.getInputStream()));

while(true)\{

lab.setText(net.readLine());

\}

\}catch(Exception e)\{

System.out.println("Exception:"+e);

\}

\}

public void windowClosing(WindowEvent e)\{

frm.dispose();

frm=null;

System.exit(0);

\}

public void actionPerformed(ActionEvent e)\{

writer.println(text.getText());

\}

\}

vb写的客户端(w as Winsock):

Private Sub Command1\_Click()

W.Connect

End Sub

Private Sub Command2\_Click()

If Caption = "Connected" And Text1.Text <> "" Then W.SendData Text1.Text

End Sub

Private Sub w\_connect()

Caption = "Connected"

End Sub

Private Sub w\_dataarrival(ByVal bytetotal As Long)

Dim r

W.GetData r

Print r

End Sub

\--------------------------------------

它们可以连接上,但互相发信息就不可以,如何解决?(看来都是服务器出问题了.......)

如果在vb的代码里加上:

Private Sub w\_Connnect()

w.SendData "abc" & vbcrlf

end sub

则java端打开程序时,Label就是"abc"了,我想应该是java端的

while(true)\{

lab.setText(net.readLine());

\}

这里出了问题

展开

发表评论取消回复

表情：

评论列表（有 0 条评论，152人围观）

还没有评论，来说两句吧...

相关阅读

相关 vb与EXCEL的连接

一、 VB读写EXCEL表： VB本身提自动化功能可以读写EXCEL表，其方法如下： 1、在工程中引用Microsoft Excel类型库：从"工程"菜单中选择"引用"

向右看齐/ 2024年03月22日 23:12/ 0 赞/ 87 阅读

相关 java vb 混编_vb与java的混合!(网络编程)

这两个程序实现了网络聊天vb编的程序只是一个辅助............java写的服务器:importjava.io.\;importjava.net.\;importjav

Dear 丶/ 2022年11月03日 04:09/ 0 赞/ 153 阅读

相关【VB与数据库】总结

写这篇总结的时候突然发现今目标真是一个不错的工具，记录了学习的历程以及成长的经历，请看下图 ![SouthEast][] 一月中旬开始的VB与数据库

￡神魔★判官ぃ/ 2022年09月25日 11:28/ 0 赞/ 122 阅读

相关 VB.Net数据库编程

众所周知，VB.NET自身并不具备对数据库进行操作的功能，它对数据库的处理是通过.NET FrameWork SDK中面向数据库编程的类库和微软的MDAC来实现的。其中，ADO

Dear 丶/ 2022年08月05日 19:58/ 0 赞/ 215 阅读

相关 VB与数据库总结

VB与数据库的学习暂时告一段落，在开始软件工程项目之前总结一下在VB与数据库学习中的收获！在这段学习期间学习的有：红皮书、SQL入门经典、学生信息管理系统、数据

我会带着你远行/ 2022年08月04日 12:53/ 0 赞/ 153 阅读

相关【VB.NET】浅谈VB与VB.NET的关系

引言 Visual Basic.NET是基于微软.NET Framework之上的面向对象的编程语言。可以看作是Visual Basic在.NET Frame

ゞ浴缸里的玫瑰/ 2022年07月12日 07:20/ 0 赞/ 269 阅读

相关【VB.NET】浅谈VB与VB.NET的关系

引言 Visual Basic.NET是基于微软.NET Framework之上的面向对象的编程语言。可以看作是Visual Basic在.NET Frame

忘是亡心i/ 2022年07月12日 07:20/ 0 赞/ 234 阅读

相关 vb.net2008 DirectX与VB.NET编程（四）3D音效理论篇

<table style="width:100%; table-layout:fixed"> <tbody> <tr> <td> <div>

偏执的太偏执、/ 2022年06月10日 13:44/ 0 赞/ 232 阅读

相关 C++与Java混合编程

C++与Java混合编程文章概要：现在的程序员，不再像以前一样，掌握一种编程语言就可以混得有模有样了，现实的情况是，真实的项目中，通常是涉及多种

偏执的太偏执、/ 2022年05月12日 15:50/ 0 赞/ 219 阅读

相关 C#与Vb Java的区别

C\与Java的区别总结如下： C\和Java都是比较规范的面相对象的编程语言，vb是基于对象的一种程序设计语言，所以C\语言，与Java语言相似，

系统管理员/ 2022年04月21日 14:20/ 0 赞/ 259 阅读