Friday, June 10, 2011

Refresh Document by Lotus Script



'Global Declaration
Declare Sub keybd_event Lib "user32.dll" (Byval bVk As Integer, Byval bScan As Integer, Byval dwFlags As Integer,Byval dwExtraInfo As Integer)
         

Sub RefreshDoc
            Const VK_F9 = &H78

            Const KEYEVENTF_KEYDOWN = &H0
            Const KEYEVENTF_KEYUP = &H2

'Command line same as Press and release F9
            keybd_event VK_F9, 0 , KEYEVENTF_KEYDOWN , 0
            keybd_event VK_F9, 0 , KEYEVENTF_KEYUP , 0

End Sub



No comments:

Post a Comment

Your feedback is always appreciated. I will try to reply to your queries as soon as time allows.Please don't spam,spam comments will be deleted upon reviews.