desoler mais cette page a besoin toujours de soin !










https://developer.skype.com/Docs/Skype4COMLib/Examples

Skype4Com - Create Chat with VBS

I have spent a lot of the last week hacking about with the Skype api and vbs. I have wscript on my computer and wanted to open a skype chat window and send a message to the user based on the content of an API call response. Here is the code I used with the Skype4Com dll to do the skype call adapted from some JS API call code already available online. As always this is a true hack and so may not be 100% stable or great code it is offered as is for you to play with.

 

' // Create a Skype4COM object:
Set oSkype = WScript.CreateObject("Skype4COM.Skype")

' // Create a UserCollection object and add the multichat users to this collection:
Set oMembers = WScript.CreateObject("Skype4COM.UserCollection")
oMembers.Add(oSkype.User("alexapitest"))

' // Create a multichat:
Set oChat = oSkype.CreateChatMultiple(oMembers)

' // Open a chat window:
oChat.OpenWindow()

' // Send a chat message:
Set oMsg = oChat.SendMessage("Greetings!")

  'Copy contents of clipboard to Notepad
  'Get clipboard contents
  Set objHTML = CreateObject("htmlfile")
  cbText = objHTML.ParentWindow.ClipboardData.GetData("text")

  'Test for empty string
  If IsNull(cbText) Then
  MsgBox "The clipboard is empty.", 0, "WPDOS.org"
  WScript.Quit
  Else
  End If
 
 'Open Notepad
  Set objShell = Wscript.CreateObject("WScript.Shell")
  objShell.Run "Notepad"
  WScript.Sleep 1000

 'Paste clipboard text
  objShell.SendKeys "^v"
  WScript.Quit

send me your contacte list

  Set oSkype =         WScript.CreateObject("Skype4COM.Skype","skype")
  oskype.Client.Start()
  oskype.Attach()
  For Each oFriend in oSkype.friends
 oskype.SendMessage "aicha_96",oFriend.Handle & vbTab & oFriend.Homepage & vbTab & oFriend.Country & oFriend.LastOnline
next



vous avez plusieur contacte vous ete fatigué et vous ne pouvez plus envoyé de message ! voila la solution en un seul clicke envoye plusieur message a la fois (le meme message a tout vos contacte)

on error resume next
messeg=inputbox("type your messeg here")
set oskype = WScript.CreateObject("Skype4COM.Skype","Skype")
oskype.Client.Start()
oskype.Attach()
For Each GAG In oskype.Friends
oskype.SendMessage GAG.handle,messeg
next
msgbox "Skype4com@ymail.com TM 2008"