vbs 中调用shell.application 简单函数_vbs

Set os=CreateObject("wscript.shell")
Set os0=CreateObject("shell.application")
Do 
input1=InputBox(" 请选择："+chr(13)+chr(13)+ _
        "1. 全部窗口最小化"+chr(13)+ _ 
        "2. 窗口状态复原"+chr(13)+ _ 
        "3. 窗口均匀平铺"+chr(13)+ _
        "4. 窗口纵向平铺"+chr(13)+ _
        "5. 窗口重叠展开" +Chr(13)+ _
        "6. 资源管理器"+chr(13)+ _ 
        "7. 设置系统时间" +Chr(13) + _
        "8. 刷新系统菜单" +Chr(13)+ _
        "9. 手动设置开始菜单"+Chr(13)+ _
        "10. 搜索文件"+Chr(13)+ _
        "11. 搜索计算机"+Chr(13)+ _
        "12. 运行"+Chr(13)+ _ 
        "13. 帮助"+Chr(13)+ _
        "14. 打开文件夹"+Chr(13)+ _
        "15. 挂起系统"+Chr(13)+ _
        "16. 关闭系统" +Chr(13)+ _
        "","vbs shell32 功能调用")
Select Case input1
Case 1
     os0.MinimizeAll
Case 2
     os0.UndoMinimizeALL
Case 3
     os0.TileHorizontally
Case 4
     os0.TileVertically
Case 5
     os0.CascadeWindows
Case 6
     p1=os.SpecialFolders("desktop")
     os0.Explore(p1)
Case 7
     os0.SetTime
Case 8
     os0.RefreshMenu
Case 9
     os0.TrayProperties
Case 10
     os0.FindFiles
Case 11
     os0.FindComputer
Case 12
     os0.FileRun
Case 13
     os0.Help
Case 14
     Set path1=os0.BrowseForFolder(0,"选择要打开的文件夹:",0)
     If path1 Is Nothing Then 
     Else
      os0.Open(path1.self.path)
     End If
Case 15
     os0.Suspend
Case 16 
     os0.ShutdownWindows
Case ""
     Exit Do
Case Else 
     os.Popup "选择错误",2,"错误",64+0
End Select
loop

时间： 2024-09-20 02:02:45

vbs 中调用shell.application 简单函数_vbs的相关文章

windows-关于VBS中调用MSWINsock.Winsock

问题描述 关于VBS中调用MSWINsock.Winsock 目前在编写一个通过TCP协议给server发送特定消息的小程序. 发送代码如下: msglog=vbslogFile.ReadLine dim sock '赋值sock变量为WINSOCK的对象 set sock=Wscript.createobject("MSWINsock.Winsock") '设置SOCK的连接方式为 TCP 'WINSOCK的Protocol属性中 0 表示TCP,1 表示 UDP sock.Prot

shell脚本-Android中调用shell命令；

问题描述 Android中调用shell命令: public static int execCommand(String command) throws IOException { return execCommand(new String[] { "sh","-c", command }); } /** * Execute shell command * @param command Shell command array * @return Result * @

解析如何在C语言中调用shell命令的实现方法_C 语言

 1.system(执行shell 命令)相关函数 fork,execve,waitpid,popen表头文件 #include<stdlib.h>定义函数 int system(const char * string);函数说明 system()会调用fork()产生子进程,由子进程来调用/bin/sh-cstring来执行参数string字符串所代表的命令,此命令执行完后随即返回原调用的进程.在调用system()期间SIGCHLD 信号会被暂时搁置,SIGINT和SIGQUIT 信号则会

解析如何在C语言中调用shell命令的实现方法【转】

本文转自:http://www.jb51.net/article/37404.htm 1.system(执行shell 命令)相关函数 fork,execve,waitpid,popen表头文件 #include<stdlib.h>定义函数 int system(const char * string);函数说明 system()会调用fork()产生子进程,由子进程来调用/bin/sh-cstring来执行参数string字符串所代表的命令,此命令执行完后随即返回原调用的进程.在调用syst

VBS中SendKeys的基本应用_vbs

ps:不知道有人还记得这个攻击qq群的代码?就是利用这个所写的!SendKeys 模拟键盘操作,将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行,  其使用格式为:object.SendKeys string  "object":表示WshShell对象  "string":表示要发送的按键指令字符串,需要放在英文双引号中.  1.基本键  一般来说,要发送的按键指令都可以直接用该按键字符本身来表示,例如要发送字母"x",使用&

vbs中的LoadPicture函数示例_vbs

示例: LoadPicture函数 选择图片 [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行] 不过这个函数有个漏洞,可以探测电脑上存在的文件名.2004年的漏洞,微软现在也没补,示例: [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]

VBS中CreateObject和WScript.CreateObject的区别介绍_vbs

CreateObject和WScript.CreateObject的区别一: CreateObject是VBS的内置函数,属于语言的一部分:而WScript.CreateObject是Windows脚本宿主(wscript.exe和cscript.exe)提供的WScript对象的方法.类似于批处理中内部命令和外部命令的关系.在VBS中,CreateObject总是可用的,而WScript.CreateObject只有在宿主为wscript.exe和cscript.exe的情况下才可以使用,在W

Stream、WshShell、WshUrlShortcut对象及Shell.Application的参数与使用_vbs

Kafree收集整理 来源:论坛转载无法确定出处,如有版权问题请与我们联系 1.Stream对象 组件:"Adodb.Stream"  有下列方法:  Cancel 方法   使用方法如下   Object.Cancel   说明:取消执行挂起的异步 Execute 或 Open 方法的调用.  Close 方法   使用方法如下   Object.Close   :关闭对像  CopyTo 方法   使用方法如下   Object.CopyTo(destStream,[CharNum

Shell.Application执行命令的五种方法小结_vbs

当初老马写这个版本时,我测试过简繁两个2003版本的,当是是好用的.我猜测很可能与2003打了ms06014补丁有关.kyo在冰点论坛提出了解决方法,我今天下午研究了一下这个组件,发现它有5种方法可以执行命令.以下是vbs版本(asp版不提供了,如何利用asp版本在2003的webshell中运行命令,自己解决吧:-): 复制代码 代码如下: Set objShellApp = CreateObject("Shell.Application") Set objFolder = objS