Compile error ...updated for use on 64-bit systems

[MarkCBB]

Hi there,

I am getting the following error on one of my laptops (MS Excel 2013 All machines)
"Compile error: The code in this project must be updated for use on 64-bit systems. Please review and update Declare statements and then mark them with the PrSafe attribute.

below is the code:

Public Declare Function InternetGetConnectedState Lib "wininet.dll" (lpdwFlags As Long, ByVal dwReserved As Long) As Boolean
Function IEAvailable() As Boolean
Dim IEStat As Long
IEAvailable = (InternetGetConnectedState(IEStat, 0&) <> 0)
End Function
Sub isInternetAvailable()
If IEAvailable = False Then MsgBox "Not connected!"
If IEAvailable = True Then MsgBox "Connected!"
End Sub

Can anyone assist me with this ad explain it to me, do I need to take this type of error into consideration for other Functions?

 

[zapperX]

Try this

Public Declare Function InternetGetConnectedState Lib "wininet.dll" (lpdwFlags As [COLOR=#b22222]int32[/COLOR], ByVal dwReserved As [COLOR=#b22222]int32[/COLOR]) As Boolean

In vb.net, function calls requiring a Long data type need to be declared using int32. The vb editor didn't bark at it, but I don't know if it will run. Worth a shot.

 

[RoryA]

It would be probably be:

Public Declare PtrSafe Function InternetGetConnectedState Lib "wininet.dll" (lpdwFlags As LongPtr, ByVal dwReserved As Long) As Boolean
Function IEAvailable() As Boolean
Dim IEStat As LongPtr
IEAvailable = (InternetGetConnectedState(IEStat, 0&) <> 0)
End Function
Sub isInternetAvailable()
If IEAvailable = False Then MsgBox "Not connected!"
If IEAvailable = True Then MsgBox "Connected!"
End Sub