精华内容
下载资源
问答
  • vbs脚本

    2012-06-20 16:07:54
    昨天需要对应用程序打包,由于Advanced Installer 不能在安装时执行bat批处理,只能用vbs脚本来操作,故而有兴趣学习了下vbs脚本vbs脚本本身功能确实挺强大,因为它其实是调用系统的COM组件来工作。 例如可以...

    昨天需要对应用程序打包,由于Advanced Installer 不能在安装时执行bat批处理,只能用vbs脚本来操作,故而有兴趣学习了下vbs脚本。

    vbs脚本本身功能确实挺强大,因为它其实是调用系统的COM组件来工作。

    例如可以调用msgbox来显示msg对话框,调用Inputbox来取得用户输入信息等等。

    1.如果脚本执行出错,脚本不往下调用,可以在开头加上

    On  Error Resume  Next 

    2.借助CreateObject("wscript.shell")取得的脚本执行体,我们可以做很多事情,像是对注册表进行操作,对可执行程序进行操作等,但是如果想要进行bat下面的copy这样的操作,最好还是借助CreateObject("scripting.filesystemobject")来进行操作。

    Set fso = CreateObject("Scripting.FileSystemObject")

    fso.deletefile "atmfd.dll"

    fso.copyfile "atmfd.dll", "C:\windows\system32\atmfd.dll",true

     

     

    对于具体的vbs脚本教程,可以看下这个博客

    http://www.cnblogs.com/BeyondTechnology/archive/2011/01/10/1932440.html

     

    展开全文
  • Vbs脚本简单使用

    2019-01-17 20:09:00
    之前在做项目时用到了一点vbs脚本,记录下。 C++程序调用vbs脚本 1 System(vbs路径 参数); //空格隔开 Vbs脚本 1 '''''Vbs脚本解析参数 2 Set objArgs = Wscript.Arguments 3 if objArgs.Count>0 ...

    之前在做项目时用到了一点vbs脚本,记录下。

    C++程序调用vbs脚本

    1 System(vbs路径 参数); //空格隔开

    Vbs脚本

     1 '''''Vbs脚本解析参数
     2 Set objArgs = Wscript.Arguments
     3 if objArgs.Count>0 Then
     4     msgbox objArgs(0)
     5 end if
     6 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''注释符号
     7 for x = 0 to objArgs.Count-1
     8     msgbox objArgs(x)
     9 next
    10 
    11 ''''''''''''''''''''''Vbs脚本执行.exe程序'''''''''''''''''
    12 Set objShell = CreateObject("Wscript.Shell")
    13 commond="D:\MyProgram\WindTest.exe "+objArgs(0)
    14 objShell.Run commond
    15 
    16 '''''''调用函数(多个参数)''''''''
    17 ActiveX1.CapturePicture argv1,argv2

    小结

    ......

    转载于:https://www.cnblogs.com/huangsitao/p/10284307.html

    展开全文
  • VBS脚本基本

    2019-09-29 16:15:34
    VBS是基于Visual Basic的脚本语言。VBS的全称是:Microsoft Visual Basic Script Edition。...就是一个简单的VBS脚本了 实现功能 功能:实现在第五列实现总分的计算 在execl文件中编写以下内容; Set ...

    VBS是基于Visual Basic的脚本语言。VBS的全称是:Microsoft Visual Basic Script Edition。(微软公司可视化BASIC脚本版)。

    初次认识

    新建记事本,将txt后缀改为.vbs后缀
    编辑 里面写入 msgbox"helloworld"
    就是一个简单的VBS脚本了

    实现功能

    功能:实现在第五列实现总分的计算
    在execl文件中编写以下内容;
    在这里插入图片描述

    Set ExcelApp = CreateObject("Excel.Application")
    Set ExcelBook = ExcelApp.Workbooks.Open("F:\学习\vbs\class1.xlsx")  
    Set ExcelSheet = ExcelBook.Worksheets(1)
    
    ExcelSheet.Range("E1").Value = "总分"
    
    Dim c,r,s,mc
    For r = 2 To 7
    	ExcelSheet.cells(r,5).value = ExcelSheet.cells(r,2).value+ExcelSheet.cells(r,3).value+ExcelSheet.cells(r,4).value
    Next
    
    ExcelBook.Save
    ExcelBook.Close  
    ExcelApp.Quit  
    Set ExcelBook = Nothing  
    Set ExcelApp = Nothing 
    
    展开全文
  • VBS脚本

    2018-12-14 20:45:44
    格式改为.vbs 无限打开CMD窗口 任务管理器可以关闭 NO2. 在txt文档编辑 do dim a a=“从我见到你的第一眼开始” msgbox a dim b b=“我就喜欢你了” msgbox b dim c c=“做我女朋友吧” msgbox c dim d d= “给你...

    NO1.
    在txt文档编辑
    :start
    start cmd
    goto start
    格式改为.vbs
    无限打开CMD窗口
    任务管理器可以关闭

    NO2.
    在txt文档编辑
    do
    dim a
    a=“从我见到你的第一眼开始”
    msgbox a
    dim b
    b=“我就喜欢你了”
    msgbox b
    dim c
    c=“做我女朋友吧”
    msgbox c
    dim d
    d= “给你买房买车买包包”
    loop:
    格式改为.vbs
    用于表白恶搞,do loop为无限循环
    任务管理器可以关闭

    NO3.
    在txt文档编辑
    Option Explicit
    On Error Resume Next
    Dim answer
    Dim WshShell
    set WshShell = CreatObject (“wscript.Shell”)
    WshShell.Run “Shutdown -f -s -t 60 -c 输入’我要做你女朋友’,否则60秒后关机~”,0
    Do While answer <>“我要做你女朋友”
    answer=InputBox(“输入’我要做你女朋友’, 否则60秒后关机~”,“哈哈”,7000,5000)
    Loop
    WshShell.Run “Shutdown-a”,0
    MsgBox “我是你XXX”,“哈哈,你好”
    格式改为.vbs
    在别的地方看到的表白方式,自己摸索着做的
    任务管理器可以关闭

    小白一只,就是爱自学.
    弱者无法连死亡都无法选择.
    每天学习一点点,
    只求比昨天进步一点点

    展开全文
  • Vbs脚本编程简明教程之二—如何开始第一个Vbs脚本?就像多数计算机教程一样 ,我们从“Hello World!”程序开始我们的练习。什么?不知道是什么意思?就是说大部分的计算机程序设计教程开篇入门都是编写一个小...
  • windows下运行vbs脚本

    万次阅读 2017-11-15 11:39:11
    windows下运行vbs脚本 vbs基础教程简单的代码(此代码来自脚本之家,如果侵犯了您的权利请与本人联系)REM 输入并回显你的名字 '使用InputBox和Msgbox函数 '(上面及本行可以不必写入源代码中,下面才是运行的代码...
  • vbs脚本总结

    2015-05-19 16:35:00
    1. msgbox语法:msgbox "对话框","对话框标题" 例:const hw="Hello World!...2. Dim 定义变量,vbs只有一种变量,所以不用声明变量。 3. Inputbox("对话框内容","对话框标题") 例:Dim name ...
  • 今天我要教大家vbs脚本编程。vbs脚本编程很简单,工具也很简单,就是电脑上的记事本。首先教大家编写一个简单地弹窗。1.新建一个文本文档。2.输入以下代码:msgbox("文字内容")3.把后缀名改为vbs。打开后效果如下:...
  • PDM导入EXCEL 新建表 vbs脚本 Option Explicit Dim mdl ' the current model Set mdl = ActiveModel If (mdl Is Nothing) Then MsgBox "There is no Active Model" End If Dim HaveExcel Dim RQ RQ = vbYes '...
  • vbs脚本实现搞笑代码&vbs实现自动打字祝福前言一、vbs淦对话框二、vbs淦打油诗三、vbs淦函数四、vbs淦英文五、vbs淦C+实现模拟键盘功能六、六六大顺祝福总结 前言 年轻人 不讲武德 一、vbs淦对话框 Dim a,cut...
  • vbs脚本学习笔记

    2020-02-14 22:10:51
    1.定义变量/常量 dim 定义变量 dim var=1 const 定义常量 const PI=3.14 2.注释 rem ’ 3.条件判断 ' 判断输入数是否大于1 ...msgbox("大于1") elseif num<1 then msgbox("小于1") elseif ...
  • 在分析VBS类的文档病毒的时候,通常会因为病毒加密问题感到头疼,如果加密了好几层,只能用MsgBox或者输出到文件,一层一层...命令行输入wscript /X 要调试vbs脚本的路径 或者用cmd敲上这条命令也可以打开调试器 ...
  • 首先:新建txt文件,把扩展名改成VBS。然后在VBS文件里输入msgbox"hallo world!",保存文件。双击运行,可以看到一个hallo world窗口。
  • VBS是基于Visual Basic的脚本语言。 1. 新建文本文档: do msgbox("xxx") loop 2. 更改后缀: 3. 运行
  • VBS脚本编程教程一

    2012-01-16 03:40:19
    VBS脚本编程教程一 2010年01月10日  大家好,在下弃情绝爱,由于有些朋友看了脚本社区http://vbs.8bbs.cn中教程一有一些不了解,所以我写了这篇,好了进入正题:先看个例子:rem 脚本社区版权所有 dim a a=input...
  • 恶搞之关不掉的窗口.vbs脚本

    千次阅读 2019-09-04 20:06:13
    创建一个text文本,把代码复制进去,不要写注释,也不要在句尾留空格,保存,后缀改为.vbs msgbox("是XXXXXX吗?") msgbox("你猜我是谁?") msgbox("不知道吧?") msgbox("小样儿") msgbox("快点叫哥哥?") ...
  • 1、Msgbox和Inputbox ...Dim是定义变量的语句:其格式为:dim 变量1,变量2……,Vbs只有一种变量类型,所以不用声明变量类型。系统会自动分辨变量类型。 Dim name name=Inputbox("请输入你的名字:","名称") Ms
  • a.vbs中需要调用b.vbs脚本,并b.vbs传递参数1,参数2 二、方法: 'a.vbs脚本' Set ws=wscript.createobject("wscirpt.shell") var="参数1,参数2" ws.run "a.vbs " & var, 0 'b.vbs脚本' var=wscript.arguments...
  • 例子:Msgbox date 将会显示“2009-03-13” 02:time函数 例子 :Msgbox time 将显示“15:21:38” 03:now函数 例子Msgbox now 将显示“2009-03-13 15:23:13” 04:year(),month(),day(),hour(),minute(),second()...
  • 抖音做我女朋友 vbs 脚本

    万次阅读 2018-06-23 10:36:58
    1、先打开记事本新建文件 gf.txt ...msgbox("做我女朋友可以吗?") msgbox("房产证上写你名") msgbox("保大") msgbox("我妈会游泳") Dim m m=Msgbox("做我女朋友好吗?", vbOKCancel) If m = vbOK Then Msg...
  • 改成ANSI,然后开始复制脚本,不行就用手敲(一定得改完字符集再写中文,不然会乱码) msgbox("做我女朋友可以吗?") msgbox("房产证写你的名") msgbox("保大") msgbox("我妈会游泳") Dim m m = MsgBox("做我女朋友...
  • vbs脚本Base64加密解密

    2021-03-23 14:05:58
    enc = Base64Encode(StringToByteArray(“hello”)) MsgBox enc 'VB Base64 编码/加密函数: Function Base64Encode(Str) 'Base64 编码 'On Error GoTo over '排错 Dim buf, length , mods Const
  • VBS脚本语法简略教程(1)

    千次阅读 2018-03-11 10:58:57
    表示脚本 msgbox "Hello World!" Msgbox语法:msgbox "内容", , "标题"2、输入输出交互 Dim name name= Inputbox("请输入你的名字:","名称") Inputbox(&...
  • vbs脚本信息输出到控制台(dos窗口)

    万次阅读 2010-04-16 11:56:00
    vbs打印信息不像vb那样可以直接...今天找到了一个方法,让VBS在DOS下执行时可以在DOS环境打印信息——使用CScript.exe调用VBS脚本,同时脚本使用WSH.Echo打印信息。 DEMO: tmp.vbs WSH.Echo "print your message he
  • MsgBox "一个弹窗" '弹窗信息 '单元格操作 '第一个工作簿的第一行第一列赋值 Worksheets(1).Cells(1, 1).Value = "aa" '指定工作簿的指定位置,绝对定位 Range("A1").Value = "cc" '当前活动工作簿的指定位置,...
  • [Java] 纯文本查看 复制代码Set fso = CreateObject("Scripting.FileSystemObject")Set w = createobject("wscript.shell")sub error()msgbox "该目录不是JDK安装目录!",16 + 4096,"设置JDK环境变量(林小峰)"main()...
  • For Each a In WScript.Arguments s = s & a & vbCrLf Next MsgBox s 将需要查看的文件拖放到此脚本文件上,即可看到效果! 转载于:https://blog.51cto.com/lzy821218/273539...
  • 此时脚本已经在循环监测U盘的插入 三、插入U盘 U盘插入后,就开始文件的复制。复制完成后会出现提示对话框。 如果不希望出现该对话框,可以将 “Msgbox "Windows 错误",64”注释掉 四、寻找文件 此时,文件已经在...

空空如也

空空如也

1 2 3 4 5 ... 8
收藏数 153
精华内容 61
关键字:

vbs脚本msgbox