MSN Statusnachricht ändern!
- Allgemein
Sie verwenden einen veralteten Browser (%browser%) mit Sicherheitsschwachstellen und können nicht alle Funktionen dieser Webseite nutzen.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Es gibt 20 Antworten in diesem Thema. Der letzte Beitrag () ist von PascalN.
-
-
-
-
-
-
-
-
-
-
Als ob man nicht die Statusnachricht anpassen kann. Das kann ich mir jetzt echt nicht vorstellen. Sieh dir das mal an:
LINK versuch den Code ganz unten.
Mfg
Firestorm -
Ja, das ist möglich!
Hier der Code
Zuerst kommt der Import:
Danach kommt eine neue Klasse:
VB.NET-Quellcode
- Public Class MSNStatusMessage
- Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" ( _
- ByVal hWnd1 As Integer, _
- ByVal hWnd2 As Integer, _
- ByVal lpsz1 As String, _
- ByVal lpsz2 As String) _
- As Integer
- Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
- ByVal Hwnd As Integer, _
- ByVal wMsg As Integer, _
- ByVal wParam As Integer, _
- ByVal lParam As Integer) _
- As Integer
- Private Const WM_COPYDATA As Short = 74
- Private Structure COPYDATASTRUCT
- Public dwData As Integer
- Public cbData As Integer
- Public lpData As Integer
- End Structure
- Public Enum EnumCategory As Integer
- Music = 0 'Anzeige Musiksymbol
- Games = 1 'Anzeige Gamesymbol
- Office = 2 'Anzeige Officesymbol
- End Enum
- Public Shared Sub SendStatusMessage(ByVal Enable As Boolean, ByVal Category As EnumCategory, Optional ByVal Message As String = "")
- Dim Data As COPYDATASTRUCT
- Dim Buffer As String = "\0" & Category.ToString + "\0" & IIf(Enable, "1", "0") & "\0{0}\0" & Message & "\0\0\0\0" & Chr(0) & ""
- Dim Handle As Integer = 0
- Data.dwData = 1351
- Data.lpData = VarPtr(Buffer)
- Data.cbData = Buffer.Length * 2
- Handle = FindWindowEx(0, Handle, "MsnMsgrUIManager", Nothing)
- If Handle > 0 Then
- SendMessage(Handle, WM_COPYDATA, 0, VarPtr(Data))
- End If
- End Sub
- Private Shared Function VarPtr(ByVal e As Object) As Integer
- Dim GC As GCHandle = GCHandle.Alloc(e, GCHandleType.Pinned)
- Dim GC2 As Integer = GC.AddrOfPinnedObject.ToInt32
- GC.Free()
- Return GC2
- End Function
- End Class
Das Aufruf-Ereignis heisst so: (Diesen Code z.Bsp. in einen Button)
Wenn ich einen Fehler gemacht habe bitte melden
Der Code ist übrigens nicht von mir. Habe ihn irgendwo einmal gefunden, weiss aber nicht mehr wo..
Schönen Tag noch -
-
-
-
xXIXx schrieb:
"Was ich gerade höre" ist nicht aktiviert.
Was meinst du mit OS?
OS = anderes wort für betriebssystem
lg Gugi -
-
-
hmm unter Windows 7 habe ich es nicht getestet könnte schon sein dass es nicht funktioniert... Aktiviere noch "Was ich gerade höre", (Im Messenger) wenn du es nicht schon getan hast
Falls es immer noch nicht geht lade ich ein Projektbeispiel hoch, dann kanste schauen obs bei dem geht.
Download-Link: << Projekt Download >>Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „CrazyFruit“ ()
-
-
-
Ähnliche Themen
-
[Entwicklung] Social Network.NET
AliveDevil - - Off-Topic -
Listview spalte größe behalten
MarkusxX25 - - Sonstige Problemstellungen