Nytro Posted October 20, 2009 Report Share Posted October 20, 2009 '---------------------------------------------------------------------------------------' Module : mAviraFwb' DateTime : 13/10/2009' Author : fooley' Purpose : Bypass Avira firewall prompt message' Usage : At your own risk' Requirements: None' Distribution: You can freely use this code in your own' applications, but you may not reproduce' or publish this code on any web site,' online service, or distribute as source' on any media without express permission.'---------------------------------------------------------------------------------------Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpwindowname As String) As LongPrivate Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPrivate Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As LongSub mAviraFwb()lngHandle = FindWindow(vbNullString, "Network event")If (lngHandle <> 0) Then lngStartButton = FindWindowEx(lngHandle, 0, "", "&Allow") SetWindowPos lngHandle, 0, 0, 0, 0, 0, 2 AppActivate ("Network event") SendKeys "{left}" SendKeys "{enter}" WireClose = PostMessage(lngHandle, &H10, 0&, 0&)End IfEnd Sub Quote Link to comment Share on other sites More sharing options...