[VB6+Java]点对点聊天程序

mzflz

客户端使用vb6写的
服务器端是用Java写的
VB6需添加Winsock activeX控件
程序比较一般 ，没有什么特别的

==客户端==

1. VERSION 5.00
   
2. Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
   
3. Begin VB.Form Form1
   
4.    BorderStyle     =   3  'Fixed Dialog
   
5.    Caption         =   "Chat"
   
6.    ClientHeight    =   5550
   
7.    ClientLeft      =   45
   
8.    ClientTop       =   390
   
9.    ClientWidth     =   8355
   
10.    LinkTopic       =   "Form1"
    
11.    MaxButton       =   0   'False
    
12.    MinButton       =   0   'False
    
13.    ScaleHeight     =   5550
    
14.    ScaleWidth      =   8355
    
15.    ShowInTaskbar   =   0   'False
    
16.    StartUpPosition =   3  '窗口缺省
    
17.    Begin MSWinsockLib.Winsock Winsock1
    
18.       Left            =   3000
    
19.       Top             =   4920
    
20.       _ExtentX        =   741
    
21.       _ExtentY        =   741
    
22.       _Version        =   393216
    
23.    End
    
24.    Begin VB.Frame Frame2
    
25.       Caption         =   "聊天"
    
26.       Height          =   5175
    
27.       Left            =   3360
    
28.       TabIndex        =   6
    
29.       Top             =   240
    
30.       Width           =   4815
    
31.       Begin VB.CommandButton Command2
    
32.          Caption         =   "发送"
    
33.          Enabled         =   0   'False
    
34.          Height          =   375
    
35.          Left            =   4080
    
36.          TabIndex        =   9
    
37.          Top             =   4560
    
38.          Width           =   615
    
39.       End
    
40.       Begin VB.TextBox Text4
    
41.          Enabled         =   0   'False
    
42.          ForeColor       =   &H00C0C0C0&
    
43.          Height          =   375
    
44.          Left            =   120
    
45.          TabIndex        =   8
    
46.          Text            =   "输入你想要发送的的信息"
    
47.          Top             =   4560
    
48.          Width           =   3855
    
49.       End
    
50.       Begin VB.TextBox Text3
    
51.          Enabled         =   0   'False
    
52.          ForeColor       =   &H00000000&
    
53.          Height          =   4095
    
54.          Left            =   120
    
55.          MultiLine       =   -1  'True
    
56.          ScrollBars      =   2  'Vertical
    
57.          TabIndex        =   7
    
58.          Top             =   360
    
59.          Width           =   4575
    
60.       End
    
61.    End
    
62.    Begin VB.Frame Frame1
    
63.       Caption         =   "登录"
    
64.       Height          =   3135
    
65.       Left            =   120
    
66.       TabIndex        =   0
    
67.       Top             =   240
    
68.       Width           =   3135
    
69.       Begin VB.CommandButton Command3
    
70.          Caption         =   "连接"
    
71.          Height          =   615
    
72.          Left            =   120
    
73.          TabIndex        =   14
    
74.          Top             =   2400
    
75.          Width           =   1215
    
76.       End
    
77.       Begin VB.TextBox Text6
    
78.          ForeColor       =   &H00C0C0C0&
    
79.          Height          =   390
    
80.          Left            =   840
    
81.          TabIndex        =   11
    
82.          Text            =   "1234"
    
83.          Top             =   1920
    
84.          Width           =   2055
    
85.       End
    
86.       Begin VB.TextBox Text5
    
87.          ForeColor       =   &H00C0C0C0&
    
88.          Height          =   375
    
89.          Left            =   840
    
90.          TabIndex        =   10
    
91.          Text            =   "127.0.0.1"
    
92.          Top             =   1440
    
93.          Width           =   2055
    
94.       End
    
95.       Begin VB.CommandButton Command1
    
96.          Caption         =   "登录"
    
97.          Height          =   615
    
98.          Left            =   1440
    
99.          TabIndex        =   5
    
100.          Top             =   2400
     
101.          Width           =   1575
     
102.       End
     
103.       Begin VB.TextBox Text2
     
104.          ForeColor       =   &H00C0C0C0&
     
105.          Height          =   375
     
106.          Left            =   840
     
107.          TabIndex        =   2
     
108.          Text            =   "mzflz"
     
109.          Top             =   960
     
110.          Width           =   2055
     
111.       End
     
112.       Begin VB.TextBox Text1
     
113.          ForeColor       =   &H00C0C0C0&
     
114.          Height          =   375
     
115.          Left            =   840
     
116.          TabIndex        =   1
     
117.          Text            =   "Mazhenfeng"
     
118.          Top             =   480
     
119.          Width           =   2055
     
120.       End
     
121.       Begin VB.Label Label4
     
122.          Caption         =   "端口"
     
123.          Height          =   255
     
124.          Left            =   120
     
125.          TabIndex        =   13
     
126.          Top             =   1920
     
127.          Width           =   495
     
128.       End
     
129.       Begin VB.Label Label3
     
130.          Caption         =   "IP地址"
     
131.          Height          =   375
     
132.          Left            =   120
     
133.          TabIndex        =   12
     
134.          Top             =   1440
     
135.          Width           =   615
     
136.       End
     
137.       Begin VB.Label Label2
     
138.          Caption         =   "密码"
     
139.          Height          =   375
     
140.          Left            =   120
     
141.          TabIndex        =   4
     
142.          Top             =   960
     
143.          Width           =   615
     
144.       End
     
145.       Begin VB.Label Label1
     
146.          Caption         =   "账号"
     
147.          Height          =   375
     
148.          Left            =   120
     
149.          TabIndex        =   3
     
150.          Top             =   480
     
151.          Width           =   615
     
152.       End
     
153.    End
     
154.    Begin VB.Image Image1
     
155.       Height          =   1740
     
156.       Left            =   240
     
157.       Picture         =   "Form1.frx":0000
     
158.       Top             =   3480
     
159.       Width           =   2685
     
160.    End
     
161. End
     
162. Attribute VB_Name = "Form1"
     
163. Attribute VB_GlobalNameSpace = False
     
164. Attribute VB_Creatable = False
     
165. Attribute VB_PredeclaredId = True
     
166. Attribute VB_Exposed = False
     
167. Private Declare Function Sleep Lib "kernel32" (time As Integer) As Integer
     
168. 
     
169. 
     
170. 
     
171. 'Dim isRight As Integer
     
172. Dim a As Integer
     
173. 
     
174. Private Sub Command1_Click()
     
175. 
     
176. 
     
177. If Winsock1.State = sckClosed Then
     
178.     MsgBox "Not Connected!", vbOKOnly, "Error"
     
179. Else
     
180.     'Winsock1.SendData "Hello"
     
181.     Winsock1.SendData (Text1.Text)
     
182.     Winsock1.SendData vbCrLf
     
183.     Winsock1.SendData (Text2.Text)
     
184.     Winsock1.SendData vbCrLf
     
185. 
     
186.    ' Else
     
187.      '   Winsock1.Close
     
188. 
     
189. End If
     
190. 
     
191. End Sub
     
192. 
     
193. Private Sub Command2_Click()
     
194. If Text4.Text = "" Or Text4.Text = "输入你想要发送的信息" Then
     
195. MsgBox "发送内容不能为空", vbOKOnly, "错误"
     
196. Else
     
197.     Dim str As String
     
198.      str = Text4.Text + vbCrLf
     
199.     Winsock1.SendData str
     
200.     Text3.Text = Text3.Text + Format(time, "Long Time") + vbCrLf + str
     
201.     Text4.ForeColor = &HC0C0C0
     
202.     Text4.Text = "输入你想要发送的信息"
     
203. End If
     
204. End Sub
     
205. 
     
206. Private Sub Command3_Click()
     
207. Winsock1.Connect Text5.Text, CInt(Text6.Text)  '开始连接
     
208. End Sub
     
209. 
     
210. Private Sub Form_Load()
     
211. a = 0
     
212. isRight = 0
     
213. 'Winsock1.Connect Text5.Text, CInt(Text6.Text)  '开始连接
     
214. End Sub
     
215. 
     
216. Private Sub Text1_GotFocus()
     
217. 'Text1.Text = ""
     
218. 'Text1.ForeColor = vbBlack
     
219. End Sub
     
220. 
     
221. Private Sub Text1_LostFocus()
     
222. If Text1.Text = "" Then
     
223. Text1.ForeColor = &HC0C0C0
     
224. Text1.Text = "请输入用户名"
     
225. End If
     
226. End Sub
     
227. 
     
228. Private Sub Text2_GotFocus()
     
229. Text2.Text = ""
     
230. Text2.ForeColor = vbBlack
     
231. End Sub
     
232. 
     
233. Private Sub Text2_LostFocus()
     
234. If Text2.Text = "" Then
     
235. Text2.ForeColor = &HC0C0C0
     
236. Text2.Text = "请输入密码"
     
237. End If
     
238. End Sub
     
239. 
     
240. Private Sub Text4_GotFocus()
     
241. Text4.ForeColor = vbBlack
     
242. Text4.Text = ""
     
243. End Sub
     
244. 
     
245. Private Sub Text4_LostFocus()
     
246. If Text4.Text = "" Then
     
247. Text4.ForeColor = &HC0C0C0
     
248. Text4.Text = "输入你想要发送的信息"
     
249. End If
     
250. End Sub
     
251. 
     
252. Private Sub Text5_GotFocus()
     
253. Text5.Text = ""
     
254. Text5.ForeColor = vbBlack
     
255. End Sub
     
256. 
     
257. Private Sub Text5_LostFocus()
     
258. If Text5.Text = "" Then
     
259. Text5.ForeColor = &HC0C0C0
     
260. Text5.Text = "请输入对方IP"
     
261. End If
     
262. 
     
263. End Sub
     
264. 
     
265. Private Sub Text6_GotFocus()
     
266. Text6.Text = ""
     
267. Text6.ForeColor = vbBlack
     
268. End Sub
     
269. 
     
270. Private Sub Text6_LostFocus()
     
271. If Text6.Text = "" Then
     
272. Text6.ForeColor = &HC0C0C0
     
273. Text6.Text = "请输入端口号"
     
274. End If
     
275. End Sub
     
276. 
     
277. Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
     
278. a = a + 1
     
279. Dim isRight As String
     
280. If a = 1 Then
     
281. Winsock1.GetData isRight
     
282. If (isRight) <> "0" Then
     
283.     Text4.Enabled = True
     
284.     Text3.Enabled = True
     
285.     Command2.Enabled = True
     
286.     Text1.Enabled = False
     
287.     Text2.Enabled = False
     
288.     Text5.Enabled = False
     
289.     Text6.Enabled = False
     
290.     Command3.Enabled = False
     
291.     Command1.Enabled = False
     
292.     End If
     
293.     Else
     
294.     Dim str As String
     
295.     Winsock1.GetData str
     
296.     Text3.Text = Text3.Text + Format(time, "Long Time") + vbCrLf + str + vbCrLf
     
297.     End If
     
298. End Sub
     
299. 
     

复制代码

==服务器端==

1. package main;
   
2. import java.net.*;
   
3. import java.awt.BorderLayout;
   
4. import java.awt.Button;
   
5. import java.awt.Frame;
   
6. import java.awt.Panel;
   
7. import java.awt.TextArea;
   
8. import java.awt.TextField;
   
9. import java.awt.event.ActionEvent;
   
10. import java.awt.event.ActionListener;
    
11. import java.awt.event.WindowAdapter;
    
12. import java.awt.event.WindowEvent;
    
13. import java.io.*;
    
14. import java.util.Date;
    
15. import java.util.Locale;
    
16. import java.util.Scanner;
    
17. 
    
18. import javax.swing.JOptionPane;
    
19. public class Main {
    
20.         private static Exception Choose;
    
21. 
    
22.         public static void main(String args[]){
    
23.                
    
24.                 BufferedReader brr = null;
    
25.                 OutputStream os = null;
    
26.                 ServerSocket ss = null;
    
27.                 Socket s = null;
    
28.                 Scanner scan = new Scanner(System.in);
    
29.                 try
    
30.                 {
    
31.                         ss = new ServerSocket(1234);
    
32.                         s = ss.accept();
    
33.                         brr = new BufferedReader(new InputStreamReader(s.getInputStream()));
    
34.                         os = (s.getOutputStream());
    
35.                         String str1 = brr.readLine();
    
36.                         String str2 = brr.readLine();
    
37.                         System.out.println(str1+"\n"+str2);
    
38.                         
    
39.                         if(str1.equals("Mazhenfeng")&&str2.equals("mzflz"))
    
40.                         {
    
41.                                 System.out.println("OK");
    
42.                                 os.write(new String("1").getBytes());
    
43.                         }
    
44.                         else
    
45.                                 os.write(new String("0").getBytes());
    
46.                         //C:
    
47.                         new MyFrame("Chat",brr,os);
    
48.                         System.out.println("------------------------------------");
    
49.                         System.out.print("1：接收                                                      2，发送\n");
    
50.                         int a = scan.nextInt();
    
51.                         if(a == 1)
    
52.                         {        while(true)
    
53.                                 {
    
54.                                         System.out.println(brr.readLine());
    
55.                                 }
    
56.                         
    
57.                         }
    
58.                         else
    
59.                         {
    
60.                                 while(true)
    
61.                                 {
    
62.                                         String str = scan.nextLine();
    
63.                                         //if (str.equals("rechoose"))
    
64.                                                 //break C;
    
65.                                         os.write(str.getBytes());
    
66.                                 }
    
67.                         }
    
68.                         
    
69.                 }
    
70.                 catch(Exception e)
    
71.                 {
    
72.                         System.out.println(e);
    
73.                 }
    
74.         }
    
75. }
    
76. class MyFrame extends Frame
    
77. {
    
78.         BufferedReader bff = null
    
79.                         ;
    
80.         OutputStream os = null;
    
81.         TextField p_tf = null;
    
82.         Button b = null;
    
83.         Panel p =null;
    
84.         TextArea  ta =null;
    
85.         Thread t = null;
    
86.         public MyFrame(String str,BufferedReader bff,OutputStream os)
    
87.         {
    
88.                 super(str);
    
89.                
    
90.                 this.bff = bff;
    
91.                 this.os = os;
    
92.                 setLocation(100,100);
    
93.                 //setSize(900,500);
    
94.                 ta = new TextArea(50,50);
    
95.                  p = new Panel();
    
96.                  b = new Button("发送");
    
97.                 p_tf = new TextField(50);
    
98.                 add(ta,BorderLayout.NORTH);
    
99.                 add(p,BorderLayout.SOUTH);
    
100.                 p.add(p_tf);
     
101.                 p.add(b);
     
102.                 b.addActionListener(new ActionListener()
     
103.                 {
     
104. 
     
105.                         public void actionPerformed(ActionEvent arg0) {
     
106.                                 // TODO Auto-generated method stub
     
107.                                 try {
     
108.                                         b_event();
     
109.                                 } catch (IOException e) {
     
110.                                         // TODO Auto-generated catch block
     
111.                                         e.printStackTrace();
     
112.                                 }
     
113.                                 
     
114.                         }
     
115.                         
     
116.                         
     
117.                 });
     
118.                 addWindowListener(new WindowAdapter()
     
119.                 {
     
120. 
     
121.                         public void windowClosing(WindowEvent arg0) {
     
122.                                 t.interrupt();
     
123.                                 System.exit(0);
     
124.                                 
     
125.                                 // TODO Auto-generated method stub
     
126.                                 super.windowClosing(arg0);
     
127.                         }
     
128.                         
     
129.                 });
     
130.                 setVisible(true);
     
131.                 pack();
     
132.                 t = new Thread(new MyRunnable(bff,ta));
     
133.                 t.start();
     
134.                
     
135.         }
     
136.         void b_event() throws IOException
     
137.         {
     
138.                
     
139.                 if(!(p_tf.getText().isEmpty()))
     
140.                 {
     
141.                         ta.append("Me"+new Date().toString()+"\n"+p_tf.getText()+"\n");
     
142.                         os.write((p_tf.getText()+"\n").getBytes());
     
143.                 }
     
144.                 else
     
145.                 {
     
146.                         JOptionPane.showMessageDialog(null,"不能为空");
     
147.                 }
     
148.                 p_tf.setText("");
     
149.                
     
150.         }
     
151. 
     
152. }
     
153. class MyRunnable implements Runnable{
     
154.         BufferedReader brr = null;
     
155.         TextArea ta = null;
     
156.         String str =null;
     
157.         public MyRunnable(BufferedReader brr,TextArea ta)
     
158.         {
     
159.                 this.brr = brr;
     
160.                 this.ta = ta;
     
161.         }
     
162.         public void run() {
     
163.                 while(true)
     
164.                 {
     
165.                         try {
     
166.                                 str = brr.readLine();
     
167.                                 ta.append("Mazhenfeng    "+new Date().toString()+"\n"+str+"\n");
     
168.                         } catch (IOException e) {
     
169.                                 // TODO Auto-generated catch block
     
170.                                 e.printStackTrace();
     
171.                         }
     
172.                         
     
173.                 }
     
174.         }
     
175. }
     

复制代码

未连接前

客户端


服务器端
^-^ (无 界面)

连接后


客户端


服务器端