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

考拉

在XP下VB6.0运行通过，有兴趣的看看……
请点这里下载
恩啊……先打开后保存……

4 t% }" M+ }2 J- s0 f  H$ b

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

* n, O3 S( Q7 v" D6 {8 [

bruno1122

在哪里呀,给我看看

考拉

Dim PortNo As Long : y2 M- z, P: Z- aPrivate Sub Command1_Click() MsgBox "您的IP地址是：" & Winsock1.LocalIP $ c% E/ O8 O# U) f4 P1 CEnd Sub " m/ ^; D: T, O. W1 OPrivate Sub Command2_Click() MsgBox "您的计算机名称是：" & Winsock1.LocalHostName ' U* T4 H; x* C: y \' j8 N# Y# D0 QEnd Sub 7 Y4 l5 r4 H1 v: Y) F! f( zPrivate Sub Command3_Click() End 8 d1 D, J3 r1 [; \/ |5 F$ K2 b' aEnd Sub " N: w+ p" z" x9 @Private Sub Command4_Click() PortNo = CLng(Text2.Text) - 1 % Q' M" c& I+ h# a. CText4.Text = "" Command5.Enabled = True Command4.Enabled = False If PortNo < 0 Or PortNo > 32767 Then MsgBox "您的输入错误，端口超过范围" Command5_Click Exit Sub ! B9 o0 l4 y6 ]7 D+ M4 ~' VElse 6 T) E8 y( z0 [7 yWinsock1.Connect Text1.Text, PortNo : f: p/ c; a2 n) X H8 B0 WText4.Text = "开始端口扫描......" 7 A4 e3 m i* f9 }2 |7 P$ s. X2 SEnd If $ H& j# |& F) _; y* O7 @0 GEnd Sub ' l# O+ E! k( ~; t/ IPrivate Sub Command5_Click() 5 e, K# b7 A* M) k+ q4 ]Command5.Enabled = False ; W7 y5 O: k9 c+ `; K4 ECommand4.Enabled = True 7 S1 K8 T4 b3 [Winsock1.Close Text4.Text = Text4.Text & vbCrLf & "端口扫描已停止。" 2 z$ h- [* z4 E8 z1 ]3 I/ d% iEnd Sub Private Sub Command6_Click() Me.Hide ' w+ [' S& ?! BForm2.Show End Sub , U% C) V$ m' h; B5 BPrivate Sub Command7_Click() FileName = "d:\ipdetail.txt" . {# m# R9 y" z6 W; [Shell "command.com /c ipconfig.exe >" & FileName, vbHide DoEvents Do While Trim(Dir(FileName)) = "" DoEvents Loop 8 T3 {3 G5 j1 N6 L! mDim strstring As String, FileNo . O* {- p7 Y. L% HDim sVar If Winsock1.LocalPort = 0 Then strstring = "端口编号未设置！" Else / \* a4 [6 |$ \" h, I: lstrstring = Winsock1.LocalPort End If Text5.Text = "您的主机名称为：" & Winsock1.LocalHostName & vbCrLf Text5.Text = Text5.Text & "连接端口为：" & strstring & vbCrLf ; S* I1 c5 u6 k; L j- b7 T' ZText5.Text = Text5.Text & "通信协议为：" & IIf(Winsock1.Protocol = 0, "TCP协议", "UDP协议") p* y" F O) t- p( T3 eFileNo = FreeFile() ) T, D2 L2 M+ e+ X) a: c4 ~Open FileName For Input As #FileNo While Not EOF(FileNo) ! Z4 J8 Y8 t3 `! s* M P- P. HLine Input #FileNo, sVar 2 q2 L0 m2 r$ l+ L. f! EText5.Text = Text5.Text & sVar & vbCrLf Wend / Q) X( C$ \: H7 c7 eClose #FileNo MsgBox Text5.Text + ?1 G; H# u9 M# z9 [End Sub Private Sub Command8_Click() ! X) `! E; j6 UMsgBox "考拉制作!" End Sub & y+ f2 W$ p1 a( T/ f' D. }! U3 N& KPrivate Sub Winsock1_Connect() 0 A3 ^( H4 e4 l5 f' Z bText4.Text = Text4.Text & "连接端口号：" & Str(Winsock1.RemotePort) & vbCrLf % b8 B' \3 _' d; D% `4 ]4 pWinsock1.Close 0 O2 e g! Z. M! |9 Y6 FPortNo = PortNo + 1 If PortNo <= CLng(Text3.Text) Then , p _5 F9 H% u3 HText4.Text = Text4.Text & vbCrLf & "已连接端口：" & PortNo Else ) m( J1 g0 B' U5 C5 WCommand5_Click End If End Sub 5 n, W# @4 M+ m- |" T: a5 mPrivate 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 PortNo = PortNo + 1 If PortNo <= CLng(Text3.Text) Then Text4.Text = Text4.Text & vbCrLf & "未连接端口：" & PortNo - n2 V7 J0 a' M$ t9 K: LWinsock1.Connect Text1.Text, PortNo Else 0 V4 h2 ~2 k" [* _( r6 w- \% }# NCommand5_Click 7 y0 w+ g: T" ~ V9 oEnd If End Sub 2 J& a! @/ A& G4 l9 V8 @0 TPrivate Sub Command1_Click() $ z2 d3 I1 ^1 {/ o( t4 K7 MWinsock1.Protocol = sckUDPProtocol Winsock1.RemoteHost = Text1.Text Winsock1.LocalPort = CLng(Text2.Text) 7 C8 _6 B$ |9 i, [) ?8 E' FWinsock1.RemotePort = CLng(Text3.Text) 6 m$ w0 m. { C' l* \% {Winsock1.Bind * \, J- k/ g% O# j4 V, g! kCommand1.Enabled = False 6 T( s, q9 }/ k: O$ M% Q4 ~Command2.Enabled = True End Sub Private Sub Command2_Click() 5 V- _1 ?5 ~! S1 ]% r; s+ Y+ KOn Error GoTo ConnectError 2 E! E* t/ y7 h6 p" XWinsock1.SendData "Koala:" & Text5.Text 4 ]9 {: X& y+ J7 a. {( dText4.Text = "Koala:" & Text5.Text & vbCrLf & Text4.Text Text5.Text = "" 4 w4 |( R- C+ j% B1 L k) u1 pExit Sub ConnectError: MsgBox Error_message " E. ]1 \& `" \2 M* D7 n! AEnd Sub Private Sub Command3_Click() Me.Hide 3 b0 V$ Y- m) kForm1.Show End Sub % ]$ [ I0 _" c: [, qPrivate Sub Command4_Click() 6 X" U% a' d' m9 X( gEnd End Sub $ ?- t% c- A( ]1 ] JPrivate Sub Text5_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Command2_Click % A! p& ~2 H# N' o- ~- ~. D8 SEnd If . k4 H4 e, l# {) Z. D' ~( H% z/ REnd Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim sVar As String / _9 f% Y5 c; S: fWinsock1.GetData sVar, vbString + m( r3 M' W9 H# K, R1 C5 lText4.Text = sVar & vbCrLf & Text4.Text : E, A' z. z/ ^End Sub $ a% d5 C2 P; \( S $ p0 q& n# S/ C. W0 S$ S4 r ) Z! m7 r) C* ?) E4 F

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