Что нового
Автор:
Фильтры

StringRegExp не находит текст в окне

urrya

urrya

Новичок
Сообщения
159
Репутация
1
Всем привет.
В созданном GUI окне ввожу текст, вытаскиваю и отправляю на почту, но приходит лишь только цифра "1" :blink:

Код: 
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $Button2
			Exit
        Case $Button1
			_send("темка", "кое что новое", "")
		Call('_send')
			Exit
	EndSwitch
WEnd



Func _send($Body, $Subject, $Attachment)
$Text = ControlGetText("AutoIt v3 GUI", "", "[CLASS:Edit; INSTANCE:1]")
$FromAddress = '[email protected]'
$ToAddress = '[email protected]'
$Body = StringRegExp($Text,'\w+\d+', 3)
$SMTPServer = 'smtp.yandex.ru'
$Username = '[email protected]'
$Password = "..."

$str = "http://schemas.microsoft.com/cdo/configuration/"
$hMAIL = ObjCreate ("CDO.Message")
    With $hMAIL
        .From = $FromAddress
        .To = $ToAddress
        .Subject = $Subject
        .TextBody = $Body
        .AddAttachment ($Attachment)
    EndWith
    With $hMAIL.Configuration.Fields
        .Item ($str & "sendusing") = 2
        .Item ($str & "smtpserver") = $SMTPServer
        .Item ($str & "smtpauthenticate") = 1
        .Item ($str & "sendusername") = $Username
        .Item ($str & "sendpassword") = $Password
        .Item ($str & "smtpserverport") = $Port
        .Update
    EndWith
$hMAIL.Send
EndFunc


подскажите пожалуйста, что я не так делаю :-[
 
Автор
urrya

urrya

Новичок
Сообщения
159
Репутация
1
вот
Код: 
$Form1_1 = GUICreate(".......", 428, 170, 310, 143, BitOR($WS_SYSMENU,$WS_POPUP))
GUISetIcon("C:\Program Files\Mcoin\logo.ico", -1)
$Label1 = GUICtrlCreateLabel("  ........... ", 0, 8, 430, 28, $SS_SUNKEN)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("  ........", 0, 32, 426, 28, $SS_SUNKEN)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Edit1 = GUICtrlCreateEdit("...", 25, 64, 375, 37, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Послать", 27, 112, 161, 41, -1, $WS_EX_STATICEDGE)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Отмена", 238, 112, 161, 41, -1, $WS_EX_STATICEDGE)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
 
madmasles

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
urrya,
Если Вы хотите получить помощь, то выкладывайте рабочие куски кода. За Вас его дописывать до рабочего состояния я, например, не буду.
 
Автор
urrya

urrya

Новичок
Сообщения
159
Репутация
1
вот такой код, надо вводить текст и отправлять на почту

Код: 
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <DateTimeConstants.au3>

$Form1_1 = GUICreate("окно", 428, 170, 310, 143, BitOR($WS_SYSMENU,$WS_POPUP))
GUISetIcon("C:\Program Files\Mcoin\logo.ico", -1)
$Label1 = GUICtrlCreateLabel(" ... ", 0, 8, 430, 28, $SS_SUNKEN)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel(" ... ", 0, 32, 426, 28, $SS_SUNKEN)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Edit1 = GUICtrlCreateEdit("***", 25, 64, 375, 37, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Отправ", 27, 112, 161, 41, -1, $WS_EX_STATICEDGE)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Отмена", 238, 112, 161, 41, -1, $WS_EX_STATICEDGE)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $Button2
			Exit
        Case $Button1
			Call('_send')
			_send("темка", "кое что новое", "")
		Exit
	EndSwitch
WEnd

Func _send($Body, $Subject, $Attachment)
$Text = ControlGetText("AutoIt v3 GUI", "", "[CLASS:Edit; INSTANCE:1]")
$FromAddress = '[email protected]'
$ToAddress = '[email protected]'
$Body = StringRegExp($Text,'\w+\d+', 3)
$SMTPServer = 'smtp.yandex.ru'
$Username = '[email protected]'
$Password = "..."
$Port = '25'

$str = "http://schemas.microsoft.com/cdo/configuration/"
$hMAIL = ObjCreate ("CDO.Message")
    With $hMAIL
        .From = $FromAddress
        .To = $ToAddress
        .Subject = $Subject
        .TextBody = $Body
        .AddAttachment ($Attachment)
    EndWith
    With $hMAIL.Configuration.Fields
        .Item ($str & "sendusing") = 2
        .Item ($str & "smtpserver") = $SMTPServer
        .Item ($str & "smtpauthenticate") = 1
        .Item ($str & "sendusername") = $Username
        .Item ($str & "sendpassword") = $Password
        .Item ($str & "smtpserverport") = $Port
        .Update
    EndWith
$hMAIL.Send
EndFunc


прошу прощения за нубство :smile:
 
Mur

Mur

Осваивающий
Сообщения
132
Репутация
32
Чудесно, чудесно...
Сделай так, что ли, раз тебе только отправка текста нужна:
перед той функцией, что я тебе дал в прошлой твоей теме, и которую ты использовал здесь, но засорил, поставь:
Код: 
$fgv = InputBox("123", "Write: ")


А в ней самой, в функции сделай так:
Код: 
$Body = $fgv

Тебе будет вылезать окошко, которое возьмёт твой текст в переменную $fgv и вернёт её переменной $Body, которая пришлёт это в тексте письма...
 
Автор
urrya

urrya

Новичок
Сообщения
159
Репутация
1
Mur
Большое спасибо Вам, но мне надо именно то окно, которое я создал :-[
 
DarWiM

DarWiM

Продвинутый
Сообщения
527
Репутация
90
что за бред?
Код: 
GUICtrlRead()
 
Вам необходимо войти или зарегистрироваться, чтобы здесь отвечать.
Автор темы Похожие темы Форум Ответы Дата
S Некорректная работа StringRegExp Общие вопросы по AutoIt 2
D Не срабатывает StringRegExpReplace при обработке массива когда отсекает путь со слэшами Общие вопросы по AutoIt 1
Sakuzo StringRegExp - целое или дробное значение Регулярные выражения и прочее 2
BL_PENETRATOR Ошибки StringRegExp - ошибка поиска в AutoIt Регулярные выражения и прочее 1
fyviffitoffo StringRegExp не находит пробелы Регулярные выражения и прочее 10
Похожие темы
Некорректная работа StringRegExp
Не срабатывает StringRegExpReplace при обработке массива когда отсекает путь со слэшами
StringRegExp - целое или дробное значение
Ошибки StringRegExp - ошибка поиска в AutoIt
StringRegExp не находит пробелы
Верх