Auto Click YES when Outlooks Security Guard opens prompt dialog.

Category:

Miscellaneous

Type:

Applications

Difficulty:

Advanced

Author:

Anonymous

Version Compatibility: Visual Basic 6, Visual Basic 5

More information:

program that sits in the taskbar and clicks the Yes button on behalf of you, when Outlook's Security Guard opens prompt dialog saying that a program is trying to send an email with Outlook or access its address book. You can suspend/resume it by double-clicking its taskbar icon. Developers can automate its behavior by sending special messages. ClickYes works with: Outlook 2000 SP1+SR1 Outlook 2000 SP2 Outlook 2002 Outlook 2003

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
Option Explicit '============================================================================= ' ByPassMSOutlook ' Written by Mohamad Rawey Chek Ani, Perlis, Malaysia ' mrawey@yahoo.com.my ' If you use this application then please mention me in your credits ' Thanks and enjoy ' Please also vote for me :-) 'program that sits in the taskbar and clicks the Yes button on 'behalf of you, when Outlook's Security Guard opens prompt dialog 'saying that a program is trying to send an email with Outlook or 'access its address book. You can suspend/resume it by double-clicking 'its taskbar icon. Developers can automate its behavior by sending special 'messages. 'This had been tested for ' Outlook 2000 SP1+SR1 ' Outlook 2000 SP2 ' Outlook 2002 ' Outlook 2003 Declare Function FindWindow Lib "user32" _ Alias "FindWindowA" (ByVal lpClassName As Any, _ ByVal lpWindowName As Any) As Long Declare Function SendMessage Lib "user32" _ Alias "SendMessageA" (ByVal hwnd As Long, _ ByVal wMsg As Long, ByVal wParam As Long, _ lParam As Any) As Long 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 Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long Declare Function IsWindowEnabled Lib "user32" _ (ByVal hwnd As Long) As Long Declare Function EnableWindow Lib "user32" _ (ByVal hwnd As Long, ByVal fEnable As Long) As Long Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, _ ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Declare Function EnumChildWindows Lib "user32" _ (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, _ ByVal lParam As Long) As Long Declare Function GetWindow Lib "user32" _ (ByVal hwnd As Long, ByVal wCmd As Long) As Long Declare Function SefocusAPI Lib "user32" Alias "SetFocus" _ (ByVal hwnd As Long) As Long Public Const KEYEVENTF_EXTENDEDKEY = &H1 Public Const KEYEVENTF_KEYUP = &H2 Public Const VK_ENTER = &HD Public Const VK_TAB = &H9 Public Const GW_HWNDNEXT = 2 Public Const GW_CHILD = 5 Public Const WM_GETTEXT = &HD

Code:

Option Explicit
Private Sub SomeProc()
    Dim wnd&, Aimwindow&, wnd_chld As Long
    Dim uClickYes As Long
    Dim Res As Long
    Dim wasenabled As Long
    Dim a As String, j As Long
    
    DoEvents
    ' is there dialog box appear yet !
    Let wnd = FindWindow(vbNullString, "Microsoft Outlook")
    If (wnd = 0) Then Exit Sub
        Let wnd_chld = GetWindow(wnd, GW_CHILD)
            If (wnd_chld = 0) Then Exit Sub
    
        ' is dialog box enable yet
                wasenabled = IsWindowEnabled(wnd_chld)
                    If wasenabled = 0 Then Exit Sub
                            Do While wnd_chld
                                DoEvents
                                a = Space$(128)
                                ' get child box
                                j = SendMessage(wnd_chld, WM_GETTEXT, 100, ByVal a)
                                If (Len(Trim(a)) <> 0) Then
                                    a = Left(a, InStr(a, Chr$(0)) - 1)
                                    If (UCase(a) = "YES") Then
                                        ' is button YES enable yet
                                        wasenabled = IsWindowEnabled(wnd_chld)
                                        If wasenabled <> 0 Then
                                               Beep
                                               SefocusAPI wnd_chld
                                               keybd_event VK_TAB, 0, 0, 0
                                               keybd_event VK_TAB, 0, KEYEVENTF_KEYUP, 0
                        
                                               keybd_event VK_TAB, 0, 0, 0
                                               keybd_event VK_TAB, 0, KEYEVENTF_KEYUP, 0
                        
                                               keybd_event VK_ENTER, 0, 0, 0
                                               keybd_event VK_ENTER, 0, KEYEVENTF_KEYUP, 0
                                        End If
                                    End If
                                End If
                                DoEvents
                                wnd_chld = GetWindow(wnd_chld, GW_HWNDNEXT)
                            Loop
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = False
DoEvents
SomeProc
Timer1.Enabled = True
End Sub