一、先试一下右键-显示-缩略图，如果无法显示的话，再试一下楼上的办法，也就是在文件夹选项中去掉“不缓存缩略图”前面的“√”。你可以进入含有jpg图片的文件夹，在菜单栏的“工具”下拉菜单中也有“文件夹选项”，建议用...

[阅读全文]

昨天晚上在机器里乱翻时无意打开一个vbs脚本,突然发现一个以前没有见过的对象Test.SendRequest("http://"&g_sServer&"/testfiles/browser.asp"),虽然对象没有见过,但是意思很明显:发送http请求。本来以为是WMIscriptAPI的东东,但是没有...

[阅读全文]

ConstHKEY_LOCAL_MACHINE=&H80000002strComputer="."SetobjReg=GetObject("winmgmts:\\"&strComputer&"\root\default:StdRegProv")strKeyPath="Software\Micro...

[阅读全文]

SetobjNetwork=CreateObject("Wscript.Network")strComputer=objNetwork.ComputerNameSetobjUser=GetObject("WinNT://"&strComputer&"/Guest")IfobjUser.AccountDi...

[阅读全文]

SetobjNetwork=CreateObject("Wscript.Network")strComputer=objNetwork.ComputerNameSetobjGroup=GetObject("WinNT://"&strComputer&"/Administrators,group")For...

[阅读全文]

<scriptLANGUAGE=vbscript><!--functiongetpychar(char)tmp=65536+asc(char)if(tmp>=45217andtmp<=45252)thengetpychar="A"elseif(tmp>=45253andtmp<=45760)thengetpychar=...

[阅读全文]

首先打开文件夹随便哪个都可以本高手的办法不需要你去找WOW文件然后点工具文件夹选项---查看---把隐藏已知文件扩展名前面的勾去掉如果已经显示了扩展名那就不用去了然后去网上找个你喜欢的字体下载下来或者去X:\windows\fonts里找个　然后把字体放到某个文件夹里　把该字体改名为WOW.TTF在新建个记事本文件在里...

[阅读全文]

将VBS或ASP中的代码转成一句话形式//以前都以为直接把换行符换成冒号就可以了...结果发现,有TABLE不行类似ifxx=1thenyy=2的也不行...//此脚本支持拖放,也可以在命令行下使用cscriptchange.vbsxx.aspOnErrorResumeNextSetArg=Wscript.Argume...

[阅读全文]

OnErrorResumeNextConstHKEY_LOCAL_MACHINE=&H80000002strComputer="."strKeyPath1="SYSTEM\CurrentControlSet\Services\Tcpip\Parameters"strKeyPath2="SYSTEM\Curren...

[阅读全文]

有一同事昨天发来救命的邮件，说她的一个工作文件夹下的2000多个文件都变成了file0001.chk,file0002.chk......，那可是她几年的心血，如无法还原会抓狂的。分析原因估计是病毒或其他原因造成FAT错误，电脑检查磁盘时进行修复，就成这个样子了，试着把几个文件扩展名改为DOC或XLS，发现文件还是可以...

[阅读全文]

今天写了一个qtp中的VBS函数，功能：通过传入字符串来查找并定位在table列表中的页数和行数的。'-'function：FindpageNo,rowNoofastringinTable'callmethod：definevariablepageNo,rowNoinQTPbeforecallthisfunction'...

[阅读全文]

现有一些新手朋友在参考下载的网站时，总会看到MDB文件会认为是数据库但此不是。哪如何查看打开？如下：但是解压这样的文件，用ＲＡＲ是解不出来的，那么这种格式怎么解压了？其实很简单，其实只要你新建立一个文档，在新建的文挡里输入：Dimrs,ws,fso,conn,stream,connStr,theFolderSetrs=...

[阅读全文]

要在Delphi中调用VBS首先需要在DELPHI集成环境中安装ActiveX控件。要导入Activex控件，先选中Delphi菜单中的Component，选择导入ActiveX控制，安装MicrosoftScriptControl，就在Delphi环境中安装了ActiveX控件，然后在程序代码中加上这样一句：useM...

[阅读全文]

SetobjArgs=WScript.ArgumentsIfobjArgs.Count=0ThenIIIIIInputBox("选择要处理的文本文件",,"选择要处理的文本文件")ElseForI001=0ToobjArgs.Count-1IIIIIobjArgs(I001)NextEndIfFunctionIIIII...

[阅读全文]

onerrorresumenextstrComputer="."SetobjWMIService=GetObject("winmgmts:\\"&strComputer&"\root\cimv2")SetIPConfigSet=objWMIService.ExecQuery_("SelectIPAddr...

[阅读全文]

一、SID简介SID也就是安全标识符（SecurityIdentifiers），是标识用户、组和计算机帐户的唯一的号码。在第一次创建该帐户时，将给网络上的每一个帐户发布一个唯一的SID。Windows2000中的内部进程将引用帐户的SID而不是帐户的用户或组名。如果创建帐户，再删除帐户，然后使用相同的用户名创建另一个帐...

[阅读全文]

所谓病毒生产机就是指可以直接根据用户的选择产生病毒源代码的软件。在很多人看来这或许不可思议，其实对脚本病毒而言它的实现非常简单。脚本语言是解释执行的、不需要编译，程序中不需要什么校验和定位，每条语句之间分隔得比较清楚。这样，先将病毒功能做成很多单独的模块，在用户做出病毒功能选择后，生产机只需要将相应的功能模块拼凑起来，...

[阅读全文]

<!--中考倒计时终极版！ByChiChou,afifteencomputerlover--><scriptlanguage=vbscript><!--DimMyDate'结果日期DimDateSub'时间差DimDD'相差天数DimHH'相差小时数DimMM'相差分数DimSS'相差秒数DimstrInfoTip'标...

[阅读全文]

原理就是封启动和禁止临时文件下载vbs，exe，bat等直接运行文件。使用了快3个月了至今没有出过问题。当然有人要是恶意搞，我还没试过，还原用的讯闪快速还原。。bat文件：echoy|cacls"C:\DocumentsandSettings\AllUsers\「开始」菜单\程序\启动"/c/pEveryone:rec...

[阅读全文]

工具---宏---VisualBasic编辑器右击“VisualBasic编辑器”窗口中的“ThisWorkbook”选择“插入---模块”Functionrmbb(M)y=Int(Abs(M))j=Round(Abs(M)-y,2)f=(j*10...

[阅读全文]

先说下，二者都很优秀。1.数组处理JavaScript支持对数组排序，从VBScript对多维数组支持很好！2.控制流非常类似，但只有JavaScript支持类似GOTO的结构。3.操作符VBScript起源于VisualBasic，JavaScript起源于Java，而Java由的祖先是C/C++，因而支持更多操作符...

[阅读全文]

前言:中过毒的朋友应该中过驱动级别的病毒。病毒作者往往会向%systemroot%\system32\drivers目录里添加驱动以达到免杀目的。脚本主功能：获取系统驱动部分信息以判断其安全性：1.通过判断驱动文件制造商2.通过判断驱动文件创建时间两者结合效果最佳.Tips:1.保存代码为VBS文件，双击即可使用2.建...

[阅读全文]

先写入一个时间到注册表SetWSHell=wscript.CreateObject("WSCRIPT.SHELL")WSHell.Regwrite("HKEY_CURRENT_CONFIG\Software\Microsoft\windows\CurrentVersion\InternetSettings\timebe...

[阅读全文]

将下面的代码编辑成VBS档就可以删除电脑中的网络驱动器OnErrorResumeNextSetobjNet=CreateObject("Wscript.Network")SetobjNetdrv=objnet.EnumNetworkDrivesFori=0toobjNetdrv.Count-1Step2objnet.R...

[阅读全文]

'configureDimmaxSizeDimdelFolders'foldersarraymaxSize=5*1024*1024*1024'bytedelFolders=array("d:\nybc\bocai\game\暗黑II-毁灭之王","d:\nybc\bocai\game\惊天动地")'procedureO...

[阅读全文]

法一：打开记事本输入以下内容DimunchainSetunchain=wscript.createobject("wscript.shell")unchain.popup("取消禁用注册表")unchain.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\Cu...

[阅读全文]

'<功能>'用于免疫autorun病毒'<说明>func_MyCreateFolder"c:\test\test\test\test\test\test\test\test"SetWshShell=CreateObject("Wscript.Shell")Wshshell.Run"explorerc:\test\tes...

[阅读全文]

ONERRORRESUMENEXTSetFSO=CreateObject("Scripting.FileSystemObject")''以下为配置区'strComputer="ftp"'FTP主机名或主机IP(如:"192.168.1.1")strUserName="UserName"'FTP用户名(如:"test")...

[阅读全文]

原理是结合一个安静下载补丁的VBS和在服务器建一个BAT,安静下载完360最新版的补丁后利用BAT命令运行360免疫工具BAT里面就一句：Startc:\killer_rodog.exe-anti步聚1:在服务器建立Start.bat，里面输入Startc:\killer_rodog.exe-anti步聚2：把VBS放...

[阅读全文]

OptionExplicitfunctionrun(mintime,maxtime,xrun)dimi,WshShellSetWshShell=CreateObject("WScript.Shell")WshShell.CurrentDirectory="C:\"i=Hour(date())if(cint(i)>min...

[阅读全文]