kiểm tra kết nối internet bằng vba

[vanptg]

Em cần code kiểm tra máy tính có đang kết nối internet hay không, và tìm thấy code này. Tuy nhiên nó không work được trên máy 64 bit. Mong các anh em chỉnh sửa và hướng dẫn giúp
Xin cảm ơn trước ạ.

Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long

'Testing for internet connection
Public Function IsInternetConnected() As Boolean

IsInternetConnected = InternetGetConnectedStateEx(0, "", 254, 0)

End Function

 

[LamNA]

Em cần code kiểm tra máy tính có đang kết nối internet hay không, và tìm thấy code này. Tuy nhiên nó không work được trên máy 64 bit. Mong các anh em chỉnh sửa và hướng dẫn giúp
Xin cảm ơn trước ạ.

Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long

'Testing for internet connection
Public Function IsInternetConnected() As Boolean

IsInternetConnected = InternetGetConnectedStateEx(0, "", 254, 0)

End Function

Mình gửi bạn tham khảo chơi như file, nếu máy tính có kết nối mạng sẽ link vào trang goole, còn máy tính chưa kết nối mạng sẽ thông báo.

Sub KetNoi()
Dim OpenWebPage()
     On Error Resume Next
      On Error GoTo loi
      ActiveWorkbook.FollowHyperlink "https://www.google.com.vn/", NewWindow:=True
      Exit Sub
loi:       MsgBox "May Tinh Chua Ket Noi Mang", vbQuestion, "Thông Báo"
End Sub

 

[befaint]

@Bài 2:
Có cách nào khác không? Nhà mình GPE vào được, còn Google không kết nối được.

 

[ndu96081631]

Em cần code kiểm tra máy tính có đang kết nối internet hay không, và tìm thấy code này. Tuy nhiên nó không work được trên máy 64 bit. Mong các anh em chỉnh sửa và hướng dẫn giúp
Xin cảm ơn trước ạ.

Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long

'Testing for internet connection
Public Function IsInternetConnected() As Boolean

IsInternetConnected = InternetGetConnectedStateEx(0, "", 254, 0)

End Function

Vầy thử xem sao:

Public Sub CheckConnect()
  Dim isConnected As Boolean
  isConnected = InternetStatus
  MsgBox "May Tinh " & IIf(isConnected, "dang", "chua") & " ket noi Internet", 64, "Thông Báo"
End Sub
Function InternetStatus() As Boolean
  On Error Resume Next
  With CreateObject("MSXML2.ServerXMLHTTP.6.0")
    .Open "GET", "http://www.google.com"
    .Send
  End With
  InternetStatus = (Err.Number = 0)
End Function

 

[VetMini]

Em cần code kiểm tra máy tính có đang kết nối internet hay không, và tìm thấy code này. Tuy nhiên nó không work được trên máy 64 bit. Mong các anh em chỉnh sửa và hướng dẫn giúp
Xin cảm ơn trước ạ.

Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long

'Testing for internet connection
Public Function IsInternetConnected() As Boolean

IsInternetConnected = InternetGetConnectedStateEx(0, "", 254, 0)

End Function

Không "work" nghĩa là sao? Không compile thì nói không compile. Muốn bầy tôi thì cũng ráng cho dễ hiểu 1 chút.

64 bit: Chèn thêm từ PtrSafe vào giữa Declare và Function

 

[be_09]

Em cần code kiểm tra máy tính có đang kết nối internet hay không?

Sao bạn không nghĩ đến cách khác là kiểm tra tất cả các máy tính (sử dụng mạng LAN) máy nào của ai đang kết nối internet.

 

[AutoReply]

Vầy thử xem sao:

Public Sub CheckConnect()
  Dim isConnected As Boolean
  isConnected = InternetStatus
  MsgBox "May Tinh " & IIf(isConnected, "dang", "chua") & " ket noi Internet", 64, "Thông Báo"
End Sub
Function InternetStatus() As Boolean
  On Error Resume Next
  With CreateObject("MSXML2.ServerXMLHTTP.6.0")
    .Open "GET", "http://www.google.com"
    .Send
  End With
  InternetStatus = (Err.Number = 0)
End Function

Ủa sao máy em thử code này báo "chưa" vào internet, mặc dù trình duyệt vẫn vào được google vậy anh ơi ?

 

[VetMini]

Ủa sao máy em thử code này báo "chưa" vào internet, mặc dù trình duyệt vẫn vào được google vậy anh ơi ?

Lúc bạn thử thì "chưa", qua cửa sổ trình duyệt thì "vào", trở lại code thì lại bị đứt ra... Cứ thế.

 

[AutoReply]

Lúc bạn thử thì "chưa", qua cửa sổ trình duyệt thì "vào", trở lại code thì lại bị đứt ra... Cứ thế.

Xui quá nhỉ ?
Nhưng ở đây em muốn hỏi anh chữ vàng là trong trường hợp nào máy vẫn vô được internet nhưng chạy code trên sẽ không vào được ? mà anh ấy lơ em luôn rồi

 

[VetMini]

Xui quá nhỉ ?
Nhưng ở đây em muốn hỏi anh chữ vàng là trong trường hợp nào máy vẫn vô được internet nhưng chạy code trên sẽ không vào được ? mà anh ấy lơ em luôn rồi

Theo tôi thì bạn thừa sức tự tạo ra các trường hợp đó để tét cốt.

 

[AutoReply]

Theo tôi thì bạn thừa sức tự tạo ra các trường hợp đó để tét cốt.

Ấy em đâu có đủ sức mạnh đó. Em chỉ muốn góp ý với anh chữ màu cam là cái object mà anh ta đang xài sẽ KHÔNG sử dụng proxy mặc định của internet option, như vậy ở môi trường công ty có cấu hình proxy, code đó sẽ không vào được internet, cũng có thể có vài trường hợp nào đó khác mà anh ấy biết, nhưng em hỏi rất ít khi anh ấy trả lời, có thể là ghét em lắm

 

[ndu96081631]

nhưng em hỏi rất ít khi anh ấy trả lời, có thể là ghét em lắm

Có biết đâu mà trả lời!
Mình không có điều kiện test nên không chắc. Mà đã không chắc thì không dám trả lời bậy bạ
(thấy trên máy mình nó chạy nên đưa lên cho bà con tham khảo, tới đâu hay tới đó vậy)

 

[VetMini]

Ấy em đâu có đủ sức mạnh đó. ...

Cỡ bạn mà không biết từ "environment test" và "cross-platform test" thì thôi, tôi nguyện về đóng cửa tu 1 tháng.

 

[AutoReply]

Cỡ bạn mà không biết từ "environment test" và "cross-platform test" thì thôi, tôi nguyện về đóng cửa tu 1 tháng.

Hihi, làm gì căng vậy. Ở đây chơi với em. Anh nghỉ chơi em biết sống sao

 

[VetMini]

Hihi, làm gì căng vậy. Ở đây chơi với em. Anh nghỉ chơi em biết sống sao

Cô/cậu ăn cơm ở mấy cái diễn đàn JavaScript chứ cái mớ VBA này chỉ là phở thôi.
(đoán thử xem cơm nhà tôi ở đâu?)

 

[AutoReply]

Cô/cậu ăn cơm ở mấy cái diễn đàn JavaScript chứ cái mớ VBA này chỉ là phở thôi.
(đoán thử xem cơm nhà tôi ở đâu?)

Lại dụ nhau vi phạm nội quy nữa, đám nào mà chả có anh, anh giỏi quản lý dữ liệu hơn, cơm nhà anh phải hỏi bà xã coi nấu chưa ?