Hay
Ich habe mit VB 2008 ein Tool zusammengestellt (aber noch net fertiggebracht), womit ich den MSN Messenger mittels MessengerAPI fernsteuern kann (nichts neues eiglich).
Jetzt habe ich das Programm auf meinen alten Computer gepackt der auch MSN installiert hat und musste feststellen, das das Programm Fehlermeldungen gibt.
Natürlich habe ich auch die .dll Datei mit auf den Computer gepackt aber wie gesag es funktioniert nicht und brauch mal eure hilfe.
Hier is mein Code von der Hauptform:
Hier von der 2.Form:
Wenn jemand den fehler finden sollte könntet ihr mir dan den Fehler nennen
Danke voraus
Ich habe mit VB 2008 ein Tool zusammengestellt (aber noch net fertiggebracht), womit ich den MSN Messenger mittels MessengerAPI fernsteuern kann (nichts neues eiglich).
Jetzt habe ich das Programm auf meinen alten Computer gepackt der auch MSN installiert hat und musste feststellen, das das Programm Fehlermeldungen gibt.
Natürlich habe ich auch die .dll Datei mit auf den Computer gepackt aber wie gesag es funktioniert nicht und brauch mal eure hilfe.
Hier is mein Code von der Hauptform:
VB.NET-Quellcode
- Imports MessengerAPI
- Public Class Form1
- Dim msn As New Messenger
- Public WithEvents t As New Timer
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Layout
- t.Interval = 100
- t.Start()
- Label2.Text = "Aktueller User: " + msn.MyFriendlyName
- End Sub
- Protected Sub t_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles t.Tick
- Dim Status As String
- Status = Replace(msn.MyStatus.ToString, "MISTATUS_", "")
- Label1.Text = "Aktueller Status: " & Status
- If Label1.Text = "Aktueller Status: ONLINE" Then
- Label1.Text = "Aktueller Status: Verfügbar (Online)"
- statuslogo.Image = My.Resources.icoonline
- ElseIf Label1.Text = "Aktueller Status: BUSY" Then
- Label1.Text = "Aktueller Status: Beschäftigt"
- statuslogo.Image = My.Resources.icobusy
- ElseIf Label1.Text = "Aktueller Status: AWAY" Then
- Label1.Text = "Aktueller Status: Abwesend"
- statuslogo.Image = My.Resources.icoaway
- ElseIf Label1.Text = "Aktueller Status: INVISIBLE" Then
- Label1.Text = "Aktueller Status: Offline (Unsichtbar)"
- statuslogo.Image = My.Resources.icooffline
- End If
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- change_status.Show()
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
- Label2.Text = "Aktueller User: " + msn.MyFriendlyName
- End Sub
- Private Sub StatusÄndernToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StatusÄndernToolStripMenuItem.Click
- change_status.Show()
- End Sub
- Private Sub NameAktualisierenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NameAktualisierenToolStripMenuItem.Click
- Label2.Text = "Aktueller User: " + msn.MyFriendlyName
- End Sub
- Private Sub Form1_Load_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Label3.Text = "eMail Adresse: " + msn.MySigninName
- Label4.Text = "ServiceID: " + msn.MyServiceId
- Label5.Text = "Service Name: " + msn.MyServiceName
- End Sub
- Private Sub UsertitelpfadToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UsertitelpfadToolStripMenuItem.Click
- MsgBox(msn.MyProperty(MCONTACTPROPERTY.MCONTACTPROP_USERTILE_PATH), MsgBoxStyle.Information, "Usertitelpfad")
- End Sub
Hier von der 2.Form:
VB.NET-Quellcode
- Public Class change_status
- Dim msn As New MessengerAPI.Messenger
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
- MessageBox.Show("Aktueller Status ist nun Online.", "Hinweis", MessageBoxButtons.OK, MessageBoxIcon.Information)
- Me.Close()
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_BUSY
- MessageBox.Show("Aktueller Status ist nun Beschäftigt.", "Hinweis", MessageBoxButtons.OK, MessageBoxIcon.Information)
- Me.Close()
- End Sub
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
- msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_AWAY
- MessageBox.Show("Aktueller Status ist nun Abwesend.", "Hinweis", MessageBoxButtons.OK, MessageBoxIcon.Information)
- Me.Close()
- End Sub
- Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
- msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
- MessageBox.Show("Aktueller Status ist nun Offlinezeigend.", "Hinweis", MessageBoxButtons.OK, MessageBoxIcon.Information)
- Me.Close()
- End Sub
- Private Sub change_status_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- If Form1.Label1.Text = "Aktueller Status: Verfügbar (Online)" Then
- Button1.Enabled = False
- Button2.Enabled = True
- Button3.Enabled = True
- Button4.Enabled = True
- ElseIf Form1.Label1.Text = "Aktueller Status: Beschäftigt" Then
- Button1.Enabled = True
- Button2.Enabled = False
- Button3.Enabled = True
- Button4.Enabled = True
- ElseIf Form1.Label1.Text = "Aktueller Status: Abwesend" Then
- Button1.Enabled = True
- Button2.Enabled = True
- Button3.Enabled = False
- Button4.Enabled = True
- ElseIf Form1.Label1.Text = "Aktueller Status: Offline (Unsichtbar)" Then
- Button1.Enabled = True
- Button2.Enabled = True
- Button3.Enabled = True
- Button4.Enabled = False
- End If
- End Sub
- End Class
Wenn jemand den fehler finden sollte könntet ihr mir dan den Fehler nennen
Danke voraus