求助原因？什么情况会发生这样的状况？

Question

On Error Resume Next
y = y * &H10000
On Error Resume Next
k = PostMessage(wbhwnd, WM_RBUTTONDOWN, MK_LBUTTON, ByVal ((y) + x))
k = PostMessage(wbhwnd, WM_RBUTTONUP, 0, (x + (y)))
x = x + 60
y = 37 * &H10000
'下面怎么不运行呢？是什么原因阻塞了？
k = PostMessage(wbhwnd, WM_LBUTTONDOWN, MK_LBUTTON, ByVal ((y) + x))
k = PostMessage(wbhwnd, WM_LBUTTONUP, 0, (x + (y))) 求助原因？什么情况会发生这样的状况？

Answer 1

去掉On Error Resume Next
看哪行出错
句柄得到了么？
常数赋值了么？
X和Y数据类型对了么？

Answer 2

去掉On Error Resume Next:去掉了
看哪行出错：没报错
句柄得到了么？得到了
常数赋值了么？赋值了
X和Y数据类型对了么？整数之前没什么问题，不知道改哪了就出现这个问题了…

Answer 3

整数跟Long不一样吧
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Answer 4

是不是把dim x as Long去掉了？

Answer 5

x y k 都没见你宣告 想必 常量 也没宣告了