บอทกด like facebook

เราสามารถเขียนบอทให้ไปกด like ข้อความหรือรูป อัตโนมัติได้ไหม ถ้าได้
รบกวนเพื่อน แนะแนวคิดให้หน่อยครับ

คลิก Like ใน facebook คลิกได้แค่หนึ่งคนหนึ่งคลิก ผมว่าคงไม่มีประโยชน์ที่จะเขียนโปรแกรมคลิก like

ปล.ผมไม่ได้เล่น facebook นานแล้วอาจจะเข้าใจผิด ถ้าผมเข้าใจผิดอย่างไรก็ลองอธิบายลักษณะโปรแกรมของคุณมาอีกครั้งครับ

POS พิมพ์ว่า:คลิก Like ใน facebook คลิกได้แค่หนึ่งคนหนึ่งคลิก ผมว่าคงไม่มีประโยชน์ที่จะเขียนโปรแกรมคลิก like

ปล.ผมไม่ได้เล่น facebook นานแล้วอาจจะเข้าใจผิด ถ้าผมเข้าใจผิดอย่างไรก็ลองอธิบายลักษณะโปรแกรมของคุณมาอีกครั้งครับ

เข้าใจถูกต้องแล้วครับ หนึ่งคนคลิก like ได้ครั้งเดียวต่อ 1 คอมเม้นนั้นๆหรือรูปภาพนั้นๆครับ ลักษณะโปรแกรมที่ผมหมายถึงคือ
กด like ทุกคอมเม้นบน wall อะไรประมาณนี้ครับ

ตอนนี้ AutoIt มีปัญหากับ IE9 ครับ ต้องรอเวอร์ชั่นอัปเดท แต่ถ้าคุณใช้ IE เวอร์ชั่นอื่น ลองดูโค้ดด้านล่างนี้

แสดงข้อความในหน้า Face book ส่วนคอมเมนต์

Code:

#include <IE.au3>
$oIE = _IECreate ("http://www.facebook.com/")
_IELoadWait($oIE)

$oDiv = _IEGetObjById($oIE, 'contentArea')

$oLinks = _IELinkGetCollection($oDiv )
For $oLink in $oLinks
    $sLinkText = _IEPropertyGet($oLink, "innerText")
      ConsoleWrite($sLinkText&@crlf)
Next

สั่งคลิก เฉพาะลิงก์ที่มีคำว่า ถูกใจ (ผมไม่ได้ทดสอบเนื่องจากใช้ IE9 สคริปต์จะไม่ทำงาน)

Code:

#include <IE.au3>
$oIE = _IECreate ("http://www.facebook.com/")
_IELoadWait($oIE)

$oDiv = _IEGetObjById($oIE, 'contentArea')

$oLinks = _IELinkGetCollection($oDiv )
For $oLink in $oLinks
    $sLinkText = _IEPropertyGet($oLink, "innerText")
    If StringInStr($sLinkText, "ถูกใจ") Then
        _IEAction($oLink, "click")
        ExitLoop
    EndIf
Next

ผมใช้ IE8 ครับลองรัน script ดูแล้วไม่มีอะไรเกิดขึ้นเลยครับ เหมือนจะใช้ไม่ได้แฮะ

ลองนำเอาโค้ดนี้ไปรันอีกครั้งครับ ถ้าตรวจหาเจอก็จะคลิกแล้วก็มีกรอกหน้าต่างแสดงขึ้นมา

Code:

#include <IE.au3>
$oIE = _IECreate ("http://www.facebook.com/")
_IELoadWait($oIE)

$oDiv = _IEGetObjById($oIE, 'contentArea')

$oLinks = _IELinkGetCollection($oDiv )
For $oLink in $oLinks
    $sLinkText = _IEPropertyGet($oLink, "innerText")
    If StringInStr($sLinkText, "ถูกใจ") Then
        _IEAction($oLink, "click")
      MsgBox(0,"คลิกถูกใจ",$sLinkText)
    EndIf
Next

ผลการทดสอบ ก็เหมือนเดิมครับคือไม่มีอะไรเกิดขึ้น ไม่มีการกด ถูกใจครับ

ลองโค้ดด้านล่างนี้อีกครั้งครับ ถ้าไม่ได้ก็ต้องรอให้ AutoI อัปเดทเวอร์ชั่นที่รองรับ IE9 ผมจะดูให้อีกครั้ง

Code:

#include <IE.au3>

$oIE = _IECreate("http://www.facebook.com")
_IELoadWait($oIE)
$oDiv = _IEGetObjById($oIE, 'contentArea')
$oLinks = _IETagnameGetCollection($oDiv, "span");ถ้าไม่ได้ลองเปลี่ยนจาก span เป็น div  หรือ button
For $oLink In $oLinks
   $text = $oLink.innerText
   If StringInStr($Text, "ถูกใจ")   Then
   _IEAction($oLink, "click")
   MsgBox(0,"คลิกถูกใจ",$text )
   Sleep(100)
   EndIf
Next