skript na automatické odesílání obrázků

[Call993]

Zdravím,potřeboval bych poradit,jak vytvořit skript pro automatické odeslání obrázků.Abych vám vysvětlil situaci,tak to řeknu takhle: Jeden týpek na aukru firewalker123 prodává klíče do her,hned jak se mu na aukro účtu připíší peníze,do 20sekund máte oskenovaný klíč na emailu.Tento skript bych potřeboval vytvořit,psal jsem mu,jestli by mi ho nemohl prodat a neustále píše že neví,že se musí dohodnout. Předem díky za odpovědi.

[Reklama]

[Štučka]

Scénář byl napsán v jazyce Visual Basic. Použijte ho jako vzor. Změnte i dejte ho do Plánovač úloh.

Dim objEmail, sDirectoryPath

Set oFSO = CreateObject("Scripting.FileSystemObject")
sDirectoryPath = "C: youdir"
set oFolder = oFSO.GetFolder(sDirectoryPath)
set oFileCollection = oFolder.Files

For each oFile in oFileCollection
Set objEmail = CreateObject("CDO.Message")
objEmail.Bodypart.Charset = "windows-1252"
objEmail.From = "uz@praha.cz"
objEmail.To = "rc@praha.cz"
objEmail.Subject = "Theme"
objEmail.Textbody = "Letter Content"

objEmail.AddAttachment oFile.Path

objEmail.Configuration.Fields.Item ("http://www.site.com/sendusing") = 2
objEmail.Configuration.Fields.Item ("http://www.site.com/smtpserver") = "SMTP Server"
objEmail.Configuration.Fields.Item ("http://www.site.com/smtpserverport") = 25
objEmail.Configuration.Fields.Item ("http://www.site.com/sendusername") = "Send Username"
objEmail.Configuration.Fields.Item ("http://www.site.com/sendpassword") = "Send Password"
objEmail.Configuration.Fields.Update
objEmail.Send
Set objEmail = Nothing
Next


Uložte skript s .vbs