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

[Demo] Hàm kiểm tra IP tắt hay mở

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • [Hàm] [Demo] Hàm kiểm tra IP tắt hay mở
• [Demo] Hàm kiểm tra IP tắt hay mở

• RE: [Demo] Hàm kiểm tra IP tắt hay mở

  Cuong Servenet > 26-07-18, 04:27 PM

  (25-04-16, 11:10 AM)maidinhdan Đã viết: Lúc trước mình có làm 1 Demo [Demo]_Code Kiểm tra Máy chủ tắt hay mở... Tuy nhiên nếu máy cần kiểm tra tắt thì thời gian chạy cũng lên đến 1 phút, hôm nay mình gửi một Demo kiểm tra máy chủ dựa vào IP chỉ mấy 1-2giây. là cho kết quả
  
  Công dụng: Sử dụng các chức năng này để xác định xem máy chủ đang tắt hay mở, nếu không có code này, máy con khi mở ứng dụng nó chạy lòng vòng khoảng 1 phút sau hiện 1 thông báo toàn Tiếng anh, rất phiền phức.
  
  Khả năng áp dụng:
  - Ứng dụng có sử dụng mạng qua LAN
  - Ứng dụng kiểu Máy chủ-Máy con
  
  

  

  
  Code sử dụng:
  

  Mã PHP:

  Public Function KiemtraIP(IPcankiemtra As String)
Dim strCommand As String
Dim strPing As String
strCommand = "%ComSpec% /C %SystemRoot%\system32\ping.exe -n 1 -w 500 " & IPcankiemtra & " | " & "%SystemRoot%\system32\find.exe /i " & Chr(34) & "TTL=" & Chr(34)
strPing = fShellRun(strCommand)

If strPing = "" Then
   KiemtraIP = "Tat"
Else
   KiemtraIP = "Mo"
End If
End Function 


  
  
  Khai báo hàm: Chap nhan mot chuoi nhu la mot lenh DOS de thuc thi
  
  

  Mã PHP:

  Function fShellRun(sCommandStringToExecute)
Dim oShellObject, oFileSystemObject, sShellRndTmpFile
Dim oShellOutputFileToRead, iErr

Set oShellObject = CreateObject("Wscript.Shell")
Set oFileSystemObject = CreateObject("Scripting.FileSystemObject")

   sShellRndTmpFile = oShellObject.ExpandEnvironmentStrings("%temp%") & oFileSystemObject.GetTempName
   On Error Resume Next
   oShellObject.Run sCommandStringToExecute & " > " & sShellRndTmpFile, 0, True
   iErr = Err.Number

   On Error GoTo 0
   If iErr <> 0 Then
       fShellRun = ""
       Exit Function
.................................................................................. dài quá xóa bớt
End Function 


  
  Cú pháp gọi:
  KiemtraIP("Địa chỉ IP")
  
  Đối số:
  Tat/Mo: ra Mo là máy tính có IP đó đang mở máy tính
  
  Ví dụ 1:
  

  Mã PHP:

  Private Sub cmdTest_Click()
If KiemtraIP(Me.txtIP) = "Mo" Then
MsgBox "(On) May co IP: [" & Me.txtIP & "] dang Mo.", vbInformation, "Thong bao"
Else
MsgBox "(Off) May co IP: " & Me.txtIP & " dang Tat hoac khong ton tai.", vbInformation, "Thong bao"
End If
End Sub 


  
  Trong đó: Me.txtIP= "192.168.1.45"
  
  Đính kèm Demo, Chúc các bạn vui vẻ...
  
  Ai cần Pass VBA xin để lại Email dưới bài viết này.
  
  
  Bài tiếp theo sẽ giớ thiệu: " Gửi Email bằng Access đính kèm nhiều file mà không cần dùng đến Microsoft Outlook"
  * Tính năng: như tiêu đề
  
  * Khả năng ứng dụng:
  - Sử dụng nhiều loại tài khoản để gửi: Gmail. Hotmail. Yahoo......
  - Gửi nhiều file đính kèm cùng 1 lúc, kể cả những file có dung lượng lớn.
  - Không cần cài Microsoft Outlook như Demo lúc trước mình làm cho phiền phức ([Thủ Thuật] Demo gửi Email có thêm file đính kèm Access)
  
  
  * Mức độ nguy hiểm: Tuy vào độ hiểm ác của người dùng khi có những đoạn code này
  + If Dùng tốt Then Không sao
  + If Xấu Then Dùng để ăn cắp file hoặc thông tin trên máy tinh của người dùng.
  
  * Kết: Demo sẽ được đăng và chỉ Shared VBA cho những thành viên đóng góp tích cực trên diễn đàn
  * Ngày đăng Demo: Tháng 12/5/2016.
  
  Thân mến!

  chao ban ad. ban gui cho minh nua nhe
  nguyencaocuong0240@gmail.com

• RE: [Demo] Hàm kiểm tra IP tắt hay mở

  cpucloi > 06-06-22, 11:00 AM

  Pác Dân cho em xin cái pass VBA với, cám ơn bác
  cpucloi1501@gmail.com

• RE: [Demo] Hàm kiểm tra IP tắt hay mở

  ongke0711 > 06-06-22, 01:43 PM

  (06-06-22, 11:00 AM)cpucloi Đã viết: Pác Dân cho em xin cái pass VBA với, cám ơn bác
  cpucloi1501@gmail.com

  
  Toàn bộ code nằm ở bài #1 rồi đó bạn, copy về làm cho nhanh.
• Bài trước Bài tiếp