Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > it.comp.lang.visual-basic > #18938

Re: Uso di SKYPE4COM con Visual basic 6

Show all headers | View raw

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

Back to it.comp.lang.visual-basic | Previous | Next | Find similar

Thread

Re: Uso di SKYPE4COM con Visual basic 6 MYAo <maurotassera@gmail.com> - 2016-12-05 10:26 -0800

csiph-web