ËÒ¡ÁÕ¤Ó¶ÒÁ ¢ÍãËéä»â¾Êµìŧ àÇ纺ÍÃì´¨Õ·Ù¨Õà¹çµ´Íµ¤ÍÁ µÑÇãËÁèá·¹¹èФÃѺ

ËÃ×͵ԴµèÍà¢éÒÁÒ·Ò§ Inbox ·Õè à¿«ºØê¤ ¼Á¤ÃѺ

˹éÒËÅÑ¡
¢èÒÇÊÒà - º·¤ÇÒÁ ·Ñé§ËÁ´
VB 6/VB.Net
ASP/ASP.Net
¨Ñº©èÒ¤ÍÁ¾ÔÇàµÍÃì
àÃÕ¹ÃÙé¼èÒ¹ Flash Movie
º·¤ÇÒÁ·ÕèÁÕ¼ÙéµÍºÅèÒÊØ´  
 RSS Feeds
 ´ÒǹìâËÅ´â»Ãá¡ÃÁ RSS Reader ä´é·Õè¹Õè ...   Download â»Ãá¡ÃÁ RSS Reader

Forum - www.g2gnet.com
Webmaster - www.g2gnet.com
Visitors - Session views
 5 6 1 6 1 6 0

7 ¸Ñ¹ÇÒ¤Á ¾.È.2549
115 Users On-Line.
Visitors - Page views
 8 9 7 3 9 0 3
1 ¡ØÁÀҾѹ¸ì ¾.È.2551

Google   
àÇçº g2gnet.com
¢¹Ò´µÑÇÍÑ¡ÉÃ:  

ᨡ¿ÃÕâ¤é´â»Ãá¡ÃÁ Scan ËÁÒÂàÅ¢ IP Address - VB6

Category »  VB 6/VB.Net
â´Â : Webmaster àÁ×èÍ 2/7/2553   àÇÅÒ: 12:43
(ÍèÒ¹ : 27786) 
àÅèÒÊÙè¡Ñ¹¿Ñ§ ...
â¤é´â»Ãá¡ÃÁ¹Õé à»ç¹Êèǹ˹Ö觢ͧ¡ÒÃà¢Õ¹¢Öé¹ÁÒà¾×è͵ÃǨÊͺʶҹСÒÃÍ͹äÅ¹ì ¢Í§äÍéâä¨ÔµµÑÇ˹Öè§ ·Õè¾ÂÒÂÒÁ¨Ð 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+
´ÒǹìâËÅ´ Source Code ÊÓËÃѺ¼Ùéãªé§Ò¹ Visual Basic 6
´ÒǹìâËÅ´ Source Code ÊÓËÃѺ MS Visual Basic 6.0 - Service Pack 6
 ´ÒǹìâËÅ´ Visual Basic 6.0 SP5: Run-Time Redistribution Pack
 ´ÒǹìâËÅ´ Microsoft Data Access Object (MDAC) áÅÐ Jet 4.0 Update
 ´ÒǹìâËÅ´ Microsoft Visual Basic Service Pack 6
¢éÍÁÙÅà¾ÔèÁàµÔÁ
ᨡ¿ÃÕâ¤é´â»Ãá¡ÃÁÍèÒ¹¤èÒ IP Address à»ç¹ DNS (LAN áÅÐ Internet) - VB6
ᨡ¿ÃÕâ¤é´â»Ãá¡ÃÁ Scan Port ¤ÍÁ¾ÔÇàµÍÃì (LAN áÅÐ Internet) - VB6
â¤é´â»Ãá¡ÃÁÍèÒ¹¤èÒ MAC Address ã¹à¤Ã×Í¢èÒ LAN - VB6
ÇÔ´ÕâÍÊ͹¢Ñ鹵͹¡Òà Debug Program ´éÇ MS Visual Basic 6.0
àÃ×èͧ¢Í§â»Ãá¡ÃÁÂèÍ (ÍÕ¡·Õ) ... Sub Program, Routine, Procedure ËÃ×Í Function
¡ÒÃà»ÅÕ蹤èÒ MAC Address (Media Access Control Address) Ẻ§èÒÂæ
VB6 ¡Ñº¡ÒÃÍèÒ¹¤èÒ MAC Address ¢Í§ LAN Card ´éÇÂÇÔ¸ÕºéÒ¹æ (µÒÁà¤Â)

ãªé 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 á·¹ ... Åͧ¹Óä»»ÃѺáµè§à¾ÔèÁàµÔÁ¡Ñ¹àÍÒàͧàŤÃѺ ... äÁèÂÒ¡ËÃÍ¡¤ÃѺ¾Õè¹éͧ ...

¨Õ ·Ù ¨Õ à¹çµ ´Íµ ¤ÍÁ - g2gNet Dot Com
àÅ¢·ÐàºÕ¹¾Ò³ÔªÂìÍÔàÅç¡·Ã͹ԡÊì 0407314800231
CopyLeft © 2004 - 2099 g2gNet.Com All rights reserved.
Email: [email protected] ËÃ×Í â·Ã. 08-6862-6560