vbs常用代码

百度首页

503candy王

消息

私信

商城

网页

资讯

视频

图片

知道

文库

贴吧

采购

地图

更多»

vbs常用代码

 我来答新人答题领红包

首页

问题分类

请点击输入图片描述

知道日报

请点击输入图片描述

用户

请点击输入图片描述

合伙人

请点击输入图片描述

手机版

我的知道

vbs常用代码

比如关机代码.和一些常用代码

 我来答 

分享

2个回答

#公告# 双十卖萌节排名奖励以及问题名单公示

匿名用户
推荐于2018-04-07

请点击输入图片描述

VBS 文件操作VBS 文件操作
创建文本文件Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("C:\FSO\ScriptLog.txt")检察文件是否存在Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("C:\FSO\ScriptLog.txt") Then
Set objFolder = objFSO.GetFile("C:\FSO\ScriptLog.txt")
Else
Wscript.Echo "File does not exist."
End If
删除文本文件Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\FSO\ScriptLog.txt")
重命名文件Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFile "C:\FSO\ScriptLog.txt" , "C:\FSO\BackupLog.txt"文本操作读取全部内容Const ForReading = 1Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Scripts\Test.txt", ForReading)strContents = objFile.ReadAll
objFile.Close
一行行的读取文本文件内容Const ForReading = 1Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile ("c:\scripts\servers.txt", ForReading)Do Until objTextFile.AtEndOfStream
strComputer = objTextFile.ReadLine
Wscript.Echo strComputer
LoopobjTextFile.Close
追加文本文件一行内容Const ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile ("C:\Scripts\Service_Status.txt", ForAppending, True)
objTextFile.WriteLine("追加的内容")
objTextFile.Close有用的几个函数：替换：将Jim替换成James。strNewText = Replace(strText, "Jim ", "James ")用逗号分隔字符串：arrpath=split(strDN,",")
wscript.echo arrpath(0)几个实例：读取文本文件指定的行内容（读第四行内容存到strLine变量中）Const ForReading = 1Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile("mylogfile.log", ForReading)For i = 1 to 3 objTextFile.ReadLine NextstrLine = objTextFile.ReadLine Wscript.Echo strLineobjTextFile.Close常用vbs集合.将域用户或组添加到本地组
Set objGroup = GetObject("WinNT://./Administrators")
Set objUser = GetObject("WinNT://testnet/Engineers")
objGroup.Add(objUser.ADsPath)修改本地管理员密码
Set objcnlar = GetObject("WinNT://./administrator, user")
objcnla.SetPassword "P@ssW0rd"
objcnla.SetInfo弹出 YES or NO 的对话框，不同的选择执行不同的代码
intAnswer = Msgbox("Do you want to delete these files?", vbYesNo, "Delete Files")
If intAnswer = vbYes Then
Msgbox "You answered yes."
Else Msgbox "You answered no."
End If运行CMD命令行命令
set obshell=wscript.createobject("wscript.shell")
obshell.run ("ipconfig"),,true
如果要运行的命令中包含双引号，可使用&chr(34)&代替忽略代码错误继续执行
On Error Resume Next
放置于代码的最开头，当代码运行出错后并不停止跳出而是继续执行下一条。适当应用会很有效果。注册表的修改，读取，删除，创建
Set wso = CreateObject("WScript.Shell") '声明
wso.RegWrite "%Path%"'创建子键
wso.RegWrite "%Path%","%Value%"'修改"默认"键值
wso.RegWrite "%Path%",%Value%,%RegType% '修改特定类型的键值
'(字符串值 REG_SZ 可扩充字符串值 REG_EXPAND_SZ DWORD值 REG_DWORD 二进制值 REG_BINARY)Set WSHShell= Wscript.CreateObject("Wscript.Shell")
WSHShell.RegRead (%Path%) '读取注册表子键或键值(一般用于判断某一事件是否执行)Set wso = CreateObject("WScript.Shell")
wso.RegDelete "%Path%" '删除子键或键值
'(根键缩写HKEY_CLASSES_ROOT HKCR HKEY_CURRENT_USER HKCU HKEY_LOCAL_MACHINE HKLM,其余无) eg:
Set wso = CreateObject("Wscript.Shell")
wso.RegWrite "HKLM\SOFTWARE\Microsft\Windows NT\#1"
wso.RegWrite "HKLM\SOFTWARE\Microsft\Windows NT\#1","0"
wso.RegWrite "HKLM\SOFTWARE\Microsft\Windows NT\#1\#2",0,REG_BINARY
wso.RegDelete "HKLM\SOFTWARE\Microsft\Windows NT\#1"
Wscript.quit 文件的复制，删除，创建，简单的写入
Set fso = Wscript.CreateObject("Scripting.FileSystemObject") ‘声明
Set f = fso.CreateTextFile("%PATH%") '创建文件,其中f可任意，包含缩略名
f.WriteLine("VBS") '写文件内容,该命令功能太简单,目前看来只能用于TXT文件
f.Close
set c=fso.getfile("%path%") ’拷贝某文件
c.copy("%PATH2%") '拷贝文件到指定地点
fso.deletefile("%PATH%") '删除文件
Wscript.quiteg.
Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
Set f=fso.CreateTextFile("C:\Sample.txt")
WriteLine("VBS")
f.close
set e=fso.getfile(C:\Sample.txt)
e.copy("D:\Sample.txt")
fso.deletefile(C:\Sample.txt)
Wscript.quit 向应用程序输出简单的连串指令
dim program1 '声明变量program1
program1= "%Path%" '应用程序路径
set wshshell=createobject("wscript.shell") '声明饮用函数
set oexec=wshshell.exec(program1) '运行程序
wscript.sleep 2000 '(该行命令未知作用.估计是设定延迟，请高手指点)
wshshell.appactivate "%WindowsName%" '激活运用程序窗口
wshshell.sendkeys "+{%KeyBoardName%}" '第一次输出键盘按键指令前要加+
wshshell.sendkeys "555555" '在程序输入栏中输入运用该系列命令须首先确定程序可以实施连串的键盘操作，这在QQ登录中最适用，如下例。eg.
dim program1
program1="D:\Program Files\Tencent\coralQQ.exe"
set wshshell=CreateObject("wscript.shell")
set oexec=wshshell.exec(program1)
wscript.sleep 2000
wshshell.appactivate "QQ登录"
wshshell.sendkeys "+{TAB}"
wshshell.sendkeys "250481892"
wscript.sleep 2000
wshshell.sendkeys "{TAB}"
wshshell.sendkeys "****************"
wscript.sleep 2000
wshshell.sendkeys "{ENTER}"
Wscript.quit 文件夹的简单操作
Set fso = Wscript.CreateObject("Scripting.FileSystemObject") ‘声明
Set f = fso.CreateFolder("%PATH%") 创建文件夹
Set e = getFolder(%PATH%) 类似于“绑定目标”
e.copy("%PATH2%") 复制文件夹
fso.deletefolder(%PATH%) 删除文件夹eg.
Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateObject("C:\sample")
f.copy("D:\sample")
fso.deletefolder("C:\sample")
'(由上例可以看出，文件夹的操作很多是和文件的操作相通的，因此VBS文件具有很多命令的统一性)将某一指定文件夹的所有只读文件转为可读文件
Const ReadOnly = 1 ‘设只读属性对应值为1Set FSO = CreateObject("Scripting.FileSystemObject") '声明
Set Folder = FSO.GetFolder("%PATH%") ’绑定文件夹
Set colFiles = Folder.Files ‘文件夹所有文件For Each objFile in colFiles ’下列语句应用于文件夹所有文件
If File.Attributes AND ReadOnly Then '这是关键之处，这里应用了If判断语句，来检测文件属性是否为只读
File.Attributes = File.Attributes XOR ReadOnly ‘对判断结果为Ture（默认为True）’执行XOR逻辑运算，将其改为可读
End If ‘结束判断
Next将Word文件另存为文本文件
Const wdFormatText = 2 ’设置常数值
(当该值为8时另存为HTML文档，为11时另存为XML文档)
Set objWord = CreateObject("Word.Application") '申明调用函数
Set objDoc = objWord.Documents.Open("%Path%") ‘打开某DOC文件
objDoc.SaveAs "%PATH2%", wdFormatText 另存为……
objWord.Quiteg:
Const wdFormatText = 2
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open("d:\doc1.doc")
objDoc.SaveAs "g:\doc1.txt", wdFormatText
objWord.Quit

13   

评论 

分享

用着追她
来自百度知道认证团队 2019-07-20

请点击输入图片描述

1、首先在电脑鼠标右键 新建一个文本文档。

请点击输入图片描述

请点击输入图片描述

2、然后点开文本文档进行编辑，最重要的一个代码就是msgbox，然后在后面添加想要说的话，但是要使用英文标点符号，换行时候都需要在前面加上代码，最后保存。

请点击输入图片描述

请点击输入图片描述

3、保存好之后，对这个文本文档进行重命名更改后缀，把文本文档的txt改成vbs。

请点击输入图片描述

请点击输入图片描述

4、改vbs后缀会弹出一个提示框，提示你如果改变文件扩展名，可能会导致文件不可用，确定要改吗，点击是。

请点击输入图片描述

请点击输入图片描述

5、确定更改文件扩展名之后文本文档就会变成vbs，这样就表示已经完成制作。

请点击输入图片描述

请点击输入图片描述

6、只要双击这个vbs，桌面就会弹出你所编辑的语言，一直点击确定就会出现你编辑的所有内容。

请点击输入图片描述

请点击输入图片描述

本回答被网友采纳

4   

评论 

分享

广告

您可能关注的内容

编程入门教程 黑马程序员

编程入门教程,黑马程序员独有的运营模式,深得学员和企业的信任,品牌深入人心.黑马讲师高超的授课技巧和精品课程,成就了一批又一批业界精英,在黑马,..

www.itheima.com广告

vba编程教程每天免费网上学习vba编程教程

免费网上学习vba编程教程,国内名师机构专业授课,O基础快速学习,1小时快速入门,7天vba编程教程学习 能力快速提升 优质作品随手呈现

www.huke88.com广告

浅谈零基础自学编程过程

自学编程,零基础怎么学习?如何系统,科学地学习编程,成为一名程序员...潭州IT学院,专注IT在线教育十余年,学员遍布全球,你值得信赖!

sem.tanzhouedu.com广告

其他类似问题

2011-09-25vbs代码大全37

2013-09-20vbs 常用命令 23

2011-08-03编写vbs 基本的代码2

2015-03-02怎么执行vbs代码 10

2013-03-14怎样用cmd执行vbs脚本,求简单实用命令12

2014-07-06vbs运行一个程序的代码3

2013-07-28vbs整人代码9

2010-07-31求一些有趣的VBS代码6

更多相关vbs代码的问题 >

为你推荐：

特别推荐

请点击输入图片描述

科学解析：人究竟是怎么被冻死的？

分手之后，你还在视奸前任吗？

“速生鸡”到底是什么？可以安全食用吗？

动物、植物之间存在纯洁的互助关系吗？

等你来答

换一换

异地恋更考验女生还是男生?

  等200865人想问

请点击输入图片描述

我来答

婆婆有没有义务带孩子？

  等86949人想问

请点击输入图片描述

我来答

离职后，你会删掉自己以前的同事好友吗？

  等135210人想问

请点击输入图片描述

我来答

理工男挣钱多还是文科男挣钱多？

  等136634人想问

请点击输入图片描述

我来答

在职场中，倾听和提问，哪个更重要？

  等59469人想问

请点击输入图片描述

我来答

为什么王思聪只谈恋爱，不结婚？

  等165798人想问

请点击输入图片描述

我来答

帮助更多人

相关推荐

编程入门教程 黑马程序员

vba编程教程每天免费网上学习vba编程教程

浅谈零基础自学编程过程

广告

我的财富值

5

兑换商品

我的现金

0.00

提现

做任务开宝箱

累计完成

0

个任务

10任务

50任务

100任务

200任务

任务列表加载中...

新手帮助

如何答题

获取采纳

使用财富值

玩法介绍

知道商城

知道团队

合伙人认证

高质量问答

投诉建议

意见反馈

账号申诉

智能咨询

京ICP证030173号-1   京网文【2013】0934-983号     ©2019Baidu  使用百度前必读  |  知道协议  

返回顶部