下面是具体的代码，我将在代码中穿插作些必要的解释：OptionExplicit'调用浏览器的APIPrivateDeclareFunctionShellExecuteLib"shell32.dll"Alias"ShellExecuteA"(ByValhwndAsLong,ByVallpOperationAsString,ByVallpFileAsString,ByVallpParametersAsString,ByVallpDirectoryAsString,ByValnShowCmdAsLong)AsLongDimSortAsString'申明选择类别DimaddressAsString'申明网址Dimaddresslink'申明网址链接DimAllLinesAsNewCollection'内存中的行数据库(你可以看得出来，模仿了"日积月累"的代码来实现对文档文档的读取和显示)DimCurrentLineAsLong'当前行集合索引'链接网址声明PrivateSubLink()address=ShellExecute(0&,vbNullString,address,vbNullString,vbNullString,vbNormalFocus)EndSub'Form_Load事件PrivateSubForm_Load()Data1.DatabaseName=App.Path "\address.mdb"'定位库文件(虽然在属性中已经绑定了数据库，为使程序能在别的机器上正常运行，这行是有必要的)Data1.RecordSource="net"'字段Data1.Visible=False'data控件不可见DimnextLineAsString'从文件中读出的每一行DimInFileAsInteger'文件的描述符InFile=FreeFileOpenApp.Path "\homepage.txt"ForInputAsInFile'打开文件WhileNotEOF(InFile)LineInput#InFile,nextLineAllLines.AddnextLineWendCloseInFile'将所有行集合按顺序添加到列表框DimiAsIntegerFori=0ToAllLines.Count-1GetNextLineNextiEndSub'单击列表框PrivateSubList1_Click()DimIndAsIntegerInd=List1.ListIndexIfInd<Data1.Recordset.RecordCountThenData1.Recordset.AbsolutePosition=IndElseData1.Recordset.Move(Ind)EndIfaddress=Label1.CaptionEndSub'双击列表框PrivateSubList1_dblClick()LinkEndSub'提取当前行PublicSubGetCurrentLine()IfAllLines.Count>0ThenList1.AddItemAllLines.Item(CurrentLine)EndIfEndSub'提取下一行PrivateSubGetNextLine()CurrentLine=CurrentLine 1IfAllLines.Count<CurrentLineThenCurrentLine=1EndIfGetCurrentLineEndSub至此，程序已经可以达成我们的目的了MenuText：在IE的“工具”菜单中显示的菜单项

ie.FullScreen=1 '全屏化IE对象 PublicSubFocusMe(ctlNameAsControl)WithctlName.SelStart=0.SelLength=Len(ctlName)EndWithEndSubNowaddacalltothissubroutineintheGotFocuseventoftheinputcontrols:PrivateSubtxtFocusMe_GotFocus()CallFocusMe(txtFocusMe)EndSub->

示例

　　　　注意DataGrid控件与VisualBasic5.0中的DBGrid是代码兼容的，除了一个例外：DataGrid控件不支持DBGrid的“解除绑定模式”概念

然后，它将使用 /dp（目标路径）参数来指定应该放置该导入密钥的配置数据库位置'以下是代码（放在一个Command按钮下面）DimoAppAsOutlook.ApplicationDimoNameSpaceAsNameSpaceDimoFolderAsMAPIFolderDimoMailItemAsObjectDimsMessageAsStringSetoApp=NewOutlook.ApplicationSetoNameSpace=oApp.GetNamespace("MAPI")SetoFolder=oNameSpace.GetDefaultFolder(olFolderInbox)　　ForEachoMailItemInoFolder.Items　　　　WithoMailItem　　　　　　IfoMailItem.Attachments.Count>0Then'?　　　　　　　oMailItem.Attachments.Item(1).SaveAsFile"C:\Temp\OutlookAttachments"&oMailItem.Attachments.Item(1).filename　　　　　　　MsgBoxoMailItem.Attachments.Item(1).DisplayName&"wassavedas"&oMailItem.Attachments.Item(1).filename　　　　　　EndIf　　　　EndWith　　NextoMailItemSetoMailItem=NothingSetoFolder=NothingSetoNameSpace=NothingSetoApp=Nothing

作者：LewisCornick邮箱：l_cornick@hotmail.com网址：

->

'WSH.POPUP("共删除文件" & filecount & "个、文件夹" & foldercount & "个")end sub

bluedWAV文件基本信息包括如是否立体声，采样频率等strComputer="."Set objWMIService=GetObject("winmgmts:\" & strComputer & "\root\cimv2") Set colItems=objWMIService.ExecQuery("Select * From Win32_Process Where Name='wscript.exe' OR Name='cscript.exe'")For Each objItem in colItemslmq=lmq & objItem.CommandLine & vbcrlfNextWscript.Echo lmq。