S
shindove
Guest
hi.
its it possible to block / disable auto generate error message box .
using below code (i found in the one of the forum) i manage to stop error message "Divide by zero" but not "overflow "
Private Declare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Byte, _
ByVal dwExtraInfo As Byte)
Private Const VK_RETURN As Byte = &HD
Private Const KEYEVENTF_KEYDOWN As Byte = &H0
Private Const KEYEVENTF_KEYUP As Byte = &H2
' Private Const Text As String = "test"
Private Sub closeMsgbox(ByVal delay As Object)
Threading.Thread.Sleep(CInt(delay) * 0)
AppActivate(Me.Text)
keybd_event(VK_RETURN, 0, KEYEVENTF_KEYDOWN, 0)
keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim t As New Threading.Thread(AddressOf closeMsgbox)
Dim t1 As New Threading.Thread(AddressOf msgboxautoclose)
t.Start(0) '10 second delay
end sub
any ide ?
Continue reading...
its it possible to block / disable auto generate error message box .
using below code (i found in the one of the forum) i manage to stop error message "Divide by zero" but not "overflow "
Private Declare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Byte, _
ByVal dwExtraInfo As Byte)
Private Const VK_RETURN As Byte = &HD
Private Const KEYEVENTF_KEYDOWN As Byte = &H0
Private Const KEYEVENTF_KEYUP As Byte = &H2
' Private Const Text As String = "test"
Private Sub closeMsgbox(ByVal delay As Object)
Threading.Thread.Sleep(CInt(delay) * 0)
AppActivate(Me.Text)
keybd_event(VK_RETURN, 0, KEYEVENTF_KEYDOWN, 0)
keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim t As New Threading.Thread(AddressOf closeMsgbox)
Dim t1 As New Threading.Thread(AddressOf msgboxautoclose)
t.Start(0) '10 second delay
end sub
any ide ?
Continue reading...