[266903582]

SEND(guictrlread($указатель_на_текстбокс) & $myvar)

как можно сделать так, чтобы при нажатии на кнопку открывалася процесс cmd.exe »

Я делаю так:

Код:

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
Opt("GUIOnEventMode", 1) ; Подключаем режим OnEvent
$Form1 = GUICreate("Form1", 249, 113)
GUICtrlCreateInput("", 16, 16, 201, 21)
$Checkbox1 = GUICtrlCreateCheckbox("Чекбокс", 16, 48, 105, 17)
$Button1 = GUICtrlCreateButton("Кнопка", 16, 72, 73, 25, 0)
GUISetOnEvent($GUI_EVENT_CLOSE, "Close")
GUICtrlSetOnEvent($Button1, "RunCMD")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
Sleep(100)
WEnd

Func RunCMD()
	Run("cmd.exe")
EndFunc

Func Close()
	Exit
EndFunc

Но, быть может, гуру подскажут другой, более простой способ.

[Creat0R]

А зачем Send, можно запустить сразу команду:

Код:

Run(@ComSpec & ' /C Dir D:\ & Pause')

Для содержимого в GUI:

Код:

$sRead = GUICtrlRead($iCtrlID)
Run(@ComSpec & ' /C ' & $sRead)

[DImaN!]

Огромное спасибо за помощь!
Еще один наводящий вопрос.. Можно ли как-то запустить от имени администратора коммандную строку под ОС Windows Vista?

Можно ли как-то сделать так, чтобы при нажатии на кнопку открытия командной строки (во время выполнения скрипта) все действия выполнялись только в командной строке и нельзя было перейти в другое прложение . Помогите пжл

[Creat0R]

Можно ли как-то запустить от имени администратора коммандную строку под ОС Windows Vista? »

В начало скрипта нужно поместить #RequireAdmin, и/или запускать через RunAs().

Можно ли как-то сделать так, чтобы при нажатии на кнопку открытия командной строки (во время выполнения скрипта) все действия выполнялись только в командной строке и нельзя было перейти в другое прложение »

А вот это не совсем понятно, что значит «нельзя было перейти в другое прложение»? блокировать всё вокруг? что блокировать, ввод с клавиатуры, клики мышкой? Подробнее.

[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" открывается не стандартный телнет, а новая копия данной программы. В чем может быть причина? возможно я просто неправильно изложил пролему...

[Creat0R]

при вводе команды "telnet" открывается не стандартный телнет, а новая копия данной программы »

Открывает в cmd.exe, если нужно отдельно то запускать нужно сразу telnet.exe.

Код:

Run("telnet.exe")
    ProcessWait("telnet.exe")

P.S
И вообще, все эти Send... это очень не надёжно, я бы делал всё через StdInWrite/Read и в скрытом положении, отображая данные в GUI (ведь как я понимаю, на то и был создан GUI для telnet ).

[DImaN!]

Спасибо, возможно переделаю используя StdInWrite/Read, но на данном этапе, все равно, после того, как поменял cmd.exe на telnet.exe открывается не окно телнета, а вторая копия программы. В чем может быть причина?

[Creat0R]

открывается не окно телнеа, а вторая копия программы »

Какой программы? у меня ничего не октрывается кроме telnet'а.