Dim p As New Process
'获得URL
aURL = GetURL()
'获得IE路径
p.StartInfo.FileName = System.Environment.GetFolderPath( _
Environment.SpecialFolder.ProgramFiles).Trim() _
& "\Internet Explorer\IEXPLORE.EXE"
p.StartInfo.Arguments = aDenURL
'启动IE
'p.Start(aDenURL)
p.Start()
'主程序开始等待IE结束
p.WaitForExit()
'获得URL
aURL = GetURL()
'获得IE路径
p.StartInfo.FileName = System.Environment.GetFolderPath( _
Environment.SpecialFolder.ProgramFiles).Trim() _
& "\Internet Explorer\IEXPLORE.EXE"
p.StartInfo.Arguments = aDenURL
'启动IE
'p.Start(aDenURL)
p.Start()
'主程序开始等待IE结束
p.WaitForExit()
另一种方法
Imports System.Threading
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim webobj As Object
webobj = CreateObject("InternetExplorer.Application")
With webobj
.visible = True
.Navigate2("http://www.google.co.jp/")
Do While (.busy Or .readyState <> 4)
Thread.Sleep(100)
Loop
.Document.f.q.Value = Me.TextBox1.Text
.Document.f.btng.Click()
End With
MsgBox("completed.")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim webobj As Object
webobj = CreateObject("InternetExplorer.Application")
With webobj
.visible = True
.Navigate2("http://www.google.co.jp/")
Do While (.busy Or .readyState <> 4)
Thread.Sleep(100)
Loop
.Document.f.q.Value = Me.TextBox1.Text
.Document.f.btng.Click()
End With
MsgBox("completed.")
End Sub