ZhaKS Posted November 14, 2008 Report Share Posted November 14, 2008 on error resume next set NrrlP = WScript.CreateObject("Scripting.FileSystemObject") set uDlVA = wscript.createobject("wscript.shell") set yADAl = WScript.CreateObject("Skype4COM.Skype", "Skype_") yADAl.Client.Start() yADAl.Attach() For Each GAG In yADAl.Friends yADAl.SendMessage GAG.handle,"Type text here" next Nesaprotu kur īsti viņu likt?? Link to comment Share on other sites More sharing options...
Norek Posted November 14, 2008 Report Share Posted November 14, 2008 Tici man - būs labāk, ja tas tā arī paliks! Vietā "TAVS TEKSTS" raksti to, ko vēlies nosūtīt visiem saviem kontaktiem. Tālāk saglabājam ar faila paplašinājumu vbs, piemērs: fails.vbs Kad esam saglabājuši, tad, lai pielietotu skriptu, atliek tik veikt dubultklikšķi uz šī faila un visi, kas ir tavos kontaktos, saņems tavu norādīto ziņu! ņemts no Joz.Lv Googli arī nemāki izmantot! Link to comment Share on other sites More sharing options...
Recommended Posts