Atomica
Новичок
- Сообщения
- 5
- Репутация
- 0
Версия AutoIt: 3.3.12 3.
Описание:#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <WinAPI.au3>
#include <Process.au3>
#include <Array.au3>
Global $wv
Global $oIE
Local $regValue = "0x2AF9"
;~ $aVersion = _IE_Ver
Local $Form1 = GUICreate("Ответы rus-oge.sdamgia. ru", 900,400, 620, 190)
$Label1 = GUICtrlCreateLabel("Моя страница", 24, 208, 100, 17, BitOR($WS_BORDER, $SS_CENTER))
$LinkPage = GUICtrlCreateInput("https:// rus-oge.sdamgia. ru/", 1, 5, 300)
GUICtrlCreateLabel("Копируешь ту часть ссылки которая после rus-oge.sdamgia. ru/test?id=1849576 и вставляешь в строку. test?id=XXXXXX и будет нужной частью ссылки.", 310, 5, 200, 200)
$1 = GUICtrlCreateLabel ("Задание №",1,230)
$otvetk2 = GUICtrlCreateLabel ("Ответ к заданию №",1,250)
GUISetState(@SW_SHOW)
;прога должна зайти на сайт под atoomica@yandex. ru пароль 42456670Qq. Далее понажимать по номерам упражнений и по ключевому слову Ответ вставить его в строку ответ. строк будет много. Нужно сделать что бы она входила,жмякала и вставляла.
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $Label1
_Label()
EndSwitch
WEnd
Func _Label()
$oIE = _IECreateEmbedded()
Global $objie = GUICtrlCreateObj($oIE, 550, 0, 400, 400)
GUICtrlSetResizing(-1, 2 + 4 + 32 + 64)
EndFunc
Примечания:
Описание:#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <WinAPI.au3>
#include <Process.au3>
#include <Array.au3>
Global $wv
Global $oIE
Local $regValue = "0x2AF9"
;~ $aVersion = _IE_Ver
Local $Form1 = GUICreate("Ответы rus-oge.sdamgia. ru", 900,400, 620, 190)
$Label1 = GUICtrlCreateLabel("Моя страница", 24, 208, 100, 17, BitOR($WS_BORDER, $SS_CENTER))
$LinkPage = GUICtrlCreateInput("https:// rus-oge.sdamgia. ru/", 1, 5, 300)
GUICtrlCreateLabel("Копируешь ту часть ссылки которая после rus-oge.sdamgia. ru/test?id=1849576 и вставляешь в строку. test?id=XXXXXX и будет нужной частью ссылки.", 310, 5, 200, 200)
$1 = GUICtrlCreateLabel ("Задание №",1,230)
$otvetk2 = GUICtrlCreateLabel ("Ответ к заданию №",1,250)
GUISetState(@SW_SHOW)
;прога должна зайти на сайт под atoomica@yandex. ru пароль 42456670Qq. Далее понажимать по номерам упражнений и по ключевому слову Ответ вставить его в строку ответ. строк будет много. Нужно сделать что бы она входила,жмякала и вставляла.
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $Label1
_Label()
EndSwitch
WEnd
Func _Label()
$oIE = _IECreateEmbedded()
Global $objie = GUICtrlCreateObj($oIE, 550, 0, 400, 400)
GUICtrlSetResizing(-1, 2 + 4 + 32 + 64)
EndFunc
Примечания:
