已知另一程序TAB控件句柄 VB如何发送消息来控制它切换标签页

[VB_XP]

已知另一程序TAB控件句柄 VB如何发送消息来控制它切换标签页

(CTRL+TAB可以切换TAB控件标签页)
我是在打开pcAnywhere 然后
hwn = FindWindow(vbNullString, "pcAnywhere 主控端 属性： 新主控端")
SendKeys "^{TAB}", True
我想对"pcAnywhere 主控端 属性： 新主控端")这个界面上的TAB控件发送按钮CTRL和TAB，但是pcAnywhere程序，不响应。


然后我就用下面方法 也不行 帮我看下 看出错在哪里？

Dim Phwnd As Long
Dim hwnd As Long
Phwnd = FindWindow(vbNullString, "pcAnywhere 主控端 属性： 新主控端")
If Phwnd = 0 Then
Text1.Text = "fill"
Else
Text1.Text = "phwnd"
End If
 hwnd = FindWindowEx(Phwnd, 0, "SysTabControl32", vbNullString)
 If hwnd = 0 Then
 Text2.Text = "fill"
Else
Text2.Text = "ChildHwnd"
End If
PostMessage hwnd, WM_KEYDOWN, VK_CONTROL, 0 '按下ctrl键
PostMessage hwnd, WM_KEYDOWN, VK_TAB, 0 'tab
PostMessage hwnd, WM_KEYUP, VK_CONTROL, 0 '按下ctrl键
PostMessage hwnd, WM_KEYUP, VK_TAB, 0 'tab

[赵4老师]

推荐使用AutoHotKeyhttp://www.autohotkey.com

[wuxuetie]

Public Sub ListView_ItemSelect(ByVal hWnd As Long, Optional ByVal iItem As Long = 0)
Dim dwProcessId As Long
Dim hProcess As Long
Dim plvItem As Long
Dim LVITEM As LV_ITEMA

GetWindowThreadProcessId hWnd, dwProcessId '获取与指定窗口关联在一起的一个进程和线程标识符
'' hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, dwProcessId) '打开一个现有进程的句柄
hProcess = OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE, False, dwProcessId)

If hProcess Then
plvItem = VirtualAllocEx(hProcess, ByVal 0, LenB(LVITEM), MEM_COMMIT, PAGE_READWRITE) '分配内存

If plvItem Then
LVITEM.state = LVIS_SELECTED Or LVIS_FOCUSED Or LVIS_ACTIVATING
'lvItem.state = LVIS_SELECTED
LVITEM.stateMask = LVIS_SELECTED
Call WriteProcessMemory(hProcess, ByVal plvItem, LVITEM, LenB(LVITEM), 0) '写入内存
Dim t As Long
t = SendMessage(hWnd, LVM_SETITEMSTATE, iItem, ByVal plvItem)
'' MsgBox t
Call VirtualFreeEx(hProcess, ByVal plvItem, 0, MEM_RELEASE)
End If
Call CloseHandle(hProcess)
End If
End Sub