80后的经典老游戏:我想在百度网上发布一些信息，谁能告诉我，我具体该怎么操作？

连接到网页：
shell "rundll32.exe url.dll,fileprotocolhandler http://www.online.sh.cn"

Private Sub Command1_Click()
Dim myIe As Object
Set myIe = CreateObject("InternetExplorer.Application")
myIe.Navigate "http://office.9zp.com"
myIe.Visible = True
End Sub

Private Sub Command2_Click()
Dim myIe As Object
Set myIe = CreateObject("InternetExplorer.Application")
myIe.Navigate "mailto:test@abc.com"
myIe.Quit
End Sub

一、制作超链接
1、在网页中插入文本超链接
2、在网页中插入图像超链接

在Frontpage或大多数网页编辑器里，插入一张图片，在右击图片，点击菜单中的“超链接”，会弹出一个新窗口，里面有一个地方，可以输入你想连接的地址，可以是完整的网址，也可以是像“\image\000.jpg”之类的相对地址。
使用制作IE的超连接,可以把网址输入到IE里.
使用api函数shellexecute

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

shellexecute 0&, vbnullstring, "http://www.123.com", vbnullstring, vbnullstring, vbnormalfocus

shellexecute me.hwnd, "open", "mailto:123@v123.com", vbnullstring, vbnullstring, sw_show

还有人说下面这样也可以，不过我没有试过。

连接到网页：
shell "rundll32.exe url.dll,fileprotocolhandler http://www.online.sh.cn"

Private Sub Command1_Click()
Dim myIe As Object
Set myIe = CreateObject("InternetExplorer.Application")
myIe.Navigate "http://office.9zp.com"
myIe.Visible = True
End Sub

Private Sub Command2_Click()
Dim myIe As Object
Set myIe = CreateObject("InternetExplorer.Application")
myIe.Navigate "mailto:test@abc.com"
myIe.Quit
End Sub

一、制作超链接
1、在网页中插入文本超链接
2、在网页中插入图像超链接

二、相关知识

超级链接是网页制作中的一个非常重要的概念，它可以使访问者方便地从一个网页转移到另一个网页，或者从网页的一个位置转移到另一个位置，是有效组织网站中各种对象的纽带。

超级链接的外观可以是多种多样的，它的载体可以是文字，也可以是图像。通常文字形式超级链接的外观，其文字自动带有下划线；对于图像形式的超级链接，它通过将鼠标箭头改为手状来告诉访问者这是超级链接。

网页中的超链接目标可以在本网站中，也可以指向其它网站；超链接的目标可以是网页，也可以是多媒体文件、图像甚至程序。所以，通过超链接，可以将许多独立的文档连接起来，形成一个纵横交错的“蜘蛛网”（Web）。

三、注意事项

1、要对指定文本或图像设置超链接，必须首先选定文本或图像。

2、超链接设置完毕，必须保存文件，才能在浏览器中验证超链接的效果。