Konu Görünümü | Doğrusal Görünüm

***ozsarman*** · 03-12-2010, 02:36 PM

Aşağıda yer alan satırları bir notepad dosyası içine yazıp, çift tıklayıp çalıştırırsanız SMTP sunucuya bağlanıp mali göndermeye çalıştığını göreceksiniz.

Kod:

set WshShell = WScript.CreateObject("WScript.Shell") 

WshShell.Run "telnet 127.0.0.1 25" 

WScript.Sleep 1000 

WshShell.SendKeys "helo localhost" 

WshShell.SendKeys "{ENTER}" 

WScript.Sleep 1000 

WshShell.SendKeys "mail from:turev@" 

WshShell.SendKeys "{ENTER}" 

WScript.Sleep 2500 

WshShell.SendKeys "rcpt to:deneme@denemeler.com" 

WshShell.SendKeys "{ENTER}" 

WScript.Sleep 1000 

WshShell.SendKeys "data" 

WshShell.SendKeys "{ENTER}" 

WScript.Sleep 1000 

WshShell.SendKeys "deneme telnet" 

WshShell.SendKeys "{ENTER}" 

WScript.Sleep 1000 

WshShell.SendKeys "." 

WshShell.SendKeys "{ENTER}"

'Windows Scripting Örneği' Konusunu Paylaş