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

考拉

在XP下VB6.0运行通过，有兴趣的看看……
请点这里下载
恩啊……先打开后保存……
# j* L' T$ S5 B( |, I1 I
1 W4 Q9 o& r& [2 c0 y" c- U: H0 [

, D0 E, q$ ]  ]: S2 a! m) P
# s. W+ T1 U, L4 I, y* c1 G
. z/ E( C4 U0 V; V9 o

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

bruno1122

在哪里呀,给我看看

考拉

Dim PortNo As Long 7 S4 G' \8 z) S0 O& _* m5 ZPrivate Sub Command1_Click() MsgBox "您的IP地址是：" & Winsock1.LocalIP 8 B, N$ G0 a3 V9 }7 VEnd Sub 9 {6 S5 W/ P GPrivate Sub Command2_Click() . w- C+ p8 B |/ ~% K/ RMsgBox "您的计算机名称是：" & Winsock1.LocalHostName End Sub Private Sub Command3_Click() ) C* P7 u- T e( NEnd 9 }' q/ }6 ~0 F/ {0 j) HEnd Sub Private Sub Command4_Click() - e. E' N) _* h7 D- iPortNo = CLng(Text2.Text) - 1 p6 T- H$ i, G; @) z: f* I% T! _Text4.Text = "" }" R f7 q f( Y) ECommand5.Enabled = True / x0 a% D. }. {! {1 `Command4.Enabled = False 3 c l! Q4 Y& Y; Q4 hIf PortNo < 0 Or PortNo > 32767 Then MsgBox "您的输入错误，端口超过范围" ( `2 y4 r) |" q- [" C! L5 NCommand5_Click Exit Sub Else , V8 z# \9 y9 P+ j4 N" J9 o) HWinsock1.Connect Text1.Text, PortNo Text4.Text = "开始端口扫描......" 2 W! k- ?; u9 U* PEnd If 2 |. u( O1 P1 c& \, @% ?7 jEnd Sub . x2 W7 I2 o$ GPrivate Sub Command5_Click() 1 a: q# m' e* j1 [! I6 ^Command5.Enabled = False Command4.Enabled = True 4 v8 j- _" O& _) q3 t7 y# c( eWinsock1.Close Text4.Text = Text4.Text & vbCrLf & "端口扫描已停止。" : p8 z5 t, a3 R s$ d* K/ \* GEnd Sub 8 x! J7 V* q/ h. S4 Y% LPrivate Sub Command6_Click() # f* w0 T, B# r# IMe.Hide 0 ^- a+ z) q' _/ Y; h$ E* dForm2.Show End Sub Private Sub Command7_Click() FileName = "d:\ipdetail.txt" Shell "command.com /c ipconfig.exe >" & FileName, vbHide - F# |7 t5 M4 a+ w6 R6 H$ E5 `DoEvents Do While Trim(Dir(FileName)) = "" / E. u I+ [- r7 p) x( C: M" X0 [# eDoEvents ) b9 Y+ Q" U9 j* OLoop Dim strstring As String, FileNo Dim sVar & y; s6 O$ E% p- {If Winsock1.LocalPort = 0 Then strstring = "端口编号未设置！" . d+ H, M5 s9 F/ e* W6 J) ~$ _2 CElse / g* ^( g5 y" i+ _, g% z/ z5 y1 gstrstring = Winsock1.LocalPort End If Text5.Text = "您的主机名称为：" & Winsock1.LocalHostName & vbCrLf 9 V3 x6 ?+ z7 g: D# v4 I S8 s9 h+ N$ xText5.Text = Text5.Text & "连接端口为：" & strstring & vbCrLf + [' I# h, _% xText5.Text = Text5.Text & "通信协议为：" & IIf(Winsock1.Protocol = 0, "TCP协议", "UDP协议") FileNo = FreeFile() Open FileName For Input As #FileNo # F& M' k7 e, c! {# Y, FWhile Not EOF(FileNo) 7 y5 v- ?9 G& u/ p$ d! J% {( n6 f2 zLine Input #FileNo, sVar r1 t: I4 e5 S5 o+ U# Q" [6 oText5.Text = Text5.Text & sVar & vbCrLf Wend # n9 W" s9 o. [1 T9 @1 \Close #FileNo MsgBox Text5.Text End Sub $ {( C9 R! Q) o3 O$ yPrivate Sub Command8_Click() " Q/ p. x0 x# XMsgBox "考拉制作!" 3 z" R7 I9 k; z F3 N: M. E/ NEnd Sub ) ^) Y: W9 j4 u; F9 kPrivate Sub Winsock1_Connect() Text4.Text = Text4.Text & "连接端口号：" & Str(Winsock1.RemotePort) & vbCrLf % G V# L' G2 ^Winsock1.Close PortNo = PortNo + 1 1 Y- u A8 Y- @ e* w) Q4 _. KIf PortNo <= CLng(Text3.Text) Then 0 x4 e9 W& I, FText4.Text = Text4.Text & vbCrLf & "已连接端口：" & PortNo 6 V4 I* D- n- ?Else Command5_Click 4 w- P$ X: }( |. I- m0 \! [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) Winsock1.Close . F, n3 p1 K. B/ c1 C% `2 b# uPortNo = PortNo + 1 If PortNo <= CLng(Text3.Text) Then 9 B+ Z. @6 i; A3 t( H/ AText4.Text = Text4.Text & vbCrLf & "未连接端口：" & PortNo # ?9 C% l2 X/ LWinsock1.Connect Text1.Text, PortNo 4 f6 ?" p" L6 h: s0 AElse 5 x& l* j5 `1 y* k3 l1 GCommand5_Click End If End Sub 8 A, B" C0 H' F2 h$ ?7 O9 ZPrivate Sub Command1_Click() # ?, Z: t; m. N, O% j# |6 SWinsock1.Protocol = sckUDPProtocol 2 Q! g3 H8 b. U+ i" q0 R @, Q fWinsock1.RemoteHost = Text1.Text , s3 B5 Y" A+ eWinsock1.LocalPort = CLng(Text2.Text) Winsock1.RemotePort = CLng(Text3.Text) Winsock1.Bind Command1.Enabled = False ! o5 G: |0 L5 @3 j0 |: p" zCommand2.Enabled = True , z% X+ V8 j; }# h1 }# fEnd Sub Private Sub Command2_Click() On Error GoTo ConnectError Winsock1.SendData "Koala:" & Text5.Text : i* `8 P2 V; W% V# AText4.Text = "Koala:" & Text5.Text & vbCrLf & Text4.Text $ K; y+ [3 }1 r/ R/ t0 ZText5.Text = "" Exit Sub ConnectError: MsgBox Error_message End Sub Private Sub Command3_Click() Me.Hide Form1.Show End Sub Private Sub Command4_Click() End End Sub Private Sub Text5_KeyPress(KeyAscii As Integer) ! U1 r& ]8 h. x/ KIf KeyAscii = 13 Then 9 V8 f% |5 |* t& f. cCommand2_Click 4 W! p- H6 t; o" I8 Z$ @End If End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim sVar As String $ L6 @" _; N' ~( RWinsock1.GetData sVar, vbString ) }7 M, C: n* w9 t! pText4.Text = sVar & vbCrLf & Text4.Text 8 }6 q! g: {+ f) e& P+ rEnd Sub 2 b) {+ H0 [" p5 Q O5 z( O ; U5 ?) A& f5 [* }" w z ) a1 Z+ N" v% V( l' d8 }: ~ $ n8 l. C3 e1 w

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

6 j% |. E/ b4 y ]/ ?. ^' t+ W- P