试试调用API： '取得窗口程序的入口地址 Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long' 设定窗口程序的入口地址Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPublic Const GWL_WNDPROC = (-4) --- 设定窗口程序时的常数你试试能不能用GetWindowLong拦截系统中的某一个消息，注意,你得先得到接收该消息的窗口，而窗口在此的意义不单是我们平时看到的窗口了，如控钮、工具栏也算是窗口;您想办法取得一个对象的句柄，然后用SetWindowLong来抢夺它的处理权就可以了.
'取得窗口程序的入口地址
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long' 设定窗口程序的入口地址Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPublic Const GWL_WNDPROC = (-4) --- 设定窗口程序时的常数你试试能不能用GetWindowLong拦截系统中的某一个消息，注意,你得先得到接收该消息的窗口，而窗口在此的意义不单是我们平时看到的窗口了，如控钮、工具栏也算是窗口;您想办法取得一个对象的句柄，然后用SetWindowLong来抢夺它的处理权就可以了.
strSystem = Space(255)
Ret = GetSystemDirectory(strSystem, 255)
strSystem = Left$(strSystem, Ret)
strExec = strSystem & "\at.exe 9:00 /every:1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31 " & App.path & "\AutoTranSalation.exe"
lngVal = Shell(strExec)