Icq: Text in die ChatBoxen schreiben.

    • VB.NET

      Icq: Text in die ChatBoxen schreiben.

      Hi, Ich hab gestern etwas mit der Winapi rumgespielt.
      Mit diesem Code kann man, wenn ein Chatfenster offen ist, in die Chatbox schreiben.
      Ihr Braucht eine Textbox, eine ListBox und einen Button.

      Deklarationen:
      Da man nur 15000 Zeichen nutzen kann, hab ich die Messages auf meinen Space hochgeladen:
      tsuyo.de/files/enums.txt

      Spoiler anzeigen

      VB.NET-Quellcode

      1. <DllImport("User32.dll")> _
      2. Private Shared Function EnumChildWindows _
      3. (ByVal WindowHandle As IntPtr, ByVal Callback As EnumWindowProcess, ByVal lParam As IntPtr) As Boolean
      4. End Function
      5. Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As IntPtr, ByVal lpString As String, ByVal cch As IntPtr) As IntPtr
      6. Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As IntPtr) As IntPtr
      7. Public Delegate Function EnumWindowProcess(ByVal Handle As IntPtr, ByVal Parameter As IntPtr) As Boolean
      9. Public Shared Function GetChildWindows(ByVal ParentHandle As IntPtr) As IntPtr()
      10. Dim ChildrenList As New List(Of IntPtr)
      11. Dim ListHandle As GCHandle = GCHandle.Alloc(ChildrenList)
      12. Try
      13. EnumChildWindows(ParentHandle, AddressOf EnumWindow, GCHandle.ToIntPtr(ListHandle))
      14. Finally
      15. If ListHandle.IsAllocated Then ListHandle.Free()
      16. End Try
      17. Return ChildrenList.ToArray
      18. End Function
      19. Private Shared Function EnumWindow(ByVal Handle As IntPtr, ByVal Parameter As IntPtr) As Boolean
      20. Dim ChildrenList As List(Of IntPtr) = GCHandle.FromIntPtr(Parameter).Target
      21. If ChildrenList Is Nothing Then Throw New Exception("GCHandle Target could not be cast as List(Of IntPtr)")
      22. ChildrenList.Add(Handle)
      23. Return True
      24. End Function


      Hier sind die Funktionen und Hilffunktionen die die Handles zurück geben:
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Function wn(ByVal id As IntPtr) As String 'Returnt den Fenstertitel
      2. Try
      3. Dim a As Integer
      4. Dim title As String
      5. Dim Leng As Integer
      6. a = id
      7. Leng = GetWindowTextLength(a)
      8. title = Space(Leng + 1)
      9. GetWindowText(a, title, Leng + 1)
      10. Return title
      11. Catch ex As Exception
      12. Return "a"
      13. End Try
      14. End Function
      16. Public Class users
      17. Public handle As IntPtr
      18. Public title As String
      19. Public Sub New(ByVal handle_ As IntPtr, ByVal title_ As String)
      20. handle = handle_
      21. title = title_
      22. End Sub
      23. End Class
      24. Dim userlist As New List(Of users)
      26. Public Sub Handles()
      27. Dim icqhandle As IntPtr = 0
      28. Dim icqtext As String = Nothing
      29. For Each pr As Process In Process.GetProcesses
      30. If pr.ProcessName = "ICQ" Then
      31. icqhandle = pr.Handle
      32. icqtext = pr.MainWindowTitle
      33. Exit For
      34. End If
      35. Next
      36. If icqhandle = 0 Then
      37. Exit Sub
      38. End If
      39. Dim ids() As IntPtr = GetChildWindows(FindWindow(Nothing, icqtext))
      40. For i As Integer = 0 To ids.Length - 1
      41. userlist.Clear()
      42. For a As Integer = 1 To i Step 4
      43. userlist.Add(New users(ids(a), Nothing))
      44. Next
      45. Next
      46. userlist.Reverse()
      47. ListBox1.Items.Clear()
      48. For i As Integer = 0 To userlist.Count - 1
      49. ListBox1.Items.Add(userlist(i).handle)
      50. Next
      51. End Sub

      Die Sub Handles() könnt ihr dann im ButtonKlickEvent aufrufen.

      Zur Anmerkung.
      Man kann in Icq ja Tabbed Chatten.
      Pro Tab, gibt es 4 Handles. Wir benötigen immer den 2ten Handle, somit fällt 1,3 und 4 Weg.

      Man könnte nun im Textbox ChangeText event das eintragen:

      VB.NET-Quellcode

      1. If Not TextBox2.TextLength = 0 Then
      2. SendMessage(CType(ListBox1.SelectedItem, IntPtr), WindowsMessages.WM_CHAR, Asc(TextBox2.Text(TextBox2.TextLength - 1)), 0)
      3. End If


      Und schon landet der Text in der Textbox, vom ausgewählten Handle.
      Was ihr Damit macht ist natürlich eure Sache.
      Oben in den Deklarationen hab ich bewusst diese Lange liste an WindowsMessages reingesetzt, sowas kann man immer gebrauchen ;)

      Kopieren bitte nur bei Erlaubnis.