在声明区中声明如下(在.bas档中用Public,在Form中用Private)
PrivateDeclareFunctionShellExecuteLib"shell32.dll"Alias"ShellExecuteA"(ByValhWndAsLong,ByVallpOperationAsString,ByVallpFileAsString,ByVallpParametersAsString,ByVallpDirectoryAsString,ByValnShowCmdAsLong)AsLong
在程序中
Intranet:
ShellExecuteMe.hWnd,"open","http://Intranet主机/目录","","",5
Internet:
ShellExecuteMe.hWnd,"open","http://www.ruentex.com.tw","","",5
很简单吧!!!就算您的机器不能连上Internet,您也可以马上感受一下Intranet的功能.->