У меня были проблемы с нажатием кнопки. Я пытался исправить проблемы в течение последних 5 часов и, наконец, пришел к выводу, чтобы спросить об этом здесь.AutoIT | Браузер | Click On A Button
Кнопка, которую я пытаюсь щелкнуть, называется «как». Он находится здесь в коде кода.
Что не так с кодом?
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ie.au3>
#include <MsgBoxConstants.au3>
#include <GuiEdit.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("KingDomLikes Bot", 334, 150, 192, 124)
$Group1 = GUICtrlCreateGroup("Login", 0, 0, 137, 145)
$username = GUICtrlCreateInput("Username", 8, 32, 121, 21)
$password = GUICtrlCreateInput("Password", 8, 64, 121, 21)
$Login1 = GUICtrlCreateButton("Login", 8, 96, 123, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("", 144, 0, 185, 145)
$repeat = GUICtrlCreateInput("0", 152, 32, 121, 21)
$Label1 = GUICtrlCreateLabel("Loop", 152, 16, 28, 17)
$start = GUICtrlCreateButton("Start", 152, 64, 163, 73)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
logintosite()
Func logintosite()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Login1
Global $oIE = _IECreate("http://addmefast.com/")
$username1 = GUICtrlRead($username)
$password1 = GUICtrlRead($password)
$emailform = _IEGetObjByName($oIE, "email")
$usernameform = _IEGetObjByName($oIE, "password")
$buttonweb = _IEGetObjByName($oIE, "login_button")
_IEFormElementSetValue($emailform, $username1)
_IEFormElementSetValue($usernameform, $password1)
_IEAction($buttonweb, "click")
Case $start
_IENavigate($oIE, "http://addmefast.com/free_points/youtube_likes")
sleep(2000)
For $i = 1 To $repeat
_IET ($oIE, "Like")
Next
EndSwitch
WEnd
EndFunc
Я пробовал много разных решений, которые я нашел в Интернете, но ни один из них на самом деле не работал.
Пожалуйста, удалите ненужные теги 'протоколирования/login', или по крайней мере добавить соответствующие теги для реального языка программирования или системы, которые вы используете. –
Благодарим вас за советы. Я добавил несколько тегов. –