Что нового

[Сеть, интернет] СкрипОтправка формы методом POST

Статус
Закрыто для дальнейших ответов.

astati

Новичок
Сообщения
145
Репутация
4
Здравствуйте!
Пишу т.к. ничего не нашел подходящево для меня у вас на форуме и FAQ от Creator не внес довольной ясности.

Есть форма
Код:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#Region ### START Koda GUI section ### Form=d:\олег\programms\koda_1.7.3.0\forms\alaplaya.kxf
$Form1_1 = GUICreate("", 248, 377, 192, 124)
$Label1 = GUICtrlCreateLabel("Login Name / ID:", 24, 24, 86, 17)
$Label2 = GUICtrlCreateLabel("Password:", 56, 48, 53, 17)
$Label3 = GUICtrlCreateLabel("Re password:", 40, 72, 69, 17)
GUICtrlCreateInput("", 112, 24, 121, 21)
GUICtrlCreateInput("", 112, 48, 121, 21)
GUICtrlCreateInput("", 112, 72, 121, 21)
$Label4 = GUICtrlCreateLabel("Nickname:", 56, 112, 55, 17)
GUICtrlCreateInput("", 112, 112, 121, 21)
$Label5 = GUICtrlCreateLabel("Email:", 80, 136, 32, 17)
GUICtrlCreateInput("", 112, 136, 121, 21)
$Label6 = GUICtrlCreateLabel("Re email:", 64, 160, 48, 17)
GUICtrlCreateInput("", 112, 160, 121, 21)
$Label7 = GUICtrlCreateLabel("Birthday:", 64, 216, 45, 17)
GUICtrlCreateInput("", 112, 216, 121, 21)
$Label8 = GUICtrlCreateLabel("Male:", 64, 240, 42, 17)
$Label9 = GUICtrlCreateLabel("Canada:", 64, 264, 43, 17)
$Label10 = GUICtrlCreateLabel("Friends:", 64, 288, 41, 17)
GUICtrlCreateInput("", 112, 240, 121, 21)
$Checkbox1 = GUICtrlCreateCheckbox("I accept the terms of service", 72, 320, 161, 17)
$Button3 = GUICtrlCreateButton("Create Account", 120, 344, 115, 25)
GUICtrlCreateInput("", 112, 264, 121, 21)
GUICtrlCreateInput("", 112, 288, 121, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

	EndSwitch
WEnd

необходимо чтобы после заполнения её. При нажатии на кнопку. Данные отправлялись методом пост на сайт.
Код:
 <form action="http://s4.en.alaplaya.net/users" class="new_user" id="new_user" method="post">
 

shakur

Осваивающий
Сообщения
76
Репутация
24
Поправте gui, значения инпутов не присваиваются переменным, от них толку мало)
Код:
$Form1_1 = GUICreate("", 248, 377, 192, 124)
$Label1 = GUICtrlCreateLabel("Login Name / ID:", 24, 24, 86, 17)
$Label2 = GUICtrlCreateLabel("Password:", 56, 48, 53, 17)
$Label3 = GUICtrlCreateLabel("Re password:", 40, 72, 69, 17)
$input1 = GUICtrlCreateInput("", 112, 24, 121, 21)
$input2 = GUICtrlCreateInput("", 112, 48, 121, 21)
$input3 = GUICtrlCreateInput("", 112, 72, 121, 21)
$Label4 = GUICtrlCreateLabel("Nickname:", 56, 112, 55, 17)
$input4 =GUICtrlCreateInput("", 112, 112, 121, 21)
$Label5 = GUICtrlCreateLabel("Email:", 80, 136, 32, 17)
$input5 = GUICtrlCreateInput("", 112, 136, 121, 21)
$Label6 = GUICtrlCreateLabel("Re email:", 64, 160, 48, 17)
$input6 =GUICtrlCreateInput("", 112, 160, 121, 21)
$Label7 = GUICtrlCreateLabel("Birthday:", 64, 216, 45, 17)
$input7 =GUICtrlCreateInput("", 112, 216, 121, 21)
$Label8 = GUICtrlCreateLabel("Male:", 64, 240, 42, 17)
$Label9 = GUICtrlCreateLabel("Canada:", 64, 264, 43, 17)
$Label10 = GUICtrlCreateLabel("Friends:", 64, 288, 41, 17)
$input8 = GUICtrlCreateInput("", 112, 240, 121, 21)
$Checkbox1 = GUICtrlCreateCheckbox("I accept the terms of service", 72, 320, 161, 17)
$Button3 = GUICtrlCreateButton("Create Account", 120, 344, 115, 25)
$input9 = GUICtrlCreateInput("", 112, 264, 121, 21)
$input10 = GUICtrlCreateInput("", 112, 288, 121, 21)
GUISetState(@SW_SHOW)

Добавте комбобоксы как в рег форме!

Вам обязательно использовать пост запрос?
Например, возможно сделать так:
Код:
$oIE = _IECreate("http://s4.en.alaplaya.net/users/new")	
$oForm = _IEFormGetCollection ($oIE,0)
$oQuery = _IEFormElementGetObjByName ($oForm, "user[login]") 
_IEFormElementSetValue ($oQuery, GUICtrlRead($input1))
$oQuery = _IEFormElementGetObjByName ($oForm, "user[password]") 
_IEFormElementSetValue ($oQuery, GUICtrlRead($input2))
$oQuery = _IEFormElementGetObjByName ($oForm, "user[password_confirmation]") 
_IEFormElementSetValue ($oQuery, GUICtrlRead($input3))
$oQuery = _IEFormElementGetObjByName ($oForm, "user[nickname]") 
_IEFormElementSetValue ($oQuery, GUICtrlRead($input4))
$oQuery = _IEFormElementGetObjByName ($oForm, "user[email]") 
_IEFormElementSetValue ($oQuery, GUICtrlRead($input5))
$oQuery = _IEFormElementGetObjByName ($oForm, "user[email_confirmation]") 
_IEFormElementSetValue ($oQuery, GUICtrlRead($input6))
$oQuery = _IEFormElementGetObjByName ($oForm, "user[birthday(3i)]") 
_IEFormElementSetValue ($oQuery, GUICtrlRead($input7))
$oQuery = _IEFormElementGetObjByName ($oForm, "user[gender]") 
if GUICtrlRead($input8) = "Male" Then
	_IEFormElementSetValue ($oQuery, "m")
Else
	_IEFormElementSetValue ($oQuery, "f")
EndIf	

if GUICtrlRead($Checkbox1) = $GUI_CHECKED then
	_IEFormElementCheckboxSelect ($oForm, 1, "", 1, "byIndex")
endif
;.......
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8 473
Репутация
2 403
astati [?]
ничего не нашел подходящево для меня у вас на форуме и FAQ от Creator не внес довольной ясности
Какой ясности?
В скрипте выше не вижу вообще попытки что-то отправлять.

shakur
{LangWarn.Admin}
 
Автор
A

astati

Новичок
Сообщения
145
Репутация
4
Канечно здесь ничегонету. т.к. чтобы что-то написать надо хоть что то понять.
Creator ты же сведущ в таких делах? могу ли я с эмитировать заполнение формы на сайте?
 

joiner

Модератор
Локальный модератор
Сообщения
3 362
Репутация
586
astati
если тебе нужно отправлять сообщения на сайт, то у меня есть пример в графическом исполнении. не все до конца доработано в нем. но основное работает
 
Статус
Закрыто для дальнейших ответов.
Верх