|
|
|
อยากให้ช่วยแปลง code จาก php เป็น vb ให้หน่อยครับ เนื้อหาเกี่ยวกับ curl_setopt |
|
|
|
|
|
|
|
อยากให้ช่วยแปลงให้หน่อยครับ
Code (PHP)
$msg = random(90); อันนี้แค่ random string 90 ตัวเฉยๆ ครับ
$randup = rand(0,5);
$user = $_CONFIG['user'][$randup];
$pass = $_CONFIG['pass'][$randup];
$field = array("name" => $user, "password" => $pass, "checkkey" => $_POST['checkkey'], "checksum" => $_POST['checksum'], "pic" => rand(1,143), "body" => $msg, "filedesc" => NULL, "mailalert" => "yes", "operator" => "142", "pageno" => NULL,"pagepwd" => NULL, "pageuser" => NULL, "file" => $_POST['katoo'], "ktsub" => "Katoo", "" => "-- Reply -- Reply -- Reply --" );
$ch2 = curl_init();
curl_setopt($ch2,CURLOPT_URL,"http://bbs2.pramool.com/cgi-bin/webboard/followup3.cgi");
curl_setopt($ch2,CURLOPT_POST,1);
curl_setopt($ch2,CURLOPT_POSTFIELDS,$field);
curl_setopt($ch2,CURLOPT_RETURNTRANSFER,true);
$return = curl_exec($ch2);
curl_close($ch2);
ช่วยทีนะครับ เป็น code เกี่ยวกับการทำโปรขุดกระทู้ครับ ตรงไหนต้องใส่ค่าก็เว้นว่าง ไว้ก็ได้ครับ ขอบคุณมากนะครับ
Code (VB.NET)
Dim strurl As String = "http://bbs2.pramool.com/cgi-bin/webboard/followup3.cgi?"
strurl &= "name=username&password=password&checkkey=" & checkkey & "&checksum=" & TextBox2.Text & "&pic=1&body=asdfasdfasdfasdjf;lsadkfl&filedesc=&mailalert=yes&operator=142&pageno=&pagepwd=&pageuser=&file=j829312?ktsub=-- Reply -- Reply -- Reply --"
Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(strurl)
Tag : PHP, VB.NET
|
|
|
|
|
|
Date :
2011-12-05 11:57:25 |
By :
Nool3OFWal2 |
View :
1114 |
Reply :
1 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ตอนนี้แก้เป็นแบบนี้แล้วแต่ก็ยังไม่ได้ครับ
Code (VB.NET)
Dim strurl As String = "http://bbs2.pramool.com/cgi-bin/webboard/followup3.cgi?"
strurl &= "name=username&password=mypassword&checkkey=" & checkkey & "&checksum=" & TextBox2.Text & "&pic=1&body=asdfasdfasdfasdjf;lsadkfl&filedesc=&mailalert=yes&operator=142&pageno=&pagepwd=&pageuser=&file=j829312&ktsub=Katoo&=-- Reply -- Reply -- Reply --"
|
|
|
|
|
Date :
2011-12-05 12:29:30 |
By :
Nool3OFWal2 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Load balance : Server 01
|