ie.navigate "http://www.baidu.com"
ie.Visible = true
While ie.busy Or ie.readystate <> 4
Wend
ie.document.getElementById("wd").value="1234"
i = ie.document.getElementById("su").click
以上是按键精灵用IE打开百度之后输入1234再点击搜索。
但是如果我百度的窗口本来就是打开的，把第二句
ie.navigate "http://www.baidu.com"
删掉，之后运行，会打开一个空白的IE窗口。运行不了下面。
我的意思是想做成在我已打开的网页中做按制，而非新打开网页，这样应该怎么写？？
怎样向文本框输入文字和搜索呢？
要和弯隐怎么唤厅知道那个标签的句柄你可以打开Windodws任务管理器看
下面举个例，当你打开百度首页（）时
他的窗体句柄是：百度一闹铅下，你就知道 - Windows Internet Explorer
下面的代码
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Const STANDARD_RIGHTS_REQUIRED = &HF0000
Const SYNCHRONIZE = &H100000
Const SPECIFIC_RIGHTS_ALL = &HFFFF
Const STANDARD_RIGHTS_ALL = &H1F0000
Const PROCESS_ALL_ACCESS = STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &HFFF
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Sub Command1_Click()
Dim a As Long
Dim Pid As Long
Dim Jubing As Long
a = FindWindow(vbNullString, "百度一下，你就知道 - Windows Internet Explorer")
GetWindowThreadProcessId a, Pid
Jubing = OpenProcess(PROCESS_ALL_ACCESS, False, Pid)
TerminateProcess Jubing, 0
End Sub
'