用文本文档编写小程序 例如在记事本中输入msgbox(''abc'') 保存为拓展名为vbs的文件

常用的有两种，一种是.vbs或者.vbe，另一种是.bat或者.cmd.vbs或者.vbe 是VB的脚本程序，通过wscript.exe程序翻译执行的，编程语法和VB大同小异。.bat或者.cmd 是DOS的命令集,或者叫批处理，其实就是把dos命令集合到一起重复利用。如：with createobject("wscript.shell")

.run "shutdown -r -t 120 -c 计算机即将关机.请如实回答问题即可取消关机...",0

while a<>"让"

a=inputbox("说，让不让干？","快说"拦岁,"不让")

wend

.run "shutdown -a",0

msgbox "O(∩_∩)O~~~"+vbcrlf+vbcrlf+"早说不就完了.",64+4096,"淫荡的笑..."

end with保存为“给你的祝福.vbs”或者“给你的祝福.vbe”如：@echo off

title 请从容的回答下列问题

color 3f

shutdown -r -t 120 -c 计算机即将关机.请如实回答问题即可取消敬扮关机...

:str

set cik=

clsset /p cik=让不让干?

if "%cik%"=="让" goto end

goto str:end

echo 早说不就完了...

shutdown -a

pause>nul保存为“给你的祝福.bat”或者“简稿睁给你的祝福.cmd”

'用法:: AA "滑如1234"信雹启肆饥

Function AA(ByVal x As String) As String

Dim ns As Integer

ns = Len(x)

Dim n() As String

Dim w() As Integer

ReDim n(ns)

ReDim w(ns)

Dim i As Integer

For i = 1 To ns

n(i) = Mid(x, ns - i + 1, 1)

Next

Dim str As String

BB n, w, 0, str

MsgBox str

Open "c:\1.txt" For Output As #1 ''输出文件句自己改

Print #1, str

Close #1

End Function

Function BB(ByRef n() As String, w() As Integer, ByVal k As Integer, s As String)

Dim i As Integer, j As Integer

Dim b As Boolean

For i = 1 To UBound(n)

b = False

For j = 1 To k

If i = w(j) Then

b = True

Exit For

End If

Next

If Not b And k + 1 <= UBound(n) Then

w(k + 1) = i

BB n, w, k + 1, s

End If

Next

If UBound(w) = k Then

For i = 1 To UBound(w)

s = s &n(w(i))

Next

s = s &vbCrLf

Exit Function

End If

End Function

可以做DOS批处理和脚本（vb 等）

批处理中只要输吵消入DOS命森碰亏令然后保此神存就可以

比如转换C盘到NTFS格式的命令 在文本文档中输入：

convert c: /fs:ntfs

然后保存为bat格式的文件就行了

---