lichang

Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'For 32 Bit Systems


Public Function Orderfunction(neworder As Integer, oldorder As Integer) As Integer
    Dim myKey As Object
    Set myKey = CreateObject("WScript.Shell")
   

   a = SetCursorPos(20, 430) '²¾°Ê¦ÜLine¹ï¸Üµøµ¡
         mouse_event 2, 0, 0, 0, 0     '¤UÀ£¥ª·Æ¹«
         mouse_event 4, 0, 0, 0, 0     '©ñÃP¥ª·Æ¹«
           Sleep (500)
         myKey.SendKeys "Hello, I'm VBA message"
           Sleep (500)
         myKey.SendKeys "{ENTER}"
          Sleep (500)
         myKey.SendKeys "{ENTER}"
          Sleep (500)


¤p§Ì¥Î³Ì·M²Âªº¤èªk¼gªº¡A½Ð¯º¯Ç!!