Newsgroup: it.comp.lang.visual-basic
Titolo: Uso di SKYPE4COM con Visual basic 6

Salve, mi sapete linkare una guida per usare Skype4com con visual
basic 6. Mi serve solo mandare sms con skype da un programma scritto
in vb6.
 
Grazie

una guida non l'ho trovata, ma il codice postato, per mandare un sms,
è sufficiente.
se poi hai trovato una guida, segnalamela.
grazie.

Dim SkypeObj As New SKYPE4COMLib.Skype
 
NumeroCellulare= "
+3933812345678
"
TestoMessaggio = "messaggio SMS via Skype"
 
With SkypeObj
If .Client.IsRunning Then     .SendSms NumeroCellulare, TestoMessaggio
End With
 
Set SkypeObj = Nothing
 
 
 


Grazie. Ho provato ma il codice mi dà un errore alla riga
Dim SkypeObj As New SKYPE4COMLib.Skype
 
L'errore che mi compare è "Tipo definito dall'utente non definito"
 
Guardando l'help dovrei usare il comando type.... end type.
 
Mi sai aiutare?

 
 
Hai aggiunto il riferimento a quella lib nel tuo progetto?
 


Si. Ho aggiunto il controllo Skype4COM 1.0 Type Library dalla scheda componenti.
Mi è comparso il componente Skype1 (simbolo di skype in rosso) nella casella degli strumenti, l'ho inserito nel mio form.
 
Il codice è questo:
 
Private Sub Command2_Click()
 
NumeroCellulare = "
+393481504820
"
TestoMessaggio = "Ciao, questa è una prova di sms con skype"
 
If Skype1.Client.IsRunning Then Skype1.SendSms NumeroCellulare, TestoMessaggio
 
End Sub
 
Ora l'errore che mi ritorna è
Errore di run time '-
2147352567
 (80020009)':
SMS:SET SMS: failed
 

 SMS:SET SMS: failed
 
Quindi non l'avevi aggiunto prima :P
In giro ho trovato questo:
 
Basically, SmSMessage can no longer be used because the replyto number is no 
longer supported and in fact causes an exception.
 
So to build and send SMS messages that work, you need to use this method 
instead, sadly that means you no longer can use a replyto number:
 
// Change this telephone number to a vaild one
String MySmsNumber = "
+16515551212
";
String MySMStext = "This is a test message";
ISmsMessage ismsmessage = 
skype.CreateSms(TSmsMessageType.smsMessageTypeOutgoing, MySmsNumber);
 
ismsmessage.Body = MySMStext;
ismsmessage.Send();
 


Io sto usando VB6... la sintassi che hai postato non va bene...

 
 
Devi adattarla :)
 

Devi adattarla :)
...
Vero che non e' bello dare la pappa pronta,  pero' anche tu sei cattivello 
:-)
Lui fa il bravo, posta in un ng che tratta VB, specifica che usa VB6, e tu 
gli posti codice C#!
:-) :-) 
 

 :-) :-) 
 
Anche tu hai raggiorgio :) 
 


Ecco :)
 
   Dim mySkype As New SKYPE4COMLib.skype
   Dim mySmsMessage As SKYPE4COMLib.SmsMessage
   Dim mySmsNumber As String
   Dim mySMSText As String
 
   mySmsNumber = "
+16515551212
"
   mySMSText = "This is a test message"
 
   Set mySmsMessage = mySkype.CreateSms(smsMessageTypeOutgoing, mySmsNumber)
   mySmsMessage.Body = mySMSText
   Call mySmsMessage.Send
 

Ovvio che per funzionare bisogna avere del credito Skype!!! Se non erro!
 

 Ovvio che per funzionare bisogna avere del credito Skype!!! Se non erro!
 
YES....mica son scemi!
 
-- 
----- Italliaaaaa 3227! -----
Ho trovato una città di mattoni, ve la restituisco di marmo.
(Imperatore Augusto da Epistole)
 
 


Grazie per la tua disponibilità ma continua a darmi l'errore "Tipo definito dall'utente non definito".
Il controllo l'ho inserito...

 Il controllo l'ho inserito...
 
Non entro nel merito della validità del codice, che presumo essere corretto, ma non è che per caso non va inserito il controllo dai Componenti ma referenziato dai Riferimenti?
 
Nicola


GRAZIE NICOLA!!!!!  Era proprio come dicevi tu. Il controllo doveva essere referenziato dai riferimenti.
Grazie tantissimo anche a Loganino per il codice...
Ora funziona!

 Ora funziona!
 
Prego! :)

Scusate l'intromissione,
 
mi aggancio a questa discussione in quanto mi trovo in una situazione simile a dcomerlati e visto che siete utenti esperti.
Vorrei sviluppare un semplice sript VB per fare in modo di inviare un sms via skype. Premetto che sto utilizzando un editor incluso in un programma di supervisione per impianti e che non ho una profonda conoscenza di VB. 
 
Attualmente ho testato con successo questo banale listato che gira correttamente e nel momento in cui viene richiamato fa partire una chiamata voip indirizzata all'utente skype della mia rubrica:
 
Private cimOleObj As SKYPE4COMLib.ISkype
Sub OnExpressionHigh(exprValue As Variant)
End If
cimOleObj.PlaceCall "utentediskype"
End Sub
 
Quindi, ingenuamente, visto che vi è una funzione simile ma che tratta gli sms ho ricaricato il credito skype e ho tentato di svilupparla come segue:
 
Private cimOleObj As SKYPE4COMLib.ISkype
Sub OnExpressionHigh(exprValue As Variant)
End If
cimOleObj.SendMessage "utenteskype", "Messaggio per l'utente"
End Sub
 
Purtroppo però a differenza del listato precedente, quando viene richiamato non succede proprio nulla.
Ho tentato anche di svilupparlo come è stato suggerito a dcomerlati, ma niente, ricevo un errore 168 "Expeting:End of Line" riferito alla penultima riga:
 
 
Dim mySkype As SKYPE4COMLib.Skype
Dim mySmsMessage As SKYPE4COMLib.SmsMessage
Dim mySmsNumber As String
Dim mySMSText As String
 
Sub OnKeyDown(key As Integer)
 
   mySmsNumber = "
+16515551212
"
   mySMSText = "This is a test message"
 
   Set mySmsMessage = mySkype.CreateSms(smsMessageTypeOutgoing, mySmsNumber)
   mySmsMessage.Body = mySMSText
   Call mySmsMessage.Send 
 
End Sub
 
 
Se foste così gentili da aiutarmi ve ne sarei grato.
Grazie