(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

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

(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.