[DImaN!]

Для того, чтобы было нагляднее: мне нужно создать скрипт, который будет автоматом при помощи командной строки отправлять сообщения. ВОт код моего скрипта:

Код:

#include <GUIConstants.au3>
#include <Date.au3>
#RequireAdmin

GUICreate("TelnetForm", 360, 490)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)

GUICtrlCreateTabItem("")

GUICtrlCreateLabel("Программа для отправки писем при помощи Telnet", 50, 10)
GUICtrlCreateLabel("POP Сервер", 5, 50)
GUICtrlCreateLabel("Отправитель", 5, 80)
GUICtrlCreateLabel("Получатель", 5, 110)
GUICtrlCreateLabel("Тема письма", 5, 140)

$srv  = GUICtrlCreateInput ("", 105, 50, 250)
$from = GUICtrlCreateInput ("", 105, 80, 250)
$to   = GUICtrlCreateInput ("", 105, 110, 250)
$subj   = GUICtrlCreateInput ("", 105, 140, 250)

GUICtrlCreateLabel("Тело письма", 5, 190)
$body = GUICtrlCreateEdit("", 20, 230, 320, 210, $ES_AUTOVSCROLL+$WS_VSCROLL)

$button = GUICtrlCreateButton("Отправка сообщения", 105, 450)

GUISetState(@SW_SHOW)

While 1 
    $nMsg = GUIGetMsg() 
    Switch $nMsg 
        Case $GUI_EVENT_CLOSE 
            Exit 
        Case $button 
            ButtonClick() 
    EndSwitch 
WEnd 

	Func ButtonClick()
		Run("cmd.exe")
		ProcessWait("cmd.exe")
		SEND("telnet")
		SEND("{ENTER}")
		Sleep(200)
			$sRead = GUICtrlRead($srv)
			SEND("o " & $sRead & " 25")
		Sleep(200)
		Send("{ENTER}") 

		Sleep(3000)
		SEND("HELO W" & "{ENTER}")
			$sRead2 = GUICtrlRead($from)
 			SEND("MAIL FROM: " & "<" & $sRead2 & ">" & "{ENTER}")
		Sleep(300)
			$sRead3 = GUICtrlRead($to)
 			SEND("RCPT TO: " & "<" & $sRead3 & ">" & "{ENTER}")
		Sleep(300)
			Send("DATA" & "{ENTER}")
		Sleep(300)
			SEND("From: " & "<" & $sRead2 & ">" & "{ENTER}")
			SEND("To: " & "<" & $sRead3 & ">" & "{ENTER}")
			
			$sRead5 = GUICtrlRead($subj)
			SEND("Subject: " & $sRead5 & "{ENTER}")
			
			$sShortDayName = _DateDayOfWeek( @WDAY, 1 )
			$sNewDate = _DateAdd( 'n',0, _NowCalc())

			SEND("Date: "  & $sShortDayName & ", " & $sNewDate & " " & "{+}0200" & "{ENTER}")
		SEND("MIME-Version: 1.0" & "{ENTER}")
		SEND("Content-Language: ru")
		SEND("{ENTER}" & "{ENTER}")
				
			$sRead4 = GUICtrlRead($body)
	 		SEND($sRead4 & "{ENTER}")
		SEND("{ENTER}")
		SEND(".")
		SEND("{ENTER}")
		Sleep(200)
		SEND("quit" & "{ENTER}")
		Sleep(700)
		SEND("{ENTER}" & "{ENTER}")
		Sleep(1000)
		SEND("quit" & "{ENTER}")
		Sleep(500)
		SEND("exit" & "{ENTER}")

	endFunc

В чем проблема: когда нажимаю на кнопку "отправить" поднимается командная строка. Но при вводе команды "telnet" открывается не стандартный телнет, а новая копия данной программы. В чем может быть причина? возможно я просто неправильно изложил пролему...