--------監視你的 TCP/IP埠！！！（vb）----------- (轉)

worldblog發表於2007-12-29
TCP
--------監視你的 TCP/IP埠！！！（vb）----------- (轉)[@more@]

Option Explicit Const PortsChecked = 200 Private Sub Command1_Click() Timer1.Enabled = True Timer1.Interval = 1000 End Sub Private Sub Command2_Click() Timer1.Interval = 0 Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Dim X As Integer List1.Clear For X = 1 To PortsChecked DoEvents Text1.Text = X WinSock1.LocalPort = X On Error Resume Next WinSock1.Listen ' If we get an error, the port is busy. If Err.Number = 10048 Then List1.AddItem X ' Log Active port # to list box. Err.Number = 0 End If WinSock1.Close Next X End Sub Private Sub Form_Load() Label1.Caption = "Checking Port #" Label2.Caption = "Ports In Use" Command1.Caption = "Start" Command2.Caption = "End" Text1.Locked = True End Sub 



                                                    

                                        

                    

                                                    來自 “ ITPUB部落格 ” ，連結：http://blog.itpub.net/10752043/viewspace-996117/，如需轉載，請註明出處，否則將追究法律責任。
                                            


                




相關文章