51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 4487|回复: 5
打印 上一主题 下一主题

[资料] vbs新手知识总结

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2010-9-10 15:54:02 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
'On Error Resume Next
'Shift —— +;Ctrl —— ^;Alt —— %

sub sleeping
wscript.sleep 1
end sub

sub testshell
dim path
dim wsh
set wsh=createobject("wscript.shell")
'name=inputbox("请输入你的名字","名称")
'magbox name,,"你的名称是"
'wsh.run "calc",,true
wsh.run "notepad"
Wsh.AppActivate "无标题 - 记事本"     //定位光标,后面是标题框的名称
wscript.sleep 1
wsh.sendkeys ("5")
wsh.sendkeys "%s"     //组合键
wsh.sendkeys "^(sc)"   //同时按ctrl,s和c
wsh.sendkeys "{+}"    //特殊的键值
WshShell.SendKeys "{x 10}"  //输入10个x
end sub

sub testcreatefolder
dim fs
set fs=wscript.createobject("scripting.filesystemobject")
if(fs.folderexists("c:\temp")) then
s="is availabe"
else
s="not exist"
set folder=fs.createfolder("c:\temp")
end if
msgbox s,,"状态"
end sub

sub testcopyfolder(x,y)
dim fs1
set fs1=wscript.createobject("scripting.filesystemobject")
fs1.copyfolder x,y,true
end sub

sub testdeletefolder
dim fs2
set fs2=wscript.createobject("scripting.filesystemobject")
fs2.deletefolder("c:\temp")
fs2.deletefolder("d:\temp")
end sub


sub testmovefolder            
'testcreatefolder
dim fs3
set fs3=wscript.createobject("scripting.filesystemobject")
fs3.movefolder "c:\temp","d:\"
end sub

sub testfoldermethod
dim fs4
set fs4=wscript.createobject("scripting.filesystemobject")
testcreatefolder
set f=fs4.getfolder("c:\temp")
'f.delete
f.copy "d:\",true
'f.move "d:\"                  //没有权限
end sub



function testcalc()
dim  wsh
set wsh=wscript.createobject("wscript.shell")
'wsh.run "notepad"
wsh.run "calc"
wscript.sleep 1000
wsh.appactivate "计算器"
'wsh.Appactivate "无标题 - 记事本"
wsh.sendkeys "5{+}5{=}"
end function
call testcalc()






Dim fso,fs

Set fso=WScript.CreateObject("scripting.filesystemobject")
If fso.FileExists("c:\ok1.txt")<>True Then
Set fs=fso.CreateTextFile("c:\ok1.txt")
Else
MsgBox "ok1.txt is exists",,"状态"
End If

Set wr=fso.OpenTextFile("c:\ok1.txt",2,True)
wr.Write("你好,这个是的一段话,下面是一个空行")
wr.WriteBlankLines(1)
wr.WriteLine("这段话会作为一行显示1")
wr.WriteLine("这段话会作为一行显示2")
wr.WriteLine("这段话会作为一行显示3")
wr.Close

Set rd=fso.OpenTextFile("c:\ok1.txt",1,True)
If rd.AtEndOfLine<>True Then
rd.Read(2)
skip(2)
End If
If rd.AtEndOfStream<>True Then
rd.ReadLine
rd.SkipLine(1)
End If
rd.ReadAll
rd.Close

评分

参与人数 1综合技术指数 +4 收起 理由
qiguojie + 4

查看全部评分

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2010-12-7 15:10:24 | 只看该作者
回复 支持 反对

使用道具 举报

  • TA的每日心情
    奋斗
    2018-2-13 11:02
  • 签到天数: 55 天

    连续签到: 1 天

    [LV.5]测试团长

    3#
    发表于 2010-12-12 15:51:43 | 只看该作者
    学习做总结挺好的。。我也正在学VBS,学完了也做下总结。。。有助于巩固知识
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    4#
    发表于 2011-2-12 18:32:24 | 只看该作者
    回复 3# 819longjiayan
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    5#
    发表于 2011-2-12 18:33:04 | 只看该作者
    你是自学的VBS吗?有什么资源可以分享下吗?我也想恶补一下
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    6#
    发表于 2011-2-12 18:33:30 | 只看该作者
    回复 3# 819longjiayan


        你是自学的VBS吗?有什么资源可以分享下吗?我也想恶补一下
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-7 23:46 , Processed in 0.071266 second(s), 29 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表