最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

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.fzitv.net" 
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)文章

最新評(píng)論

邵东县| 綦江县| 西乌珠穆沁旗| 高州市| 墨竹工卡县| 玛沁县| 平湖市| 新津县| 加查县| 南充市| 定陶县| 上犹县| 江陵县| 阿城市| 延寿县| 黔西| 福海县| 朝阳区| 廊坊市| 广西| 疏附县| 长沙县| 栖霞市| 绥芬河市| 蒙阴县| 游戏| 玉门市| 鹤壁市| 马公市| 南通市| 梅州市| 南投县| 邹平县| 沐川县| 常山县| 涪陵区| 新竹县| 星座| 新邵县| 安顺市| 克山县|