Problem mit Nachrichten empfangen(Skype Api)

[False]

hallo,

ich habe nun etwas geschrieben damit ich nachrichten empfangen kann...
Das Problem ist nur das nicht alle Nachrichten ankommen, habe es mal getestet mir wurden 10 geschrieben und es kamen 2 an und einmal kamen von 10nachrichten 5an also immer anders...
Hat wer eine Idee wie ich das ganz hinbekomme ?

Mein Code :

Sub skype_MessageStatus(ByVal msg As ChatMessage, ByVal status As TChatMessageStatus) Try
 If status = TChatMessageStatus.cmsReceived Or status = TChatMessageStatus.cmsSent Then
If msg.Sender.Handle = Skype.CurrentUserHandle Then
Else 'Code 
End If

End If
 Catch ex As Exception
End Try 
End Sub

danke schonmal

[tolio]

was genau willst du damit bewirken?
If msg.Sender.Handle = Skype.CurrentUserHandle Then
ansonsten ist der code der standart aus der doku und klappt

[False]

Originally Posted by tolio

was genau willst du damit bewirken?
If msg.Sender.Handle = Skype.CurrentUserHandle Then
ansonsten ist der code der standart aus der doku und klappt

Das auch nur von anderen die nachrichten genutzt werden und nicht die, die ich schreibe..
ähh wie standart und auser der doku(was das?)?
Hab den selber geschrieben und er klappt ja auch nur empfängt er nicht alles was geschrieben wird, manche nachrichten werden einfach ausgelassen ;o

[tolio]

benutz lieber den tchatmessagestatus um zu schauen ob die nachricht raus oder rein geht, ist besser, wenn nicht alles angezeigt wird würd ich skype neuinstallieren oder sowas

[False]

Same..
Ich meine nicht das skype nicht alle angezeigt werden sondern im programm dann >.<

[tolio]

ja aber wodran solls liegen wenn nicht an skype, also neu installen.
wenn du über tmessagestatus filterst bekommst garantiert jede nachricht

[False]

Originally Posted by tolio

ja aber wodran solls liegen wenn nicht an skype, also neu installen.
wenn du über tmessagestatus filterst bekommst garantiert jede nachricht

Nein und nein..ich bin wohl nicht so doof und erstellt just 4 fun ein Thread..
Ich habe das Programm 3Freunden geschickt bei allen das selbe ergebnis!

['Heaven.]

Imports SKYPE4COMLib

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    	Dim Skype = New SKYPE4COMLib.Skype
    	Dim Skype_ As New Skype
    	Skype.Attach(7, False)
    	AddHandler Skype.MessageStatus, AddressOf skype_MessageStatus
	End Sub

Public Sub skype_MessageStatus(ByVal msg As ChatMessage, ByVal status As TChatMessageStatus)
    Dim Message As String
    Dim BotName As String = "Server"
    Try

        If status = TChatMessageStatus.cmsReceived Then
            Message = msg.Body
                Message = Message.Remove(0, 1)
                msg.Chat.SendMessage(BotName & ": " & Message)
        End If
    Catch ex As Exception
    End Try
End Sub

[False]

Originally Posted by 'Heaven.

Imports SKYPE4COMLib

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    	Dim Skype = New SKYPE4COMLib.Skype
    	Dim Skype_ As New Skype
    	Skype.Attach(7, False)
    	AddHandler Skype.MessageStatus, AddressOf skype_MessageStatus
	End Sub

Public Sub skype_MessageStatus(ByVal msg As ChatMessage, ByVal status As TChatMessageStatus)
    Dim Message As String
    Dim BotName As String = "Server"
    Try

        If status = TChatMessageStatus.cmsReceived Then
            Message = msg.Body
                Message = Message.Remove(0, 1)
                msg.Chat.SendMessage(BotName & ": " & Message)
        End If
    Catch ex As Exception
    End Try
End Sub

ist doch eigentlich genau das selbe ...>.<

[Kraizy​]

Pack halt mal deine Try-Anweisung raus, vllt kommt es ja zu einem Fehler oder sonst was und du merkst davon gar nichts.
BTW, If msg.Sender.Handle = Skype.CurrentUserHandle Then kannst du gleich mit rausnehmen

[False]

Originally Posted by Kraizy​

Pack halt mal deine Try-Anweisung raus, vllt kommt es ja zu einem Fehler oder sonst was und du merkst davon gar nichts.
BTW, If msg.Sender.Handle = Skype.CurrentUserHandle Then kannst du gleich mit rausnehmen

Werde ich versuchen..wenn ich aber das if... raus haue und z.b mache das er automatisch antwortet, antwortet er 2mal

[tolio]

genau deswegen solltest du wie schon mehrfach gesagt den tchatmessagestatus abfragen und danach zu gehen

[False]

Originally Posted by tolio

genau deswegen solltest du wie schon mehrfach gesagt den tchatmessagestatus abfragen und danach zu gehen

Dann ist das gleiche Problem.. es kommen im Programm nicht alle Nachrichten an ^.^

[xxfabbelxx]

Originally Posted by 'Heaven.

Imports SKYPE4COMLib

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    	Dim Skype = New SKYPE4COMLib.Skype
    	Dim Skype_ As New Skype
    	Skype.Attach(7, False)
    	AddHandler Skype.MessageStatus, AddressOf skype_MessageStatus
	End Sub

Public Sub skype_MessageStatus(ByVal msg As ChatMessage, ByVal status As TChatMessageStatus)
    Dim Message As String
    Dim BotName As String = "Server"
    Try

        If status = TChatMessageStatus.cmsReceived Then
            Message = msg.Body
                Message = Message.Remove(0, 1)
                msg.Chat.SendMessage(BotName & ": " & Message)
        End If
    Catch ex As Exception
    End Try
End Sub

Diesen Code hab ich schonmal vor ein paar Monaten gesehen und ausprobiert.

Er scheint aber bei mir nicht zu funktionieren. Bei der AddHandler Anweisung gibt er einen Fehler auf, dass die Public Sub skype_MessageStatus nicht der delegate sub entspricht.

Ich habe nicht so dermaßen tiefgehende Ahnung, aber wie könnte ich das beheben?

[False]

Originally Posted by xxfabbelxx

Diesen Code hab ich schonmal vor ein paar Monaten gesehen und ausprobiert.

Er scheint aber bei mir nicht zu funktionieren. Bei der AddHandler Anweisung gibt er einen Fehler auf, dass die Public Sub skype_MessageStatus nicht der delegate sub entspricht.

Ich habe nicht so dermaßen tiefgehende Ahnung, aber wie könnte ich das beheben?

Bei mir gingen alle Codes die geschrieben wurden, nur immer das selbe Problem das welche ausgelassen wurden ;D