TrayIcon von einem externen Programm entfernen

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von sdcleitung.

    TrayIcon von einem externen Programm entfernen

    Hallo,
    ich müsste dringend den TrayIcon eines externen Programms entfernen.

    Es geht darum, dass die Benutzer das Antiviren System nicht deaktivieren können sollen und ich deshalb den Tray Icon löschen möchte.
    Leider habe ich hier im Forum und auch im Internet nichts gefunden :( Ich dachte an Shell_NotifyIcon, jedoch verstehe ich nicht ganz wo ich die ProzessID o.ä. angeben könnte.

    Schonmal vielen vielen Dank für eure Hilfe ;)

    sdcleitung schrieb:

    Es geht darum, dass die Benutzer das Antiviren System nicht deaktivieren können sollen und ich deshalb den Tray Icon löschen möchte.

    Die Benutzer sind Rentner mit Alzheimer und keinerlei Computererfahrung? Denn nur bei denen würde so ein "Schutz" Sinn machen. Die "korrekte" Lösung ist üblicherweise, dass der Benutzer KEINE Adminrechte hat und der Admin das System über die Group Policies absichert.

    Danke für den Link ;)
    Habe vorhin schon etwas gefunden:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    3. Module Module1
    4. Private Structure NOTIFYICONDATA
    5. Public cbSize As Long
    6. Public hWnd As Long
    7. Public uId As Long
    8. Public uFlags As Long
    9. Public uCallBackMessage As Long
    10. Public hIcon As Long
    11. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=128)> _
    12. Public szTip As String
    13. End Structure
    14. ' The messages to send to the function
    16. Private Declare Function Shell_NotifyIcon Lib "shell32.dll" _
    17. Alias "Shell_NotifyIconA" ( _
    18. ByVal dwMessage As Long, _
    19. ByVal pnid As NOTIFYICONDATA) As Long
    21. ' NOTIFYICONDATA uFlags Konstanten
    22. Private Const NIF_ICON = &H2
    23. Private Const NIF_MESSAGE = &H1
    24. Private Const NIF_TIP = &H4
    25. Private Const NIF_STATE = &H8 ' Windows 2000
    26. Private Const NIF_INFO = &H10 ' Windows 2000
    28. ' NOTIFYICONDATA Win2000 dwState Konstanten
    29. Private Const NIS_HIDDEN = &H1
    30. Private Const NIS_SHAREDICON = &H2
    32. ' NOTIFYICONDATA Win2000 uTimeoutOrVersion Konstanten
    33. Private Const NOTIFYICON_VERSION = &H1
    35. ' NOTIFYICONDATA Win2000 dwInfoFlags Konstanten
    36. Private Const NIIF_WARNING = &H30
    37. Private Const NIIF_ERROR = &H10
    38. Private Const NIIF_INFO = &H40
    40. ' Shell_NotifyIcon dwMessage Konstanten
    41. Private Const NIM_ADD = &H0
    42. Private Const NIM_DELETE = &H2
    43. Private Const NIM_MODIFY = &H1
    44. Private Const NIM_SETFOCUS = &H4 ' Windows 2000
    45. Private Const NIM_SETVERSION = &H8 ' Windows 2000
    47. ' Einige Fensternachrichten
    48. Private Const WM_LBUTTONDBLCLK = &H203
    49. Private Const WM_LBUTTONDOWN = &H201
    50. Private Const WM_LBUTTONUP = &H202
    51. Private Const WM_MBUTTONDBLCLK = &H209
    52. Private Const WM_MBUTTONDOWN = &H207
    53. Private Const WM_MBUTTONUP = &H208
    54. Private Const WM_RBUTTONDBLCLK = &H206
    55. Private Const WM_RBUTTONDOWN = &H204
    56. Private Const WM_RBUTTONUP = &H205
    58. Private Const WM_MOUSEMOVE = &H200
    60. Dim TrayIcon As NOTIFYICONDATA
    62. Public Sub Main(ByVal hWnd, ByVal mIcon)
    63. With TrayIcon
    64. .cbSize = Len(TrayIcon)
    65. .hIcon = mIcon
    66. .hWnd = hWnd
    67. .szTip = "Mein erstes Trayicon" & vbNullChar
    68. .uCallBackMessage = WM_MOUSEMOVE ' Form bekommt die Ereignisse
    69. .uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
    70. .uId = 0&
    71. End With
    73. Shell_NotifyIcon(NIM_DELETE, TrayIcon)
    74. End Sub
    75. End Module


    Allerdings habe ich eben wie gesagt das Problem, dass ich nicht verstehe wie ich das ganze auf einen bestimmten Prozess (z.b. durch MainWindowHandle, Prozess ID o.ä. identifizierbar) anwenden kann.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „sdcleitung“ ()

    Danke schonmal ;)

    Leider blicke ich es wohl noch nicht so ganz.
    Müsste die hwnid nicht immer die selbe sein solange das Programm läuft?

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Declare Function FindWindow Lib "user32" _
    2. Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName _
    3. As String) As Long
    5. Const SWP_HIDEWINDOW = &H80
    6. Const SWP_SHOWWINDOW = &H40
    8. Dim hwnd1 As Long
    9. hwnd1 = FindWindow("", [PROCESSNAME])


    Da wird mir nämlich nach jedem ausführen der Funktion um hwnd zu bekommen eine andere Zahlenreihenfolge ausgegeben

    sdcleitung schrieb:

    ich blicke da überhaupt nicht durch

    Nimm Dir den Beitrag von @picoflop zu Herzen und lasss es sein.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    OK, also solangsam blicke ich durch ...

    Allerdings geht das ganze noch nicht so wirklich:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Shared Function sendmsg(ByVal value As IntPtr, ByVal msg As UInteger)
    2. Try
    3. Return SendMessage(value, msg, vbNullString, vbNullString)
    4. Catch ex As Exception
    5. Return vbNull
    6. End Try
    7. End Function
    9. --Aufgerufen durch (nWnd ist als IntPtr definiert und beinhaltet das vom FindWindow zurückgegebene Handle, TB_GETBUTTON habe ich als &H400 + 23 definiert):
    10. Dim iconhwnd as TBBUTTON = Func.sendmsg(nWnd, TB_GETBUTTON)


    Es kommt "Die angegebene Umwandlung ist ungültig.". Dies ist ja auch kein Wunder, da ich SendMessage As IntPtr definiert habe, iconhwnd aber als TBBUTTON.
    Ich kann SendMessage ja aber nicht als TBBUTTON definieren, das geht auch nicht. Deshalb stehe ich hier jetzt etwas auf dem Schlauch (bei pinvoke ist sendmessage als intptr angegeben nach dem gulliboard link sollte aber eine TBBUTTON Struktur zurückgegeben werden?)

    Könntet ihr mir da vielleicht noch einmal helfen?

    Schonmal vielen Dank und frohe Weihnachten ;)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „sdcleitung“ ()

    Ich habe jetzt mal zum testen dieses Program genommen:
    jo0ls-dotnet-stuff.blogspot.co…numerate-system-tray.html

    Damit bekomme ich die NotifyIconData Struktur. Jetzt habe ich die Shell_NotifyIcon Function eingefügt:

    VB.NET-Quellcode

    1. <DllImport("shell32.dll")> _
    2. Shared Function Shell_NotifyIcon(ByVal dwMessage As UInteger, ByRef pnid As NotifyIconData) As Boolean
    3. End Function


    und mit Shell_NotifyIcon(&H2, nid) die Funktion aufgerufen (&H2 ist der Löschbefehl und nid ist die Icon Struktur)

    Der Icon bleibt trotzdem im Tray Bereich ?

Facebook
Telefonspende