VB 如何切换到 进程的界面

来源：百度知道 编辑：UC知道 时间：2024/06/15 17:14:19
比如说
我按一个按钮
就自动切换到chinaDNF.exe
并且在chinaDNF.exe上输入123然后再次返回
我所生成的程序画面
~~看得懂不

刚没看清你的要求，现在弄好了
弄个command 弄2个timer

把代码全部清空，在把下面的代码复制进去

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Command1_Click()
Dim a As Long
a = FindWindow(vbNullString, "地下城与勇士") '查找游戏句柄

If a = 0 Then MsgBox "游戏未运行": Exit Sub '检测游戏是否运行
ShowWindow a, 0 '由于找不到窗口最前的代码
ShowWindow a, 1 '所以把游戏隐藏再显示一遍,游戏就在最前了

Timer1.Enabled = True '搞个时间控件.延时输入,以免出错
Timer1.Interval = 500
Timer2.Enabled = True '延时显示FORM1
Timer2.Interval = 1000

End Sub

Private Sub Timer1_Timer()

SendKeys "123" '输入123..想输入其他的文本就把 123换成你要的文本

Timer1.Enabled = False '关闭timer
Timer1.Interval = 0