Что нового

[Автоматизация] Скрытое вхождение на сайт, выдирание оттуда исходника страницы...

LepreconSTR

Новичок
Сообщения
5
Репутация
0
Нужно залогиниться на сайте с целью получения нужной информации со страницы на которой находится приватная информация. Все это требуется сделать скрыто без всякий выскакивающих окошек. И в конце вывести сообщение с требуемой информацией.
P.S. Сайт находится в локальной сети и зайти в него с внешки нельзя
P.S.S. Я не пишу вирус и ему подобный скрипт. Думаю навалять мини програмку которая будет показывать кол-во оставшихся денег на счету у провайдер и напоминать когда платить и сколько.
P.S.S.S. Если есть подобная тема прошу дать ссылку, а то я нашел только там где логинится через браузер.
 

bulldog5293

Знающий
Сообщения
172
Репутация
10
После r35p3ct я незаметил нового поста, так что решил всё же сюда прекинуть, вдруг ты не увидел
Код:
$oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
$oHTTP.Open("POST", "http://xxx.ru/login.html")
$oHTTP.setTimeouts(5000, 5000, 15000, 15000)
$oHTTP.SetRequestHeader("Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8")
$oHTTP.SetRequestHeader("Accept-Language", "ru")
$oHTTP.SetRequestHeader("Referer","http://xxx.ru/login.html")
$oHTTP.SetRequestHeader("Content-Type","application/x-www-form-urlencoded")
$oHTTP.SetRequestHeader("User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)")
$oHTTP.SetRequestHeader("Host","xxx.ru")
$oHTTP.SetRequestHeader("Proxy-Connection", "Keep-alive")
$oHTTP.Send("login=Vasya&pass=123")
$oHTTP.WaitForResponse
 
Автор
L

LepreconSTR

Новичок
Сообщения
5
Репутация
0
Скажите пожалуйста в чем заключается ошибка?
Есть такой код:
Код:
#include <IE.au3>
$oIE = _IECreate ("https://stat.mirgiga.net/cgi-bin/utm5/aaa5")

$oUser =_IEGetObjByName($oIE,"login")
$oPass =_IEGetObjByName($oIE,"password")
_IEFormElementSetValue ($oUser, 'логин')
_IEFormElementSetValue ($oPass, 'Пароль')
По теории на странице в поля логина и пароля должны вставиться соответствующие символы, но на деле это не происходит.
Так как страница не доступна из интернета, то выкладываю исходник страницы:
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<TITLE>
Giganet:
Вход в статистику</TITLE>
<LINK rel="stylesheet" type="text/css" href="/utm.css">
<SCRIPT language="JavaScript" type="text/javascript" src="/utm.js"></SCRIPT>
</HEAD>
<BODY bgcolor="#FFFFFF" text="#000000" link="#003BA9" vlink="#E7651A" marginwidth="0" marginheight="0" topmargin="0" bottommargin="0" leftmargin="0" rightmargin="0">
<TABLE width="100%" height="100%" cellspacing="0" cellpadding="0" border="0">
<TR>
<TD height="5%" bgcolor="#004f93"><img src="http://10.25.200.200/hleft.jpg"></TD>
<TD bgcolor="#004f93"></TD>
</TR>
<TR>
<TD height="5" bgcolor="#004f93"></TD>

<TD bgcolor="#004f93">
<a href="http://www.mirgiga.net"><img src="http://10.25.200.200/h1.jpg"></a><a href="http://10.25.200.200/balance.php"><img src="http://10.25.200.200/h2.jpg"></a><a href="http://10.25.200.200/page/wm/gigawm.php" target="_blank"><img src="http://10.25.200.200/h3.jpg"></a><a href="http://stat.mirgiga.net/up/index.php?act=form" target="_blank"><img src="http://stat.mirgiga.net/h4.jpg"></a>
</TD>
</TR>
<TR>
<TD width="20%" class="menu-area">
<DIV class="mainmenu-act">Вход в статистику</DIV>

<DIV ALIGN="CENTER"></DIV>
</TD>
<TD width="80%" class="work-area">
<TABLE width="100%" cellspacing="0" cellpadding="0" border="0" bgcolor="#C9E6F7"><TR><TD class="submenu-area"></TD></TR></TABLE>

Вход в статистику<FORM name="login" accept-charset="UTF-8" action="/cgi-bin/utm5/aaa5" target="" method="post"><DIV class="form-tab"><TABLE cellspacing="5" cellpadding="3" border="0">
<TR>
<TD class="form-field" align="right">Логин</TD>

<TD class="form-field" align="left"><INPUT type="text" class="form-field" size="40" name="login" value=""></TD>
</TR>
<TR>
<TD class="form-field" align="right">Пароль</TD>
<TD class="form-field" align="left"><INPUT type="password" class="form-field" size="40" name="password" value=""></TD>
</TR>
<INPUT type="hidden" name="cmd" value="login"><TR>
<TD></TD>
<TD><INPUT type="submit" class="form-button" value="OK"></TD>
</TR>
</TABLE></DIV></FORM>
</TD>
</TR>
</TABLE>
<SCRIPT language="JavaScript" type="text/javascript" src="/add_years.js"></SCRIPT>

</BODY>
</HTML>

Хотя идентичный код работает на другой странице:
Код:
#include <IE.au3>
$oIE = _IECreate ("http://www.vgtrk.com/program/login.html")

$oUser =_IEGetObjByName($oIE,"login")
$oPass =_IEGetObjByName($oIE,"passwd")
$oSubmit =_IEGetObjByName($oIE, "log")
_IEFormElementSetValue ($oUser, 'логин')
_IEFormElementSetValue ($oPass, 'пароль')

Что-то мне кажется что дело в протоколе https...
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
LepreconSTR
У вас в HTML коде есть ещё элементы, содержащие имя "login"!
Так, должно работать:
Код:
#include <IE.au3>
$oIE = _IECreate("https://stat.mirgiga.net/cgi-bin/utm5/aaa5")

$oForm =_IEFormGetObjByName($oIE,"login")
$oUser =_IEFormElementGetObjByName($oForm,"login")
$oPass =_IEFormElementGetObjByName($oForm,"password")
_IEFormElementSetValue ($oUser, 'логин')
_IEFormElementSetValue ($oPass, 'Пароль')
 
Автор
L

LepreconSTR

Новичок
Сообщения
5
Репутация
0
Garrett сказал(а):
LepreconSTR
У вас в HTML коде есть ещё элементы, содержащие имя "login"!
Так, должно работать:
Код:
#include <IE.au3>
$oIE = _IECreate("https://stat.mirgiga.net/cgi-bin/utm5/aaa5")

$oForm =_IEFormGetObjByName($oIE,"login")
$oUser =_IEFormElementGetObjByName($oForm,"login")
$oPass =_IEFormElementGetObjByName($oForm,"password")
_IEFormElementSetValue ($oUser, 'логин')
_IEFormElementSetValue ($oPass, 'Пароль')

Нет, тоже не работает результат такой же как и в моем скрипте, окошко с сайтом открывается и скрипт впадает в ступор.

Все проблему решил путем переноса ресурса в IE из "надежных узлов" в зону "интернет". Хотя почему там не работало хз...
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
LepreconSTR [?]
Все проблему решил путем переноса ресурса в IE из "надежных узлов" в зону "интернет". Хотя почему там не работало не знаю...
Думаю потому, что ваш сайт не использует доверенный идентификатор.
 
Верх