Win8 永久试用补丁 VBS脚本

保存为扩展名为VBS的文件,如win8.vbs,双击运行. 该脚本会申请UAC权限,无需自行使用管理员权限启动. If WScript.Arguments.length=0 Then Set objShell=CreateObject("Shell.Application") objShell.ShellExecute "wscript.exe", Chr(34) & _ WScript.ScriptFullName »


VBS 二进制填充文件

生成一个指定字节数的AutomaticallyGenerated.bin文件 Const adModeWrite=2 Const adTypeBinary=1 Dim stream,xmldom,node Set xmldom=CreateObject("Microsoft.XMLDOM") Set node=xmldom.CreateElement("binary") With node .DataType="bin. »



VBS MD5加密算法

无聊想写一个VBS的MD5加密算法,然后开始写代码… 3个小时后遇到一点小问题,上网查一下,结果发现早已有高人给出代码. 我觉得3个小时的人生浪费了… 以下便是高人的代码: Private Const BITS_TO_A_BYTE = 8 Private Const BYTES_TO_A_WORD = 4 Private Const BITS_TO_A_ »


VBS xmlhttp函数例子

炒冷饭,xmlhttp的几个简单函数 Function download(url) Dim xmlHttp Set xmlHttp = CreateObject("Microsoft.XMLHTTP") url = urlCheck(url) xmlHttp.open "get", url, False xmlHttp.send Do Loop Until xmlHttp. »


VB 跳出嵌套循环

VB是一门比较简单的语言,它既没有C语言的break和continue,也没有OOP形式的try,catch语句,所以我们跳出循环比较麻烦. 大致有如下2种方法可以解决: 方法1: 使用Exit For语句 c = False For a = 1 To 100 For b = 1 To 100 If a + b = 150 Then »



VB延迟代码

实际上用Sleep来延迟的话会导致程序无法响应,如果使用For+Sleep+DoEvents的组合会导致巨大的误差 于是便有了以下方法:GetTickCount+Do…Loop+DoEvents Private Declare Function GetTickCount Lib "kernel32" () As Long Private Sub Delay(ByVal ms As Long) Dim nowtime »