--------監視你的 TCP/IP埠!!!(vb)----------- (轉)
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/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- TCP/IP埠號大全TCP
- Python實現TCP/IP協議下的埠轉發及重定向示例PythonTCP協議
- 使用java程式,監聽tcp協議埠JavaTCP協議
- 利用“TCP/IP篩選”功能限制伺服器的埠TCP伺服器
- 你該瞭解的TCP/IP以及HTTPTCPHTTP
- 用VB除錯串列埠通訊 (轉)除錯串列埠
- VB串列埠使用心得兩則 (轉)串列埠
- windows10怎麼檢視監聽埠_windows10檢視監聽埠的方法Windows
- 你可能沒有細究過的TCP/IPTCP
- TCP/IP傳輸層,你懂多少?TCP
- vb中從域名得到IP及從IP得到域名 (轉)
- TCP/IP協議原理【轉載】TCP協議
- TCP/IP 抓包 流量監聽 SOCK_RAWTCP
- Backup Exec Remote Agent for Windows Servers Service不能啟動,應用無法監聽到NDMP TCP/IP埠REMWindowsServerTCP
- 帶你瞭解TCP/IP協議族TCP協議
- 在Linux下配置TCP/IP(轉)LinuxTCP
- IP基礎--8.TCP封包(轉)TCP
- TCP/IP基礎文章(安全篇) (轉)TCP
- 給電腦裝個監視器--VB程式設計一例 (轉)程式設計
- 用VB5 Winsock控制元件建立TCP/IP通訊程式控制元件TCP
- 理解 TCP(一):埠TCP
- 一篇帶你瞭解TCP/IP 概念TCP
- TCP/IP堆疊中的路由漏洞 (BSD,缺陷) (轉)TCP路由
- 把握安全監視你的網路是否受到攻擊(轉)
- TCP TCP/IP HTTP HTTPSTCPHTTP
- 『轉載』TCP/IP協議入門(一)TCP協議
- 使用netsh.exe配置TCP/IP(轉)TCP
- 檢視IBM小機HMC埠IP地址IBM
- TCP/IP之TCP的建立與終止TCP
- TCP/IP族TCP
- TCP/IP模型TCP模型
- TCP / IP AT命令TCP
- TCP/IP基礎知識&Oracle的TCP/IP網路應用TCPOracle
- TCP/IP、HTTP、socket 這些,你真的瞭解嗎?TCPHTTP
- 限制單個IP併發TCP連線的方法(轉)TCP
- 【TCP/IP】TCP詳解筆記TCP筆記
- TCP/IP、Http的區別TCPHTTP
- 修改oracle監聽佔用的8080埠(轉)Oracle