Anlayamadığım bir konu

[talebeyim]

Arkadaşlar Bilgisayarım değiştiğinden tırnak içerisinde gönterdiğim gibi hata almaya başladım.
" The code in this project must be updated for use on 64-bit systems.
Please review and update Declare ststemenst and then mark them with the PtrSafe attirube"

Bu konu hakkında yardımlarınızı bekliyorum..
Anladığım kadarıyla Eski Bilgisayarım 32Bit yeni Bilgisayarım 64Bit. Güncelleme yapamaığımdan hiçbir işime başlayamadım. Lütfen yardımlarınızı bekliyorum.

####
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
####

Public Function CheckInternetConnection() As Boolean
Dim Aux As String * 255
Dim Kontrol As Long
Kontrol = InternetGetConnectedStateEx(Kontrol, Aux, 254, 0)
If Kontrol = 1 Then
CheckInternetConnection = True
Else
CheckInternetConnection = False
End If
End Function



Sub guncelle()
Application.ScreenUpdating = False
If (CheckInternetConnection = False) Then
MsgBox "Ağ bağlantılarında Sorun var, Güncelleme işlemi iptal edildi." _
& Chr(10) & "Aşağıdaki dosya yolunu kontrol Et." & vbCrLf & vbCrLf & "W:\Stoklar_Planlama\Stoklar.xls", vbCritical, "Dikkat !"

Else

ActiveWorkbook.RefreshAll
MsgBox "Bağlantı test edilmiştir. Lütfen verilerin güncellenmesi için bekleyiniz...", vbInformation
End If

Application.ScreenUpdating = True
End Sub

 

[monelogg]

Merhaba, 32 bit ve 64 bit için API tanımlamalarında farklılıklar var, muhtemelen hata bundan kaynaklanıyor. Aşağıdaki konu size yardımcı olabilir.

http://www.excel.web.tr/f48/64-bit-hatasy-hk-t138162.html

 

[talebeyim]

monelogg linki inceledim fakat kendime göre nasıl uyarlayacağımı anlayamadım

 

[monelogg]

Aşağıdaki haliyle kodu dener misiniz?
(Tabi API dışındaki kodlarda da değişiklik yapmak gerekiyorsa o konuda yardımcı olamayacağım, API bilgim iyi değil maalesef.)

'32 Bit İçin API Kodu (yukarıdaki kodlarınızda bulunan kod)
'Private Declare PtrSafe Function InternetGetConnectedStateEx Lib "wininet.dll" _
'(ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, _
'ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long

'64 Bit İçin API Kodu
Private Declare PtrSafe Function InternetGetConnectedStateEx Lib "wininet.dll" _
(ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, _
ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long

Public Function CheckInternetConnection() As Boolean
Dim Aux As String * 255
Dim Kontrol As Long
Kontrol = InternetGetConnectedStateEx(Kontrol, Aux, 254, 0)
If Kontrol = 1 Then
CheckInternetConnection = True
Else
CheckInternetConnection = False
End If
End Function



Sub guncelle()
Application.ScreenUpdating = False
If (CheckInternetConnection = False) Then
MsgBox "Ağ bağlantılarında Sorun var, Güncelleme işlemi iptal edildi." _
& Chr(10) & "Aşağıdaki dosya yolunu kontrol Et." & vbCrLf & vbCrLf & "W:\Stoklar_Planlama\Stoklar.xls", vbCritical, "Dikkat !"

Else

ActiveWorkbook.RefreshAll
MsgBox "Bağlantı test edilmiştir. Lütfen verilerin güncellenmesi için bekleyiniz...", vbInformation
End If

Application.ScreenUpdating = True
End Sub