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

考拉

在XP下VB6.0运行通过，有兴趣的看看……
' G0 {7 Z. K/ m. @0 ^' C$ \请点这里下载
0 d7 q* W. k% e. P7 S5 u3 o恩啊……先打开后保存……
& R. b( L" @$ \8 U/ h! L  V0 f0 e' T
3 L$ J4 m2 {) I5 F1 g  [6 Z5 ?
- s4 w  a+ n: H% F5 P2 Q

! x( ^# G4 U- g) T& w9 H" o

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

1 W" M) {& h8 D# S: e9 p

bruno1122

在哪里呀,给我看看

考拉

Dim PortNo As Long Private Sub Command1_Click() ! j; ]8 g4 K+ @6 u0 ]( \5 x5 IMsgBox "您的IP地址是：" & Winsock1.LocalIP End Sub Private Sub Command2_Click() * p }" h0 |! m8 GMsgBox "您的计算机名称是：" & Winsock1.LocalHostName End Sub Private Sub Command3_Click() End End Sub Private Sub Command4_Click() PortNo = CLng(Text2.Text) - 1 3 J3 B6 L; |, k r( d- y H \3 OText4.Text = "" Command5.Enabled = True i! e* S$ v' W( k( ACommand4.Enabled = False / k6 z4 G: d: G9 Z* b3 yIf PortNo < 0 Or PortNo > 32767 Then & r8 ]( V; b1 L" l( gMsgBox "您的输入错误，端口超过范围" + \! F" W- N- o3 GCommand5_Click 9 E. N* P# r P9 A& C6 hExit Sub # }% k3 I2 ~) G: bElse , z; D, T; k) JWinsock1.Connect Text1.Text, PortNo Text4.Text = "开始端口扫描......" / ?1 W2 I) b4 b) ~End If End Sub / k- Y9 Q; B( UPrivate Sub Command5_Click() Command5.Enabled = False Command4.Enabled = True $ L, n1 \) Z. c" OWinsock1.Close * i/ r/ p/ F; J4 S2 \: T! wText4.Text = Text4.Text & vbCrLf & "端口扫描已停止。" End Sub h! K/ A: J0 I |7 zPrivate Sub Command6_Click() 1 R3 s7 y+ { D$ mMe.Hide 3 \2 B' A3 V I: [# TForm2.Show ) n/ z4 o3 l) I- E0 x( p( TEnd Sub Private Sub Command7_Click() + h7 T- k9 c/ X0 N- A" L' U, i8 dFileName = "d:\ipdetail.txt" 2 u8 R/ j; u% @0 R# O; j+ c' dShell "command.com /c ipconfig.exe >" & FileName, vbHide ! F, O, x) G2 y. M4 y# tDoEvents Do While Trim(Dir(FileName)) = "" ! l; U* V$ A: l T! j" PDoEvents s7 E% G7 m# c }4 n# WLoop Dim strstring As String, FileNo Dim sVar If Winsock1.LocalPort = 0 Then " @. e- K: h+ e) m) i/ M% `5 q0 u; s5 Pstrstring = "端口编号未设置！" + ~' N9 q1 k; X0 [3 E3 TElse ! f4 ]5 j( j: L, `8 p# u4 ystrstring = Winsock1.LocalPort $ q3 r7 M& g) wEnd If 6 C7 X4 S$ ^6 ^7 A4 nText5.Text = "您的主机名称为：" & Winsock1.LocalHostName & vbCrLf C W3 ?5 ], n+ Y+ u; L4 sText5.Text = Text5.Text & "连接端口为：" & strstring & vbCrLf Text5.Text = Text5.Text & "通信协议为：" & IIf(Winsock1.Protocol = 0, "TCP协议", "UDP协议") FileNo = FreeFile() Open FileName For Input As #FileNo : W8 [0 j( R- N2 J c {& m: XWhile Not EOF(FileNo) + r5 n7 K( q" m: y+ i4 p3 R+ P0 gLine Input #FileNo, sVar 1 ~- y) `% B' d3 F8 T/ Q1 ]Text5.Text = Text5.Text & sVar & vbCrLf , q, V4 l6 v5 K& U$ WWend ' z/ x! i A" d% k& I! }; ~# pClose #FileNo , c, e! F4 C0 O& w4 sMsgBox Text5.Text End Sub Private Sub Command8_Click() # G$ ~* x% [- f# K+ sMsgBox "考拉制作!" End Sub Private Sub Winsock1_Connect() Text4.Text = Text4.Text & "连接端口号：" & Str(Winsock1.RemotePort) & vbCrLf Winsock1.Close PortNo = PortNo + 1 3 \7 J$ W* b; R& l: R6 z2 fIf PortNo <= CLng(Text3.Text) Then Text4.Text = Text4.Text & vbCrLf & "已连接端口：" & PortNo Else Command5_Click End If End Sub Private 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) 0 s4 {8 a" \( h# T! HWinsock1.Close 4 g/ s ^/ c, A) L! q% a$ hPortNo = PortNo + 1 . n9 n: T0 ^ l2 |1 f* i5 KIf PortNo <= CLng(Text3.Text) Then Text4.Text = Text4.Text & vbCrLf & "未连接端口：" & PortNo Winsock1.Connect Text1.Text, PortNo / Y4 w+ g) k! I2 E/ G) y" IElse Command5_Click 8 q' B" m3 ~+ NEnd If End Sub [/ i0 d1 H1 S7 b0 e* i- e; Y& Q Private Sub Command1_Click() Winsock1.Protocol = sckUDPProtocol 9 K& H6 u7 m O+ G, r0 D6 pWinsock1.RemoteHost = Text1.Text ) L# E j. `/ D l2 x$ t. r( xWinsock1.LocalPort = CLng(Text2.Text) 2 E# c1 U/ l: |. f& K" l) Q1 m7 BWinsock1.RemotePort = CLng(Text3.Text) ( S$ i$ W1 i: D' p2 c+ H# w; nWinsock1.Bind 2 Q1 @% ~" M5 v1 c" NCommand1.Enabled = False Command2.Enabled = True 1 c$ ^" d0 w0 | DEnd Sub 9 V/ ~9 f+ A. E& R* Y) }, c5 b' ^* J dPrivate Sub Command2_Click() 9 E* e/ w( ~' s, COn Error GoTo ConnectError Winsock1.SendData "Koala:" & Text5.Text Text4.Text = "Koala:" & Text5.Text & vbCrLf & Text4.Text 8 {- C* Q; J2 {; v- i" WText5.Text = "" " |: O5 a0 x5 j# l1 N! U, `Exit Sub ConnectError: MsgBox Error_message $ d% P3 L- D' n/ YEnd Sub * W7 `- s2 c' W* q6 R8 @Private Sub Command3_Click() Me.Hide , ^' W+ C9 X7 X. NForm1.Show / E! t) f% j" _* ]4 UEnd Sub Private Sub Command4_Click() / N* G2 V4 i6 I' |3 \# h1 E uEnd End Sub : B! ~; t' O3 K" \& f8 z. @Private Sub Text5_KeyPress(KeyAscii As Integer) ' w$ e7 F, ?& Q, g: X% hIf KeyAscii = 13 Then Command2_Click 6 i- B; a# Y/ n% r4 `- x- CEnd If 1 V9 S# W) B" j, l; NEnd Sub X3 z0 ]1 w! Q3 aPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim sVar As String Winsock1.GetData sVar, vbString - V( C( F$ P' J- GText4.Text = sVar & vbCrLf & Text4.Text End Sub * s. r W; \5 B1 e! G4 n ; e. m+ p4 b6 K! g% j# U/ f$ p+ b2 G' [

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