Использование Perl для автоматизации ввода и отправки веб-форм
0
у моего веб-интерфейса маршрутизатора есть вещь, чтобы изменить mac addr, а имя формы называется Macspoof, у вас есть переключатель, чтобы сказать, что вы хотите вручную записать его. Затем, как только вы его измените, вы должны нажать кнопку apply. Мне было интересно, как это сделать с помощью Perl.
use LWP::UserAgent;
use HTML::Form;
use HTTP::Cookies;
use Getopt::Std;
use WWW::Mechanize;
use HTTP::Daemon;
use HTTP::Status;
use HTTP::Request::Common;
my $test = 'ad0c1f3e0b';
my $ua = LWP::UserAgent->new(
'cookie_jar' => HTTP::Cookies->new(
'file' => 'COOKIES',
'autosave' => 1,
),
);
$ua->credentials(
'ROUTER_IP:8080',
'realm-name',
'USER' => 'PASS'
);
my $response = $ua->get(
'ROUTER_IP' . 'DOCUMENT_NAME'
);
print $response;
my $request = POST( $url, [ 'Spoofmac' => $test ] );
my $content = $ua->request($request)->as_string();
то, что у меня есть, хорошо, но не публикует ввод формы отправки.
Это то, как выглядит веб-форма, как вставить это в txt файл и изменить его на html, а затем открыть в браузере, чтобы посмотреть, как он выглядит. Благодарю.
<html><head>
<meta name="description" content="WGR624">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Cache-Control" content="no-cache">
<meta http-equiv="Expires" content="Mon, 06 Jan 1990 00:00:01 GMT">
<title>Ethernet</title>
<link rel="stylesheet" href="BAS_basictop_data/form.txt">
<style type="text/javascript">
classes.num.all.fontFamily = "Courier";
classes.num.all.fontSize = "10pt" ;
</style>
<script language="javascript" type="text/javascript" src="MNU_menu_data/func.js"></script>
<script language="javascript" type="text/javascript" src="MNU_blank_data/msg.js"></script>
<script language="javascript" type="text/javascript" src="MNU_blank_data/utility.js"></script>
<script language="javascript" type="text/javascript" src="MNU_blank_data/browser.js"></script>
<script language="javascript" type="text/javascript">
<!-- hide script from old browsers
var MacAddress;
var DisableFixedIP = false;
var DisableFixedDNS = false;
var DisableFixedMAC = false;
function goTestApply()
{
var winoptions = "width=640,height=480,menubar=yes,toolbar=yes,status=yes,location=yes,resizable=yes";
if(document.forms[0].runtest.value == "yes")
window.open('BAS_wtest_d.htm','test_win',winoptions);
}
function loadcheck()
{
loadhelp('BAS_ether');
if(isIE()){
document.formname.system_name.size="24";
document.formname.domain_name.size="24";
}
MacAddress=document.formname.Spoofmac.value;
setIP();
setDNS();
setMAC();
}
function setIP()
{
var cf = document.forms[0];
var dflag = cf.WANAssign[0].checked;
setDisabled(dflag,cf.WPethr1,cf.WPethr2,cf.WPethr3,cf.WPethr4,cf.WMask1,cf.WMask2,cf.WMask3,cf.WMask4,cf.WGateway1,cf.WGateway2,cf.WGateway3,cf.WGateway4);
if (cf.WANAssign[1].checked)
{
cf.DNSAssign[1].checked = true;
setDNS();
}
DisableFixedIP = dflag;
}
function setDNS()
{
var cf = document.forms[0];
var dflag = cf.DNSAssign[0].checked;
if (cf.WANAssign[1].checked && cf.DNSAssign[0].checked)
{
cf.DNSAssign[1].checked=true;
dflag = false;
}
setDisabled(dflag,cf.DAddr1,cf.DAddr2,cf.DAddr3,cf.DAddr4,cf.PDAddr1,cf.PDAddr2,cf.PDAddr3,cf.PDAddr4);
DisableFixedDNS = dflag;
}
function setMAC()
{
var cf = document.forms[0];
if (cf.MACAssign[2].checked)
cf.Spoofmac.disabled = false;
else
cf.Spoofmac.disabled = true;
DisableFixedMAC = cf.Spoofmac.disabled;
}
function loadhelp(fname,anchname) {
if ((loadhelp.arguments.length == 1 ) || (anchname == "" ))
top.helpframe.location.href=fname+"_h.htm";
else
top.helpframe.location.href=fname+"_h.htm#" + anchname;
}
function isValidStr(str)
{
for (i=0; i<str.length; i++)
{
var c = str.substring(i, i+1);
if (c < '!' || c > '~')
return false;
}
return true;
}
function checkData()
{
var cf = document.forms[0];
var msg = "";
if(cf.WANAssign[1].checked)
{
if(checkIP(cf.WPethr1,cf.WPethr2,cf.WPethr3,cf.WPethr4,254)||(parseInt(cf.WPethr4.value)==0))
msg+= "Invalid IP Address, please enter again!\n";
if(checkIP(cf.WMask1,cf.WMask2,cf.WMask3,cf.WMask4,255))
msg+= "Invalid Subnet Mask, please enter again!\n";
if(checkIP(cf.WGateway1,cf.WGateway2,cf.WGateway3,cf.WGateway4,254)||(parseInt(cf.WGateway4.value)==0))
msg+= "Invalid Gateway IP Address, please enter again!\n";
}
if(cf.DNSAssign[1].checked)
{
if(checkIP(cf.DAddr1,cf.DAddr2,cf.DAddr3,cf.DAddr4,254)||(parseInt(cf.DAddr4.value)==0))
msg+= "Invalid Primary DNS Address, please enter again!\n";
if(cf.PDAddr1.value.length>0 || cf.PDAddr2.value.length>0 || cf.PDAddr3.value.length>0 || cf.PDAddr4.value.length>0)
if(checkIP(cf.PDAddr1,cf.PDAddr2,cf.PDAddr3,cf.PDAddr4,254)||(parseInt(cf.PDAddr4.value)==0))
msg+= "Invalid Secondary DNS Address, please enter again!\n";
}
if (msg.length > 1)
{
alert(msg);
return false;
}
if (!isValidStr(cf.system_name.value) || !isValidStr(cf.domain_name.value))
{
if (!confirm("The Account Name or Domain Name contains illegal characters. This may cause the system to behave unexpectedly. Do you want to continue?"))
return false;
}
cf.wan_ipaddr.value = cf.WPethr1.value+'.'+cf.WPethr2.value+'.'+cf.WPethr3.value+'.'+cf.WPethr4.value;
cf.wan_netmask.value = cf.WMask1.value+'.'+cf.WMask2.value+'.'+cf.WMask3.value+'.'+cf.WMask4.value;
cf.wan_gateway.value = cf.WGateway1.value+'.'+cf.WGateway2.value+'.'+cf.WGateway3.value+'.'+cf.WGateway4.value;
cf.wan_gateway.value = cf.WGateway1.value+'.'+cf.WGateway2.value+'.'+cf.WGateway3.value+'.'+cf.WGateway4.value;
cf.wan_dns1_pri.value = cf.DAddr1.value+'.'+cf.DAddr2.value+'.'+cf.DAddr3.value+'.'+cf.DAddr4.value;
cf.wan_dns1_sec.value = cf.PDAddr1.value+'.'+cf.PDAddr2.value+'.'+cf.PDAddr3.value+'.'+cf.PDAddr4.value;
cf.wan_hwaddr2.value = cf.Spoofmac.value;
return sumvalue(cf);
}
function loadSettings()
{
var cf = document.forms[0];
var wan_proto = cf.wan_proto.value;
var wan_ipaddr = cf.wan_ipaddr.value.split(".");
var wan_netmask = cf.wan_netmask.value.split(".");
var wan_gateway = cf.wan_gateway.value.split(".");
var wan_dns_sel = cf.wan_dns_sel.value;
var wan_dns1_pri = cf.wan_dns1_pri.value.split(".");
var wan_dns1_sec = cf.wan_dns1_sec.value.split(".");
var wan_hwaddr_sel = cf.wan_hwaddr_sel.value;
if (wan_proto == "static")
cf.WANAssign[1].checked = true;
else
cf.WANAssign[0].checked = true;
cf.WPethr1.value = wan_ipaddr[0];
cf.WPethr2.value = wan_ipaddr[1];
cf.WPethr3.value = wan_ipaddr[2];
cf.WPethr4.value = wan_ipaddr[3];
cf.WMask1.value = wan_netmask[0];
cf.WMask2.value = wan_netmask[1];
cf.WMask3.value = wan_netmask[2];
cf.WMask4.value = wan_netmask[3];
cf.WGateway1.value = wan_gateway[0];
cf.WGateway2.value = wan_gateway[1];
cf.WGateway3.value = wan_gateway[2];
cf.WGateway4.value = wan_gateway[3];
cf.DNSAssign[wan_dns_sel].checked = true;
if (cf.wan_dns1_pri.value != "")
{
cf.DAddr1.value = wan_dns1_pri[0];
cf.DAddr2.value = wan_dns1_pri[1];
cf.DAddr3.value = wan_dns1_pri[2];
cf.DAddr4.value = wan_dns1_pri[3];
}
if (cf.wan_dns1_sec.value != "")
{
cf.PDAddr1.value = wan_dns1_sec[0];
cf.PDAddr2.value = wan_dns1_sec[1];
cf.PDAddr3.value = wan_dns1_sec[2];
cf.PDAddr4.value = wan_dns1_sec[3];
}
cf.MACAssign[wan_hwaddr_sel].checked = true;
}
//-->
</script>
</head>
<body onload="loadSettings(); loadcheck(); document.forms[0].elements[0].focus();goTestApply();" bgcolor="#ffffff">
<form name="formname" method="POST" action="ether.cgi" target="_parent">
<table border="0" cellpadding="0" cellspacing="3" width="100%">
<tbody><tr>
<td nowrap="nowrap"><a href="javascript:loadhelp('BAS_ether','accountname')" tabindex="-1"><b>Account Name</b></a> (If Required)</td>
<td align="right"><input name="system_name" maxlength="50" size="15" value="WGT624v3" tabindex="3" type="text"> </td>
</tr>
<tr>
<td nowrap="nowrap"><a href="javascript:loadhelp('BAS_ether','Domain')" tabindex="-1"><b>Domain Name</b></a> (If Required) </td>
<td align="right"><input name="domain_name" maxlength="50" size="15" tabindex="4" type="text"> </td>
</tr>
<tr> <!-- RULE -->
<td colspan="2" background="BAS_basictop_data/liteblue.gif" height="12"> </td>
</tr>
<tr>
<td colspan="2" nowrap="nowrap"><a href="javascript:loadhelp('BAS_ether','InternetIP')" tabindex="-1"><b>Internet IP Address</b></a></td>
</tr>
<tr>
<td colspan="2" nowrap="nowrap"><input checked="checked" name="WANAssign" value="dhcp" tabindex="5" onclick="setIP()" type="radio">Get Dynamically From ISP</td>
</tr>
<tr>
<td colspan="2" nowrap="nowrap"><input name="WANAssign" value="static" tabindex="6" onclick="setIP()" type="radio">Use Static IP Address</td>
</tr>
<tr>
<td nowrap="nowrap"><img src="MNU_menu_data/spacer.gif" border="0" height="12" width="20">IP Address</td>
<td class="num" align="right" nowrap="nowrap"><input value="71" disabled="disabled" name="WPethr1" class="num" size="4" maxlength="3" tabindex="7" onfocus="if(DisableFixedIP) this.blur()" type="text">.<input value="235" disabled="disabled" name="WPethr2" class="num" size="4" maxlength="3" tabindex="8" onfocus="if(DisableFixedIP) this.blur()" type="text">.<input value="183" disabled="disabled" name="WPethr3" class="num" size="4" maxlength="3" tabindex="9" onfocus="if(DisableFixedIP) this.blur()" type="text">.<input value="87" disabled="disabled" name="WPethr4" class="num" size="4" maxlength="3" tabindex="10" onfocus="if(DisableFixedIP) this.blur()" type="text"></td>
</tr>
<tr>
<td nowrap="nowrap"><img src="MNU_menu_data/spacer.gif" border="0" height="12" width="20">IP Subnet Mask</td>
<td class="num" align="right"><input value="255" disabled="disabled" name="WMask1" class="num" size="4" maxlength="3" tabindex="11" onfocus="if(DisableFixedIP) this.blur()" type="text">.<input value="255" disabled="disabled" name="WMask2" class="num" size="4" maxlength="3" tabindex="12" onfocus="if(DisableFixedIP) this.blur()" type="text">.<input value="254" disabled="disabled" name="WMask3" class="num" size="4" maxlength="3" tabindex="13" onfocus="if(DisableFixedIP) this.blur()" type="text">.<input value="0" disabled="disabled" name="WMask4" class="num" size="4" maxlength="3" tabindex="14" onfocus="if(DisableFixedIP) this.blur()" type="text"></td>
</tr>
<tr>
<td nowrap="nowrap"><img src="MNU_menu_data/spacer.gif" border="0" height="12" width="20">Gateway IP Address</td>
<td class="num" align="right"><input value="71" disabled="disabled" name="WGateway1" class="num" size="4" maxlength="3" tabindex="15" onfocus="if(DisableFixedIP) this.blur()" type="text">.<input value="235" disabled="disabled" name="WGateway2" class="num" size="4" maxlength="3" tabindex="16" onfocus="if(DisableFixedIP) this.blur()" type="text">.<input value="182" disabled="disabled" name="WGateway3" class="num" size="4" maxlength="3" tabindex="17" onfocus="if(DisableFixedIP) this.blur()" type="text">.<input value="1" disabled="disabled" name="WGateway4" class="num" size="4" maxlength="3" tabindex="18" onfocus="if(DisableFixedIP) this.blur()" type="text"></td>
</tr>
<tr> <!-- RULE -->
<td colspan="2" background="BAS_basictop_data/liteblue.gif" height="12"> </td>
</tr>
<tr>
<td colspan="2" nowrap="nowrap"><a href="javascript:loadhelp('BAS_ether','DNSaddress')" tabindex="-1"><b>Domain Name Server (DNS) Address </b></a></td>
</tr>
<tr>
<td colspan="2" nowrap="nowrap"><input name="DNSAssign" value="0" tabindex="19" onclick="setDNS()" type="radio">Get Automatically From ISP</td>
</tr>
<tr>
<td colspan="2" nowrap="nowrap"><input checked="checked" name="DNSAssign" value="1" tabindex="20" onclick="setDNS()" type="radio">Use These DNS Servers</td>
</tr>
<tr>
<td nowrap="nowrap"><img src="MNU_menu_data/spacer.gif" border="0" height="12" width="20">Primary DNS</td>
<td class="num" align="right" nowrap="nowrap"><input value="208" name="DAddr1" class="num" size="4" maxlength="3" tabindex="21" onfocus="if(DisableFixedDNS) this.blur()" type="text">.<input value="67" name="DAddr2" class="num" size="4" maxlength="3" tabindex="22" onfocus="if(DisableFixedDNS) this.blur()" type="text">.<input value="222" name="DAddr3" class="num" size="4" maxlength="3" tabindex="23" onfocus="if(DisableFixedDNS) this.blur()" type="text">.<input value="222" name="DAddr4" class="num" size="4" maxlength="3" tabindex="24" onfocus="if(DisableFixedDNS) this.blur()" type="text"></td>
</tr>
<tr>
<td nowrap="nowrap"><img src="MNU_menu_data/spacer.gif" border="0" height="12" width="20">Secondary DNS</td>
<td class="num" align="right" nowrap="nowrap"><input value="208" name="PDAddr1" class="num" size="4" maxlength="3" tabindex="25" onfocus="if(DisableFixedDNS) this.blur()" type="text">.<input value="67" name="PDAddr2" class="num" size="4" maxlength="3" tabindex="26" onfocus="if(DisableFixedDNS) this.blur()" type="text">.<input value="220" name="PDAddr3" class="num" size="4" maxlength="3" tabindex="27" onfocus="if(DisableFixedDNS) this.blur()" type="text">.<input value="220" name="PDAddr4" class="num" size="4" maxlength="3" tabindex="28" onfocus="if(DisableFixedDNS) this.blur()" type="text"></td>
</tr>
<tr> <!-- RULE -->
<td colspan="2" background="BAS_basictop_data/liteblue.gif" height="12"> </td>
</tr>
<tr>
<td colspan="2" nowrap="nowrap"><a href="javascript:loadhelp('BAS_ether','localaddress')" tabindex="-1"><b>Router MAC Address</b></a></td>
</tr>
<tr>
<td colspan="2" nowrap="nowrap"><input checked="checked" name="MACAssign" value="0" tabindex="29" onclick="setMAC()" type="radio">Use Default Address </td>
</tr>
<tr>
<td colspan="2" nowrap="nowrap"><input name="MACAssign" value="1" tabindex="29" onclick="setMAC()" type="radio">Use Computer MAC Address </td>
</tr>
<tr>
<td align="left" nowrap="nowrap"><input name="MACAssign" value="2" tabindex="29" onclick="setMAC()" type="radio">Use This MAC Address </td>
<td class="num" align="right" nowrap="nowrap"><input disabled="disabled" class="num" name="Spoofmac" size="17" maxlength="17" value="FA:CE:B0:0B:13:37" tabindex="30" onfocus="if(DisableFixedMAC) this.blur()" type="text">
</td>
</tr>
<tr> <!-- RULE -->
<td colspan="2" background="BAS_basictop_data/liteblue.gif" height="12"> </td>
</tr>
<tr>
<td colspan="2" align="center"><div id="basbuttons" onmouseover="loadhelp('BAS_ether','buttons')">
<input name="apply" value="Apply" onclick="return checkData()" tabindex="31" type="SUBMIT">
<input name="Cancel" value="Cancel" onclick="reset();loadSettings();loadcheck();" tabindex="32" type="BUTTON">
<input name="Test" value="Test" onclick="return checkData()" tabindex="33" type="SUBMIT"></div>
</td></tr>
</tbody></table>
<input name="runtest" value="no" type="hidden">
<input name="wan_proto" value="dhcp" type="hidden">
<input name="wan_ipaddr" value="xxx.xxx.xxx.xxx" type="hidden">
<input name="wan_netmask" value="255.255.254.0" type="hidden">
<input name="wan_gateway" value="xxx.xxx.xxx.xxx" type="hidden">
<input name="wan_dns_sel" value="1" type="hidden">
<input name="wan_dns1_pri" value="208.67.222.222" type="hidden">
<input name="wan_dns1_sec" value="208.67.220.220" type="hidden">
<input name="wan_hwaddr_sel" value="0" type="hidden">
<input name="wan_hwaddr2" type="hidden">
</form>
<p></p>
</body></html>
-
1Он содержит множество javascript, используемых для взаимодействия с веб-формой, поэтому вам по крайней мере требуется среда выполнения javascript (например, веб-браузер). Вы можете попробовать селенshawmzhu
-
0search.cpan.org/~ether/WWW-Mechanize-1.73/lib/WWW/Mechanize/...Jim Black
Показать ещё 4 комментария
1 ответ
0
На странице есть javascript-код, я думаю, что лучше механизировать страницу через веб-браузер, например, FF, поэтому вы можете использовать модуль WWW :: Mechanize :: Firefox.
Miguel Prz
Поделиться
-
0Хорошо, теперь мне не нужно создавать веб-браузер с нуля.
Ещё вопросы
- 1Как расширить компонент Button и разрешить событие пробела
- 0Панель обновления мешает работать jquery?
- 1Google Plus Android API: «Метод setActions (String []) не определен для типа PlusClient.Builder»
- 0angularjs: сортировка с использованием статусов приложения?
- 0ng Cordova file_uri к base64
- 0Как создать функцию / процедуру в MariaDB для запуска сценария обновления при доступе к таблице?
- 0Как определить, является ли URL-адрес IP-адресом в C / C ++?
- 0AngularJS получает доступ к 'this' в пределах $ http
- 1Регулярное выражение для соответствия местным ссылкам уценки
- 1Установить кортеж в качестве имени столбца в Pandas
- 1Не удается получить доступ к активации, деактивации или conda в среде conda
- 1Должна ли я структурировать карту с помощью Entity Framework, построенной правильно с помощью управления контекстом в проекте wcf
- 1Основы математики на Java
- 1Как получить простой список <T> из Android LiveData <List <T >>?
- 0что такое цель: x86_64-redhat-linux?
- 1Расширяемый список Список groupState Индикатор
- 0как показать сообщения проверки при отправке формы в угловых js
- 0Код Datepicker приводит к появлению выпадающего меню вместо календаря
- 0Отображение определенного содержимого веб-сайта в веб-просмотр
- 0$ window.open все еще открывает URL в приложении phonegap (угловой)
- 1Мое приложение для Android выдает длинную ошибку и не запускается
- 0STL - добавление значений к вектору, хранящемуся в карте STL
- 1Автоматическое изменение размера окна tkinter, чтобы соответствовать всем виджетам
- 0установка div со скрытым атрибутом данных с помощью jquery
- 1Как обрабатывать исключения ошибок с RxJava 2?
- 0Игра встряхивания мыши Javascript не работает должным образом
- 0Как проверить поле ввода внутри ng-repeat
- 1Ошибка параметров ограниченного типа Java
- 1как 32-битный процессор обрабатывает 64-битное двойное значение?
- 0угловой, как передать объект от контроллера к сервису
- 0Qt отсутствует библиотека?
- 1Как получить атрибут строки doc свойства?
- 0Печать вектора C ++ с добавлением новой строки
- 0Скрыть один элемент и показать другой при наведении
- 1преобразовать sql-запрос в linq в метод сущностей
- 1Получить все несжатые байты из сжатого файла
- 0как сохранить промежуточный итог 2d массива
- 1Angular UrlResolver не переопределяется пользовательским провайдером
- 0Совместимость Javascript, HTML и CSS внутри IFrame или вложенных IFrame
- 1RuntimeBeanNameReference против RuntimeBeanReference
- 0Удаление замораживающей панели после сбоя проверки на клиенте с использованием jQuery
- 0Слайд-тумблер на динамическом контенте
- 0Соединение AngularJS и CodeIgniter (вызовы GET работают, но POST нет)
- 0Генерация матрицы с помощью std :: generate
- 1Где поместить папку META-INF для приложения JPA
- 0Проверка конца строки и пробела
- 0jqGrid с использованием navGrid с position = right не работает
- 0Получить значения из QDialog
- 0JavaScript исчезает, но не исчезает
- 1Python (Flask RESTful API) Изменение объектов
