چگونه پیام های یک وب سایت را رد کنیم ؟

[hackershz]

سلام و خسته نباشید


چگونه میشود در وب بروس پیغام هایی که یک وب سایت یا ارور هایی که یک وب سایت میدهد رو به طور کل رد کنیم


یا اتوماتیک هر چی پیام داده میشه رو اوکی کنیم ؟

مثلا این مورد زیر را توجه کنید

لطفا کمک کنید

[محسن واژدی]

سلام علیکم
کدهای زیر را در ماژول کد قرار بدهید:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Private Const WM_CLOSE = &H10
Public Const TMR_AUTO_CLOSE_MSG& = &H1
Private mMsgTitle$
Sub AutoCloseMessageTimer(fForm As Form, sMessageTitle$)
mMsgTitle$ = sMessageTitle$
SetTimer fForm.hwnd, TMR_AUTO_CLOSE_MSG&, 1, AddressOf TimerProc
End Sub
Private Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
Dim lWH&
lWH& = FindWindow("#32770", mMsgTitle$)
If lWH& > 0 Then
SendMessage lWH&, WM_CLOSE, 0, 0
End If
End Sub

و کد زیر را هم در Unload فرم:
Private Sub Form_Unload(Cancel As Integer)
KillTimer hwnd, TMR_AUTO_CLOSE_MSG&
End Sub


برای نمونه:
Private Sub Command1_Click()
AutoCloseMessageTimer Me, "Message from webpage"
End Sub

موفق باشید