后台卸载程序 请大家看下！

Question

Private Sub Form_Load()
Dim zhao As Long
Dim ReturnValue As Long
Dim WM_KEYDOWN As Long
Dim VK_RETURN As Long
Call ShellExecute(Me.hwnd, "open", "C:\WINDOWS\ie7\spuninst\spuninst.exe", "", "", SW_SHOWNORMAL)
Sleep 1000
'在这一行里，记事本是隐藏的，没有显示出来，如果要显示，参数为vbNormalFocus
'Call ShellExecute(Me.hwnd, "open", "C:\WINDOWS\ie7\spuninst\spuninst.exe", "", "", SW_SHOWNORMAL)
zhao = FindWindow("#32770", "windows Internet Explorer 7 删除向导")
Sleep 2000
If zhao <> 0 Then
MsgBox "窗体已找到"
SendMessage "#32770", WM_KEYDOWN, VK_RETURN, 0
SendMessage "#32770", WM_KEYUP, VK_RETURN, 0
Sleep 3000
SendMessage "#32770", WM_KEYDOWN, VK_RETURN, 0
SendMessage "#32770", WM_KEYUP, VK_RETURN, 0
Sleep 3000
SendMessage "#32770", WM_KEYDOWN, VK_RETURN, 0
SendMessage "#32770", WM_KEYUP, VK_RETURN, 0
Else
MsgBox "窗体未找到"
End If
End Sub
代码作用是后台打开spuninst.exe这个程序，然后发送回车即按下“下一步”，完成卸载，最后重新启动。
在发送键盘按键时发生：
实时错误类型不匹配13
请大虾指教

Answer 1

在线等！！！！！！！！！！！！！！！