.VBS后缀文件

news/2024/11/24 9:02:39/

 

 PHP交流群:294088839

Python交流群:652376983

vbs

 

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

 

恶作剧代码

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.EⅩE /c shutdown -r -t 60 -c ""叫你不说,知道厉害了吧!"" ",0 ,true

dim a

do while(a <> "我是猪")

a = inputbox ("说我是猪,就不关机,快撒,说 ""我是猪"" ","说不说","不说",8000,7000)

msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"

loop

msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd.EⅩE /c shutdown -a",0 ,true

msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,真过瘾"

 

技术QQ交流群:294088839

 

 


http://www.ppmy.cn/news/740609.html

相关文章

vbs 删除文件.

Dim oFSO,a,b,fs SET bWSCRIPT.CreateObject("WSCRIPT.SHELL") b.POPUP("确定要删除C盘1.txt文件&#xff1f;") On Error Resume Next Set oFSO CreateObject("Scripting.FileSystemObject") Set …

vbs复制自身到启动文件夹

dim fso set fsoCreateObject("scripting.FileSystemObject") set Wsh WScript.CreateObject("WScript.Shell") pathname Wsh.SpecialFolders("startup")"\" 获取启动文件夹 fso.GetFile(WScript.ScriptFullName).Copy(pathname&am…

VBS的加密跟解密

VBS加密: 复制以下代码&#xff0c;用记事本另存为&#xff0c;“VBS加密” 保存。 set fsocreateobject("scripting.filesystemobject") scfinputbox("请输入要加密的脚本文件名","VBS加密程序","*.vbs") set opfso.opentextfile(sc…

VBS下载文件

把以下代码存成.VBS&#xff0c;然后在命令行里调用。参数为&#xff1a;网址 本地文件 dim url dim file Set objArgs WScript.Arguments if objArgs.Count < 2 then msgbox("Invalid param count! should be: url pathfilename") Else url objAr…

整人的vbs文件

桌面创建一个text文件 msgbox("你是sb么")xmsgbox("你是sb么",VbOkCancel) if xVbOk then msgbox("你很机智") elseif xVbCancel then msgbox("再见") set ws createobject("wscript.shell") ws.run"cmd.exe /c …

使用vbs下载文件

说到使用vbs下载文件是不是想到了XMLHTTP呢,呵呵,以下是比较经典的代码: iLocal=LCase(Wscript.Arguments(1))iRemote=LCase(Wscript.Arguments(0))Set xPost=createObject("Microsoft.XMLHTTP")xPost.Open "GET",iRemote,0xPost.Send()set sGet=creat…

vbs查找文件中的内容

把文本文件处理为数组&#xff0c;每行为一个数组元素&#xff0c;然后在每个元素中查找关键词&#xff0c;vbs可以直接使用instr函数来查找&#xff0c;也可以使用正则表达式查找。找到后把那个数组元素复制出来就可以了。 第一种&#xff0c;使用instr 这种方式好像对文件格式…

VB6下如何获得硬盘序列号

硬盘序列号获得可以通过WMI获取&#xff0c;但是实际上在win7以上没问题&#xff0c;在winxp下就没法使用。因此可以通过API编程 来实现读取硬盘序列号&#xff0c;以下程序来源于网络&#xff0c;在winxp下可以正确获得&#xff0c;但在win7和win10下均无法获取&#xff1a; …