vbs打開ie兩種方法在VBScript中啟動(dòng)IE瀏覽器的實(shí)現(xiàn)代碼

更新時(shí)間：2013年01月21日 14:47:02 投稿：mdxy-dxy

用VBS打開網(wǎng)頁，減少IE廣告，不錯(cuò)的東東，是在網(wǎng)上收集的，你也可以實(shí)現(xiàn)網(wǎng)頁的自動(dòng)登錄等

第一種方法 InternetExplorer.Application

StartURL = "www.dhdzp.com" 
set IE = CreateObject("InternetExplorer.Application") 
IE.Visible = true 
IE.Navigate StartURL

第二種方法 WScript.Shell

dim Wsh 
Set Wsh=WScript.CreateObject("WScript.Shell") 
On error Resume Next 
objeShell.Run("http://www.baidu.com")

下面的代碼就是自動(dòng)打開百度并輸入腳本之家進(jìn)行搜索的代碼

Dim wsh,ie 
Set wsh = CreateObject("wscript.shell") 
Set ie = WScript.CreateObject("InternetExplorer.Application") 
URL="http://www.baidu.com" 
code="腳本之家" 
ie.visible = True 
ie.navigate URL 
WScript.Sleep 1000 
wsh.AppActivate "百度一下，你就知道 " ' 引號(hào)中填瀏覽器最上面的標(biāo)題 
wsh.Run "cmd.exe /c echo " & code & "| clip.exe", vbHide 
wsh.SendKeys "^v" 
wsh.SendKeys "{ENTER}"

用vbs實(shí)現(xiàn)網(wǎng)站自動(dòng)登錄

Dim wsh,ie 
Set wsh = CreateObject("wscript.shell") 
Set ie = WScript.CreateObject("InternetExplorer.Application") 
URL=" http://www.baidu.com" 
ie.visible = True 
ie.navigate URL 
WScript.Sleep 1000*5 
wsh.AppActivate " " ' 引號(hào)中填瀏覽器最上面的標(biāo)題 
WScript.Sleep 1000*1 
wsh.SendKeys "帳號(hào)" '引號(hào)中填帳號(hào) 
WScript.Sleep 1000*1 
wsh.SendKeys "{TAB}" 
WScript.Sleep 1000*1 
wsh.SendKeys "密碼" '引號(hào)中填密碼 
WScript.Sleep 1000*1 
wsh.SendKeys "{ENTER}"

好了，內(nèi)容就介紹到這，希望大家以后多多支持腳本之家。

相關(guān)文章

使用腳本自動(dòng)壓縮指定目標(biāo)下的所有文件的代碼
有的時(shí)候，需要對(duì)一個(gè)目錄下所有的某種類型文章進(jìn)行壓縮（例如WORD文檔、MP3等）。如果使用手工，則數(shù)量少的時(shí)候還可以。如果多的話，則不勝其煩
2012-03-03
vbs 更改環(huán)境變量
微軟手冊(cè)只提了一個(gè)remove，沒提增加，原來是這樣。
2009-07-07
監(jiān)測(cè)windows主機(jī)網(wǎng)絡(luò)接口利用率的vbs代碼
這篇文章主要介紹了監(jiān)測(cè)windows主機(jī)網(wǎng)絡(luò)接口利用率的vbs代碼，不用任何軟件沒有安全隱患，學(xué)習(xí)vbs的朋友可以參考一下
2019-10-10
vbs加administrator用戶的代碼
使用ADSI的Winnt對(duì)象，Windows2000后面的系統(tǒng)都屬于NT系列
2008-08-08
VBS實(shí)現(xiàn)的系統(tǒng)服務(wù)備份優(yōu)化代碼
將下面代碼保存為VBS執(zhí)行即可,服務(wù)優(yōu)化規(guī)則可以自由修改(上面是我現(xiàn)在使用的優(yōu)化規(guī)則),并且每次優(yōu)化都會(huì)在我的文檔里面生成一個(gè)對(duì)應(yīng)日期的服務(wù)備份文件.可以直接還原
2013-01-01
VBS教程：函數(shù)-FormatNumber 函數(shù)
VBS教程：函數(shù)-FormatNumber 函數(shù)...
2006-11-11
用VBS修改（設(shè)置）系統(tǒng)時(shí)間和日期的代碼
用 VBS 把系統(tǒng)的時(shí)間修改到2038年1月19日3時(shí)14分07秒之后，這樣某些依賴于 Unix 時(shí)間戳的程序就會(huì)出問題。那么怎樣用 VBS 修改系統(tǒng)的時(shí)間呢
2013-01-01
使用 Iisftp.vbs 停止FTP站點(diǎn)的方法
這篇文章主要介紹了使用 Iisftp.vbs 停止FTP站點(diǎn)的方法,需要的朋友可以參考下
2014-07-07
vbs 注冊(cè)表操作類代碼
從國(guó)外的一個(gè)龐大腳本提取出來的注冊(cè)表操作類，喜歡的朋友可以收藏下
2011-05-05
vbs xmldom初次實(shí)戰(zhàn)獲取QQ簽名的代碼
用vbs+xmldom實(shí)現(xiàn)的獲取qq簽名的腳本
2008-06-06