Window Manager Help

[jizzmasterflex]

Hey, I'm trying to make a window manager for my computer but I'm having some problems with it. I got the windows to show in a listbox and I can close them now.. But the problem is that there is always a space in between the items. Can soemone please take a quick glance at my source and tell me what I am doing wrong?

[Andrew G]

Zip file is corrupt

[jizzmasterflex]

Sorry. Try this one.

[Andrew G]

Replace your enumwindowsproc function with this one.

Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal Lparam As Long) As Boolean
Dim Strcaption As String, NSize As Long, W As String, i As Integer
Dim astrDataItem() As String
 
NSize& = GetWindowTextLength(hwnd&)
Strcaption$ = Space$(NSize& + 1)
 
    If IsWindowVisible(hwnd&) = 1 Then
    Call GetWindowText(hwnd&, Strcaption$, Len(Strcaption$))
    
    If Strcaption$ <> Chr$(0) Then
        Form1.List1.AddItem Left$(Strcaption$, Len(Strcaption$) - 1)
    End If
 
End If
 
EnumWindowsProc = True
 
End Function

btw: I had to use Winrar to view the contents.

[Edit] Didn't see that you uploaded it again

[jizzmasterflex]

Thanks man... Worked like a charm.

[Andrew G]

no probs

[jizzmasterflex]

How would I go about putting all the windows in a variable with :: in between each window?

[jizzmasterflex]

Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal Lparam As Long) As Boolean
Dim Strcaption As String, NSize As Long, W As String, i As String
Dim astrDataItem() As String
 
NSize& = GetWindowTextLength(hwnd&)
Strcaption$ = Space$(NSize& + 1)
 
    If IsWindowVisible(hwnd&) = 1 Then
    Call GetWindowText(hwnd&, Strcaption$, Len(Strcaption$))
    
    If Strcaption$ <> Chr$(0) Then
        W = W & "::" & Left$(Strcaption$, Len(Strcaption$) - 1)
    End If
 
End If
 
EnumWindowsProc = True
 
frmMain.Winsock1.Senddata "wnn" & W
End Function

Does this look correct?

[jizzmasterflex]

*bump*

[Andrew G]

If you want all the windows to be seperated by :: then you will need to dim w in the declarations, cause if its decalered inside the sub, eachtime w will be "" so it will erase the previous value so therefore

[B]Dim W As String[/B]
Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal Lparam As Long) As Boolean
Dim Strcaption As String, NSize As Long, i As Integer
Dim astrDataItem() As String
 
NSize& = GetWindowTextLength(hwnd&)
Strcaption$ = Space$(NSize& + 1)
 
    If IsWindowVisible(hwnd&) = 1 Then
    Call GetWindowText(hwnd&, Strcaption$, Len(Strcaption$))
    
    If Strcaption$ <> Chr$(0) Then
        W = W & "::" & Left$(Strcaption$, Len(Strcaption$) - 1)
    End If
 
End If
 
astrDataItem() = Split(W, "::")
For i = 0 To UBound(astrDataItem)
Form1.List1.AddItem astrDataItem(i)
Next
 
EnumWindowsProc = True
 
End Function