Java在c盘fld目录下的文件名_VBS脚本常用代码大全2011整理.docx

柔情只为你懂 2022-10-22 10:52 127阅读 0赞

PAGE

PAGE \# / 38

VBS脚本常用经典代码收集于 2011年7月2日21:13:37整理

在网上查找资料的时候发现好多经典的 vbs 代码，收集起来也为了以后学 习。

VBS播放音乐

Dimwmp

Setwmp=CreateObject("WMPlayer.OCX")

wmp.openState

wmp.URL二'想象之中.mp3"

DoUntilwmp.playState=1

WScript.Sleep1000

Loop

比较流行的VBS整人脚本(保存为 礼物.VBE”这样就可以通过QQ发送

了)Setshell二CreateObject("WScript.Shell")

shell.run"shutdown-s-t60-c 系统即将关闭 .",0

WhileInputBox("请输入答案"，”请回答")<>"123"'密码是123

MsgBox"答案在心中…",16+4096'4096是让窗口在最顶层

Wend

shell.run"shutdown-a",0

MsgBox"恭喜",64

修改桌面背景图片

Sphoto二"d:\\1.bmp"'输入你自己的BMP路径

Consthkcu=&h80001

Setwmi=GetObject("winmgmts:

stdregprov")wmi.getstringvaluehkcu,"ControlPanel\\Desktop","Wallpaper",Spathwmi. setstringvaluehkcu,"ControlPanel\\Desktop","TileWallpaper","0"wmi.setstringvaluehk cu,"ControlPanel\\Desktop","WallpaperStyle","2"wmi.setdwordvalue

hkcu,"Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced","Listvi ewShadow",1

Setwmi=Nothing

Setfso=CreateObject("scripting.filesystemobject")

Setfs=fso.Getfile(Sphoto)

backname=

fs.Name=fso.GetFileName(Spath)

fs.Copyfso.GetParentFolderName(Spath)&"\\",True

fs.Name=backname

Setfso=Nothing

Setws=CreateObject("wscript.shell")

ws.Run"gpupdate/force",vbhide

ws.Run"RunDll

32.exeUSER

32.DLL,UpdatePerUserSystemParameters"

Setws=Nothing

VBS获取系统安装路径C:

'WINDOWS 路径

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

SetWshShell=WScript.CreateObject("WScript.Shell")

strWinDir=WshShell.ExpandEnvironmentStrings("%WinDir%")

VBS获取C:

\\Program Files 路径

SetWshShell=WScript.CreateObject("WScript.Shell")

strPorDir=WshShell.ExpandEnvironmentStrings("%ProgramFiles%")

VBS获取C:

'Program Files'Com mon Files 路径

SetWshShell=WScript.CreateObject("WScript.Shell")

strCommDir=WshShell.ExpandEnvironmentStrings("%CommonProgramFiles%") 给桌面添加网址快捷方式

SetWshShell=WScript.CreateObject("Wscript.Shell")

strDesktop=WshShell.SpecialFolders("Desktop")

百

度.In k")oShellL in k.TargetPath二"http:

oShellLink.Description二百度主页”

给收藏夹添加网址

ConstADMINISTRATIVE\_TOOLS=6

SetobjShell=CreateObject("Shell.Application")

SetobjFolder=objShell.Namespace(ADMINISTRATIVE\_TO

发表评论取消回复

表情：

评论列表（有 0 条评论，127人围观）

还没有评论，来说两句吧...

相关阅读

相关 vbs整人小代码大全

事前准备：创建一个文件夹，后缀名为vbs，在里面编东西即可参考很多资料，如有不足请谅解 -------------------- cmd炫酷代码大全：[https:/

╰+攻爆jí腚メ/ 2023年03月04日 13:23/ 0 赞/ 19 阅读

相关 VB常用内部函数大全一览表（建议收藏）

> VB提供了大量的内部函数供用户在编程时调用。内部函数按其功能分为数学运算函数、字符串函数、转换函数、日期与时间函数、判断函数和格式输出函数等。文章目录算术

￡神魔★判官ぃ/ 2022年11月16日 15:25/ 0 赞/ 231 阅读

相关 Java在c盘fld目录下的文件名_VBS脚本常用代码大全2011整理.docx

PAGE PAGE \ / 38 VBS脚本常用经典代码收集于 2011年7月2日21:13:37整理在网上查找资料的时候发现好多经典的 vbs 代码，收集起来也为了以

柔情只为你懂/ 2022年10月22日 10:52/ 0 赞/ 128 阅读

相关 JavaScript 常用代码整理

![在这里插入图片描述][f6f240c9ad6644dab88cf161b4f2a5a2.gif_pic_center] --------------------

一时失言乱红尘/ 2022年09月14日 11:13/ 0 赞/ 211 阅读

相关收集整理的oracle常用命令大全

<table style="orphans:2; widows:2; border-collapse:collapse; width:698px; height:300px;

不念不忘少年蓝@/ 2022年07月15日 09:21/ 0 赞/ 206 阅读

相关 VBS脚本常用经典代码

[VBS脚本常用经典代码][VBS] 1、VBS获取系统安装路径 /\先定义这个变量是获取系统安装路径的，然后我们用“&strWinDir&”调用这个变量。\/ setW

谁借莪１个温暖的怀抱￠/ 2022年07月14日 00:38/ 0 赞/ 1700 阅读

相关 Java案例_输出某个盘下的所有文件名

Java案例\_输出某个盘下的所有文件名 1.案例要求 > （1）输出某个盘下的所有文件名 > > （2）利用函数的递归调用 2.案例分析

桃扇骨/ 2022年06月12日 03:13/ 0 赞/ 119 阅读

相关 XSS(跨站脚本攻击) - 常用代码大全

XSS(跨站脚本攻击) - 常用代码大全： 2020-03-05更新：增加42条xss代码 1'"()&%<acx><ScRiPt >prompt(9151

小咪咪/ 2022年05月16日 12:12/ 0 赞/ 216 阅读

相关常用网盘整理

网上整理了一些超能够用的网络硬盘，我还是比较喜欢不限制上传文件大小的，嘿嘿~~ 转载请注明：转载自[很实用博客网站][Link 1] \[ [http://www.hensh

约定不等于承诺〃/ 2021年12月20日 05:37/ 0 赞/ 385 阅读

相关 Javascript脚本常用代码

click() 对象.click() 使对象被点击 closed 对象.closed 对象窗口是否已关闭true/false clearTimeout(对象) 清除已设

不念不忘少年蓝@/ 2021年11月10日 01:58/ 0 赞/ 378 阅读