Что нового

[Сеть, интернет] Как ввести данные в инпутбокс

BotVP

Новичок
Сообщения
2
Репутация
0
Здравствуйте всем!
Я пишу программу помошника для игры Война племен http://www.voyna-plemyon.ru/
Авторизацию я сделал уже, все нормально проходит, иногда глючит правда но это не критично.
У меня другая проблема: Я не могу добраться до инпутбоксов на странице http://ru1.voyna-plemyon.ru/game.php?village=234910&screen=place




Для тестов можете использовать
логин koda
пароль 123456
Мир 1



Добавлено:
Сообщение автоматически объединено:

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

#Region ### START Koda GUI section ### Form=G:\Install\Деятельность\Ботоводство\koda_1.7.2.1_b191_2009-07-09\Forms\form2.kxf
$Form2 = GUICreate("AttackByTime", 802, 611, 172, 48)
$Obj1 = ObjCreate("Shell.Explorer.2")
$Obj1_ctrl = GUICtrlCreateObj($Obj1, 8, 248, 786, 356)
$attack = GUICtrlCreateGroup("Attack", 216, 8, 457, 153)
$Spear = GUICtrlCreateInput("0", 231, 37, 89, 21)
$Spy = GUICtrlCreateInput("0", 335, 37, 97, 21)
$Sword = GUICtrlCreateInput("0", 231, 69, 89, 21)
$Light = GUICtrlCreateInput("0", 335, 69, 97, 21)
$Axe = GUICtrlCreateInput("0", 230, 98, 89, 21)
$Heavy = GUICtrlCreateInput("0", 334, 98, 97, 21)
$Ram = GUICtrlCreateInput("0", 455, 37, 89, 21)
$Catapult = GUICtrlCreateInput("0", 455, 69, 89, 21)
$Snob = GUICtrlCreateInput("0", 567, 37, 89, 21)
$X = GUICtrlCreateInput("390", 232, 128, 33, 21)
$Y = GUICtrlCreateInput("390", 272, 128, 41, 21)
$AttackBut = GUICtrlCreateButton("Attack", 456, 104, 89, 41)
$SupportBut = GUICtrlCreateButton("SupportBut", 568, 104, 89, 41)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$login = GUICtrlCreateGroup("login", 8, 8, 201, 233)
$q2 = GUICtrlCreateLabel("Password", 24, 69, 50, 17)
$LogBut = GUICtrlCreateButton("Login", 88, 160, 105, 25)
$log = GUICtrlCreateInput("koda", 88, 32, 105, 21)
$q1 = GUICtrlCreateLabel("Name", 40, 32, 32, 17)
$World = GUICtrlCreateCombo("ru1", 88, 96, 105, 25)
GUICtrlSetData(-1, "ru1|ru2|ru3|ru4|ru5|ru6|ru7|ru8|ru9")
$Vil = GUICtrlCreateInput("Vill", 86, 128, 105, 21)
$Pass = GUICtrlCreateInput("123456", 88, 64, 105, 21)
$q3 = GUICtrlCreateLabel("World", 40, 102, 32, 17)
$q4 = GUICtrlCreateLabel("Village", 40, 136, 35, 17)
$ExitBut = GUICtrlCreateButton("ExitBut", 88, 192, 105, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

HotKeySet("{ESC}", "Terminate")

Opt("GUIOnEventMode", 1)
GUICtrlSetOnEvent($LogBut, "LoginProc")
GUICtrlSetOnEvent($ExitBut, "Terminate")
GUICtrlSetOnEvent($attackBut, "SendAttack")

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

Func SendAttack()
   	  $serv=GUICtrlRead($World)
	  $vill=GUICtrlRead($vil)	  
   	  $a="http://" & $serv & ".voyna-plemyon.ru/game.php?village=" & $vill & "&screen=place"
	  	  $Obj1.Navigate($a)
	  Sleep(1000)
;$oForm   = _IEFormGetObjByName($Obj1,"units")

EndFunc 

Func LoginProc()	  
		; MsgBox(0, "","12")
   	$Obj1.Navigate("http://ru1.voyna-plemyon.ru/game.php?village=234910&screen=&action=logout&h=8d66")
    $Obj1.Navigate("http://www.voyna-plemyon.ru/index.php?action=logout")
	  Sleep(2000)
	  $username=GUICtrlRead($Log)
	  $q=GUICtrlRead($Pass)
	  $serv=GUICtrlRead($World)
	  $vill=GUICtrlRead($vil)	 
  $oForms = _IEFormGetCollection ($Obj1,0)
	  $o_login = _IEFormElementGetObjByName ($oForms, "user")
	  _IEFormElementSetValue ($o_login, $username)

	  $o_server = _IEFormElementGetObjByName ($oForms, "server")
	  _IEFormElementSetValue ($o_server, $serv)

	  $o_pass = _IEFormElementGetObjByName ($oForms, "password")
	  _IEFormElementSetValue ($o_pass, $q)


	  $oSubmit = _IEGetObjByName ($obj1, "login-btn-input")
	  _IEAction ($oSubmit, "click")

	  Sleep(1000)

	  $a="http://" & $serv & ".voyna-plemyon.ru/game.php?village=" & $vill & "&screen=place"
	  	  $Obj1.Navigate($a)
EndFunc

Func Terminate()
    Exit 0
EndFunc
 
Верх