#--------------------------------------------------------------------
# RU Auto Login
# Date :: 31 Jan 2010
#
# Program Description
# Using :: ru.pl
# -------------------------------------------------------------------
use LWP::UserAgent;
my $ua = new LWP::UserAgent;
my $time = time()+897762620;
if($ARGV[0] != "" || $ARGV[1] != ""){
my $response = $ua->post('https://10.4.51.1/netaccess/connstatus.html',{ sid => $time,login => 'Log+In+Now',});
my $content = $response->content;
my $response = $ua->post('https://10.4.51.1/netaccess/loginuser.html',{ username => $ARGV[0],password => $ARGV[1],Login => 'Continue',sid => $time,});
my $content = $response->content;
}else{
print "Using: ru.pl";
}
#---------------------------------------------------------------------
เป็น Script login เข้าใช้งาน Internet ของมหาวิทยาลัยรามคำแหง Script เขียนด้วย Perl สามารถใช้งานได้ทั้ง Windows และ Linux(ทดสอบใน Ubuntu และ Debian)
