Visual Basic

Public Delegate Sub NewWindowExtendedEventHandler(ByVal sender As Object, ByVal e As NewWindowExtendedEventArgs)


Public Class NewWindowExtendedEventArgs : CancelEventArgs

  Private url As Uri

  Public ReadOnly Property Url As Uri
  Get
    Return url
  End Get
  End Property

  Public Sub New(ByVal url As Uri)
    Me.url = url
  End Sub

End Class

Public Class ExtendedWebBrowser
	Inherits WebBrowser
	Private Class WebBrowserExtendedEvents
		Inherits System.Runtime.InteropServices.StandardOleMarshalObject
		Implements DWebBrowserEvents2
		Private browser As ExtendedWebBrowser

		Public Sub New(browser As ExtendedWebBrowser)
			Me.browser = browser
		End Sub

		Public Sub NewWindow3(pDisp As Object, ByRef cancel As Boolean, ByRef flags As Object, ByRef urlContext As String, ByRef url As String) Implements ExtendedWebBrowser.DWebBrowserEvents2.NewWindow3
			Dim e As New NewWindowExtendedEventArgs(New Uri(url))
			browser.OnNewWindowExtended(e)
			cancel = e.Cancel
		End Sub
	End Class

	<ComImport> _
	<Guid("34A715A0-6587-11D0-924A-0020AFC7AC4D")> _
	<InterfaceTypeAttribute(ComInterfaceType.InterfaceIsIDispatch)> _
	<TypeLibType(TypeLibTypeFlags.FHidden)> _
	Private Interface DWebBrowserEvents2
		<DispId(273)> _
		Sub NewWindow3(<InAttribute, MarshalAs(UnmanagedType.IDispatch)> pDisp As Object, <InAttribute, OutAttribute> ByRef cancel As Boolean, <InAttribute> ByRef flags As Object, <InAttribute, MarshalAs(UnmanagedType.BStr)> ByRef urlContext As String, <InAttribute, MarshalAs(UnmanagedType.BStr)> ByRef url As String) Implements ExtendedWebBrowser.DWebBrowserEvents2.NewWindow3
	End Interface

	Public Event NewWindowExtended As NewWindowExtendedEventHandler

	Private cookie As AxHost.ConnectionPointCookie
	Private wevents As WebBrowserExtendedEvents

	Protected Overrides Sub CreateSink()
		MyBase.CreateSink()
		wevents = New WebBrowserExtendedEvents(Me)
		cookie = New AxHost.ConnectionPointCookie(Me.ActiveXInstance, wevents, GetType(DWebBrowserEvents2))
	End Sub

	Protected Overrides Sub DetachSink()
		If cookie IsNot Nothing Then
			cookie.Disconnect()
			cookie = Nothing
		End If
		MyBase.DetachSink()
	End Sub

	Protected Overridable Sub OnNewWindowExtended(e As NewWindowExtendedEventArgs)
		RaiseEvent NewWindowExtended(Me, e)
	End Sub
End Class

Member 7815124 wrote:

a Windows service ... it gives a message "System DateTime has been changed".

Public Class Form1
    Dim iDate As DateTime = DateTime.Now
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        
        Timer1.Interval = 1000
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim iDateNow As DateTime = DateTime.Now
        If iDateNow <> iDate Then
            MsgBox("Date Time Change Detected.")
        End If

    End Sub
End Class

Imports System
Imports System.Diagnostics
Public Class Form1
    Dim iDate As DateTime = DateTime.Now
    Dim MyProcess() As Process = System.Diagnostics.Process.GetProcessesByName("winword")
    Sub New()

        ' This call is required by the designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.
        Timer1.Interval = 1000
        Timer1.Enabled = True
        Application.Run()

    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim iDateNow As DateTime = DateTime.Now
        If iDateNow < iDate Then
            
            For Each p As Process In MyProcess
                p.Kill()
            Next
        End If

    End Sub

End Class

Biplob Singha Shee wrote:

While I tried to close the process, Microsoft word was not closing.

For Each p As Process In MyProcess
                p.Kill()
Next

Dim MyProcess() As Process = System.Diagnostics.Process.GetProcessesByName("winword")

Private Sub FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) Handles MyBase.FormClosing
   Dim MyProcess() As Process = Process.GetProcessesByName("winword")
   For Each p As Process In MyProcess
      p.Kill()
   Next
End Sub