ProgrammCode gesucht!! Wie lässt man ein Programm etwas in ein minimiertes Fenster schreiben?

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von bla.

    ProgrammCode gesucht!! Wie lässt man ein Programm etwas in ein minimiertes Fenster schreiben?

    Hi Leute!
    Brauche Hilfe.
    Und zwar möchte ich ein Programm schreiben , das in ein minimiertes fenster (z.b. editor) immer abwechselnd nach 1 min. 2 verschiedene texte (textboxen.text) schreibt.
    Wie geht das?

    Vielen Dank im Vorraus :D
    [Glaube die Frage wurde schon oft gestellt aber nie gelöst... Habe die SuFu genutzt!!!] :rolleyes:

    du kannst mit winspy die fenstereigenschaften lesen und dann n bisschen rumprobieren

    viellt hilft das n bischen, is aber vb6. liest das icq textfenster-handle anhand des classnames aus etc

    VB.NET-Quellcode

    1. Private Declare Function EnumChildWindows Lib "user32" _
    2. (ByVal hWndParent As Long, ByVal lpEnumFunc _
    3. As Long, ByVal lParam As Long) As Long
    5. Private Declare Function GetClassName Lib "user32" Alias _
    6. "GetClassNameA" (ByVal hwnd As Long, ByVal _
    7. lpClassName As String, ByVal nMaxCount As Long) _
    8. As Long
    10. Private Declare Function PostMessage Lib "user32.dll" Alias "PostMessageA" (ByVal hwnd As Long, _
    11. ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    14. Private Const WM_CHAR As Long = &H102
    16. Private Child() As Long
    20. Public Sub SendText(txt As String)
    21. Dim i As Integer
    22. Dim hwnd As Long
    24. hwnd = GetICQSendBox('icq fensterhandle)
    26. For i = 1 To Len(txt)
    27. Call PostMessage(hwnd, WM_CHAR, ByVal Asc(Mid(txt, i, 1)), 1&)
    28. Next
    30. End Sub
    33. Private Function EnumChilds(ByVal ChWnd&, ByVal lParam&) As Long
    34. Child(UBound(Child)) = ChWnd
    35. ReDim Preserve Child(0 To UBound(Child) + 1)
    36. EnumChilds = 1
    37. End Function
    40. Public Function GetICQSendBox(hwnd As Long) As Long
    41. Dim x, Result, l As Long
    42. Dim Class As String
    43. Dim Cpt As String
    45. ReDim Child(0 To 0)
    46. Call EnumChildWindows(hwnd, AddressOf EnumChilds, 0)
    48. If UBound(Child) > 0 Then
    49. For x = 0 To UBound(Child) - 1
    50. Class = Space$(128)
    51. Result = GetClassName(Child(x), Class, 128)
    52. Class = LCase(Left$(Class, Result))
    54. If LCase(Class) = LCase("Internet Explorer_Server") Then
    55. GetSendBox = Child(x)
    56. Exit Function
    57. End If
    59. Next x
    60. End If
    62. End Function
    Für ein Mindestmaß an Rechtschreibung, Interpunktion und Majuskeln!

Facebook
Telefonspende