做個“網(wǎng)絡(luò)助手”程序

2019-11-18 17:27:14

字體：大中小

供稿：網(wǎng)友

上網(wǎng)最麻煩的事莫過于在地址欄中輸入網(wǎng)址了。雖然有收藏夾幫忙，喜愛的網(wǎng)站多了它也日漸臃腫，占用資源不算，用起來也不是很方便。用VB做個“網(wǎng)絡(luò)助手”吧！
這個網(wǎng)絡(luò)助手至少要實(shí)現(xiàn)這樣的功能：雙擊用戶界面的網(wǎng)站名稱，就能調(diào)出瀏覽器并進(jìn)入該網(wǎng)站。(當(dāng)然，如果你愿意，還可以添加其它功能，如刪除、修改、添加網(wǎng)址，自動撥號，計時等)構(gòu)想是這樣：用文本文檔記錄網(wǎng)站名稱，程序運(yùn)行時讀取文本文檔并在用戶界面顯示網(wǎng)站名，當(dāng)用戶雙擊網(wǎng)站名稱時調(diào)出網(wǎng)址、鏈接。
為此，著手編程之前我們必須做兩項(xiàng)準(zhǔn)備工作：
一.用記事本編寫一個名為homepage的TXT文檔。每行寫一個網(wǎng)站名稱，不要有空行。
二.用數(shù)據(jù)庫程序 access(Office組件之一)建立一個名為address的數(shù)據(jù)庫，表名為net，主字段名為netaddress。給數(shù)據(jù)庫輸入記錄：按照homepage.txt文檔中的網(wǎng)站順序?qū)懞酶骶W(wǎng)站主頁的詳細(xì)網(wǎng)址，結(jié)束后存盤退出。

現(xiàn)在可以進(jìn)入具體編程了。
這個程序所需控件不多：一個data控件，一個ListBox控件和一個Label控件即可。在屬性窗口將data控件與庫文件及其表鏈接好，并將Label控件與Data控件綁定。接著調(diào)整一下各控件的位置和大小。

下面是具體的代碼，我將在代碼中穿插作些必要的解釋：

OptionExplicit
'調(diào)用瀏覽器的API
OperationAsString,ByVallpFileAsString,ByVallpParametersAsString,ByVallpDirectoryAsString,ByValnShowCmdAsLong)AsLong
DimSortAsString'申明選擇類別
DimaddressAsString'申明網(wǎng)址
Dimaddresslink'申明網(wǎng)址鏈接
DimAllLinesAsNewCollection'內(nèi)存中的行數(shù)據(jù)庫(你可以看得出來，模仿了"日積月累"的代碼來實(shí)現(xiàn)對文檔文檔的讀取和顯示)
DimCurrentLineAsLong'當(dāng)前行集合索引

'鏈接網(wǎng)址聲明
PrivateSubLink()
address=ShellExecute(0&,vbNullString,address,vbNullString,vbNullString,vbNormalFocus)
EndSub

'Form_Load事件
PrivateSubForm_Load()
Data1.DatabaseName=App.Path "/address.mdb"
'定位庫文件(雖然在屬性中已經(jīng)綁定了數(shù)據(jù)庫，為使程序能在別的機(jī)器上正常運(yùn)行，這行是有必要的)
Data1.RecordSource="net"'字段
Data1.Visible=False'data控件不可見
DimnextLineAsString'從文件中讀出的每一行
DimInFileAsInteger'文件的描述符
InFile=FreeFile
OpenApp.Path "/homepage.txt"ForInputAsInFile'打開文件
WhileNotEOF(InFile)
LineInput#InFile,nextLine
AllLines.AddnextLine
Wend
CloseInFile
'將所有行集合按順序添加到列表框
DimiAsInteger
Fori=0ToAllLines.Count-1
GetNextLine
Nexti
EndSub

'單擊列表框
PrivateSubList1_Click()
DimIndAsInteger
Ind=List1.ListIndex
IfInd<Data1.Recordset.RecordCountThen
Data1.Recordset.AbsolutePosition=Ind
Else
Data1.Recordset.Move(Ind)
EndIf
address=Label1.Caption
EndSub

'雙擊列表框
PrivateSubList1_dblClick()
Link
EndSub

'提取當(dāng)前行
PublicSubGetCurrentLine()
IfAllLines.Count>0Then
List1.AddItemAllLines.Item(CurrentLine)
EndIf
EndSub

'提取下一行
PrivateSubGetNextLine()
CurrentLine=CurrentLine 1
IfAllLines.Count<CurrentLineThen
CurrentLine=1
EndIf
GetCurrentLine
EndSub

至此，程序已經(jīng)可以達(dá)成我們的目的了。如果需要添加其它功能，請參閱VB編程樂園的其它文章和源碼自行補(bǔ)充。->

上一篇：用VB5讀寫注冊表實(shí)例

下一篇：利用VB提取HTML文件中的EMAIL地址