powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / ASP.NET [игнор отключен] [закрыт для гостей] / Help C# и Perl script
2 сообщений из 2, страница 1 из 1
Help C# и Perl script
    #34017346
Border
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вот этот скрипт предназначен для того чтоб включить Интернет с сайта провайдера и проверки подключения путём pinga на DNS server.
Вопрос : как можно сделать тоже самое в C# или как-то использовать данный скрипт в приложение ?
Буду признателен если посоветуете литературу или примеры.        
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);
use Net::Ping;
$server_ip = 'http://192.148.170.66:8080';
$ping_host = '202.0.200.2';
$login = 'login';
$pass = 'pass';
$service1 = 'PrDSL5';
$service2 = 'PrDSL14';
$p = Net::Ping->new("icmp");
for ($i = 1; $i <= 5; $i++ ) {if ($p->ping($ping_host, 2)) {$ping++;}}
if ( $ping < 2)
{
$ua=LWP::UserAgent->new;
$ua->agent("Mozzila");
my $req = POST $server_ip.'/accountLogoff/home', [confirmed => 'true' ], [ submitButton => 'OK+' ];
$res = $ua->request($req)->as_string;
sleep 2;
my $req = POST $server_ip.'/home?confirmed=true&submitButton=OK+&username='.$login.'&password='.$pass;
$res = $ua->request($req)->as_string;
my $req = POST $server_ip.'/serviceStart/refresh/home?service='.$service1;
$res = $ua->request($req)->as_string;
my $req = POST $server_ip.'/serviceStart/refresh/home?service='.$service2;
$res = $ua->request($req)->as_string;
}
$p->close();
C#
...
Рейтинг: 0 / 0
Help C# и Perl script
    #34022172
gaidar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А поставить на сервер Perl и использовать нельзя?--
Гайдар Магдануров
E-Mail | Блог | Сайт

Difficult I do now, impossible will take a while...
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / ASP.NET [игнор отключен] [закрыт для гостей] / Help C# и Perl script
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]