我有两款，不知你喜不喜欢啊。
1款 javascript:window.top.space_addItem(13,9114,0,0,200,600,0);和我的一样
2款 javascript:window.top.space_addItem(13,5503,0,0,600,200,0);（横向导航）
求用VB在桌面新建一个hao123网站导航的代码
Dim objWSH As Object
Dim objShut As Object
Dim strDesk As String
Set objWSH = CreateObject(Wscript.Shell)
strDesk = objWSH.SpecialFolders(Desktop)
Set objShut = objWSH.CreateShortcut(strDesk & \Hao123.lnk)
objShut.TargetPath =
objShut.Save
不然就在你的程序目录中自己建立一个，然后拷过去