[原创] 我用VB做的计算机网络通讯，winsock控件.

考拉

在XP下VB6.0运行通过，有兴趣的看看……
请点这里下载
1 L( F* {2 z; T恩啊……先打开后保存……
7 P5 A( l6 Q3 P  @5 T& z


, Q5 ^( c+ l: @3 i6 k4 d
+ d4 x2 ^4 |& ]  o: L8 a" ~9 `' v$ C  e
4 _- O! w- O) y0 v

[此贴子已经被作者于2004-5-12 20:15:18编辑过]

bruno1122

在哪里呀,给我看看

考拉

Dim PortNo As Long ; |& _& Z9 y" h0 c% J; F l& DPrivate Sub Command1_Click() : n' S r) B. O, ^8 N4 u% cMsgBox "您的IP地址是：" & Winsock1.LocalIP End Sub ! i0 [2 S4 T$ Z+ L! VPrivate Sub Command2_Click() 3 R$ v) E! o! gMsgBox "您的计算机名称是：" & Winsock1.LocalHostName End Sub Private Sub Command3_Click() 0 R# K2 c' C+ B7 ?3 ?& |( z7 s0 GEnd End Sub Private Sub Command4_Click() PortNo = CLng(Text2.Text) - 1 , _( b0 v" }5 d- H8 S$ Y3 ^+ `- KText4.Text = "" - U, I" e1 T n* J: {# B0 q oCommand5.Enabled = True Command4.Enabled = False If PortNo < 0 Or PortNo > 32767 Then MsgBox "您的输入错误，端口超过范围" Command5_Click . g8 q6 |4 J: \! lExit Sub Else Winsock1.Connect Text1.Text, PortNo Text4.Text = "开始端口扫描......" 6 `9 G$ c, I; R$ y6 O2 j7 zEnd If End Sub ! N5 e2 ?) r, ?+ dPrivate Sub Command5_Click() Command5.Enabled = False ( \$ c% C, X4 @+ U& v- BCommand4.Enabled = True q( |8 E! ^9 [ V. DWinsock1.Close # i7 ^3 z! H# t8 A$ |% h, eText4.Text = Text4.Text & vbCrLf & "端口扫描已停止。" End Sub $ b0 c/ S, k, P+ P) r/ F9 d) F+ e/ CPrivate Sub Command6_Click() Me.Hide 1 d5 ^2 v& x% V8 ]1 v, \Form2.Show % `' a" I% _) |End Sub 2 F! q% | N/ v) kPrivate Sub Command7_Click() 0 Q4 x0 ~" Q6 t# jFileName = "d:\ipdetail.txt" Shell "command.com /c ipconfig.exe >" & FileName, vbHide 1 d( H7 q/ p7 {" `% cDoEvents 1 v) b- g0 i$ d2 N! rDo While Trim(Dir(FileName)) = "" 2 j( f% P& o6 ~' aDoEvents ) ?! Y- e' j2 u! M# c! {7 Y4 ~6 yLoop Dim strstring As String, FileNo Dim sVar & u+ e/ b9 P, F5 DIf Winsock1.LocalPort = 0 Then strstring = "端口编号未设置！" 8 \$ l! q/ i ^# ]Else + w5 D+ H9 d! U: w [3 Z( nstrstring = Winsock1.LocalPort 7 s$ G% k: r( CEnd If Text5.Text = "您的主机名称为：" & Winsock1.LocalHostName & vbCrLf * A( K4 p7 O0 }/ V4 oText5.Text = Text5.Text & "连接端口为：" & strstring & vbCrLf 1 V) S6 k+ D ?+ l& W1 WText5.Text = Text5.Text & "通信协议为：" & IIf(Winsock1.Protocol = 0, "TCP协议", "UDP协议") ! u5 C, R' o: `7 X6 KFileNo = FreeFile() Open FileName For Input As #FileNo While Not EOF(FileNo) ! I8 k, w$ B+ d6 w0 J+ ]2 X: s dLine Input #FileNo, sVar Text5.Text = Text5.Text & sVar & vbCrLf ; D3 n7 I3 x, [1 V, K* P" g% fWend Close #FileNo MsgBox Text5.Text & J) U2 k. a% D( ^6 G/ \0 w& bEnd Sub 5 _$ E( k4 F, H- \0 U3 }Private Sub Command8_Click() MsgBox "考拉制作!" $ I8 f! P N- J; F$ zEnd Sub $ G1 ^0 _& x: ~! A% \/ _7 CPrivate Sub Winsock1_Connect() & t, o3 T0 ~9 t8 qText4.Text = Text4.Text & "连接端口号：" & Str(Winsock1.RemotePort) & vbCrLf 8 X% t0 a+ l, N6 c7 d( ?Winsock1.Close PortNo = PortNo + 1 If PortNo <= CLng(Text3.Text) Then Text4.Text = Text4.Text & vbCrLf & "已连接端口：" & PortNo Else Command5_Click 3 r' R$ V3 Y, m& cEnd If End Sub ; O7 a @6 [6 W4 H5 Y3 F- tPrivate Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean) Winsock1.Close . S& M; k0 b* ?+ Y1 R7 a4 \. APortNo = PortNo + 1 7 Q4 [9 x# u5 h3 B& ~If PortNo <= CLng(Text3.Text) Then Text4.Text = Text4.Text & vbCrLf & "未连接端口：" & PortNo Winsock1.Connect Text1.Text, PortNo , h! s1 S2 K) ]0 F8 SElse Command5_Click " C6 I; q- E: K5 k/ \End If End Sub Private Sub Command1_Click() 2 o% Z2 E7 a1 P% H% J2 UWinsock1.Protocol = sckUDPProtocol 3 F5 t; U4 K# H7 A0 xWinsock1.RemoteHost = Text1.Text 9 e6 r: Q. P( ^$ d7 q) j- k" D( _Winsock1.LocalPort = CLng(Text2.Text) Winsock1.RemotePort = CLng(Text3.Text) ; i% l) T3 r4 R6 S% ZWinsock1.Bind 5 `- u/ Y6 M7 k6 cCommand1.Enabled = False ) z1 m6 e, [- `Command2.Enabled = True End Sub Private Sub Command2_Click() 4 Q0 T0 q+ |8 p- |On Error GoTo ConnectError Winsock1.SendData "Koala:" & Text5.Text 1 T2 v. [9 c- _; A6 YText4.Text = "Koala:" & Text5.Text & vbCrLf & Text4.Text Text5.Text = "" $ p! r1 l+ C4 w5 q- tExit Sub ConnectError: MsgBox Error_message End Sub 7 g% c }! `4 M4 g0 DPrivate Sub Command3_Click() 9 u7 o& G5 @ f& e+ d3 xMe.Hide # C) W1 l4 r t/ {7 OForm1.Show End Sub Private Sub Command4_Click() 5 K$ L1 h" [8 `4 \8 A. L) L/ `: uEnd End Sub Private Sub Text5_KeyPress(KeyAscii As Integer) 9 u9 t( W/ m( S$ R- ]) oIf KeyAscii = 13 Then Command2_Click ) u5 v X0 }: N& [6 [, ~End If End Sub + C& B# X6 T; a0 s$ S) `Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim sVar As String Winsock1.GetData sVar, vbString 8 b2 I0 \) l8 b/ W/ V) `5 @4 bText4.Text = sVar & vbCrLf & Text4.Text End Sub . Y+ p7 A( \" v: ]$ i9 \ 8 r+ _3 ^) J+ X6 [ : g% l+ ^1 m C3 _) H; p9 [ $ `5 h. M, a( r* `: c2 W

[此贴子已经被作者于2004-5-12 20:16:53编辑过]

5 F! u- Y& V! o; W6 }+ |