精华内容
下载资源
问答
  • VBS 调用程序 call

    2010-04-06 18:53:49
    VBS 调用程序VBS 调用程序VBS 调用程序VBS 调用程序VBS 调用程序
  • [转载]VBS 运行外部程序 VBS 调用外部程序 Vbs只提供了编程的一个基本框架,用户可以使用Vbs来定义变量、过程和函数,vbs也提供了一些内部函数和对象,但是Vbs没有提供任何命令来访问Windows系统内部的部件,但是...

    [转载]VBS 运行外部程序 VBS 调用外部程序

    Vbs只提供了编程的一个基本框架,用户可以使用Vbs来定义变量、过程和函数,vbs也提供了一些内部函数和对象,但是Vbs没有提供任何命令来访问Windows系统内部的部件,但是值得庆幸的是,Vbs虽然不能自己完成这些任务,但是它提供了一条极为方便、功能也相当强的命令——CreateObject,这条命令可以访问windows系统内安装的所有com对象,并且可以调用这些部件中存放的命令。

    于是问题解决了,比如说,[作者:临汾市外事旅游局薛靖澜,转载请注明出处]我手头有1000个小文本,我首先要对每一个文本的语法进行查错和修改,然后按照预先定义好的规则对这些文本进行排序,最后将这些文本合并成为一个文件。正常情况下,我们需要把打开第一个小文本,然后把它复制到WORD中,然后利用里面的除错功能进行除错和修改,然后再导入到EXCEL中进行排序,将这个过程重复1000遍,然后再将所有得到的文本复制到一个大文本中。实在是太枯燥、工作量太大了。有了Vbs和CreateObject,问题得到解决,我只需要找到相应的模块,调用相应的功能就可以了,作为脚本,把一个枯燥的过程重复1000次,本就是它的拿手好戏。

    好了,我们走入正题,从最简单的——只启动一个程序开始。

    WSH也就是用来解析Vbs的宿主,本身包含了几个个常用对象:

    1、Scripting.FileSystemObject —> 提供一整套文件系统操作函数

    2、Scripting.Dictionary —> 用来返回存放键值对的字典对象

    3、Wscript.Shell —> 提供一套读取系统信息的函数,如读写注册表、查找指定文件的路径、读取DOS环境变量,读取链接中的设置

    4、Wscript.NetWork —> 提供网络连接和远程打印机管理的函数。(其中,所有Scripting对象都存放在SCRRUN.DLL文件中,所有的Wscript对象都存放在WSHOM.ocx文件中。)

    现在我们需要的是第三个对象,好了,让我们先连接一下对象看看,在记事本的编辑窗口中输入:

    Set objShell = CreateObject(“Wscript.Shell”)

    objShell.Run “notepad”

    同样,保存执行。那么看到了一个什么样的结果呢?在桌面上又打开了一个记事本。

    说明之一:Set是Vbs指令,凡是将一对象引用赋给变量,就需要使用set关键字。那么什么是对象引用呢?凡是字符串、数值、布尔值之外的变量都是对象引用。Objshell是变量名,可以随意修改。

    说明之二:反是正确引用的对象,其本身内置有函数和变量,其引用方法为在变量后加“. ”,后紧跟其实现功能的函数就可以了。Objshell.run 的意思就是调用Wscript.shell中的运行外部程序的函数——run,notepad是记事本程序的文件名。当然你也可以改成“calc”,这是计算器的文件名,winword是word的文件名,等等吧,所有可执行文件的文件名都可以。但是需要注意的是,如果你要执行的可执行文件存放的地方不是程序安装的常用路径,一般情况下,需要提供合法的路径名,但是run在运行解析时,遇到空格会停止,解决的方法是使用双引号,[作者:临汾市外事旅游局薛靖澜,转载请注明出处]例如:在我的机器上运行qq,代码为:

    objshell.run “”“C:\Program Files\QQ2006\QQ.exe”"" ‘注:三个引号

    好, 我们再进一步,启动两个程序会如何呢?

    输入如下代码:

    Set objShell = CreateObject(“Wscript.Shell”)

    objShell.Run “notepad”

    objShell.Run “calc”

    执行会如何呢?两个程序基本上同时启动了。如果我们需要先启动notepad再启动calc将如何呢?很简单在需要顺序执行的代码后加 , , True参数就可以了。

    好了输入代码:

    Set objShell = CreateObject(“Wscript.Shell”)

    objShell.Run “notepad” ,true

    objShell.Run “calc”

    看看执行的结果怎么样吧!

    总结:run函数有三个参数,第一个参数是你要执行的程序的路径,第二个程序是窗口的形式,0是在后台运行;1表示正常运行;2表示激活程序并且显示为最小化;3表示激活程序并且显示为最大化;一共有10个这样的参数我只列出了4个最常用的。 第三个参数是表示这个脚本是等待还是继续执行,如果设为了true,脚本就会等待调用的程序退出后再向后执行。
    其实,run做为函数,前面还有一个接受返回值的变量,一般来说如果返回为0,表示成功执行,如果不为0,则这个返回值就是错误代码,可以通过这个代码找出相应的错误。OC]

    展开全文
  • WinCC是什么并不重要,重要的是这篇文章提供了VBS调用Windows API的一种思路——EXCEL VBA,一种传说比VB还要VB的语言。但是那篇文章中的例子都是使用已经写好的EXCEL VBA程序,即首先得存在一个EXCEL文件。我...

    那天无意中搜索到一篇《WinCC VBS利用EXCEL调用Windows API函数》的文章,不知道WinCC是什么,Google了一下好像跟西门子自动化有关。WinCC是什么并不重要,重要的是这篇文章提供了VBS调用Windows API的一种思路——EXCEL VBA,一种传说比VB还要VB的语言。

    但是那篇文章中的例子都是使用已经写好的EXCEL VBA程序,即首先得存在一个EXCEL文件。我就想,能不能在VBS中通过excel.application对象创建一个包含VBA代码的EXCEL文档然后再调用它呢?Google来Google去,终于在微软帮助和支持中找到了方法。

    结合两篇文章(请先阅读这两篇文章),写了一个示例程序,效果是移动鼠标至桌面左上角。如果你的EXCEL不是太盗版,双击这个VBS后应该可以看到效果。

    Dim WshShell

    set WshShell = CreateObject("wscript.Shell")

    WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Security\AccessVBOM",1,"REG_DWORD"

    WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Excel\Security\AccessVBOM",1,"REG_DWORD"

    WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Excel\Security\AccessVBOM",1,"REG_DWORD"

    Dim oExcel, oBook, oModule

    Set oExcel = CreateObject("excel.application")

    Set oBook = oExcel.Workbooks.Add

    Set oModule = obook.VBProject.VBComponents.Add(1)

    strCode = _

    "Private Declare Function SetCursorPos Lib ""user32"" (ByVal x As Long, ByVal y As Long) As Long" & vbCr & _

    "Sub MyMacro(x as Long, y as Long)" & vbCr & _

    "SetCursorPos x, y" & vbCr & _

    "End Sub"

    oModule.CodeModule.AddFromString strCode

    oExcel.Run "MyMacro",0,0

    oExcel.DisplayAlerts = False

    oBook.Close

    oExcel.Quit

    前面3-5行的修改注册表是为了让VBS能够完全控制EXCEL,strCode即为写入EXCEL中的VBA代码,至于怎样在VBA中调用Windows API不属于本文的讨论范围,请自己查阅资料。使用oExcel.Run "MyMacro",0,0调用我们写入的VBA代码。

    原文:http://demon.tw/programming/vbs-excel-invoke-windows-api.html

    展开全文
  • ‘==========================================================================‘‘ VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.0‘‘ NAME:‘‘ AUTHOR: Microsoft , Microsoft...

    ‘==========================================================================

    ‘ VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.0

    ‘ NAME:

    ‘ AUTHOR: Microsoft , Microsoft

    ‘ DATE : 2014/8/10

    ‘ COMMENT:

    ‘===================定义变量,注册API对象==================================

    Dim UserWrap,hWnd

    Set UserWrap = CreateObject("DynamicWrapper")

    Set ws=WScript.CreateObject("wscript.shell")

    WScript.Sleep 500

    ws.Run "calc",0

    WScript.Sleep 500

    ‘Declare Function ShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

    UserWrap.Register "USER32.DLL", "ShowWindow", "I=hl", "f=s", "R=l"

    ‘Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

    UserWrap.Register "USER32.DLL", "FindWindow", "I=ss", "f=s", "R=l"

    ‘Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

    UserWrap.Register "USER32.DLL", "SetWindowPos", "I=Hllllll", "f=s", "R=l"

    ‘Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)

    UserWrap.Register "USER32.DLL", "PostMessage", "I=hlls", "f=s", "R=l"

    ‘Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

    UserWrap.Register "USER32.DLL", "SetWindowText", "I=Hs", "f=s", "R=l"

    ‘Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

    UserWrap.Register "USER32.DLL", "FindWindowEx", "I=llss", "f=s", "R=l"

    ‘Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

    UserWrap.Register "USER32.DLL", "SetCursorPos", "I=ll", "f=s", "R=l"

    ‘===================查找控件或者窗体句柄===============================

    hWnd = UserWrap.FindWindow(vbNullString,"计算器")

    ‘hWnd = UserWrap.FindWindow("kugou_ui",vbNullString)

    hWnd1 = UserWrap.FindWindowEx(hWnd,0,vbNullString,Edit)

    ‘UserWrap.ShowWindow hWnd,SW_HIDE

    ‘UserWrap.SetWindowText hWnd,"hello world"

    ‘ MsgBox hWnd

    ‘ MsgBox hWnd1

    ‘UserWrap.SetWindowPos hWnd, -1, 0, 0, 0, 0, 3

    ‘MsgBox "将鼠标移到左上角"

    ‘UserWrap.SetCursorPos 0,0

    ‘=================定义系统常量===========================

    Private Const WM_KEYDOWN = &H100

    Private Const wm_keyup= &H101

    Private Const WM_CHAR = &H102

    Public Const WM_SYSKEYDOWN = &H104

    Public Const WM_SYSKEYUP = &H105

    ‘=================发送F1按键=====================

    UserWrap.PostMessage hWnd, WM_KEYDOWN, 112, 0

    ‘=================发送1002========================

    UserWrap.PostMessage hWnd,WM_KEYDOWN ,97,0

    UserWrap.PostMessage hWnd,WM_KEYDOWN ,96,0

    UserWrap.PostMessage hWnd,WM_KEYDOWN ,96,0

    UserWrap.PostMessage hWnd,WM_KEYDOWN ,98,0

    展开全文
  • VBS调用Windows API函数

    2017-01-28 21:55:00
    Demon's Blog»程序设计»VBS调用Windows API函数 « 用VBS修改Windows用户密码 在VB中创建和使用VBS的内置WScript对象? » VBS调用Windows API函数 标签:Excel,Excel.Application,VBS,V...

    Demon's Blog

    忘记了,喜欢一个人的感觉

    VBS调用Windows API函数

    标签: ExcelExcel.ApplicationVBSVBScriptWindows API

    那天无意中搜索到一篇《WinCC VBS利用EXCEL调用Windows API函数》的文章,不知道WinCC是什么,Google了一下好像跟西门子自动化有关。WinCC是什么并不重要,重要的是这篇文章提供了VBS调用Windows API的一种思路——EXCEL VBA,一种传说比VB还要VB的语言。

    但是那篇文章中的例子都是使用已经写好的EXCEL VBA程序,即首先得存在一个EXCEL文件。我就想,能不能在VBS中通过excel.application对象创建一个包含VBA代码的EXCEL文档然后再调用它呢?Google来Google去,终于在微软帮助和支持中找到了方法。

    结合两篇文章(请先阅读这两篇文章),写了一个示例程序,效果是移动鼠标至桌面左上角。如果你的EXCEL不是太盗版,双击这个VBS后应该可以看到效果。

    Dim WshShell
    set WshShell = CreateObject("wscript.Shell")
    WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Security\AccessVBOM",1,"REG_DWORD"
    WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Excel\Security\AccessVBOM",1,"REG_DWORD"
    WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Excel\Security\AccessVBOM",1,"REG_DWORD"
    Dim oExcel, oBook, oModule
    Set oExcel = CreateObject("excel.application")
    Set oBook = oExcel.Workbooks.Add
    Set oModule = obook.VBProject.VBComponents.Add(1)
    strCode = _
    "Private Declare Function SetCursorPos Lib ""user32"" (ByVal x As Long, ByVal y As Long) As Long" & vbCr & _
    "Sub MyMacro(x as Long, y as Long)" & vbCr & _
    "SetCursorPos x, y" & vbCr & _
    "End Sub"
    oModule.CodeModule.AddFromString strCode
    oExcel.Run "MyMacro",0,0
    oExcel.DisplayAlerts = False
    oBook.Close
    oExcel.Quit

    前面3-5行的修改注册表是为了让VBS能够完全控制EXCEL,strCode即为写入EXCEL中的VBA代码,至于怎样在VBA中调用Windows API不属于本文的讨论范围,请自己查阅资料。使用oExcel.Run "MyMacro",0,0调用我们写入的VBA代码。

    随机文章:

    1. 硬盘整数分区FAT32/NTFS方法
    2. 会Python的人,你惹不起
    3. 用VBS实现凯撒密码算法
    4. 用VBS解析JSON格式数据之VbsJson类
    5. 一个VBS恶作剧程序的解密

    转载于:https://www.cnblogs.com/developer-ios/p/6354549.html

    展开全文
  • vbs调用外部程序 WSH也就是用来解析Vbs的宿主,本身包含了几个个常用对象: 1、Scripting.FileSystemObject —> 提供一整套文件系统操作函数 2、Scripting.Dictionary —> 用来返回存放键值对的字典对象 3、...
  • VC++中调用VBS程序

    2019-10-01 13:27:10
    没有过多的理论, 但有些内容是必要的. 在 C++ 中执行一段 Script 的方法相当的多, 但你需要其返回值, 这可能需要使用 MS 提供的 MSScript.ocx (在 C++ 中引用该 ActiveX Object). 先来个例子, 假定一段 VBScript 的...
  • 结合两篇文章(请先阅读这两篇文章),写了一个示例程序,效果是移动鼠标至桌面左上角。
  • 如果你想用递归搜索我也没办法。下面的程序搜索电脑上所有的MP3文件。
  • 软件安装无管理员权限的user账户的PC客户端只能使用第三方工具,但又担心不安全,本工具是系统自带vbs支持的,简单代码来实现以vbs文件调用runas命令运行需要管理用户授权的程序或批处理文件,并自动输入密码,真正...
  • 软件安装无管理员权限的user账户的PC客户端只能使用第三方工具,但又担心不安全,本工具是系统自带vbs支持的,简单代码来实现以vbs文件调用runas命令运行需要管理用户授权的程序或批处理文件,并自动输入密码,真正...
  • 经过折腾发现Qt的QProcess是调用不了.vbs脚本文件的。但是是可以调用.exe可执行文件的,于是想到另外一种方法,看是否能够通过.bat文件去间接调用.vbs文件。结果发现QProcess是能够调用.bat文件的,于是我编辑了一下...
  • 程序编写后从通达信调用就比较简单了,将编译无误的DLL从DEBUG目录复制到通达信T0002目录下的DLLS目录里。然后在公式管理器中通过DLL函数按钮进行绑定,如果绑定失败,可以直接在DLLS目录的配置文件DLLS这个文本文件...
  • Microsoft Agent是微软公司发布的一项代理软件开发技术,我们知道,在Office帮助系统中有一种叫作Office助手的代理软件,但其只允许Office各个组件调用,Agent动画人物可由任何Windows程序调用; Agent支持文字...
  • MFC 程序调用 vbs 脚本文件

    千次阅读 2012-08-13 10:02:30
    MFC 程序调用 vbs 脚本文件: SHELLEXECUTEINFO shei; shei.cbSize = sizeof(shei); shei.fMask = SEE_MASK_INVOKEIDLIST; shei.lpFile = _T("001.vbs"); shei.lpVerb = _T("open"); ShellExecute(NULL,shei....
  • vbs调用winsock组件进行聊天 在局域网测试能运行 但是好像会影响其他程序通信 不知是不是偶然情况 用时注意一下
  • 使用Advanced Installer 打包安装程序,安装程序需要使用VBS调用安装程序中的一个文件执行操作,这个VBS和执行文件都在安装程序中,请问怎么能成功调用这个VBS?
  • vbs实现的调用系统命令执行的函数,可以根据用户选择运行指定的程序
  • qtp调用vbs文件 打开应用程序

    千次阅读 2013-08-07 16:26:29
    QTP提供了很多自动启动应用程序的办法,方法如下:  1)SystemUtil.Run 允许启动新的进程  格式:SystemUtil.Run file, [params], [dir], [op], [mode]  下面代码利用SystemUtil对象如何启动进程。  ...

空空如也

空空如也

1 2 3 4 5 ... 15
收藏数 287
精华内容 114
关键字:

vbs调用程序