Windows XP Startbutton-Text ändern

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von jvbsl.

    Windows XP Startbutton-Text ändern

    Hallo zusammen

    Ich habe hier einen Code gefunden. Nun wollte ich versuchen, den Code in VB.Net zu schreiben, bekam es aber nicht hin..

    Hier schonmal der Code den ich habe:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Explicit On
    2. Public Class Form1
    4. ' zunächst die benötigten API-Deklarationen
    5. Private Declare Function FindWindow Lib "user32" _
    6. Alias "FindWindowA" ( _
    7. ByVal lpClassName As String, _
    8. ByVal lpWindowName As String) As Long
    10. Private Declare Function GetWindow Lib "user32" ( _
    11. ByVal hwnd As Long, _
    12. ByVal wCmd As Long) As Long
    14. Private Declare Function WindowFromPoint Lib "user32" ( _
    15. ByVal xPoint As Long, _
    16. ByVal yPoint As Long) As Long
    19. Private Declare Function SendMessage Lib "user32" _
    20. Alias "SendMessageA" ( _
    21. ByVal hwnd As Long, _
    22. ByVal wMsg As Long, _
    23. ByVal wParam As Long, _
    24. ByVal lParam As Any) As Long
    26. Private Const GW_CHILD = 5
    27. Private Const WM_GETTEXT = &HD
    28. Private Const WM_SETTEXT As Long = &HC
    30. Dim ohWnd As Long
    32. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    33. ' Button-Handle ermitteln
    34. ohWnd = FindWindow("shell_traywnd", "")
    35. ohWnd = GetWindow(ohWnd, GW_CHILD)
    36. End Sub
    38. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    39. ' neuen Text setzen
    40. SendMessage ohWnd, WM_SETTEXT, 1, ByVal Textbox1.Text
    41. End Sub
    42. End Class



    Hier kommt der Fehler Fehler bei "As Any" wird in Declare-Anweisungen nicht unterstützt. Wie heisst dieses As Any in VB.Net?

    VB.NET-Quellcode

    1. ByVal lParam As Any) As Long


    Hier kommt der Fehler bei ByVal => Ausdruck erwartet. Auch hier habe ich keine Ahnung :S

    VB.NET-Quellcode

    1. SendMessage (ohWnd, WM_SETTEXT, 1, ByVal Textbox1.Text)


    Könnt ihr mir vielleicht helfen, den Code umzuschreiben?

Facebook
Telefonspende