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

考拉

在XP下VB6.0运行通过，有兴趣的看看……
3 T; s0 s, d( l) y% ?4 q0 [5 a  o请点这里下载
恩啊……先打开后保存……
7 G- I1 X# U- ]3 @  b  ]/ ~

9 W/ E6 {+ A* M1 N( Y2 U

2 O: D3 _, f6 x$ I% M4 F( ?

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

4 [, [: [% H) ^+ u' A) H

bruno1122

在哪里呀,给我看看

考拉

Dim PortNo As Long 0 }" u% f, \( \8 Q7 ~% d+ }Private Sub Command1_Click() MsgBox "您的IP地址是：" & Winsock1.LocalIP 9 _) U2 k( m6 M& U7 y- E, u& f) p9 Q; |End Sub Private Sub Command2_Click() . w _9 W6 y: p( J2 oMsgBox "您的计算机名称是：" & Winsock1.LocalHostName End Sub ; G/ B" a C- T& i6 }0 D# u1 ]Private Sub Command3_Click() 8 e9 H5 S$ F& m+ \3 e) `8 [End End Sub ) [8 O7 k3 q/ g$ G- d5 KPrivate Sub Command4_Click() PortNo = CLng(Text2.Text) - 1 0 |0 m4 S* k9 a& I P1 HText4.Text = "" Command5.Enabled = True Command4.Enabled = False If PortNo < 0 Or PortNo > 32767 Then 4 n$ ~* j. E1 P9 H- u1 eMsgBox "您的输入错误，端口超过范围" ( u( | v2 O( G; u8 qCommand5_Click Exit Sub 2 q+ J# A/ L$ ~ Z& TElse : b5 @% b" ~# h7 m6 o0 o0 X2 QWinsock1.Connect Text1.Text, PortNo Text4.Text = "开始端口扫描......" End If End Sub * B$ p+ C* B8 l* l" D; e: K* ^Private Sub Command5_Click() 6 t) v/ q) R4 F5 g( G" ECommand5.Enabled = False / `2 P: c( G0 E hCommand4.Enabled = True + z0 ^. h- n' ^ p. `8 p; {& QWinsock1.Close ! r, G E: D, r3 }1 r L6 Y! p7 J1 pText4.Text = Text4.Text & vbCrLf & "端口扫描已停止。" End Sub 3 O2 x" M1 `9 l4 H u FPrivate Sub Command6_Click() , o- U7 a% o: P9 F) D, r8 _Me.Hide Form2.Show End Sub Private Sub Command7_Click() FileName = "d:\ipdetail.txt" Shell "command.com /c ipconfig.exe >" & FileName, vbHide 0 L( F% y- V! E7 vDoEvents Do While Trim(Dir(FileName)) = "" / r. L. v E+ K x: e6 uDoEvents ( Q, c! j# D% Q+ yLoop 8 N! u x* Q& u% MDim strstring As String, FileNo Dim sVar 4 ]3 c9 p; U( g3 g8 @5 x2 c, rIf Winsock1.LocalPort = 0 Then ; c' t b$ P7 u1 y d* B# Wstrstring = "端口编号未设置！" Else strstring = Winsock1.LocalPort ( w: U3 J& W7 m6 L6 {. R: }End If 8 [5 \$ o* ` r5 OText5.Text = "您的主机名称为：" & Winsock1.LocalHostName & vbCrLf Text5.Text = Text5.Text & "连接端口为：" & strstring & vbCrLf ; \% L. B/ w8 f: |4 J4 X* ?Text5.Text = Text5.Text & "通信协议为：" & IIf(Winsock1.Protocol = 0, "TCP协议", "UDP协议") FileNo = FreeFile() + a' y0 b5 V) J8 {, V" G7 n) gOpen FileName For Input As #FileNo 1 Z+ g) j+ t% N" U' uWhile Not EOF(FileNo) 2 V0 [' f) p$ W* }2 g+ P! |Line Input #FileNo, sVar % M/ d$ R" d) \6 a* O/ C; _Text5.Text = Text5.Text & sVar & vbCrLf / V1 s- c# S! Q: C" g7 X3 N( ~Wend 8 o* }% C/ X$ }( H( A6 K# vClose #FileNo MsgBox Text5.Text 7 S- V) G2 z- vEnd Sub $ t' B- u4 \$ J$ ]5 S' C4 dPrivate Sub Command8_Click() ! g% q9 \* [* `5 u! [1 u9 R, tMsgBox "考拉制作!" End Sub Private Sub Winsock1_Connect() % z' z3 l9 L3 EText4.Text = Text4.Text & "连接端口号：" & Str(Winsock1.RemotePort) & vbCrLf Winsock1.Close & d$ w$ o) R" V i8 n2 G) N. N- W# n3 FPortNo = PortNo + 1 If PortNo <= CLng(Text3.Text) Then Text4.Text = Text4.Text & vbCrLf & "已连接端口：" & PortNo 6 }7 m/ L# J! T4 D0 H e1 @Else / E1 `9 F: ?, x- K9 ?: I4 Q; kCommand5_Click End If End Sub 1 P: Y" Y k+ m3 d: U7 i- EPrivate 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) y6 d- h1 `/ o" Q+ `% OWinsock1.Close PortNo = PortNo + 1 ! d4 I. z, r; q* Z9 vIf PortNo <= CLng(Text3.Text) Then Text4.Text = Text4.Text & vbCrLf & "未连接端口：" & PortNo Winsock1.Connect Text1.Text, PortNo 4 R! q6 H% G4 w8 x+ mElse Command5_Click End If End Sub Private Sub Command1_Click() Winsock1.Protocol = sckUDPProtocol % @ _- \* j; c" P! E' mWinsock1.RemoteHost = Text1.Text # {/ b3 Y1 @, s. h0 J+ f) |, lWinsock1.LocalPort = CLng(Text2.Text) : M1 \6 w( s$ z. \" M+ Q& ~8 F( pWinsock1.RemotePort = CLng(Text3.Text) Winsock1.Bind Command1.Enabled = False Command2.Enabled = True End Sub Private Sub Command2_Click() ; N# H' o+ I) O; S' X8 ^On Error GoTo ConnectError ! S0 d, C% A, Q- N4 d% h1 tWinsock1.SendData "Koala:" & Text5.Text Text4.Text = "Koala:" & Text5.Text & vbCrLf & Text4.Text Text5.Text = "" Exit Sub ! M3 p! G4 s0 P5 @3 z6 i2 fConnectError: MsgBox Error_message 0 B* D& B" x1 S7 O2 g" xEnd Sub Private Sub Command3_Click() Me.Hide 7 F$ N2 R# T [" gForm1.Show 6 x( K9 v' @( M OEnd Sub ; Q2 s: y# G: b6 J3 J/ k! YPrivate Sub Command4_Click() End 2 J" W. f) g9 AEnd Sub Private Sub Text5_KeyPress(KeyAscii As Integer) % U: @& y9 ~' y8 b# _* ^! k c. NIf KeyAscii = 13 Then 1 }2 a; D8 b' ^4 v) S6 JCommand2_Click ' d* Z- E& r2 M; DEnd If . A' T! | O8 i0 h) m% rEnd Sub 1 |8 I! M4 e: W* [- t9 }, _$ I; kPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long) # W$ o* o2 x. y7 N3 eDim sVar As String " H( K) ]! R6 A v; a8 _* fWinsock1.GetData sVar, vbString 9 z2 B( w/ _6 |, uText4.Text = sVar & vbCrLf & Text4.Text 0 |4 S6 p- y3 w8 p6 f- s" ?, U0 I: j" vEnd Sub 6 o) ^/ y# w3 k: `, d

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