32 bit worked now not on 64

[fireslguk]

What do I need to change for this to work on 64 bit guys ?


Option Explicit



'Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _

'bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)



'Private Const KEYEVENTF_KEYUP = &H2

'Private Const VK_SNAPSHOT = &H2C

'Private Const VK_MENU = &H12

'Private Declare PtrSafe Sub Sleep Lib "kernel32.dll" ( _

' ByVal dwMilliseconds As Long)



'

' Public Sub mySleep()

'Do

'Application.Calculate

'ActiveSheet.Unprotect "6477"

'Sheets("MAIN").Range("b1").Value = Now

'ActiveSheet.Protect "6477"

'

' Call Sleep(2000) '2000 Millisekunden Pause

'Loop







'End Sub

 

[ranman256]

find every DECLARE statement and put a PTRSAFE block to work on either 32 or 64bit:

#If Win64 Then      'Declare PtrSafe Function
Private Declare PtrSafe  Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare ptrsafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpszOp As String, ByVal lpszFile As String, ByVal lpszParams As String, ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long
 
Private Declare ptrsafe Function GetDesktopWindow Lib "user32" () As Long

#Else  'non ptrsafe

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
private    Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpszOp As String, ByVal lpszFile As String, ByVal lpszParams As String, ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long
private  Declare Function GetDesktopWindow Lib "User32" () As Long

#End If