目測(cè)應(yīng)該是系統(tǒng)的問(wèn)題,我用win7系統(tǒng)都無(wú)法讀取運(yùn)行VS2008 的VB.NET ,換成XP系統(tǒng)后就沒(méi)一點(diǎn)問(wèn)題了。
成都創(chuàng)新互聯(lián)專(zhuān)注于企業(yè)成都全網(wǎng)營(yíng)銷(xiāo)推廣、網(wǎng)站重做改版、濠江網(wǎng)站定制設(shè)計(jì)、自適應(yīng)品牌網(wǎng)站建設(shè)、HTML5、購(gòu)物商城網(wǎng)站建設(shè)、集團(tuán)公司官網(wǎng)建設(shè)、成都外貿(mào)網(wǎng)站建設(shè)公司、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁(yè)設(shè)計(jì)等建站業(yè)務(wù),價(jià)格優(yōu)惠性?xún)r(jià)比高,為濠江等各大城市提供網(wǎng)站開(kāi)發(fā)制作服務(wù)。
VB.NET調(diào)用IE代碼示例:
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
'啟動(dòng)IE
'p.Start(aDenURL)
p.Start()
'主程序開(kāi)始等待IE結(jié)束
p.WaitForExit()
另一種VB.NET調(diào)用IE的方法
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("Internet
Explorer.Application")
With webobj
.visible = True
.Navigate2(";)
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
部分代碼如下:
在窗口及WebBrowser創(chuàng)建完以后,寫(xiě)此代碼:
WebBrowser.OnNewWindow2:=IE1NewWindow2;
給主窗口創(chuàng)建一個(gè)方法:
procedure TBrowForm.IE1NewWindow2(Sender: TObject; var ppDisp: IDispatch;var Cancel: WordBool);
Var NewForm:TBrowForm;
begin
try
NewForm :=TPopBrowerForm.Create(application);
NewForm.WebBrowser.OnNewWindow2 :=IE1NewWindow2;//如果在窗口的Oncreate事件
//有此代碼,此處就可以省略
ppDisp := NewForm.WebBrowser.Application;
NewForm.Show;
Cancel:=false;
except
end;
end;
e.keycode = keys.backspace
是這么判斷的不 我不是做網(wǎng)頁(yè)的 這是正常的form上用的方法
不知道對(duì)你有沒(méi)有幫助