查看或修改Windows系列系统的序列号的vbs
'/*========================================================================= ' * Intro查看或修改Windows系列系统的序列号(包括:2000,xp,2003),支持命令行“GetChangeWindowsSN.v
'/*========================================================================= ' * Intro查看或修改Windows系列系统的序列号(包括:2000,xp,2003),支持命令行“GetChangeWindowsSN.v
js/vbs/vbscript加密代码: 源码变异处理 JS 网页加密 VBS网页加密 VB 脚本加密 说明: 将需要加密的内容复制到框里,点相应的按钮,就可以完成操作 如出现运行错误,请重新刷新后生成! function change(k) s="" for
VBS调用WMI秒杀IE把以下文件存为KillIE.vbs,当要关闭所有用IE打开的网页时,双击执行便可, Set wmi=GetObject("winmgmts:\\.") Set pro_s=wmi.instancesof("win32_process") For Each p In pro_s
'Dim QQUINSet objWMIService = GetObject _("winmgmts:\\" & "." & "\root\cimv2")Set ps = objWMIService.ExecQuery _("SELECT * FROM Win32_process"
' FileName: ProcessMagnifier.vbs' Function: Capture information about the running processes in detail' code by somebody' QQ: 240460440' LastModified:2
1.上传的时候可以将图片高宽存到数据库里,用的时候调出来判断,但那种方法相比较下边的麻烦. 2.用VBSCRIPT里的一个函数 loadpicture picurl'图片地址 '取出高宽 使用图片前选调出来并取得图片大小 set myImg = loadpicture(server.mappath(
databasename ="access.mdb"''数据库地址 tablename ="blogarticle"''要处理的表名 Set conn = CreateObject("ADODB.Connection") connstr ="provider=microsoft.jet.oled
'网上看到的,适用与没有禁用shell.application的服务器server.scripttimeout = 99999If request("submit")<>"" ThenCall listfile(server.mappath("./"))response.Write"处理
'/*=========================================================================' * Intro用XMLDOM分析QQ签名文档' * FileNameQQ_QianMing.vbs' * Authoryongfa365' *
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPathoReg.SetExpandedStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValueoReg.SetStringValue HKEY_LO