Hi. I have been trying to make a simple application that will sit in the
background and alert me of any changes in window focus (IE: Pop-up windows)
on my system.
I have used DirectTextToSpe ech from Microsoft and tried the following
code...
The problem I am having is that it detects its own caption fine... but no
captions of other windows :¬/
Could someone please have a look at the following code and lemme know what
Im doing wrong?
=============== =============== =============== =============== ===
Option Strict Off
Option Explicit On
Friend Class Form1Inherits System.Windows. Forms.Form
#Region "Windows Form Designer generated code "
*** snip ***
#End Region
#Region "Upgrade Support "
*** snip ***
#End Region
Private Sub Form1_Load(ByVa l eventSender As System.Object, ByVal
eventArgs As System.EventArg s) Handles MyBase.Load
DirectSS1.Pitch = CInt("100")
DirectSS1.Speed = CInt("150")
LastTitle = ""
DirectSS1.Sayit = "Hello!"
End Sub
Private Sub tmrScan_Tick(By Val sender As System.Object, ByVal e As
System.EventArg s) Handles tmrScan.Tick
Dim ThisTitle As String
ThisTitle = RetCurTitle()
If ThisTitle <> LastTitle Then
LastTitle = ThisTitle
DirectSS1.Sayit = "Window focus has changed."
DirectSS1.Sayit = "New window title is " + ThisTitle
Label1.Text = "New window title is " + ThisTitle
End If
End Sub
End Class
Module WindowScanner
Public Declare Function GetActiveWindow Lib "user32" () As System.IntPtr
Public Declare Auto Function GetWindowText Lib "user32" (ByVal hWnd As
System.IntPtr, ByVal lpString As System.Text.Str ingBuilder, ByVal cch As
Integer) As Integer
Public LastTitle As String
Public Function RetCurTitle() As String
' Create a buffer of 256 characters
Dim Caption As New System.Text.Str ingBuilder(256)
Dim hWnd As IntPtr = GetActiveWindow ()
GetWindowText(h Wnd, Caption, Caption.Capacit y)
Return Caption.ToStrin g()
End Function
End Module
--
Trammel is a member of DWC (http://dwc.no-ip.org)
(Please reply to group only)
