Kod: Tümünü seç
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Yemek Sepeti Oto Kayıt", 304, 108, 192, 124)
$Button1 = GUICtrlCreateButton("KAYIT OL", 48, 32, 219, 41)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
kayit()
EndSwitch
WEnd
Func kayit()
$hOld = WinGetHandle("[active]")
ShellExecute ("https://www.yemeksepeti.com/istanbul-uye-ol")
While True
$hNew = WinGetHandle("[active]")
If $hOld <> $hNew Then
WinSetState($hNew, "", @SW_MAXIMIZE)
ExitLoop
EndIf
WEnd
Sleep(2000)
ControlClick ("Üye, Kayıt Ol - Yemek Sepeti - Google Chrome","","Chrome_RenderWidgetHostHWND1","left",1,384,423)
Sleep(1000)
Send ("@gmail.com")
Send ("{TAB}")
Sleep(1000)
Send ("159357")
Send ("{TAB}")
Sleep(1000)
Send ("159357")
Send ("{TAB}")
Sleep(1000)
Send ("Kerim")
Send ("{TAB}")
Sleep(1000)
Send ("Mazda")
Send ("{TAB}")
Sleep(1000)
Send ("31 12 1993")
Send ("{TAB}")
Sleep(1000)
Send ("Yenibosna")
Send ("{TAB}")
MouseClickDrag("left",1358,346,1358,526)
Sleep(1000)
ControlClick ("Üye, Kayıt Ol - Yemek Sepeti - Google Chrome","","Chrome_RenderWidgetHostHWND1","left",1,530,520)
EndFunc