VBS get window handle - Computer Programmers, Programming Forum

types · #1 02-01-2007

Hi

I whenever i try to use the findwindow function, i get a type mismatch error. What do i do? do i have to declare it somewhere?

waheedahmed · #2 02-01-2007

You have to declare the FindWindow function. Could you post the error you are getting, if possible also post the code you are using.

Waheed

GrantThomas · #3 02-01-2007

The declaration of the 'FindWindow' function, in vb, should be...

Code:

Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

...to use the ANSII character set...

Code:

Declare Function FindWindow Lib "user32.dll" Alias "FindWindowW" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

...to use the Unicode character set, which is only supported on systems above NT4.

Maybe it could be you have a typo in your current declaration, or an error with the passed parameters, where do you get them from? are they variables?

Grant.

types · #4 02-01-2007

Still getting some errors, this is the current code:

Code:

Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

FindwindowA("Shell_TrayWnd")

hot_cakes · #5 02-02-2007

Please show the error that you get.

Complete guess: in your example, you only pass FindWindowA one argument whereas the declaration seems to indicate that it needs 2.

Edd

waheedahmed · #6 02-02-2007

You want to get the handle of the task bar (I think).

Code:

Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
--------------------------------------------------------------------------------------------
        Dim handle As Long
        handle = FindWindow("Shell_TrayWnd", "")

NOTE: Its FindWindow not FindWindowA, since you used Alias, FindWindow is mapped to FindWindowA
If you are using VB6 or below you can use Null in place of "", in .NET you may use System.DBNull (System.DBNull.Value.ToString()), empty quotes work well.

Waheed

types · #7 02-02-2007

Code:

Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Dim handle As Long
handle = FindWindow("Shell_TrayWnd", "")

Produces the following error:

waheedahmed · #8 02-03-2007

I think VB script doesn't support declaring Windows APIs. Look at this http://msdn.microsoft.com/library/de...7f5a41f8b9.asp
go to VBA features not in VBS and look at the declare category, looks like VBS does not support declaring from DLLs , you may have to use VB itself or VBA perhaps.

Waheed

Welcome to our forums...

Latest Posts

Forum Statistics

Partner Sites

Friends

Welcome to our forums...

Latest Posts

Forum Statistics

Partner Sites

Sponsor

Friends