[Skype] Ziņas nosūtīšana visiem kontaktiem - Viss pārējais - Pamācības

FORUMA LAPA

Lietotāju sarunas

BUZZ AMATU MEKLĒJUMOS | KONKURSS! IESPĒJA IEGŪT ESKLUZĪVU REKLĀMAS VIETU PORTĀLĀ!

Lappuse 1 no 1
1

[Skype] Ziņas nosūtīšana visiem kontaktiem (skype)

[Skype] Ziņas nosūtīšana visiem kontaktiem

wuxmachine

Pievienots: Sestdiena, 12.02.18, 12:48 | Ieraksts # 1 Offline

Atveram Start --> Run --> rakstam iekšā notepad.exe un spiežam enter.
Tālāk atveras logs, kurā rakstam pašu skriptu, kas ir šāds:

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()
For Each GAG In yADAl.Friends
yADAl.SendMessage GAG.handle,"Pamācības!!!"
next

Vietā "Pamācības!" raksti to, ko vēlies nosūtīt visiem saviem kontaktiem.

Tālāk saglabājam ar faila paplašinājumu vbs, piemērs: pamacibas.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!

Autors: smoolly