Question

vbs打开网页，但是要用360浏览器来打开，而不是ie，这个代码应该怎么写拜托各位了 3Q

vbs打开网页，但是要用360浏览器来打开，而不是ie， 这个代码应该怎么写呢

Answer 1

dim fso,Wsh Set Wsh = WScript.CreateObject("WScript.Shell") Set fso = CreateObject("scripting.FileSystemObject") On Error Resume Next Wsh.Run ""C:\Program Files\Internet Explorer\IEXPLORE.EXE" www.hao123.com " 修改最后一行..你的360浏览器的路径 追问： 还有，用这种方法打开的话，还能像 set ie = CreateObject("InternetExplorer.Application") 这种方法一样能实现自动登录这些操作吗 追问： 最后一句 提示语 句未结束 回答： 也应该可以. 你是不是对VBS脚本的概念还不是很清楚呀? 不太清楚你的代码是怎么写的.不过提示你一句 vbs不支持VB的open语句，只支持FileSystemObject 对象 追问： 呵呵，我确实不怎么懂，我想实现的是QQ校友自动登录 ，但是想换成用 360浏览器 来登录，代码是这样： set ie = CreateObject("InternetExplorer.Application") strURL = " http://ui.ptlogin2.qq.com/cgi-bin/login?appid=15004601&qlogin_jumpname=&hide_title_bar=1&s_url= http://pengyou.qq.com/index.php%3fmod%3Dlogin2%26act%3Dqqlogin&self_regurl= http://reg.pengyou.qq.com/emailreg.html&css= http://pengyou.qq.com/asset/login.css" On Error Resume Next ie.Visible = True ie.Navigate(strURL) While ie.Busy Wend WScript.Sleep 600 ie.Document.All("u").Value = " qq号码 " ie.Document.All("p").Value = " qq密码 " ie.Document.All("login_button").Click() set ie = nothing 那要改成360浏览器的话应该怎么改呢？ 回答： 你上面的对象和属 性都 是针对IE的. 怎么改??? 追问： 这不是不知道怎么改嘛 ：（ 追问： CreateObject("InternetExplorer.Application") 这一句能改成360的吗？ 回答： 这样是改不了的. 你已经指定了用IE打开 set ie = CreateObject("InternetExplorer.Application") 除非你把InternetExplorer.Application对象和属性改为360的. 追问： 怎么改呢？ 追问： 怎么改呢？ 就是这里有疑问 回答： 我这里没有360,你找下他的名称. 把InternetExplorer换成他的名字. 追问： 这个名称怎么找呢？ 它的文件名是 360se.exe 我试过改成360se.Application 360 360se 360seURL.Application 等等，都不行 回答： Dim 360se As Object Set 360se = CreateObject("360se.Application") 试试看 追问： 第一句提示 语句未结束，好像 vbs中不能加 as xxx 删掉as Object 之后提示不能创建 360se.Application 对象 回答： 这个我搞错了....AS是用在VB里 语句不结束 Next End 追问： 看到网上有个例子是先把 默认浏览器 改成360，然后打开网页，最后把默认浏览器改回原来的。好麻烦，不弄了，谢谢你的回答