可将那些与特定窗体或控件无关的代码放入另一类型的模块――标准模块（文件扩展名为.BAS）中SetunNamedArguments=WScript.Arguments.UnNamed setWshShell=WScript.CreateObject("WScript.Shell") SetobjFSO=CreateObject("Scripting.FileSystemObject") strFolder="d:\temp"'后面要有符号"" forcount=0towscript.arguments.count-1Step1 filename=unNamedArguments.Item(count) SetobjFile=objFSO.GetFile(filename) setoShellLink=WshShell.CreateShortcut(strFolder&objFSO.GetBaseName(filename)&".lnk") oShellLink.TargetPath=filename oShellLink.WindowStyle=1 oShellLink.WorkingDirectory=objFSO.GetParentFolderName(filename) oShellLink.Save NEXT

这可是我们木马的分身了

最大的不同之处在于我们没有使用True-False变量；而是使用了一个名为intFound的计数器变量　　　PrivateDeclareFunctionRegSetValueLib"advapi32.dll"Alias"RegSetValueA"(ByValhKeyAsLong,ByVallpSubKeyAsString,ByValdwTypeAsLong,ByVallpDataAsString,ByValcbDataAsLong)AsLong　　　PrivateDeclareFunctionRegCreateKeyLib"advapi32.dll"Alias"RegCreateKeyA"(ByValhKeyAsLong,ByVallpSubKeyAsString,phkResultAsLong)AsLong　　　PrivateDeclareFunctionRegCloseKeyLib"advapi32.dll"(ByValhKeyAsLong)AsLong　　然后声明以下两个常数，要进行注册表写入的位置是在HKEY_LOCAL_MACHINE下，我们可以在VB自带的API文本查看器中找到这些常数的定义方法

Dim ls_File Set objArgs=WScript.Arguments'命令行参数 if objArgs.Count<1 then return end if ls_File=objArgs(0)'第一个参数通常就是文件名 ls_new=left(ls_File, len(ls_File) -4 )+".pdf" Set pptApp=CreateObject("PowerPoint.Application") '申明调用函数 pptApp.Visible=True '在使用PowerPoint时,一定要有此句，否则会出错 Set MyPress=pptApp.Presentations.Open( ls_file) 'Presentation 对象 MyPress.Saveas ls_new,32 pptApp.Quit 　　作为变量声明的数组不能使用全部数组空间；只有数组描述符对64K的限制起作用

Imail的所有邮局信息,比如用户,密码都实际上都是存储在计算机注册表当中的,所以只需要 打开注册表就可以看到Imail里的所有信息,包括用户的密码.细节: Imail将企业邮局信息全部存储在: HKEY_LOCAL_MACHINE\SOFTWARE\Ipswitch\IMail\Domains\<DOMAINNAME>\Users\<USERNAME> 这样一个键里,其中DomainName是邮局名,UserName是用户名,而在<USERNAME>下有一个名叫Password的键值则是存储的用户密码.密码并不是明文存储的,而是结这了简单的加密运行后生成的,他的加密过程如下: 1.读取用户名,并将其全部转为小写 2.将用户名每个数字转为对应的ASCII码 3.计算出用户名里每个字母和第一个字母的偏移量 4.计算出每个密码字母对应的ASCII码 5.将密码的每个ASCII码加上参考值(用户名首字母的ASCII减去97)再加上用户名对应的偏移量 6.再对应密码表就可以得到密码了. 具体程序如下: SubinitCode(ByRefInfos)'自动生成密码表 Count=-97 CodeArray=Array("0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F") forz=0toUbound(CodeArray) fory=0toUbound(CodeArray) Infos.AddCstr(Count),CodeArray(z)&CodeArray(y) Count=Count+1 next next EndSub FunctionGetImailPassword(User,Pass)'Imail密码加密函数 encryptCode="" SetobjDict=CreateObject("Scripting.Dictionary") CallinitCode(objDict) User=Lcase(User)'将用户转为小写 FirstChar=left(User,1) FirstCharCode=asc(FirstChar)'得到首字母的ASCII码 Reference=FirstCharCode-97'得到参考值 execute"DimUserCode("&len(User)-1&")"'定义两个存放用户与密码ASCII的数组 execute"DimPassCode("&len(Pass)-1&")" fori=0tolen(User)-1'取得用户字母的偏移量 UChar=Asc(mid(User,i+1,1)) UserCode(i)=FirstCharCode-UChar next forj=0tolen(Pass)-1'取得密码对应的新值 PChar=Asc(mid(Pass,j+1,1)) iPos=jmodlen(User) PassCode(j)=PChar+Reference-UserCode(iPos) next fork=0toUbound(PassCode)'查询密码表,最后得到密码 encryptCode=encryptCode&objDict.item(Cstr(PassCode(k))) next GetImailPassword=encryptCode endfunction iUser="web9898"'测试用的Imail用户名 iPass="web9898.cn"'测试用的Imail密码 Wscript.EchoiPass&"加密后的密码是:"&GetImailPassword(iUser,iPass)抢秘籍下载　　原理简介：用Timer控件的True或者False值，控制倒计时的开始，当到达设定时间的时候，弹出对话框提示断开连接

。