#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
Opt('MustDeclareVars', 1)
Opt('TrayMenuMode', 0)
Global $sTitle = 'Vservices', $aLogin, $iNumberStart, $oIE
If WinExists($sTitle & '{[/@$@\]}') Then Exit
AutoItWinSetTitle($sTitle & '{[/@$@\]}')
_Get_Array_Login($aLogin)
If @error Then
MsgBox(16, 'Error', '_Get_Array_Login')
Exit
EndIf
_InputBox($aLogin[0][0], $iNumberStart)
For $i = $iNumberStart To $aLogin[0][0]
_Login_Vservices($aLogin, $i, $oIE)
If @error Then ContinueLoop
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich1&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich2&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich3&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich4&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich5&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich6&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich7&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich8&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich9&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich10&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich11&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich12&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich13&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich14&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich15&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich16&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich17&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich18&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich19&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich20&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich21&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich22&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich23&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich24&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich25&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich26&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich27&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich28&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich29&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich30&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich31&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich32&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich33&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich34&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich35&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich36&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich37&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich38&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich39&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich40&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich41&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich42&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich43&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich44&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich45&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich46&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich47&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich48&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich49&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich50&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich51&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich52&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich53&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich54&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich55&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich56&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich57&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich58&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich59&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich60&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich61&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich62&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich63&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich64&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich65&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich66&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich67&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich68&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich69&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich70&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich71&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich72&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich73&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich74&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich75&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich76&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich77&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich78&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich79&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich80&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich81&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich82&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich83&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich84&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich85&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich86&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich87&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich88&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich89&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich90&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich91&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich92&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich93&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich94&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich95&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich96&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich97&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich98&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich99&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich100&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich101&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich102&type=web", 0)
Sleep(250)
_IENavigate ($oIE, "http://acesse.com/index.php?page=search/noresults&search=gorenich103&type=web", 0)
Next
If IsObj($oIE) Then _IEQuit($oIE)
MsgBox(64, 'Info', 'Все')
Func _Get_Array_Login(ByRef $a_Array)
Local $s_FileIni = @ScriptDir & '\setting.ini', $a_SectionNames, $a_Section, $i_Count, $f_Yes
If Not FileExists($s_FileIni) Then Return SetError(1)
$a_SectionNames = IniReadSectionNames($s_FileIni)
If @error Then Return SetError(1)
If IsArray($a_Array) Then $a_Array = 0
Dim $a_Array[$a_SectionNames[0] + 1][2]
For $i = 1 To $a_SectionNames[0]
$a_Section = IniReadSection($s_FileIni, $a_SectionNames[$i])
If @error Then ContinueLoop
If $a_Section[0][0] <> 2 Then ContinueLoop
$f_Yes = True
For $j = 1 To $a_Section[0][0]
If Not $a_Section[$j][1] Then
$f_Yes = False
ExitLoop
EndIf
Next
If $f_Yes Then
$i_Count += 1
For $j = 0 To 1
$a_Array[$i_Count][$j] = $a_Section[$j + 1][1]
Next
EndIf
Next
If Not $i_Count Then Return SetError(1)
ReDim $a_Array[$i_Count + 1][2]
$a_Array[0][0] = $i_Count
EndFunc ;==>_Get_Array_Login
Func _InputBox($i_Max, ByRef $i_Number)
Local $h_Gui, $nInputBox, $nOk, $nCancel, $sInput
$h_Gui = GUICreate($sTitle, 250, 120, -1, -1, $WS_OVERLAPPED, BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST))
GUICtrlCreateLabel('Введите номер, с которого начнем (max = ' & $i_Max & '):', 5, 10, 230, 18, $ES_CENTER)
$nInputBox = GUICtrlCreateInput('1', 100, 30, 50, 20, BitOR($ES_NUMBER, $ES_CENTER))
$nOk = GUICtrlCreateButton('OK', 40, 60, 65, 25)
GUICtrlSetTip(-1, 'Выбрать введенный номер')
GUICtrlSetCursor(-1, 0)
$nCancel = GUICtrlCreateButton('Выход', 145, 60, 65, 25)
GUICtrlSetTip(-1, 'Выход из программы')
GUICtrlSetCursor(-1, 0)
GUISetState()
While 1
$sInput = GUICtrlRead($nInputBox)
If Number($sInput) > $i_Max Then
GUICtrlSetData($nInputBox, $i_Max)
EndIf
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE, $nCancel
If MsgBox(36, $sTitle, 'Вы уверены, что хотите выйти из программы?', 0, $h_Gui) = 6 Then Exit
Case $nOk
$sInput = GUICtrlRead($nInputBox)
If Number($sInput) Then
$i_Number = $sInput
GUIDelete($h_Gui)
Return
EndIf
EndSwitch
WEnd
EndFunc ;==>_InputBox
Func _Login_Vservices($a_Array, $i_Index, ByRef $o_Obj)
Local $s_Url_Avtor = 'http://vservices.acesse.com/memberLogin.php?service=12', $o_Form, _
$o_Inputs, $s_Url_After, $i_Error = 1
If IsObj($o_Obj) Then
_IEQuit($o_Obj)
If @error Then Return SetError(1)
EndIf
$o_Obj = _IECreate()
If @error Then Return SetError(1)
For $i = 1 To 1
_IENavigate($o_Obj, $s_Url_Avtor)
If @error Then ExitLoop
$o_Form = _IEFormGetCollection($o_Obj, 0)
If @error Then ExitLoop
$o_Inputs = _IETagNameGetCollection($o_Form, 'input')
If @error Then ExitLoop
For $o_Input In $o_Inputs
If $o_Input.type == 'text' Then
_IEFormElementSetValue($o_Input, $a_Array[$i_Index][0])
If @error Then ExitLoop 2
EndIf
If $o_Input.type == 'password' Then
_IEFormElementSetValue($o_Input, $a_Array[$i_Index][1])
If @error Then ExitLoop 2
EndIf
Next
_IEFormSubmit($o_Form, 0)
If @error Then ExitLoop
_IELoadWait($o_Obj)
$s_Url_After = _IEPropertyGet($o_Obj, 'locationurl')
If @error Then ExitLoop
If $s_Url_After == $s_Url_Avtor Then ExitLoop
$i_Error = 0
Sleep(250)
Next
Return SetError($i_Error)
EndFunc ;==>_Login_Vservices