L’interfaccia di programma di Skype non permette di salvare in locale una copia delle immagini associate al profilo dei propri contatti. Questo perché i nostri contatti risiedono sui server di Skype.
Esiste comunque un metodo per recuperare le immagini dei propri contatti di Skype attraverso l’utilizzo della libreria Skype4COM.dll che è un componente ActiveX già disponibile se abbiamo installato Skype.
Per prima cosa creiamo un file di testo vuoto con estensione txt.
Quindi apriamolo con un editor testuale e incolliamo al suo interno questo codice:
Set mSkype = WScript.CreateObject("Skype4COM.Skype", "Skype_")
Set Shell = Wscript.CreateObject("Wscript.Shell")
DesktopFolder = Shell.SpecialFolders("Desktop")
ContactName = InputBox("Enter the contact's Skype User Name." & CHR(13) & "Note that this must be the User Name and not the Display Name:", "User Name")
If ContactName = "" Then
WScript.Echo("You must enter a valid contact's Skype User Name")
WScript.Quit
Else
If mSkype.User(ContactName).FullName = "" then
WScript.Echo("Sorry, the name '" & ContactName & "' is not in your Contact List")
WScript.Quit
End If
End If
PictureFileName = DesktopFolder & "\" & ContactName & ".jpg"
cmdStr = "GET USER " & ContactName & " AVATAR 1 " & PictureFileName
mSkype.SendCommand mSkype.Command(0, cmdStr)
Salviamo quindi il file, e modifichiamone l’estensione in vbs.
Facciamo doppio clic sul file per eseguirlo, Skype deve essere in esecuzione e dobbiamo aver eseguito l’accesso con il nostro account personale.
La prima volta che viene eseguito questo file, Skype ci chiederà di consentire l’accesso a questa applicazione da parte di Skype.
Inseriamo quindi il nome Skype dell’utente (non il nome visualizzato) che ci interessa e premiamo il pulsante OK.
Se il nome dell’utente esiste tra i nostri contatti di Skype, verrà creato sul Desktop un file immagine in formato Jpeg contenente l’immagine associata al suo profilo.
Ripetiamo l’operazione per tutti i contatti per i quali desideriamo estrarre l’immagine del profilo.