如何在 TAB 前 加上这个

没有你

引用第26楼wlmyclove于2007-04-26 12:19发表的  :
    Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
     
    此句加在按TAB键前就可以了,哈哈
    SetForegroundWindow (WinName_2)
     
    .......




Sub FindObject() '找怪
    guaicode=HMEM.ReadMEMEX(Hwnd,bug,3)
    Do While guaicode=0
        HApp.sendKeyPress  hwnd,"Tab" '找怪
        Delay 625
        guaicode=HMEM.ReadMEMEX(Hwnd,bug,3)
        If oldguaicode<>guaicode Then
            oldguaicode=guaicode
        End If
    Loop
End Sub

雨锋林

那是按键游侠的脚本

按键游侠用下面的语句实现设置活动窗体

HWindow类命令
格 式：Active 参数1
功 能：把指定的窗口激活。
参数1：指定的窗口句柄
返 回：无返回。
示 例：
    Dim Hwnd
    Hwnd = HWindow.GetForeGround
    HWindow.Active Hwnd