creation d'un profile RTC avec VB

Bonjour a tous! je suis en train d'ecrire un controle activeX en VB afin de pouvoir envoyer des messages instantannées vers un PC connecté a mon serveur SIP! Le problème que je rencontre avec l'utilisation de la référence RTCCorelib 1.2 c'est que je n'arrive pas a créér un profile et donc a me connecter à mon serveur SIP! Quelqu'un a-t-il deja eu ce problème? prière de m'en donner la solution Merci!!
voici le code utilisé:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
 
        'INITIALISATION DU RTC
 
Set g_objRTCClient = New RTCClient
 
Call g_objRTCClient.Initialize
 
Set g_objProvisioning = g_objRTCClient
 
 
g_objRTCClient.EventFilter = RTCEF_CLIENT Or _
                        RTCEF_REGISTRATION_STATE_CHANGE Or _
                        RTCEF_SESSION_STATE_CHANGE Or _
                        RTCEF_SESSION_OPERATION_COMPLETE Or _
                        RTCEF_PARTICIPANT_STATE_CHANGE Or _
                        RTCEF_MESSAGING
 
Set g_objRTCClientWithEvents = g_objRTCClient
g_objRTCClient.ListenForIncomingSessions = RTCLM_BOTH
 
strLocalIP = "exemple.com"
account.Text = "cyreel"
password.Text = "cyreel"
sipsrv.Text = "192.xxx.xxx.xxx"
URI.Text = "cyreel"
 
strXMLProfile = "<provision key=" & Chr(34) & "5B29C449-29EE-4fd8-9E3F-04AED077690E" & Chr(34) & vbCrLf _
               & "name=" & Chr(34) & "SoftPhone.XML" & Chr(34) & ">" & vbCrLf & vbCrLf _
              & "<user account=" & Chr(34) & account.Text & Chr(34) & vbCrLf _
             & "password=" & Chr(34) & password.Text & Chr(34) & vbCrLf _            & "uri=" & Chr(34) & "sip:" & URI.Text & "@" & strLocalIP & Chr(34) & " />" & vbCrLf _
           & "<sipsrv addr=" & Chr(34) & sipsrv.Text & Chr(34) & vbCrLf _
           & "protocol=" & Chr(34) & "UDP" & Chr(34) & vbCrLf _
           & "auth=" & Chr(34) & "digest" & Chr(34) & vbCrLf _
           & "role=" & Chr(34) & "proxy" & Chr(34) & ">" & vbCrLf _
           & "<session party=" & Chr(34) & "first" & Chr(34) & " type=" & Chr(34) & "pc2pc" & Chr(34) & " />" & vbCrLf _
           & "<session party=" & Chr(34) & "first" & Chr(34) & " type=" & Chr(34) & "pc2ph" & Chr(34) & " />" & vbCrLf _
           & "<session party=" & Chr(34) & "first" & Chr(34) & " type=" & Chr(34) & "im" & Chr(34) & " />" & vbCrLf _
           & "</sipsrv>" & vbCrLf _
           & "<sipsrv addr=" & Chr(34) & sipsrv.Text & Chr(34) & vbCrLf _
           & "protocol=" & Chr(34) & "UDP" & Chr(34) & vbCrLf _
           & "auth=" & Chr(34) & "digest" & Chr(34) & vbCrLf _
           & "role=" & Chr(34) & "registrar" & Chr(34) & ">" & vbCrLf _
           & "</sipsrv>" & vbCrLf & vbCrLf & "</provision>"
 
 
Set g_objProfile = g_objProvisioning.CreateProfile(strXMLProfile )
Call g_objProvisioning.EnableProfile(g_objRTCClient, RTCRF_REGISTER_ALL)

j'ai meme créé un fichier XML local que j'ai lu avec TextStream mais le probleme démeure. Tout en espérant m'etre fait comprendre j'attend vos reponses!!