 该用户从未签到
|
3楼
楼主 |
发表于 2004-5-12 20:15:00
|
只看该作者
|
Dim PortNo As Long2 u" \3 O0 ]% f; b# ^1 F) g: ?9 i
Private Sub Command1_Click()
9 B. U6 _+ X2 I6 Q8 ]" iMsgBox "您的IP地址是：" & Winsock1.LocalIP. o0 O& {* d$ }
End Sub% b" N, v0 x1 f9 G; K
Private Sub Command2_Click()
) d7 Y \& i: Q3 OMsgBox "您的计算机名称是：" & Winsock1.LocalHostName7 Y2 J3 _0 z, e/ N3 r6 ?5 F; d
End Sub6 W- }/ q- b4 W9 K
Private Sub Command3_Click()# k! |3 I( b$ L q5 u
End+ `" G" W' L: `; Y# S9 ?
End Sub
( D% c4 P* w8 h0 |5 P- q: tPrivate Sub Command4_Click()* s h+ w7 n7 [1 m2 q( [) o! d
PortNo = CLng(Text2.Text) - 1
' I& N' ^ u; f( w) `9 T, |4 P EText4.Text = ""- c( N! ~+ g. A" b6 [% o; ?
Command5.Enabled = True
2 v7 [& B5 q+ G/ \; q, yCommand4.Enabled = False
: P8 p' b* A. F sIf PortNo < 0 Or PortNo > 32767 Then" ~- v& B9 t+ r
MsgBox "您的输入错误，端口超过范围"8 V4 d5 S' l- r1 s3 T
Command5_Click
/ @0 {7 z: q, fExit Sub
7 W) W2 l) Q: v* s3 ]9 VElse/ L \" A9 f, ]/ F
Winsock1.Connect Text1.Text, PortNo
% [5 G9 C) `+ @ B8 }Text4.Text = "开始端口扫描......") P9 @, h6 R. U5 T7 i9 E
End If
# z. O8 z9 ]3 ]2 EEnd Sub) N, k# F6 w1 z( h' A; S7 b% V
Private Sub Command5_Click() `) b: e5 |( p5 ]* l' I) G
Command5.Enabled = False1 D% m2 d) d3 I
Command4.Enabled = True
3 v1 @& p& W! P! E# E' NWinsock1.Close
, Z4 V0 ]4 A. o! GText4.Text = Text4.Text & vbCrLf & "端口扫描已停止。"
+ D9 u" R# \* [0 PEnd Sub2 L( f0 \3 Q- [' C1 `
Private Sub Command6_Click()( ~) V: ~2 ~, g$ d$ p3 Z2 l
Me.Hide* a( y# b. `0 M* |5 U
Form2.Show
# ?( n5 G b! T; r/ \2 e B) N8 SEnd Sub5 s" G3 Z# K( N' \$ x2 L
Private Sub Command7_Click()
9 R2 j) s, U- x# q. g/ A- KFileName = "d:\ipdetail.txt"% t% E. s$ z7 \' ?
Shell "command.com /c ipconfig.exe >" & FileName, vbHide
3 s) w3 R* z. A6 o& n& cDoEvents* K+ R. b9 H g3 ]' m* }7 J1 ~
Do While Trim(Dir(FileName)) = ""
: Q4 f/ v2 w ^6 b% @7 ]DoEvents
0 m$ Q0 L+ L* p/ ^; dLoop) r( ^ c: d: j( Y+ Y% {% h8 _2 P& |% t
Dim strstring As String, FileNo
! W3 }# ~( l" L1 G2 E( PDim sVar
3 b ], d; n6 S; e6 UIf Winsock1.LocalPort = 0 Then& W; }7 m& _% @# B
strstring = "端口编号未设置！"
R9 m! z0 h( m: IElse
* e2 a( B: P2 g1 Cstrstring = Winsock1.LocalPort
" z3 l( o J2 N' Y) dEnd If
# V% V& A2 u0 ]5 C( h% Q; zText5.Text = "您的主机名称为：" & Winsock1.LocalHostName & vbCrLf& p. A8 `6 ]) y2 [- i- d
Text5.Text = Text5.Text & "连接端口为：" & strstring & vbCrLf
( y* F5 ~/ |8 t3 KText5.Text = Text5.Text & "通信协议为：" & IIf(Winsock1.Protocol = 0, "TCP协议", "UDP协议")8 V2 ?- \4 Z' S1 ~% j7 H
FileNo = FreeFile()
6 \3 j4 C6 N! f: K+ ~- z E& z6 kOpen FileName For Input As #FileNo; z0 d s @9 T8 {/ `0 d% I
While Not EOF(FileNo)
, @3 O' z, P2 {! ]Line Input #FileNo, sVar) c/ t9 h4 T, o) n: |& X' y
Text5.Text = Text5.Text & sVar & vbCrLf6 d- P7 K& i0 s* E; Z
Wend3 s! Z, H2 f# w; e& L i J% x
Close #FileNo
2 l4 x6 d" z, l; p8 O8 s3 d1 M9 yMsgBox Text5.Text
; j+ }. P, H, u. j5 ?$ c( ]6 V3 ?End Sub
" |/ m" m, h j' z6 \, M5 N* tPrivate Sub Command8_Click()
' C* S* r q8 n. f$ YMsgBox "考拉制作!"
# G% T" |4 p/ X) lEnd Sub
8 Y1 }* y$ I; ~5 K; Y6 MPrivate Sub Winsock1_Connect()
. u5 h9 O" [) X0 d6 W- U/ e: `Text4.Text = Text4.Text & "连接端口号：" & Str(Winsock1.RemotePort) & vbCrLf: ~" [8 U% L5 f8 _% U7 c
Winsock1.Close0 N0 u) s4 V9 H' ~$ W* m9 s8 j
PortNo = PortNo + 1( k5 \, ^' b& [) k" a/ ^
If PortNo <= CLng(Text3.Text) Then# g3 T1 I. k: v2 I6 _7 v: m
Text4.Text = Text4.Text & vbCrLf & "已连接端口：" & PortNo
! y. a1 Z4 g* Z% g- ]Else
/ b; X7 d! O1 s% H* h& r8 L9 TCommand5_Click& K/ z# T, Z/ ~$ J W
End If5 }9 O% X. { v0 n5 N
End Sub* V9 `" i2 A* z! o0 P! i
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)! n8 x" T2 f; n7 \
Winsock1.Close* Y7 {9 f/ f8 P& g6 c0 l
PortNo = PortNo + 1
$ @( k% \- \. RIf PortNo <= CLng(Text3.Text) Then' o$ K2 @& R2 Q) R; K
Text4.Text = Text4.Text & vbCrLf & "未连接端口：" & PortNo
4 B$ c5 O) B5 @, K5 B, ~ ^Winsock1.Connect Text1.Text, PortNo5 w, _7 _8 \. I
Else- h. ]4 d1 B4 q" m
Command5_Click- @9 l4 y/ B; G0 D, A, X
End If' j# f' E1 v1 D U1 M# p" k
End Sub. A% a7 u' I3 r% J+ i
5 L- f2 T+ n* N/ Z( y3 X
Private Sub Command1_Click()* k: S5 t; ^* y6 ?
Winsock1.Protocol = sckUDPProtocol
0 W/ X& c8 M/ Q A- p3 yWinsock1.RemoteHost = Text1.Text9 p0 b" M( x; {1 [' h
Winsock1.LocalPort = CLng(Text2.Text)9 v5 c, a- N& v7 M e
Winsock1.RemotePort = CLng(Text3.Text)& `6 F! {. ~6 O1 [- h& n W5 k; r6 B
Winsock1.Bind* x6 z) r% G7 O
Command1.Enabled = False( h9 k7 t3 \0 o" S* ~- } h
Command2.Enabled = True; w( a- p! o4 Q/ l. w4 M
End Sub
# D+ b0 y4 e$ MPrivate Sub Command2_Click(), Q* Y" H1 h6 O0 W
On Error GoTo ConnectError
" W+ {! W# T# {Winsock1.SendData "Koala:" & Text5.Text* T" R! j+ s3 r7 \: i- V! X2 t/ O# G
Text4.Text = "Koala:" & Text5.Text & vbCrLf & Text4.Text |; p7 K3 w8 l4 j( ]
Text5.Text = ""
9 q% G9 M$ h4 C) z% f! PExit Sub
4 ^0 s, \6 l; l8 G& p L, tConnectError:
* j1 g5 N a @" N3 P8 R7 lMsgBox Error_message6 _; v r0 e% @% B4 X
End Sub
' ?1 r* h# @4 {- i, g: ZPrivate Sub Command3_Click()
0 K" L: B# Q1 A0 @6 z& CMe.Hide9 ]8 U E7 w& J! T$ W
Form1.Show
! S- J8 Q! D3 w- yEnd Sub
! v; H8 Q0 p) j* q; kPrivate Sub Command4_Click()
" B% T8 [* t1 i* a: m2 HEnd
$ `" A7 i9 e! j& tEnd Sub
3 [$ }8 f* ^) U7 U) F4 @Private Sub Text5_KeyPress(KeyAscii As Integer)( F& j' E$ w2 v) n
If KeyAscii = 13 Then
6 h+ P' k& N, gCommand2_Click8 Q8 a9 N( C" n- R8 T* y
End If- | _+ L, M T6 ]6 Z0 p! a/ w' q
End Sub) T8 q1 b( W" s' Z' r% H
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)$ M+ W7 h: d5 q# G
Dim sVar As String& v/ M9 Z% y0 ]) m' x/ F7 d
Winsock1.GetData sVar, vbString
1 d$ p2 T+ W8 b4 M. e# V; c. a1 aText4.Text = sVar & vbCrLf & Text4.Text
6 K2 \0 l( H$ h- y# h- jEnd Sub
$ s: s) Q- P) N$ t: l9 s- k6 J# O" t
1 [& i0 Z( D" g5 v+ U
0 K5 J3 }" r1 n) z# n4 w
* V; A% w. _, R
4 f: r+ q! w9 t, X7 Z* ` [此贴子已经被作者于2004-5-12 20:16:53编辑过]
3 v! K$ z( g* ^6 S3 n! S9 f |
|
/1 
IP卡
狗仔卡
发表于 2004-5-12 12:43:00
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
分享
顶
踩
转发到微博
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
千斤顶
显身卡
发表于 2004-5-12 19:17:00