Problem mit Nachrichten empfangen(Skype Api)

Page 1 of 2 1 2
12/02/2012 14:55 False#1
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 :
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
12/02/2012 16:59 tolio#2
was genau willst du damit bewirken?
If msg.Sender.Handle = Skype.CurrentUserHandle Then
ansonsten ist der code der standart aus der doku und klappt
12/03/2012 14:15 False#3
Quote:
Originally Posted by tolio View Post
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
12/03/2012 18:50 tolio#4
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
12/03/2012 19:43 False#5
Same..
Ich meine nicht das skype nicht alle angezeigt werden sondern im programm dann >.<
12/03/2012 20:35 tolio#6
ja aber wodran solls liegen wenn nicht an skype, also neu installen.
wenn du über tmessagestatus filterst bekommst garantiert jede nachricht
12/04/2012 15:25 False#7
Quote:
Originally Posted by tolio View Post
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!
12/04/2012 16:46 'Heaven.#8
Code:
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
[Only registered and activated users can see links. Click Here To Register...]
12/04/2012 17:42 False#9
Quote:
Originally Posted by 'Heaven. View Post
Code:
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
[Only registered and activated users can see links. Click Here To Register...]
ist doch eigentlich genau das selbe ...>.<
12/04/2012 17:47 Kraizy​#10
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
12/06/2012 14:28 False#11
Quote:
Originally Posted by Kraizy​ View Post
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 ;)
12/07/2012 23:24 tolio#12
genau deswegen solltest du wie schon mehrfach gesagt den tchatmessagestatus abfragen und danach zu gehen
12/10/2012 15:59 False#13
Quote:
Originally Posted by tolio View Post
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 ^.^
01/01/2013 02:56 xxfabbelxx#14
Quote:
Originally Posted by 'Heaven. View Post
Code:
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
[Only registered and activated users can see links. Click Here To Register...]
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?
01/01/2013 09:40 False#15
Quote:
Originally Posted by xxfabbelxx View Post
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
Page 1 of 2 1 2