用VB開發IE (轉)
用VB開發IE (轉)[@more@]用VB開發IE
隨著的增加和Inte的普及與發展,已成為最受網路使用者歡迎的之一。廣大軟體研製者特別是MIS開發者都希望把瀏覽器整合到自己的軟體中來,使自己的軟體能瀏覽頁面而功能更強大、更具特色。目前市場上流行的瀏覽器軟體種類及版本很多。但要把它方便地整合到自己的軟體中去,卻受到以下幾個方面的限制:瀏覽器帶有各自的執行環境和;瀏覽器很大,整合到自己的軟體中後執行低;開發者更想讓瀏覽器具有自己的特色。
因此,軟體研製者都想開發自己的瀏覽器,而Visual Basic 5.0就提供了這種功能。筆者曾經用Visual Basic 5.0開發出簡單的瀏覽器,編譯出可檔案後很小(只有33K),併成功地把它整合到其它軟體中。下面給出製作步驟和清單,稍加修改就可做出自己喜歡的瀏覽器。
1.開啟一應用,開啟一個Form(brower);
2.在Brower里加入Toolbartoolbar1,增加常用的命令按鈕(如back、next、stop、refresh、home、Search、open、exit等),同時加入Imagelist控制元件imagelist1,並加入自己喜歡的圖形,然後和toolbar1中的命令按鈕對應起來。
3.加入定時器Timer控制元件timer1,並設定好;
4.加入Label控制元件label1,Caption設為“Web地址”,加入Combobox控制元件combo1,加入Statar控制元件status?bar1.加入Webbrowser控制元件browser1;
5.然後寫入以下程式程式碼:
PublicStartingAddresString
DimflagAsBoolean
PrivateSubForm—Load()
OnErrorResumeNext
Me.Show
ToolBar1.Refresh
Open″d:vb5brow.ini″ForInputAs#2
′開啟上次的WEB
Input#2,StartingAddress
Close#2
IfLen(StartingAddress)>0Then
combo1.Text=StartingAddress
combo1.AddItemStartingAddress
webbrowser1.NavigateStartingAddress
EndIf
EndSub
PrivateSubwebbrowser1—Complete()
OnErrorResumeNext
Me.Caption=webbrowser1.LocationName
EndSub
PrivateSubwebbrowser1—NavigateComplete(ByValURLAsString)
DimiAsInteger
DimbFoundAsBoolean
Me.Caption=webbrowser1.LocationName
Fori=0Tocombo1.ListCount-1
Ifcombo1.List(i)=webbrowser1.LocationURL
Then
bFound=True
ExitFor
EndIf
Nexti
flag=True
IfbFoundThen
combo1.RemoveItemi
EndIf
combo1.AddItemwebbrowser1.LocationURL,0
combo1.ListIndex=0
MousePointer=0
webbrowser1.Navigatecombo1.Text
StatusBar1.Panels(1).Text=″當前頁面″+combo1.Text
flag=False
EndSub
PrivateSubcombo1—Click()
IfflagThenExitSub
Timer1.Enabled=True
MousePointer=11
StatusBar1.Panels(1).Text=″正在連線″+combo1.Text+″......″
webbrowser1.Navigatecombo1.Text
EndSub
PrivateSubcombo1—KeyPress(KeyAsciiAsInteger)
OnErrorResumeNext
IfKeyAscii=vbKeyReturnThen
combo1—Click
End If
End Sub
PrivateSubTimer1-Timer()
Ifwebbrowser1.Busy=FalseThen
Timer1.Enabled=False
Me.Caption=webbrowser1.LocationName
Else
Me.Caption=″Working...″
EndIf
EndSub
PrivateSubToolBar1-ButtonClick(ByValButtonAsButton)
OnErrorResumeNext
Timer1.Enabled=True
CaseButton.Key
Case″exit″
UnloadMe
Case″Back″
webbrowser1.GoBack
Case″Forward″
webbrowser1.GoForward
Case″Refresh″
webbrowser1.Refresh
Case″Home″
webbrowser1.GoHome
Case″Search″
webbrowser1.GoSearch
Case″open″
CommonDialog1.ShowOpen
combo1.Text=CommonDialog1.filename
Case″Stop″
Timer1.Enabled=False
MousePointer=0
webbrowser1.Stop
Me.Caption=webbrowser1.LocationName
EndSelect
EndSub
該程式經編譯後即是一簡單普通瀏覽器,可方便地整合到其他軟體中去。
隨著的增加和Inte的普及與發展,已成為最受網路使用者歡迎的之一。廣大軟體研製者特別是MIS開發者都希望把瀏覽器整合到自己的軟體中來,使自己的軟體能瀏覽頁面而功能更強大、更具特色。目前市場上流行的瀏覽器軟體種類及版本很多。但要把它方便地整合到自己的軟體中去,卻受到以下幾個方面的限制:瀏覽器帶有各自的執行環境和;瀏覽器很大,整合到自己的軟體中後執行低;開發者更想讓瀏覽器具有自己的特色。
因此,軟體研製者都想開發自己的瀏覽器,而Visual Basic 5.0就提供了這種功能。筆者曾經用Visual Basic 5.0開發出簡單的瀏覽器,編譯出可檔案後很小(只有33K),併成功地把它整合到其它軟體中。下面給出製作步驟和清單,稍加修改就可做出自己喜歡的瀏覽器。
1.開啟一應用,開啟一個Form(brower);
2.在Brower里加入Toolbartoolbar1,增加常用的命令按鈕(如back、next、stop、refresh、home、Search、open、exit等),同時加入Imagelist控制元件imagelist1,並加入自己喜歡的圖形,然後和toolbar1中的命令按鈕對應起來。
3.加入定時器Timer控制元件timer1,並設定好;
4.加入Label控制元件label1,Caption設為“Web地址”,加入Combobox控制元件combo1,加入Statar控制元件status?bar1.加入Webbrowser控制元件browser1;
5.然後寫入以下程式程式碼:
PublicStartingAddresString
DimflagAsBoolean
PrivateSubForm—Load()
OnErrorResumeNext
Me.Show
ToolBar1.Refresh
Open″d:vb5brow.ini″ForInputAs#2
′開啟上次的WEB
Input#2,StartingAddress
Close#2
IfLen(StartingAddress)>0Then
combo1.Text=StartingAddress
combo1.AddItemStartingAddress
webbrowser1.NavigateStartingAddress
EndIf
EndSub
PrivateSubwebbrowser1—Complete()
OnErrorResumeNext
Me.Caption=webbrowser1.LocationName
EndSub
PrivateSubwebbrowser1—NavigateComplete(ByValURLAsString)
DimiAsInteger
DimbFoundAsBoolean
Me.Caption=webbrowser1.LocationName
Fori=0Tocombo1.ListCount-1
Ifcombo1.List(i)=webbrowser1.LocationURL
Then
bFound=True
ExitFor
EndIf
Nexti
flag=True
IfbFoundThen
combo1.RemoveItemi
EndIf
combo1.AddItemwebbrowser1.LocationURL,0
combo1.ListIndex=0
MousePointer=0
webbrowser1.Navigatecombo1.Text
StatusBar1.Panels(1).Text=″當前頁面″+combo1.Text
flag=False
EndSub
PrivateSubcombo1—Click()
IfflagThenExitSub
Timer1.Enabled=True
MousePointer=11
StatusBar1.Panels(1).Text=″正在連線″+combo1.Text+″......″
webbrowser1.Navigatecombo1.Text
EndSub
PrivateSubcombo1—KeyPress(KeyAsciiAsInteger)
OnErrorResumeNext
IfKeyAscii=vbKeyReturnThen
combo1—Click
End If
End Sub
PrivateSubTimer1-Timer()
Ifwebbrowser1.Busy=FalseThen
Timer1.Enabled=False
Me.Caption=webbrowser1.LocationName
Else
Me.Caption=″Working...″
EndIf
EndSub
PrivateSubToolBar1-ButtonClick(ByValButtonAsButton)
OnErrorResumeNext
Timer1.Enabled=True
CaseButton.Key
Case″exit″
UnloadMe
Case″Back″
webbrowser1.GoBack
Case″Forward″
webbrowser1.GoForward
Case″Refresh″
webbrowser1.Refresh
Case″Home″
webbrowser1.GoHome
Case″Search″
webbrowser1.GoSearch
Case″open″
CommonDialog1.ShowOpen
combo1.Text=CommonDialog1.filename
Case″Stop″
Timer1.Enabled=False
MousePointer=0
webbrowser1.Stop
Me.Caption=webbrowser1.LocationName
EndSelect
EndSub
該程式經編譯後即是一簡單普通瀏覽器,可方便地整合到其他軟體中去。
來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/10752043/viewspace-990715/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- IE瀏覽器外掛開發瀏覽器
- 『前端開發』- 相容IE8的響應式開發前端
- 用Visual Studio 2008開發IE BHO (瀏覽器幫助物件)之一瀏覽器物件
- C#/VB.NET 將RTF轉為HTMLC#HTML
- C#/VB.NET 將Html轉為ExcelC#HTMLExcel
- 【轉載】App Inventor 開發BLE應用APP
- C#/VB.NET 將彩色PDF轉為灰度C#
- Managed C++: Another VB, or VB.NET, or WhateverC++
- [翻譯]Windows Exploit開發教程第十三章Part1.IE10-IE逆向工程WindowsIE10
- 使用C#,VB和Java將PDF轉換為DOC / DOCXJava
- C#/VB.NET 實現Word和ODT文件相互轉換C#
- ie瀏覽器自動跳轉edge怎麼恢復 win10開啟ie瀏覽器變成edge怎麼辦瀏覽器Win10
- 玩轉iOS開發《建立CocoaPods開發庫》iOS
- 玩轉iOS開發:裝逼技術RunTime的應用(一)iOS
- iOS應用轉讓到其他開發者賬號步驟iOS
- 手把手教你玩轉HarmonyOS版地圖應用開發地圖
- Serverless 工程實踐 | Serverless 應用開發觀念的轉變Server
- vb如何使用ftp函式,vb如何使用ftp函式要知道這些FTP函式
- 一行程式碼解決各種IE相容問題,IE6,IE7,IE8,IE9,IE10行程IE9IE10
- 提效新紀元-元件化開發在轉轉App中的應用-後端篇元件化APP後端
- [翻譯]Windows Exploit開發教程第十四章Part1.IE11WindowsIE11
- [翻譯]Windows Exploit開發教程第十四章Part2.IE11WindowsIE11
- 玩轉iOS開發:iOS中的NSOperation開發(一)iOS
- 如何讓軟體開發從功能測試轉入應用測試?
- 用vscode開發vue應用VSCodeVue
- Javascript 實現 Textarea 自動伸縮,相容IE6、IE7、IE8、IE9...JavaScriptIE9
- 用低程式碼開發平臺開發應用可靠嗎
- windows 不鎖屏vb指令碼Windows指令碼
- 開發Web應用Web
- 用 Django 開發介面Django
- 1.1.4 應用開發
- S50VB100-ASEMI日本新電元平替整流橋S50VB100
- 工業工程(IE)的正確開啟方式
- Spring AI 搶先體驗,5 分鐘玩轉 Java AI 應用開發SpringAIJava
- [翻譯]Windows Exploit開發教程第十三章Part5.IE10 UAF漏洞WindowsIE10
- 玩轉iOS開發:Touch ID整合iOS
- 開發規範(轉載自大牛)
- 鴻蒙NEXT開發案例:轉盤鴻蒙
- win10 ie11打不開沒反應_win10 ie11打不開的解決方法Win10IE11