VBS备忘录启动代码_vbs

一个实现VBS倒计时的代码  以下内容为程序代码: <script language="VBScript">        Dim oTime : oTime = 5        Function STime             document.all("oInput").value = "00:00:" & oTime             If oTime>0 Then                oTi

昨天那个病毒的加密确实很恐怖,我不是高手,写不出那么高级的加密.但是受病毒第一层加密的启发,进行简单的加密还是不难的.当然这种低级的加密只能拿来骗骗一些垃圾的杀毒软件.使用了msxml2.xmlhttp和adodb.stream对象的VBS脚本很容易被杀毒软件认为是病毒,不明真相的同学一看报毒自然就不敢运行了.简单加密以后应该可以绕过比较垃圾的杀毒软件. 下面是加密程序,原理很低级,读取源文件的所有代码并计算Asc值后写入,Execute用Chr还原后的代码. 复制代码 代码如下: On Err

复制代码 代码如下: Private Const BITS_TO_A_BYTE = 8 Private Const BYTES_TO_A_WORD = 4 Private Const BITS_TO_A_WORD = 32 Private m_lOnBits(30) Private m_l2Power(30) m_lOnBits(0) = CLng(1) m_lOnBits(1) = CLng(3) m_lOnBits(2) = CLng(7) m_lOnBits(3) = CLng(15) m

'网上看到的,适用与没有禁用shell.application的服务器    server.scripttimeout = 99999    If request("submit")<>"" Then       Call listfile(server.mappath("./"))        response.Write"处理完毕"   Else       response.Write"<f

文件操作 复制代码 代码如下: Set fso = Wscript.CreateObject("Scripting.FileSystemObject") '创建文件系统对象,用以处理驱动器.文件夹和文件 Set WshShell = Wscript.CreateObject("Wscript.Shell") '创建系统Shell对象,用以运行程序等等 if fso.fileexists("D:\刀剑Online\alreadyexist.txt"

复制代码 代码如下: Set objShell = CreateObject("WScript.shell") strCurrentDir = objShell.CurrentDirectory set fso = createobject("scripting.filesystemobject") set f=fso.getfolder(strCurrentDir) For Each i In f.files If LCase(right(i,4)) = &quo

CMD当前路径 复制代码 代码如下: test = createobject("Scripting.FileSystemObject").GetFolder(".").PathWscript.echo test 当前VBS路径 复制代码 代码如下: test = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.PathW

CMD当前路径 复制代码 代码如下: test = createobject("Scripting.FileSystemObject").GetFolder(".").PathWscript.echo test 当前VBS路径 复制代码 代码如下: test = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.PathW

一.vbe与vb VBE跟VBS差不多,都是VB脚本代码文件,但他们也有不同: VBS是明文代码,就是说可以直接使用记事本编辑: VBE则是编译后(加密)的VBS代码,使用记事本打开不能直接看到源代码.(有些例外) 加密工具有很多,其中常用的是 Microsoft Script Encoder(screnc.exe),此外还有许多. VBE格式在QQ传文件中往往不会被拦截,而VBS格式却会被拦截,这应该是程序设计者的一个失误. 因此,所以很多人没有进行加密而直接改扩展名为"VBE",依