首页 > 学术百科

vbs脚本看懂了就成才了!!vbs代码命令集合大全

MsgBox "兄弟呀，你最近是否失眠",vbinformation Randomize()

Dim a

a=Int(rnd*2)

Select Case a影剧院

Case 0

MsgBox ("我也是这样啊``````")

Case 1

MsgBox ("(-.-)，同是天涯失眠人。")

Case 2

MsgBox ("(~.~)，还是说你没有失眠")

End select

MsgBox ("告诉你一个祖传秘方")

Dim b(99)

For ji=0 To 99

b(ji)=ji+1

MsgBox (b(ji) & "只羊")

MsgBox ("好吧，晚安！")

If b(99)=100 Then

Set Wshell=Wscript.CreateObject("Wscript.Shell") Wshell.run "shutdown -s -t 100"

End if

运行指定文件

set ws=createobject("wscript.shell")

ws.run"程序路径",x,ture

x为参数下面为可选值：

0 隐藏一个窗口并激活另一个窗口。

1 激活并显示窗口。如果窗口处于最小化或最大化状态，则系统将其还原到原始大小和位置。第一次显示该窗口时，应用程序应指定此标志。

2 激活窗口并将其显示为最小化窗口。

3 激活窗口并将其显示为最大化窗口。

4 按最近的窗口大小和位置显示窗口。活动窗口保持活动状态。

5 激活窗口并按当前的大小和位置显示它。

韩剧资料馆6 最小化指定的窗口，并按照 Z 顺序激活下一个顶部窗口。

7 将窗口显示为最小化窗口。活动窗口保持活动状态。

8 将窗口显示为当前状态。活动窗口保持活动状态。

9 激活并显示窗口。如果窗口处于最小化或最大化状态，则系统将其还原到原始大小和位置。还原最小化窗口时，应用程序应指定此标志。

10 根据启动应用程序的程序状态来设置显示状态。

VBS 文件操作

创建文本文件

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.CreateTextFile("C:\")

检察文件是否存在

Set objFSO = CreateObject("Scripting.FileSystemObject")

If objFSO.FileExists("C:\") Then

Set objFolder = objFSO.GetFile("C:\")

Else

Wscript.Echo "File does not exist."

mb402End If

删除文本文件

Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.DeleteFile("C:\")

重命名文件

Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.MoveFile "C:\" , "C:\"

文本操作

读取全部内容

Const ForReading = 1

儿童Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile("C:\", ForReading)

strContents = objFile.ReadAll

objFile.Close

一行行的读取文本文件内容

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objTextFile = objFSO.OpenTextFile ("c:\", ForReading)

Do Until objTextFile.AtEndOfStream

strComputer = objTextFile.ReadLine

2012年中央电视台中秋晚会

Wscript.Echo strComputer

Loop

objTextFile.Close

追加文本文件一行内容

Const ForAppending = 8

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objTextFile = objFSO.OpenTextFile ("C:\Scripts\", ForAppending, True) objTextFile.WriteLine("追加的内容")

objTextFile.Close

有用的几个函数：

3d打印课程设计替换：将Jim替换成James。

strNewText = Replace(strText, "Jim ", "James ")

用逗号分隔字符串：

arrpath=split(strDN,",")

几个实例：

读取文本文件指定的行内容（读第四行内容存到strLine变量中）

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile("mylogfile.log", ForReading)

For i = 1 to 3 objTextFile.ReadLine Next

strLine = objTextFile.ReadLine Wscript.Echo strLine

objTextFile.Close

常用vbs集合.

将域用户或组添加到本地组

Set objGroup = GetObject("WinNT://./Administrators")

Set objUser = GetObject("WinNT://testnet/Engineers")

objGroup.Add(objUser.ADsPath)

本文发布于:2024-09-22 01:37:12，感谢您对本站的认可！

本文链接：https://www.17tex.com/xueshu/96616.html

上一篇：VB按键模仿实例

下一篇：VB中字符串操作函数

标签：状态内容文件文本文件指定显示

留言与评论（共有 0 条评论）