• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

[Thủ thuật] Access tương tác với CMD(command prompt)

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Tương tác Chương trình ngoài
  • [Thủ thuật] Access tương tác với CMD(command prompt)
• [Thủ thuật] Access tương tác với CMD(command prompt)

• [Thủ thuật] Access tương tác với CMD(command prompt)

  maidinhdan > 13-11-20, 09:16 PM

  Command Prompt trong Windows cung cấp quyền truy xuất dữ liệu nhanh, gọn, lẹ, thực thi các mong muốn của người.
  Kết hợp với Access sẽ càng có lơi hơn rất nhiều, qua nghiên cứu tìm hiểu phát triển thành một số hàm cơ bản để các bạn tận dụng trong quá trình viết ứng dụng của mình.
  
  Bài viết sẽ không có Demo, vì những code này dành cho các bạn đã có kinh nghiệm về hàm tự tạo.
  
  1. Hàm thứ nhất: Kiểm tra 1 máy tính đang tắt hay mở trong mạng LAN thông qua IP/Tên máy tính
  

  Mã PHP:

  Function PingIP()
    Dim oShell, oExec As Variant
    Dim strText, strCmd, ComputerName As String
    ComputerName = "MAIDINHDAN"    'Ten may tinh/IP may tinh:  "192.168.1.11"
    strText = ""
    strCmd = "ping -n 3 -w 1000 " & ComputerName
    Set oShell = CreateObject("WScript.Shell")
    Set oExec = oShell.Exec(strCmd)

    Do While Not oExec.StdOut.AtEndOfStream
        strText = oExec.StdOut.ReadLine()
            Debug.Print strText
        If InStr(strText, "Reply") > 0 Then
            Debug.Print "oK"
            Exit Do
        Else
            Debug.Print "Khong tim thay"
        End If
    Loop
End Function 


  
  
  2. Hiển thị tên tất cả máy tính đang Online ( Chỉ áp dụng mạng có dây)
  

  Mã PHP:

  Function HienThiTenMayDangOnline()
Dim oShell, oExec As Variant
Dim strText, strCmd As String

strText = ""
strCmd = "Net view" ''HienThiTenMayDangOnline
Set oShell = CreateObject("WScript.Shell")
Set oExec = oShell.Exec(strCmd)

Do While Not oExec.StdOut.AtEndOfStream
        strText = oExec.StdOut.ReadLine()
    If Left(strText, 2) = "\\" Then
        Debug.Print strText
    End If
Loop

End Function 


  
  
  3. Hiển thị tên tất cả IP đang online ( chỉ áp dụng cho mạng có dây)
  

  Mã PHP:

  Function HienThiIPDangOnline()
Dim oShell, oExec As Variant
Dim strText, strCmd As String

strText = ""
strCmd = "arp -a" ''HienThiIPDangOnline
Set oShell = CreateObject("WScript.Shell")
Set oExec = oShell.Exec(strCmd)

Do While Not oExec.StdOut.AtEndOfStream
        strText = oExec.StdOut.ReadLine()
        If Left(strText, 14) = "Interface: 192" Then Debug.Print strText
    If Left(strText, 6) = "  192." And Right(strText, 10) = "dynamic  " Then
        Debug.Print strText
    End If
    Debug.Print strText
Loop

End Function 


  
  
  4. Lấy tất cả thông tin máy tính
  

  Mã PHP:

  Function ThongtinMayTinh()
Dim oShell, oExec As Variant
Dim strText, strCmd As String

strText = ""
strCmd = "SystemInfo" '
Set oShell = CreateObject("WScript.Shell")
Set oExec = oShell.Exec(strCmd)

Do While Not oExec.StdOut.AtEndOfStream
        strText = oExec.StdOut.ReadLine()
    Debug.Print strText
Loop

End Function 


  
  
  5. Liệt kê tất cả các dịch vụ đang chạy trên Window
  

  Mã PHP:

  Function DichvuDangchay()
Dim oShell, oExec As Variant
Dim strText, strCmd As String

strText = ""
strCmd = "tasklist" '
Set oShell = CreateObject("WScript.Shell")
Set oExec = oShell.Exec(strCmd)

Do While Not oExec.StdOut.AtEndOfStream
        strText = oExec.StdOut.ReadLine()
    Debug.Print strText
Loop

End Function 


  
  
  6. Tắt 01 dịch vụ đang chạy bất kỳ
  

  Mã PHP:

  Function TatDichvuDangchay(TenDichVuCanTat As String)
Dim oShell, oExec As Variant
Dim strText, strCmd As String

strText = ""
strCmd = "taskkill /f /im " & TenDichVuCanTat '
Set oShell = CreateObject("WScript.Shell")
Set oExec = oShell.Exec(strCmd)

Do While Not oExec.StdOut.AtEndOfStream
        strText = oExec.StdOut.ReadLine()
    Debug.Print strText
Loop

End Function 


  
  
  
  .....Còn tiếp
  

• RE: [Thủ thuật] Access tương tác với CMD(command prompt)

  maidinhdan > 14-11-20, 11:57 PM

  7. Liệt kê tất cả kết nối ra vào của Window
  

  Mã PHP:

  ' --------------------------------------------------------------------------------------------------------
' Thuoc Modules/Class:  Hoc Lenh CMD
' Ten ham/thu tuc    :  cmdNetstat
' Tao tren may PC    :  HENDANWIN10PRO
' Author/ Tac gia    : maidinhdan@gmail.com
' Ngay tao          : 03/05/2020 3:37:39 PM
' Parameters/Tham so :
                        '– Tham so /a: Hien thi tat ca cac ket noi va cac cong dang lang nghe (listening)
                        '– Tham so /e: hien thi cac thong tin thong ke Ethernet
                        '– Tham so /n: Hien thi cac dia chi va cac so cong ket noi…
' Cu phap/ Purpose  : Netstat [/a][/e][/n]
' Pham vi ap dung    : Lenh Netstat cho phep ta liet ke tat ca cac ket noi ra va vao may tinh cua chung ta.
' --------------------------------------------------------------------------------------------------------
Function cmdNetstat()
Dim oShell, oExec As Variant
Dim strText, strCmd As String

strCmd = "Netstat /a" ' Liet ke thong tin Ip
Set oShell = CreateObject("WScript.Shell")
Set oExec = oShell.Exec(strCmd)

Do While Not oExec.StdOut.AtEndOfStream
        strText = strText & oExec.StdOut.ReadLine() & vbCrLf
Loop
Debug.Print strText
End Function 


  
  
  8. Liệt kê cấu hình IP = lệnh IPConfig
  

  Mã PHP:

  ' --------------------------------------------------------------------------------------------------------
' Thuoc Modules/Class:  Hoc Lenh CMD
' Ten ham/thu tuc    :  cmdIPconfig
' Tao tren may PC    :  HENDANWIN10PRO
' Author/ Tac gia    : maidinhdan@gmail.com
' Ngay tao          : 03/05/2020 3:39:49 PM
' Parameters/Tham so :
' Cu phap/ Purpose  :
' Pham vi ap dung    : Lenh nay se cho phep hien thi cau hinh IP cua may tinh ban dang su dung, nhu ten host, dia chi IP, mat na mang…
' --------------------------------------------------------------------------------------------------------
Function cmdIPconfig()
Dim oShell, oExec As Variant
Dim strText, strCmd As String

strCmd = "ipconfig /all" ' Liet ke thong tin Ip

Set oShell = CreateObject("WScript.Shell")
Set oExec = oShell.Exec(strCmd)

Do While Not oExec.StdOut.AtEndOfStream
        strText = strText & oExec.StdOut.ReadLine() & vbCrLf
Loop
Debug.Print strText
End Function 


  
  
  9. Tắt máy tính (Shutdow)
  

  Mã PHP:

  Function TatMay()
Dim oShell, oExec As Variant
Dim strText, strCmd As String

strText = ""
strCmd = "Shutdown -s -t [3600]"
Set oShell = CreateObject("WScript.Shell")
Set oExec = oShell.Exec(strCmd)

'Do While Not oExec.StdOut.AtEndOfStream
'        strText = oExec.StdOut.ReadLine()
'    Debug.Print strText
'Loop

End Function 


  
  
  10. Khởi động lại máy tính
  

  Mã PHP:

  Function KhoiDonglaiMay()
Dim oShell, oExec As Variant
Dim strText, strCmd As String

strText = ""
strCmd = "Shutdown -r -t [3600]"
Set oShell = CreateObject("WScript.Shell")
Set oExec = oShell.Exec(strCmd)

'Do While Not oExec.StdOut.AtEndOfStream
'        strText = oExec.StdOut.ReadLine()
'    Debug.Print strText
'Loop

End Function 


  
  
  11. Tắt máy khác trong mạng LAN (Chưa test)
  

  Mã PHP:

  Public Sub TatMayKhacTrongMangLan(TenMayCanTat, TenTaiKhoanUser, MatKhau)
  Dim Connection, WQL, SystemClass, System
  Dim Locator
  Set Locator = CreateObject("WbemScripting.SWbemLocator")
  Set Connection = Locator.ConnectServer(TenMayCanTat, "root\cimv2", TenTaiKhoanUser, MatKhau)
  WQL = "Select Name From Win32_OperatingSystem"
  Set SystemClass = Connection.ExecQuery(WQL)
  For Each System In SystemClass
    System.Win32ShutDown (1)
  Next
End Sub 


  
  
  12. Quan sát đường đi của các gói tin đến máy đích
  

  Mã PHP:

  ' --------------------------------------------------------------------------------------------------------
' Thuoc Modules/Class:  Hoc Lenh CMD
' Ten ham/thu tuc    :  cmdTracert
' Tao tren may PC    :  HENDANWIN10PRO
' Author/ Tac gia    : maidinhdan@gmail.com
' Ngay tao          : 03/05/2020 3:42:36 PM
' Parameters/Tham so :
' Cu phap/ Purpose  : tracert ip/host
' Pham vi ap dung    : 'Lenh nay se cho phep ban “nhin thay” duong di cua cac goi tin tu may tinh cua ban den may tinh dich,
                      ' xem goi tin cua ban vong qua cac server nao, cac router nao… Qua hay neu ban muon tham do mot server nao do
' --------------------------------------------------------------------------------------------------------
Function cmdTracert()
Dim oShell, oExec As Variant
Dim strText, strCmd As String

strCmd = "tracert 192.168.1.8"

Set oShell = CreateObject("WScript.Shell")
Set oExec = oShell.Exec(strCmd)

Do While Not oExec.StdOut.AtEndOfStream
        strText = strText & oExec.StdOut.ReadLine() & vbCrLf
Loop
Debug.Print strText
End Function 


  
  
  
  ....còn tiếp

• RE: [Thủ thuật] Access tương tác với CMD(command prompt)

  maidinhdan > 16-11-20, 10:22 PM

  13. Liệt kê tên tất cả Wifi từng kết nối
  

  Mã PHP:

  Function LietKeWifi()
Dim oShell, oExec As Variant
Dim strText, strCmd As String

strText = ""
strCmd = "NETSH WLAN SHOW PROFILE"
Set oShell = CreateObject("WScript.Shell")
Set oExec = oShell.Exec(strCmd)

Do While Not oExec.StdOut.AtEndOfStream
        strText = Trim(oExec.StdOut.ReadLine())
    If Left(strText, 16) = "All User Profile" Then
        strText = Trim(Mid(Trim(Right(strText, Len(strText) - 16)), 2))
        Debug.Print strText
    End If
Loop

End Function 


  
  
  14. Lấy Mật khẩu Wifi
  

  Mã PHP:

  Function LayMatKhauWifi(TenMangWifi As String)
Dim oShell, oExec As Variant
Dim strText, strCmd As String

strText = ""
strCmd = "netsh wlan show profile name=" & TenMangWifi & " key=clear"
Set oShell = CreateObject("WScript.Shell")
Set oExec = oShell.Exec(strCmd)

Do While Not oExec.StdOut.AtEndOfStream
        strText = Trim(oExec.StdOut.ReadLine())
    If Left(strText, 11) = "Key Content" Then
        strText = Trim(Mid(Trim(Right(strText, Len(strText) - 11)), 2))
        Debug.Print strText
    End If
        
Loop
    
End Function 


• RE: [Thủ thuật] Access tương tác với CMD(command prompt)

  KheNgot > 17-11-20, 12:47 PM

  (16-11-20, 10:22 PM)maidinhdan Đã viết: 13. Liệt kê tên tất cả Wifi từng kết nối
  

  Mã PHP:

  Function LietKeWifi()
Dim oShell, oExec As Variant
Dim strText, strCmd As String

strText = ""
strCmd = "NETSH WLAN SHOW PROFILE"
Set oShell = CreateObject("WScript.Shell")
Set oExec = oShell.Exec(strCmd)

Do While Not oExec.StdOut.AtEndOfStream
        strText = Trim(oExec.StdOut.ReadLine())
    If Left(strText, 16) = "All User Profile" Then
        strText = Trim(Mid(Trim(Right(strText, Len(strText) - 16)), 2))
        Debug.Print strText
    End If
Loop

End Function 


  
  
  14. Lấy Mật khẩu Wifi
  

  Mã PHP:

  Function LayMatKhauWifi(TenMangWifi As String)
Dim oShell, oExec As Variant
Dim strText, strCmd As String

strText = ""
strCmd = "netsh wlan show profile name=" & TenMangWifi & " key=clear"
Set oShell = CreateObject("WScript.Shell")
Set oExec = oShell.Exec(strCmd)

Do While Not oExec.StdOut.AtEndOfStream
        strText = Trim(oExec.StdOut.ReadLine())
    If Left(strText, 11) = "Key Content" Then
        strText = Trim(Mid(Trim(Right(strText, Len(strText) - 11)), 2))
        Debug.Print strText
    End If
        
Loop
    
End Function 


  Anh cho em hỏi chút về lấy mật khẩu Wiffi ạ: Em tạo 1 form và tạo 1 nút trên đó rồi em paste code của anh vào không thực hiện được. Không biết là lỗi gì anh nhỉ? Mong anh chỉ giúp chỗ sai của em ạ:
  

  Mã PHP:

  Option Compare Database
Option Explicit

Private Sub cbLayPassWiffi_Click()
    LayMatKhauWifi ("KhanhMai")
End Sub


Function LayMatKhauWifi(TenMangWifi As String)
Dim oShell, oExec As Variant
Dim strText, strCmd As String

strText = ""
strCmd = "netsh wlan show profile name=" & TenMangWifi & " key=clear"
Set oShell = CreateObject("WScript.Shell")
Set oExec = oShell.Exec(strCmd)

Do While Not oExec.StdOut.AtEndOfStream
        strText = Trim(oExec.StdOut.ReadLine())
    If Left(strText, 11) = "Key Content" Then
        strText = Trim(Mid(Trim(Right(strText, Len(strText) - 11)), 2))
        Debug.Print strText
    End If
        
Loop
End Function 


• RE: [Thủ thuật] Access tương tác với CMD(command prompt)

  ongke0711 > 17-11-20, 01:23 PM

  (17-11-20, 12:47 PM)KheNgot Đã viết: Anh cho em hỏi chút về lấy mật khẩu Wiffi ạ: Em tạo 1 form và tạo 1 nút trên đó rồi em paste code của anh vào không thực hiện được. Không biết là lỗi gì anh nhỉ? Mong anh chỉ giúp chỗ sai của em ạ:
  [php]Option Compare Database
  Option Explicit
  
  Private Sub cbLayPassWiffi_Click()
      LayMatKhauWifi ("KhanhMai")
  End Sub

  
  Cái này chỉ lấy mật khẩu wifi của mạng mà bạn đã kết nối và có lưu trên máy thôi nhé chứ không phải để dò pass wifi của mạng mà bạn chưa kết nối.
  Phải chạy CMD ở quyền Administrator, WLAN Service có đang chạy không v.v..

• RE: [Thủ thuật] Access tương tác với CMD(command prompt)

  thuyyeu99 > 17-11-20, 01:36 PM

  hihih h@ck pass wifi dễ vậy thì em đâu có bỏ tiền thuê đường truyền 

• RE: [Thủ thuật] Access tương tác với CMD(command prompt)

  maidinhdan > 18-11-20, 01:38 AM

  (17-11-20, 12:47 PM)KheNgot Đã viết: Anh cho em hỏi chút về lấy mật khẩu Wiffi ạ: Em tạo 1 form và tạo 1 nút trên đó rồi em paste code của anh vào không thực hiện được. Không biết là lỗi gì anh nhỉ? Mong anh chỉ giúp chỗ sai của em ạ:

  
  
  THay đoạn:

  Mã PHP:

  Debug.Print strText 


  Bằng:

  Mã PHP:

  Msgbox(strText) 


  
  Lý do: Debug.Print là hàm để hiển thị trong giao diện VBE vùng viết Test code
• Bài trước Bài tiếp