àÅèÒÊÙè¡Ñ¹¿Ñ§ ... â¤é´â»Ãá¡ÃÁ¹Õé à»ç¹Êèǹ˹Ö觢ͧ¡ÒÃà¢Õ¹¢Öé¹ÁÒà¾×è͵ÃǨÊͺʶҹСÒÃÍ͹äÅ¹ì ¢Í§äÍéâä¨ÔµµÑÇ˹Öè§ ·Õè¾ÂÒÂÒÁ¨Ð Spam àÇçºä«µì¢Í§¼Á áÅмÁ¡çà½éÒÃÍà¡çº¢éÍÁÙÅäÇé·Ñé§ã¹ Web DataBase ·Ñé§Êè§ÍÍ¡ä»à¡çºäÇéã¹ GMail áÅÐ Logging File ¢Í§µÑÇ Server àͧàÍÒäÇéà¾ÕºàÅÂ ÊØ´·éÒ¡çµÒÁÁѹà¨ÍÍÂÙè·ÕèºÃÔÉÑ·Ï ¢ÒÂÃкº Network áËè§Ë¹Öè§ã¹¡ÃØ§à·¾Ï á¶ÇÊҸà (à¾ÃÒÐÁѹ¾ÅÒ´àͧ ·Õèãªé Fix IP 203.130.134.xxx ºÃÔÉѷϢͧÁѹÁÒ) áµè¤ÃÑ鹾ͼÁ»ÃÖ¡Éҡз¹Ò ¤ØÂ¡ÐµÓÃǨ àÃ×èͧ ¾.Ã.º. ¤ÍÁÏ »Õ 50 µÒÁÁÒµÃÒ 10 ÇèÒ¼ÁµéͧãªéËÅÑ¡°Ò¹ÍÐäúéÒ§ ... á»èÇ !!! ... äÁèÁÕã¤ÃÃÙéàÃ×èͧàÅ à¾ÃÒТéÍÁÙÅ·ÕèÁÕÁѹà»ç¹Ê×èÍÍÔàÅç¡·Ã͹ԡÊì·Ñé§ËÁ´ ÍÕ¡·Ñé§Âѧà»ç¹àÃ×èͧ·ÕèãËÁè´éÇ ¡çàÅÂàÍÒÇèÐ ÅçͤÃкº·Ø¡ÍÂèÒ§äÇéËÁ´ áÅéÇ¡çÍâËÊÔãËéÁѹ仡çáÅéǡѹ ... à¾ÃÒШÃÔ§æáÅéÇ ÊÔè§·ÕèÁѹ·Óä» ¡çá·ºäÁèÁÕ¼ÅÍÐäõèÍ Server ÍÂÙèáÅéÇÅèФÃѺ (¹ÕèáËÅлÑËÒ·Ò§¡¯ËÁÒ ¤×Í à¨µ¹ÒÁѹ¹èÐãªè áµè¼ÅàÊÕÂËÒÂÁѹäÁèà¡Ô´¢Öé¹ àÎéÍ) ... ¶×Í«èÐÇèҷӺطӷҹ»Åè͵ÑÇà§Ô¹µÑǷͧà¢éÒ»èÒä» ...
|
 |
¼Á¨ÐäÁè¡ÅèÒǶ֧·ÄɮբͧÃкºà¤Ã×Í¢èÒ¹èФÃѺ Íѹ¹Õéä»ËÒ¢éÍÁÙÅà¾ÔèÁàµÔÁàÍÒàͧ¤§äÁèÂÒ¡ ÊÓËÃÑºÂØ¤ÊÁѹÕé ... â¤é´â»Ãá¡ÃÁµÑǹÕéá·é·Õè¨ÃÔ§¡ç·Ó§Ò¹¤ÅéÒÂæ¡Ñº¡ÒÃãªé¤ÓÊÑè§ PING ã¹ DOS Command ¹Ñè¹áËÅФÃѺ ... ÊÓËÃѺ Visual Basic 6 àÃҨйÓàÍÒ Winsock Control (MSWINSCK.OCX) à¢éÒÁÒãªé§Ò¹
â´ÂÁÕÅѡɳСÒ÷ӧҹ ´Ñ§¹Õé¤×Í
- ¡Ó˹´ËÁÒÂàÅ¢ IP Address áÅÐ ËÁÒÂàÅ¢ Port ãËé¡Ñºà¨éÒ Winsock ¹Õè«èÐ
- ¨Ò¡¹Ñé¹ÊÑè§ãËé Connect ä»Âѧà¤Ã×èͧ»ÅÒ·ҧµÒÁ·ÕèàÃÒ¡Ó˹´¤èÒàÍÒäÇé
- ËÒ¡ Winsock ÊÒÁÒöµÔ´µè͡Ѻà¤Ã×èͧ»ÅÒ·ҧä´é Áѹ¨Ð¡ÃÐâ´´ä»·Ó§Ò¹Âѧà˵ءÒóì (ËÃ×Í â»Ãá¡ÃÁÂèÍÂ) ·Õèª×èÍÇèÒ Winsock_Connect() àÃÒ¡çÊÒÁÒöàÍÒ¢éÍÁÙÅ IP Address ¹ÕéãËéáÊ´§¼Åà»ç¹¡Òà On ä´é ã¹·Ò§¡ÅѺ¡Ñ¹ËÒ¡àª×èÍÁµè͡ѹäÁèä´é Áѹ¡çäÁèä»Âѧà˵ءÒóì Connect
- ¨Ò¡¹Ñé¹àÃÒ¡çÊÑè§ãËéǹ Loop à¾×èÍÃѺ¤èÒ IP Address µÑÇãËÁèà¢éÒÁÒ¨¹¡ÇèҨФú ... ¨º (àÃ×èͧ§èÒ¨ÃÔ§æàÅÂ)
- ¢ÍãËéÊѧࡵÇèÒ ¡ÒÃǹ Loop ¹Ñé¹ µéͧãªé¡Ò÷ӧҹ¢Í§ Timer à¢éÒÁÒªèǹèФÃѺ ¨Ðãªé¾Ç¡ For, Do, While ÅѡɳйÕéäÁèä´é à¾ÃÒÐÁѹà¡ÕèÂÇ¢éͧ¡ÑºàÃ×èͧ¢Í§àÇÅÒ´éÇÂ
â¤é´µÑǹÕéÊÒÁÒö·´Êͺ¡ÒÃàª×èÍÁµèÍ (Connect) ä´é·Ñé§à¤Ã×Í¢èÒ LAN (Local Area Network) ÀÒÂã¹ áÅÐ ÂѧÊÒÁÒöµÃǨÊͺÍÍ¡ä»ÂѧÃкºà¤Ã×Í¢èÒÂÍÔ¹à·ÍÃìà¹çµä´é´éǹèФÃѺ ¢ÍºÍ¡¤ÃѺ¢ÍºÍ¡ ... áµè·Ñé§¹ÕéËÒ¡¹ÓàÍÒ º·¤ÇÒÁâ»Ãá¡ÃÁÍèÒ¹¤èÒ MAC Address ã¹à¤Ã×Í¢èÒ LAN ÁÒãªé§Ò¹´éÇ ¡çµÒÁª×èͤÃѺ ¨ÐÍèÒ¹¤èÒ MAC Address ä´é੾ÒÐǧ LAN à·èÒ¹Ñé¹¹èФÃѺ¾Õè¹éͧ ... ¡Ã³ÕËÒ¡¨ÐÍèÒ¹¤èÒ MAC Address ã¹Ç§ LAN à¢éÒÁÒ´éÇ ¡çàªÔâÁ´Ô¿Ò¡ѹàÍÒàͧä´éµÒÁÊдǡ¹èФÃѺ àÍÔê¡æææ
 ¢ÍÂ×Á IP Address ¢Í§ ÁËÒÇÔ·ÂÒÅÑÂà·¤â¹âÅÂÕ¾ÃШÍÁà¡ÅéÒ ¾Ãй¤Ãà˹×Í ÁÒãªéà»ç¹µÑÇÍÂèÒ§¤ÃѺ (¼ÁÈÔÉÂìà¡èÒ¤ÃѺ ... àÍÒ IP ·ÕèÍ×è¹ÁÒáÊ´§à´ÕëÂÇà¢Ò¨ÐÇèÒàÍÒ) Êèǹª×èÍà¤Ã×èͧ ËÃ×Í DNS (Domain Name Server) ·ÕèàËç¹¹Ñ蹤×Í ¡ÒÃá»Å§¨Ò¡¤èÒ IP Address ÁÒ¤ÃѺ (à¾×èÍãËé§èÒ¡ÇèÒ¡Òè´¨ÓËÁÒÂàÅ¢ IP Address ¹Ñè¹àͧ) «Öè§ã¹º·¤ÇÒÁªØ´¹ÕéÂѧäÁèÁÕ Íѹ¹ÕéàÍÒäÇéÃͺ˹éÒ¡çáÅéǡѹ¹èФÃѺ ... ·ÓãËéÍÂÒ¡áÅéÇ¨Ò¡ä» 55555+
|
 |
 ãªé Component à¾ÔèÁÁÒÍÕ¡ 2 µÑÇ â´ÂàÅ×Í¡¨Ò¡àÁ¹Ù Project --> Components ...
 Design Time
Ãѧ¹éÍÂæ¢Í§·Í§¡é͹ (ËÃ×ͺҧÇѹ¡ç¡ÅÒÂÊÀÒ¾à»ç¹ ¹ÒÃÕá¢Â§¤Òà¿è àÍÔê¡ææææ)
- IP: 192.168.1.1 - Router
- IP: 192.168.1.11 - Windows Server 2003/MS SQL Server áÅÐà»ç¹ Backup Data
- IP: 192.168.1.20 - à¤Ã×èͧÍչѧËÁÙÊѺ¢Í§¼Áàͧ (¡ç·Ñé§ÊѺ ·Ñé§ÂÑ´äÊéÁѹ«èШ¹¨ÐàÅÐáÅéÇ) à»ç¹à¤Ã×èͧËÅÑ¡·Õèãªé§Ò¹
- IP: 192.168.1.100 - µèÍà¢éҡѺ Dream Box (DM600 PVR) Ẻ´Ù·ÕÇÕ¿ÃÕæ ÍÔÍÔÍÔÍÔÍÔ ... à¾ÃÒж١ËÂÒÁËÂѹÇèÒ¼ÁÁÕ TV ¨Í LCD Bravia ¢Í§ Sony «èдԺ´Õ áµè´Ñ¹ãªéàÊÒÍÒ¡ÒÈẺ˹Ǵ¡Øé§ ÁѹäÁèä´éÊÁÃҤҡѹàÅ ... 55555+
- IP: 192.168.1.21 - (ÀÒ¾¢éÒ§ÅèÒ§) à»ç¹à¤Ã×èͧãªé·´Êͺâ»Ãá¡ÃÁµèÒ§æ·Õè¼Áà¢Õ¹¢Öé¹ÁÒ 1 ÍÒ·ÔµÂì¨Ðŧ Windows XP ãËÁèµÅÍ´
- IP: 192.168.1.22 - (ÀÒ¾¢éÒ§ÅèÒ§) NoteBook µÑǹÕéŧ Win 7 à¾×èÍ·´Êͺâ»Ãá¡ÃÁÍÕ¡àªè¹¡Ñ¹
 Run Time
ÁÒ´Ùâ¤é´¡Ñ¹à¶ÍÐ ...
Option Explicit
' ¹Ñº¨Ó¹Ç¹ IP Address ·ÕèµÃǨ¾º
Dim CountIP As Long
' à¡çº¤èÒ IP ªØ´ÊØ´·éÒ¢ͧ¤èÒàÃÔèÁµé¹àÍÒäÇé àªè¹ 192.168.0.1 ¨Ðà¡çº¤èÒ 1
Dim IPStartScan As Integer
' à¡çº¤èÒ IP ªØ´ÊØ´·éÒ¢ͧ¤èÒÊÔé¹ÊØ´àÍÒäÇé àªè¹ 192.168.0.254 ¨Ðà¡çº¤èÒ 254
Dim IPEndScan As Integer
' à¡çº¤èÒ IP 3 ªØ´áá àªè¹ 192.168.0.254 ¨Ðà¡çº¤èÒ 192.168.0 àÍÒäÇé
Dim strIP As String
' µÑÇá»Ãà¡çº¤èÒʶҹТͧ¡Òà Scan ËÒ IP
' ËÒ¡à»ç¹¨ÃÔ§ ʶҹСÓÅѧ Scan
' ËÒ¡à»ç¹à·ç¨ ʶҹÐËÂØ´¡Òà Scan
Dim blnScan As Boolean
' ¡Ã³ÕÊÑè§ËÂØ´¡Òà Scan
Private Sub cmdStop_Click()
' ¡Ó˹´ False à¾×èÍËÂØ´¡Òà Scan IP Address
blnScan = False
End Sub
Private Sub Form_Load()
' µÑé§¿ÍÃìÁÍÂÙè¡Öè§¡ÅÒ§
Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
' »Ô´ Timer àÍÒäÇé¡è͹ à¾ÃÒÐÂѧäÁèä´éÊÑè§ãËéÁѹ·Ó§Ò¹
Timer1.Enabled = False
' µÑÇÍÂèÒ§¹èФÃѺ
txtStartIP(0).Text = "192"
txtStartIP(1).Text = "168"
txtStartIP(2).Text = "0"
txtStartIP(3).Text = "0"
txtEndIP(0).Text = "192"
txtEndIP(1).Text = "168"
txtEndIP(2).Text = "0"
txtEndIP(3).Text = "255"
txtPort.Text = "80"
txtScanResult.Text = ""
cmdStop.Enabled = False
End Sub
' ###################################################
' ¡Òá´»ØèÁãËéàÃÔèÁµé¹ Scan ËÒ IP Address
' ###################################################
Private Sub cmdScan_Click()
On Error GoTo ErrorHandler
Dim Count As Integer
' µÃǨÊͺÇèÒ IP àÃÔèÁµé¹ã¹¡Òäé¹ËÒ ·Ñé§ 4 ªØ´ à»ç¹¤èÒÇèÒ§ËÃ×ÍäÁè
For Count = 0 To 3
If Trim(txtStartIP(Count).Text) = "" Or Len(Trim(txtStartIP(Count).Text)) = 0 Then
MsgBox "¡Ãسһé͹ËÁÒÂàÅ¢ IP Address ãËé¶Ù¡µéͧ´éÇÂ.", vbOKOnly + vbExclamation, "ÃÒ§ҹʶҹÐ"
Exit Sub
End If
Next Count
' µÃǨÊͺÇèÒ»é͹ËÁÒÂàÅ¢ Port ËÃ×ÍäÁè
If Trim(txtPort.Text) = "" Or Len(Trim$(txtPort.Text)) = 0 Then
MsgBox "¡Ãسһé͹ËÁÒÂàÅ¢ Port ¡è͹´éÇÂ.", vbOKOnly + vbExclamation, "ÃÒ§ҹʶҹÐ"
Exit Sub
End If
' à¤ÅÕÂÃì¢éÍÁÙÅ Status Bar ã¹ Panel áá
sbMain.Panels(1).Text = ""
' à¤ÅÕÂÃì¤èÒ TextBox 㹡ÒÃáÊ´§¼ÅËÁÒÂàÅ¢ IP Address
txtScanResult.Text = ""
' à¤ÅÕÂÃì¤èÒ¡ÒùѺ¨Ó¹Ç¹ IP
CountIP = 0
' ¡Ó˹´ªèǧàÇÅÒ㹡Òà Scan ËÒ IP Address
' ºÒ§¤ÃÑé§¡çÍÒ¨¨Ðµéͧ¡Ó˹´ãËéãªéàÇÅÒ¹Ò¹ à¾ÃÒÐÁѹ¢Ö鹡ѺÊÒÂáÅÐÃÐÂзҧ ËÃ×ÍÍ×è¹æ ´éǹèФÃѺ
Timer1.Interval = 100
' ËÒ¡ IP ªØ´ÊØ´·éÒÂäÁèà»ç¹¤èÒÇèÒ§
If Trim(txtEndIP(3).Text) <> "" Or Len(Trim(txtEndIP(3).Text)) = 0 Then
cmdScan.Enabled = False
cmdStop.Enabled = True
' á¨é§ËÁÒÂàÅ¢ Port
txtScanResult.Text = txtScanResult.Text & "µÃǨÊͺËÁÒÂàÅ¢ Port: " & txtPort.Text & vbCrLf
' ¡Ó˹´¤èÒËÁÒÂàÅ¢ IP 㹡ÒÃàÃÔèÁµé¹ Scan ËÒ àÍÒ੾ÒÐ 3 ªØ´áá àªè¹ 192.168.0
' áÅéǤèÍÂæ·Ó¡ÒùѺËÁÒÂàÅ¢ªØ´ÊØ´·éÒ¢Öé¹ä»·ÕÅÐ 1
strIP = txtStartIP(0).Text & "." & txtStartIP(1).Text & "." & txtStartIP(2).Text
' ¡Ó˹´ËÁÒÂàÅ¢ IP Address àÃÔèÁµé¹ (ªØ´ÊØ´·éÒÂ)
IPStartScan = txtStartIP(3).Text
' ¡Ó˹´ËÁÒÂàÅ¢ IP ·ÕèÊÔé¹ÊØ´ (ªØ´ÊØ´·éÒÂ)
IPEndScan = txtEndIP(3).Text
' ¢³Ð¹Õé¡ÓÅѧ·Ó¡Òà Scan àÁ×èÍäáçµÒÁ·Õè¤èÒ¹ÕéÁÕ¤èÒà»ç¹ False ¡ç¨ÐËÂØ´¡Ò÷ӧҹŧ·Ñ¹·Õ
blnScan = True
' ¡ÃеØé¹¹ÒÌÔ¡ÒãËé·Ó§Ò¹µèÍä»
Timer1.Enabled = True
End If
ExitProc:
Exit Sub
ErrorHandler:
' ¢³Ðâ»Ãá¡ÃÁ¡ÓÅѧ·Ó§Ò¹ (Run Time) ´Ñ¡ Error ¨Ò¡ On Error GoTo ErrorHandler
If Err.Number <> 0 Then MsgBox "Error " & Err.Number & vbCrLf & Err.Description
Resume ExitProc
End Sub
' ###################################################
' â»Ãá¡ÃÁÂèÍÂ㹡Òà Scan ËÒ IP Address µÒÁªèǧ·Õè¡Ó˹´àÍÒäÇé
' ###################################################
Private Sub ScanIP()
On Error GoTo ErrorHandler
' à§×è͹ä¢ãËé Scan àÁ×èÍ IP ªØ´ÊØ´·éÒ¢ͧ¤èÒàÃÔèÁµé¹ Âѧ¹éÍ¡ÇèÒËÃ×Íà·èҡѺ IP ªØ´ÊØ´·éÒ¢ͧ¤èÒÊÔé¹ÊØ´
' áÅÐ ÂѧäÁèÁÕ¡Òá´»ØèÁ cmdStop ãËéËÂØ´¡Ò÷ӧҹ
If IPStartScan <= IPEndScan And blnScan = True Then
' ãËé CPU ä»·Ó§Ò¹ÍÂèÒ§Í×è¹ä´éàÅ (¤×¹ CPU ¡ÅѺä»ãËé¡ÑºÃкº»¯ÔºÑµÔ¡Òà - OS)
DoEvents
' ËÒ¡ Winsock ÂѧÁÕ¡Òà Connect ¡Ñº IP ã´æÍÂÙè µéͧÊÑè§ãËé Disconnect Í͡仡è͹
If wsIP.State <> sckClosed Then wsIP.Close
' ###################################################
' ÊèǹÊӤѷÕè¡Ó˹´¤èÒà¾×èÍ·Ó¡Ò÷´Êͺ
' ¡Ó˹´ IP ãËé¡Ñº Winsock àÁ×èÍ
' strIP à¡çº¤èÒ IP 3 ªØ´áá àªè¹ 192.168.0.111 ¡ç¨Ðà¡çº¤èÒ 192.168.0 àÍÒäÇé
' IPStartScan à¡çº¤èÒ IP ªØ´ÊØ´·éÒ ËÃ×Í IP ·Õè¡ÓÅѧµÃǨÊͺ¡Òà Connect ¡Ñº Winsock
wsIP.RemoteHost = strIP & "." & IPStartScan
' ¡Ó˹´ËÁÒÂàÅ¢ Port 㹡ÒõԴµè͡Ѻ Remote IP
wsIP.RemotePort = txtPort.Text
' Winsock µÔ´µèÍËÁÒÂàÅ¢ IP Address áÅÐ ËÁÒÂàÅ¢ Port µÒÁ·Õè¡Ó˹´
' ËÇ¡ÊÒÁÒöµÔ´µèÍ IP Address áÅÐ Port ·Õè¡Ó˹´ä´é ¡ç¨Ð¡ÃÐâ´´ä»à˵ءÒóì wsIP_Connect()
' ËÒ¡ÇèÒÁѹµÔ´µè͡Ѻà¤Ã×èͧ»ÅÒ·ҧäÁèä´é Áѹ¡ç¨ÐäÁè¡ÃÐâ´´ä»ã¹à˵ءÒóì Connect ¹èФÃѺ
' ¨Ò¡¹Ñé¹àÃÒ¡çãËéÁѹáÊ´§¼ÅµÒÁËÁÒÂàÅ¢ IP Address ÍÍ¡ÁÒÂѧä§ÅèФÃѺ
' ¨ÐàË繡Ò÷ӧҹã¹Êèǹ¹Õéä´é ¤Ø³µéͧ·Ó¡Òà Debug ´Ù´éǹèФÃѺ ...
wsIP.Connect
' ###################################################
' à¾ÔèÁ¤èÒ IP 㹡Òà Scan ¢Öé¹ÍÕ¡ 1
IPStartScan = IPStartScan + 1
' Scan ËÒ IP Address ¤ÃºáÅéÇ ËÃ×Í ÊÑè§ãËéËÂØ´¡Òà Scan
Else
cmdScan.Enabled = True
cmdStop.Enabled = False
' ÊÑè§ãËé Timer1 ËÂØ´¡Ò÷ӧҹ´éÇÂ
Timer1.Enabled = False
' ÃÒ§ҹ¼Å¡Òà Scan IP Address ã¹ StatusBar
If IPStartScan <= IPEndScan Then
sbMain.Panels(1).Text = "ËÂØ´¡Ò÷ӧҹ·Õè IP: " & IPStartScan
' ¡Ã³Õ Scan IP Address àÊÃç¨ÊÁºÙóìËÁ´áÅéÇ
Else
sbMain.Panels(1).Text = "¡Ò÷ӧҹàÊÃç¨ÊÁºÙóì - " & CountIP & " IP Address"
MsgBox "Scan ËÒ IP ã¹Ãкºä´é " & CountIP & " ËÁÒÂàÅ¢ - Port " & txtPort.Text
End If
End If
ExitProc:
Exit Sub
ErrorHandler:
' ¢³Ðâ»Ãá¡ÃÁ¡ÓÅѧ·Ó§Ò¹ (Run Time) ´Ñ¡ Error ¨Ò¡ On Error GoTo ErrorHandler
If Err.Number <> 0 Then MsgBox "Error " & Err.Number & vbCrLf & Err.Description
Resume ExitProc
End Sub
' ###################################################
' µÃҺ㴷Õè Timer1.Enabled = True Áѹ¡ç¨Ðà¢éÒÁÒ·Ó§Ò¹·Õè¹Õè µÒÁ¤èÒ Interval ·ÕèµÑé§àÍÒäÇé
' ###################################################
Private Sub Timer1_Timer()
' ËÒ¡ Timer1 ÁÕ¤èÒ Enabled ¡ç¨ÐÊÑè§ãËéä»·Ó§Ò¹·Õèâ»Ãá¡ÃÁÂèÍ ScanIP µÒÁàÇÅÒ·Õè¡Ó˹´
sbMain.Panels(1).Text = "¡ÓÅѧ»ÃÐÁÇżŠIP: " & strIP & "." & IPStartScan
' ä» Scan ËÒ IP Address ËÃ×Í
' µÃǨÊͺ¡Òà Connect IP Address ¡Ñº Winsock Control ¹Ñè¹áËÅФÃѺ
Call ScanIP
End Sub
' ###################################################
' â»Ãá¡ÃÁÂèÍÂ㹡ÒõÃǨÊͺ¡Òà Connect ¡Ñº Winsock ËÃ×ÍäÁè
' ËÒ¡ÁÕ¡Òà Connect ¡Ñº IP ·Õè·´ÊͺÍÂÙèãËé·Ó¡ÒÃá¨é§¼Åã¹ TextBox
Private Sub wsIP_Connect()
' ###################################################
On Error GoTo ErrorHandler
' áÊ´§¼ÅËÁÒÂàÅ¢ IP Address ã¹ TextBox
txtScanResult.Text = txtScanResult.Text & "IP : " & wsIP.RemoteHost & vbCrLf
' ¹Ñº¨Ó¹Ç¹ IP Address ·ÕèµÃǨ¾º
CountIP = CountIP + 1
ExitProc:
Exit Sub
ErrorHandler:
' ¢³Ðâ»Ãá¡ÃÁ¡ÓÅѧ·Ó§Ò¹ (Run Time) ´Ñ¡ Error ¨Ò¡ On Error GoTo ErrorHandler
If Err.Number <> 0 Then MsgBox "Error " & Err.Number & vbCrLf & Err.Description
Resume ExitProc
End Sub
Private Sub cmdExit_Click()
Set frmIPScan = Nothing
End
End Sub
|
Conclusion: ¨Ò¡â»Ãá¡ÃÁ¹Õé à»ç¹¡ÒÃǹÃͺµÒÁËÁÒÂàÅ¢ IP Address â´Â·´Êͺä´éà¾Õ§¤ÃÑé§ÅÐ 1 Port à·èÒ¹Ñé¹ ... ¡Ã³Õ·ÕèàÃÒÍÂÒ¡µÃǨÊͺ Port µèÒ§æ ¢Í§áµèÅÐ IP Address ã´æ 1 IP á·¹ ·Ñé§à¤Ã×èͧàÃÒàͧ ËÃ×Í à¤Ã×èͧÍ×è¹æ ÇèÒÁÕ¡ÒÃà»Ô´ Port ä˹àÍÒäÇéºéÒ§ ¡çà¾Õ§áµè¡Ó˹´ ËÃ×Í Fix IP Address äÇéà¾Õ§ 1 ËÁÒÂàÅ¢à·èÒ¹Ñé¹ ¨Ò¡¹Ñ鹡çÊÑè§ãËéǹÃͺµÒÁËÁÒÂàÅ¢ Port á·¹ ... Åͧ¹Óä»»ÃѺáµè§à¾ÔèÁàµÔÁ¡Ñ¹àÍÒàͧàŤÃѺ ... äÁèÂÒ¡ËÃÍ¡¤ÃѺ¾Õè¹éͧ ...
|