auto submit co set time
Code:
#!/usr/bin/env perl
use LWP;
use Digest::MD5 qw(md5_hex);
use HTTP::Response;
use HTTP::Cookies;
$url="http://yoursite.com/";
$browse = LWP::UserAgent->new();
$browse->agent('Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0');
print "[+] Cheating...\n";
$browse->cookie_jar({});
my $a=1;
while ($a<=10) {
print "[+] Cheating...\n";
$response = $browse->post(
$url . 'cheat.php', [
'fbid' => 'xxxx',
'user' => 'yyyy',
'flashVersion' => '0.5.23a',
'mode' => '3',
'page' =>''
]);
sleep (1);
$response = $browse->post(
$url . 'cheat.php', [
'fbid' => 'xxxx',
'user' => 'yyyy',
'flashVersion' => '0.5.23a',
'mode' => '4',
'page' =>''
]);
sleep (10);
}
cach su dung tuong tu nhu code auto submit cu, khac 1 cho. code cu co vong lap for, code nay bo vong lap for, neu muon set trong khoang bao nhieu giay thao tac thuc hien 1 lan thi o cai sleep (10) => thay so 10 bang so giay ban muon. vi du 5 giay thi thay so 5 vo. het tut