MessengerAPI funktioniert NICHT auf anderen Computern

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Shaymin123[CRI09].

    MessengerAPI funktioniert NICHT auf anderen Computern

    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:

    VB.NET-Quellcode

    1. Imports MessengerAPI
    3. Public Class Form1
    5. Dim msn As New Messenger
    8. Public WithEvents t As New Timer
    10. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Layout
    12. t.Interval = 100
    13. t.Start()
    17. Label2.Text = "Aktueller User: " + msn.MyFriendlyName
    18. End Sub
    20. Protected Sub t_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles t.Tick
    22. Dim Status As String
    25. Status = Replace(msn.MyStatus.ToString, "MISTATUS_", "")
    27. Label1.Text = "Aktueller Status: " & Status
    28. If Label1.Text = "Aktueller Status: ONLINE" Then
    29. Label1.Text = "Aktueller Status: Verfügbar (Online)"
    30. statuslogo.Image = My.Resources.icoonline
    31. ElseIf Label1.Text = "Aktueller Status: BUSY" Then
    32. Label1.Text = "Aktueller Status: Beschäftigt"
    33. statuslogo.Image = My.Resources.icobusy
    34. ElseIf Label1.Text = "Aktueller Status: AWAY" Then
    35. Label1.Text = "Aktueller Status: Abwesend"
    36. statuslogo.Image = My.Resources.icoaway
    37. ElseIf Label1.Text = "Aktueller Status: INVISIBLE" Then
    38. Label1.Text = "Aktueller Status: Offline (Unsichtbar)"
    39. statuslogo.Image = My.Resources.icooffline
    40. End If
    41. End Sub
    44. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    45. change_status.Show()
    46. End Sub
    48. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    49. Label2.Text = "Aktueller User: " + msn.MyFriendlyName
    50. End Sub
    52. Private Sub StatusÄndernToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StatusÄndernToolStripMenuItem.Click
    53. change_status.Show()
    54. End Sub
    56. Private Sub NameAktualisierenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NameAktualisierenToolStripMenuItem.Click
    57. Label2.Text = "Aktueller User: " + msn.MyFriendlyName
    58. End Sub
    60. Private Sub Form1_Load_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    61. Label3.Text = "eMail Adresse: " + msn.MySigninName
    62. Label4.Text = "ServiceID: " + msn.MyServiceId
    63. Label5.Text = "Service Name: " + msn.MyServiceName
    65. End Sub
    67. Private Sub UsertitelpfadToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UsertitelpfadToolStripMenuItem.Click
    68. MsgBox(msn.MyProperty(MCONTACTPROPERTY.MCONTACTPROP_USERTILE_PATH), MsgBoxStyle.Information, "Usertitelpfad")
    70. End Sub


    Hier von der 2.Form:

    VB.NET-Quellcode

    1. Public Class change_status
    2. Dim msn As New MessengerAPI.Messenger
    4. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    5. msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
    6. MessageBox.Show("Aktueller Status ist nun Online.", "Hinweis", MessageBoxButtons.OK, MessageBoxIcon.Information)
    7. Me.Close()
    8. End Sub
    10. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    11. msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_BUSY
    12. MessageBox.Show("Aktueller Status ist nun Beschäftigt.", "Hinweis", MessageBoxButtons.OK, MessageBoxIcon.Information)
    13. Me.Close()
    14. End Sub
    16. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    17. msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_AWAY
    18. MessageBox.Show("Aktueller Status ist nun Abwesend.", "Hinweis", MessageBoxButtons.OK, MessageBoxIcon.Information)
    19. Me.Close()
    20. End Sub
    22. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    23. msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
    24. MessageBox.Show("Aktueller Status ist nun Offlinezeigend.", "Hinweis", MessageBoxButtons.OK, MessageBoxIcon.Information)
    25. Me.Close()
    26. End Sub
    28. Private Sub change_status_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    29. If Form1.Label1.Text = "Aktueller Status: Verfügbar (Online)" Then
    30. Button1.Enabled = False
    31. Button2.Enabled = True
    32. Button3.Enabled = True
    33. Button4.Enabled = True
    34. ElseIf Form1.Label1.Text = "Aktueller Status: Beschäftigt" Then
    35. Button1.Enabled = True
    36. Button2.Enabled = False
    37. Button3.Enabled = True
    38. Button4.Enabled = True
    39. ElseIf Form1.Label1.Text = "Aktueller Status: Abwesend" Then
    40. Button1.Enabled = True
    41. Button2.Enabled = True
    42. Button3.Enabled = False
    43. Button4.Enabled = True
    44. ElseIf Form1.Label1.Text = "Aktueller Status: Offline (Unsichtbar)" Then
    45. Button1.Enabled = True
    46. Button2.Enabled = True
    47. Button3.Enabled = True
    48. Button4.Enabled = False
    49. End If
    50. End Sub
    51. End Class


    Wenn jemand den fehler finden sollte könntet ihr mir dan den Fehler nennen

    Danke voraus

    hallo.. So genau kann man dir denk ich nicht sagen, wo der Fehler liegt.
    Was genau wird denn ausgegeben? Programm funktioniert nicht mehr.. oder Irgend ne andere Meldung?
    Ich merk grad, dass du nen Timer benutzt. Das brauchst du eigentlich garnicht, weil MessengerAPI Events besitzt, wie z.b. StatusChanged (o.ä.).
    Außerdem fängst du nirgendwo fehler ab. Kein Try Catch Blöcke, etc.
    Sinnvoll wäre auch, wenn du mal eine Log einbaust, der dir die Fehler in einer Datei schreibt. So könntest du evtl auch den Fehler selbst rausfinden.
    "Wenn jemand in einem Betrieb unverzichtbar ist, dann ist dieser Betrieb falsch organisiert." - Roberto Niederer

    Mach mal in jeder Prozedur eine Fehlerbehandlung und gib ne Messagebox aus mit dem Inhalt von ex.Message, etwa so:

    VB.NET-Quellcode

    1. Private Sub Blubb
    2. Try
    3. 'Dein Code
    4. Catch ex As Exception
    5. Messagebox.Show(ex.Message)
    6. End Try
    7. End Sub

    Und das in jeder Methode/Funktion ( auch events sind Methoden, wie z.B. ein Buttonklick Ereignis)

    Dann schauen wir weiter.
    "Wenn jemand in einem Betrieb unverzichtbar ist, dann ist dieser Betrieb falsch organisiert." - Roberto Niederer

    Shaymin123[CRI09] schrieb:

    muss das auf die Form-load?
    Wenn ja funktioniert es net


    Schau dir mein Beitrag GENAU an. Dann stell solche Fragen.
    Das beweist nur, dass der Fehler nicht unbedingt am Programm liegt, sondern weil du noch ein Frischling in der Entwicklung bist und DU den Fehler irgendwo verursacht hast.
    "Wenn jemand in einem Betrieb unverzichtbar ist, dann ist dieser Betrieb falsch organisiert." - Roberto Niederer

Facebook
Telefonspende