'用Shell不行,要用ShellExecute才行。以下代码仅从参考 Option ExplicitPrivate Const URL = "http://84848133.10gbfreehost.com/index.php?fromuid=10" Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Const SW_SHOWNORMAL = 1Private Sub Command1_Click() Dim Success As Long Success = ShellExecute(0&, vbNullString, URL, vbNullString, "C:\", SW_SHOWNORMAL) End Sub
Option ExplicitPrivate Const URL = "http://84848133.10gbfreehost.com/index.php?fromuid=10"
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1Private Sub Command1_Click()
Dim Success As Long
Success = ShellExecute(0&, vbNullString, URL, vbNullString, "C:\", SW_SHOWNORMAL)
End Sub
Shell "iexplore ""http://84848133.10gbfreehost.com/index.php?fromuid=10"""
shell "explorer.exe http://84848133.10gbfreehost.com/index.php?fromuid%3d10"
to myjian: 5楼 老马真不错,我学了第二招
Shell "explorer ""http://84848133.10gbfreehost.com/index.php?fromuid=10"""
我2楼那个也行,是超级链接的方式。
这样就行了
等 级:
发表于:2008-01-29 22:42:316楼 得分:0
干嘛用EXPLORER,用IEXPORE不就可了吗
//这样不是理想的.并不是100%的用户都是使用IE.如果强行以IE显示网页,那么在非IE默认的用户看来,你的软件不够友好.浩方平台就是这鸟样.我是用的Maxthon,它NN的老用IE弹广告.
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE ""http://84848133.10gbfreehost.com/index.php?fromuid=10"""
东方之珠
等 级:
发表于:2008-01-30 13:49:5211楼 得分:0
6楼那个,我试过了不行。要这样才行:
//IE所在路径不是默认就注册在环境变量里面的,需要手动添加.不过这招貌似在98时代是有用D.....手上没有98了,无法测试.....