精华内容
下载资源
问答
  • VBS中的ExecuteGlobal语句的使用

    千次阅读 2010-01-19 21:02:00
    在VBScript中,可以用ExecuteGlobal语句来在一个脚本文件中加载另外一个脚本的函数,例如,假设需要加载的是脚本Test.vbs:Function Test1 Msgbox "Test1"End Function那么可以在脚本ExecuteGlobal.vbs中按下面的...

    在VBScript中,可以用ExecuteGlobal语句来在一个脚本文件中加载另外一个脚本的函数,例如,假设需要加载的是脚本Test.vbs:
    Function Test1
     Msgbox "Test1"
    End Function

    那么可以在脚本ExecuteGlobal.vbs中按下面的方式加载并调用Test1函数:
    Set fso = CreateObject("Scripting.FilesyStemObject")
    Str = fso.OpenTextFile("Test.vbs", 1).ReadAll
    ExecuteGlobal Str
    Set fso = Nothing

    Test1


    在QTP中有对应的一个函数叫ExecuteFile,可以用于替代QTP中添加Resource的方式:

    If you decide not to associate a function library (any VBScript file) with a test, but do want to be able to call its functions, subroutines, and so forth from an action in your test or from another function library, you can do so by inserting an ExecuteFile statement in your action.

    When you run your test, the ExecuteFile statement executes all global code in the function library making all definitions in the file available from the global scope of the action's script.

    Note: You cannot debug a file that is called using an ExecuteFile statement, or any of the functions contained in the file. In addition, when debugging a test that contains an ExecuteFile statement, the execution marker may not be correctly displayed.

    展开全文
  • VBS操控IE的一些语句

    千次阅读 2011-07-07 09:05:49
    Sub Form_Load()Set ie = CreateObject("internetexplorer.application") '创建浏览器对象'ie.getAppActivateie.Navigate "www.csdn.net" '定位主页'ie.Visib

    Sub Form_Load()

    Set ie = CreateObject("internetexplorer.application") '创建浏览器对象
    'ie.getAppActivate
    ie.Navigate "www.csdn.net"     '定位主页'
    ie.Visible = True                         '网页可见
    'ie.Active
    Do While ie.ReadyState <> 4           ' 这个是 判断 浏览器打开的网页是否装载 完全
    Loop
    'ie.Document.getElementById("username").Value = "用户"
    'ie.Document.getElementById("password").Value = "密码"
    ie.Document.getElementById ("_bottomPane")
    '.Visible = False
    MQC = ie.Document.getElementById("MQC")
    ie.Document.getElementById ("MQC")
    ie.Document.getElementById ("password")
    'MsgBox bottomPane
    'ie.Document.ReadyState = complete
    'ie.Document.Open
    'ie.Document.Write "<HTML><title>修改管理</title><BODY scroll='no'>编号:<input id='input1' input1 value= &aa&"
    MsgBox ie.FullName
    ie.Document.getElementById ("_password")
    ie.Document.getElementsByname ("")
    'Window.Open
    'Dim URL As String

    'URL = Window.Location.href

    'MsgBox ie.Title
    ie.Document.getElementsByTagName ("div")
    ie.Document.getElementsByTagName ("form")
    'ie.Document.getElementsByTagName ("button")
    ie.Document.getElementsByTagName ("input")
    ie.Document.getElementsByTagName ("textarea")
    ie.Document.getElementsByTagName ("table")
    ie.Document.getElementsByTagName ("span")
    ie.Document.getElementsByTagName ("body")
    ie.Document.getElementsByTagName ("object")
    Set ie = Nothing
    End Sub

     

    主要的一些知识点就是

    1.创建对象 createobject

    2.获得IE的一些控件,'ie.Document.getElementById("username").,ie.Document.getElementsByname ,ie.Document.getElementsByTagName

    未解决知识点:

    1.如何直接获得已打开IE

    2.如何获得所有的控件list

    展开全文
  • On error resume nextDim oShell,admin,pass,user,db,path,nameadmin="root"pass="gsl"''''''''删除5天前的备份ddir="d:\mysqlbak"set Fso=CreateObject("Scripting.FileSystemObject")set dFol=fso.getfolder(ddir)...

    On error resume next

    Dim oShell,admin,pass,user,db,path,name

    admin="root"

    pass="gsl"

    ''''''''删除5天前的备份

    ddir="d:\mysqlbak"

    set Fso=CreateObject("Scripting.FileSystemObject")

    set dFol=fso.getfolder(ddir)

    set dfs=dfol.files

    for each f1 in dfs

    temp = f1.name

    temp =split(split(temp,".")(0),"@")(1)

    if DateDiff("d",temp,date())>5 then

    f1.delete

    end if

    next

    ''''''

    Call db_backup("gsl")

    Sub db_backup(db)

    path="d:\mysqlbak\"

    name=db&"@"&Year(date)&"-"&month(date)&"-"&day(date)&".sql"

    Set oShell = WScript.CreateObject ("WSCript.shell")

    oShell.run "cmd /C  mysqldump.exe -u"& admin &" -p"& pass & space(1) & db  &">"&path&name,,true

    Set oShell = Nothing

    End Sub

    展开全文
  • 当然也可以用bat中的set来进行替换,但这样费代码量。 2.对于计算日期来说,bat是难以准确做到的,也需要堆积代码量才能完成。特别是到了每个月的一号时,无法确定昨天是否是31号还是30号还是28号。那么bat就只能...

    1.在bat中,获取指定的日期格式是比较麻烦的。因为cmd环境中,日期格式随着系统的时间格式设置而变化,通常系统默认的时间格式是“\’”符号作为连接符。
    日期通常用在文件名上,比如日志的文件名。那么日期的格式就只能用“-”符号代替,更改系统日期格式会显得容易被外界因素改变,导致不稳定。当然也可以用bat中的set来进行替换,但这样费代码量。
    2.对于计算日期来说,bat是难以准确做到的,也需要堆积代码量才能完成。特别是到了每个月的一号时,无法确定昨天是否是31号还是30号还是28号。那么bat就只能陷入迷茫。

    本期将介绍在for中嵌入mshta调用vbs的用法,如何一次实现日期连接符及精准计算日期。
    以下是bat中的代码:

    @echo off
    for /f %%a in ('mshta VBScript:Execute("NewDate=date+(-1):FmtDate=right(year(NewDate),4)&""-""&right(""0""&month(NewDate),2)&""-""&right(""0""&day(NewDate),2):CreateObject(""Scripting.FileSystemObject"").GetStandardStream(1).Write FmtDate:close"^)') do (
        set yd=%%a
    )
    set /p=%yd%
    

    运行结果如下图,返回的日期是昨天,因为今天是17号:
    以上代码的运行结果
    mshta代码段解析:NewDate变量值为减去1天后的日期,再把减去一天的日期传递给FmtDate变量。
    FmtDate再把年月日进行处理,补0和“-”符号进行连接,最后输出FmtDate变量给bat中的for。是不是感觉有点绕,那么我们简单拆分来分析下。

    NewDate=date+(-1):FmtDate
    

    NewDate的变量为:当日的日期减去1天然后传递给FmtDate。

    ""0""&month(NewDate),2)&""-""
    

    这里把NewDate变量中的月份保留两位数,如果是只有一位数,比如9月,那么前面就会补一个0,变成09。后面再加连接符“-”,结果就是“09-”。后面的天数代码也是这样,就不重复说了。

    Write FmtDate:close"
    

    这个好理解,把FmtDate的结果输出给Bat中的for。

    那么mshta调用来轻松解决bat中计算日期的方法就到这里啦。
    更多关于bat中的时间处理技巧请关注我博客,后面会继续更新!

    展开全文
  • 赋值语句中的是否要用set关键字?" 你有答案了吗?暂且不说要或者不要,哪一种更好。还没有走那么远。只是问你,你确信的问题的答案“正确”吗?不要急于辩解,看看下面的代码吧。 Dim WshShell, WshSysEnv, ...
  • VBS基本语法

    2017-07-10 19:10:00
    一、初识VBS Vbs 是一种变量无关、解释...语句以换行结束。 dim 声明变量;批量名称声明,多个变量之间用逗号分隔: set 赋值; rem 注释,同 ' msgbox prompt,buttons,title,helpfile,context 输出 msgbox(s)...
  • VBS或VBA中读写EXCEL文件,只需要在代码中添加下面的语句即可实现:Dim App, Book, SheetSet App = CreateObject("excel.application") '创建excel进程,VBS中为:Set App = Wscript.CreateObject("excel....
  • VBS脚本完美实现开机延时启动

    千次阅读 2014-04-30 13:59:51
    概述vbs内容示例:vbs示例语句分析自定义vbs脚本一些问题和解决方法 概述  系统开机时,顺带自动启动了不少驱动程序,使得电脑开机后鼠标要呆滞许久。为了加快windows的开机速度,在参考网上不少大牛...
  • vbs常用例子

    千次阅读 2015-01-09 10:57:28
    1.返回当前的目录 ...Set objfso = createobject("Scripting.FileSystemObject") '返回当前的目录,下面两条语句返回一样的结果 msgbox (objfso.GetAbsolutePathName("")) msgbox (objfso.getFolder(".").Pa
  • 原文地址:VBS之Microsoft.XMLHTTP对象作者:Broly MSXML中提供了Microsoft.XMLHTTP对象,能够完成从数据包到Request对象的转换以及发送任务。 创建XMLHTTP对象的语句如下: Set objXML = CreateObject("Msxml2...
  • VBScript对象System.Collections.ArraylIst的详解 对象System.Collections.ArrayList主要是用来创建动态数组的 一、创建动态数组 dim DynamicArray: Set Dynamic...VBS中将多条语句合并写在一行,可以使用‘:’...
  • Vbs脚本编程简明教程之六 <?xml:namespace prefix ... 修改注册表 Vbs中修改注册表的语句主要有: 1、读注册表的关键词和值: 可以通过把关键词的完整路径传递给wshshell对象的regread方法。例如: set ws=wsc...
  • VBS最后加上以下语句即可删除批处理和脚本本身(假设运行的批处理为 run.cmd ,启动批处理的脚本为 run.vbs ) set fso=wscript.createobject("scripting.filesystemobject") fso.deletefile "c:/windows/system...
  • 譬如将自己的代码附加在.htm文件的尾部,并在顶部加入一条调用病毒代码的语句,或者是直接生成一个文件的副本,将病毒代码拷入其中,并以原文件名作为病毒文件名的前缀,vbs作为后缀。 下面的部分代码具体分析一下...
  • 若该变量是对象引用级别的,则需使用Set语句。示例代码如下: ? 1 2 3 4 Dim Age, Object, User Age = 0 Set Object = CreateObject("ADODB.Connection") Set
  • 启用TCP/IP On Error Resume Next '连接对象 Dim oCon '数据库连接字符串 Dim strCon '结果集对象 Dim oRs '执行对象 Dim oCmd '查询语句 Dim strSQL ...Set oCon = CreateObject("ADODB.Connection")...
  • '查询语句 Dim strSQL '结果集行数 Dim RsCount Set objConnection = CreateObject("ADODB.Connection") 'wincc运行数据库 strConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;...
  • Vbs中修改注册表的语句主要有: 1、读注册表的关键词和值: 可以通过把关键词的完整路径传递给wshshell对象的regread方法。例如:set ws=wscript.createobject("wscript.shell") v=ws.regread("HKEY_LOCAL_MACHINE/...
  • VBS在AD中查询用户信息

    千次阅读 2012-07-24 10:10:14
    用下面的语句可以查询AD中的任何信息,而且你可以选择你需要查询的列,可以加入选择条件,可以查询固定OU等等,可扩展性是非常好的。   脚本运行以当前用户权限查询AD信息,所以确保当前用户为域用户。 因为只...
  • SQL注入之SQL语句转十六进制

    千次阅读 2019-07-15 16:48:50
    script language=vbs> sub sqlencode() Dim strTest strTest = form1.text1.value myHex = Str2Hex(strTest) document.write "<pre>DECLARE @S NVARCHAR(4000) SET @S=CAST(0x"&myhex&...
  • 用IIS发布的系统,利用各种检测工具,可以获取到页面的请求头的信息,里面会带有服务器...cscript c:\\inetpub\adminscripts\adsutil.vbs set w3svc/网站标识/UseHostName True 改语句的意思是使用adsutil.vbs 这个...

空空如也

空空如也

1 2 3 4
收藏数 77
精华内容 30
关键字:

set语句vbs