Yahoo奇摩知識+ 將於 2021 年 5 月 4 日 (美國東部時間) 終止服務。自 2021 年 4 月 20 日 (美國東部時間) 起,Yahoo奇摩知識+ 網站將會轉為唯讀模式。其他 Yahoo奇摩產品與服務或您的 Yahoo奇摩帳號都不會受影響。如需關於 Yahoo奇摩知識+ 停止服務以及下載您個人資料的資訊,請參閱說明網頁。

?
Lv 5
? 發問時間: 電腦與網際網路軟體 · 8 年前

請問按精高手FB塗鴉牆的留言區選前3篇自動貼上問候語~

我發現FB的留言區問候真的很頻繁~應該是很好的習慣~可是摯友一多還真的很累乎~我的需求如下~請高手幫忙一下~[1].記事本自己建立~用URL~例如:這兩個URL~https://www.facebook.com/profile.php?id=1000003178...

圖片參考:http://imgcld.yimg.com/8/n/AB07649088/o/2013081519...

[3].目前先以每人找塗鴉牆3個框來測試~請提示一下變數~要改幾個都可以~

假如寫的出來~那真是功德無量~感謝喔~

已更新項目:

【小修正通報】

記事本請改為2段式~ A.URL B.留言內容

這樣比較具多元性~以免流於制式化~謝謝~

2 個已更新項目:

感謝虛無大~先延5天讓大家慢慢測試~謝謝~

3 個解答

評分
  • ?
    Lv 4
    8 年前
    最佳解答

    展示影片:http://youtu.be/B13dtJ7DfN4

    圖片自行處理

    代碼:

    文件路徑 = "C:\測試用.txt"

    留言上限 = 3

    Call 測試用() '測試用而已 改文本路徑後可刪除

    If Plugin.File.ExistFile(文件路徑) = False Then MsgBox "文件不存在" : ExitScript

    MsgBox "1. 請先登入FB" & chr(13) & "2. 滑鼠放置於FB網頁窗口" & chr(13) & "3. 按確定執行腳本"

    Hwnd = Plugin.Window.MousePoint()

    xy = Split(Plugin.Window.GetClientRect(Hwnd), "|")

    Text = split(Plugin.File.ReadFileEx(文件路徑), "|")

    For n = 0 To UBound(Text) - 1 Step 2

    Call Plugin.Bkgnd.KeyPress(Hwnd, 117)

    Delay 200

    SayString Text(n)

    Delay 300

    KeyPress 13, 1

    Delay 1000 * 4 '網頁載入延遲

    intY = xy(1) : i = 0

    Do

    FindPic xy(0), intY, Cint(xy(0)) + Cint(xy(2)), Cint(xy(1)) + Cint(xy(3)), "Attachment:\留言定位.bmp", 1, intX, intY

    If intX > 0 And intY > 0 Then

    MoveTo intX + 50, intY + 10

    Delay 50

    LeftClick 1

    Delay 50

    SayString Text(n + 1)

    Delay 200

    Call Plugin.Bkgnd.KeyPress(Hwnd, 13)

    intY = intY + 1 : i = i + 1

    Else

    Delay 100

    '↓找到則切換下一個對象,避免可留言數不足卡循環使用↓

    FindPic xy(0), xy(1), Cint(xy(0)) + Cint(xy(2)), Cint(xy(1)) + Cint(xy(3)), "Attachment:\切換.bmp", 1, intX, intY

    If intX > 0 And intY > 0 Then Exit Do

    '↑----------------------------------------------↑

    Call Plugin.Bkgnd.KeyPress(Hwnd, 34)

    End If

    Delay 100

    Loop Until i >= 留言上限

    Next

    EndScript

    Sub 測試用()

    If Plugin.File.IsFileExit("C:\測試用.txt") = True Then Call Plugin.File.DeleteFile("C:\測試用.txt")

    Call Plugin.File.WriteFileEx("C:\測試用.txt", "https://www.facebook.com/profile.php?id=1000003178...

    Call Plugin.File.WriteFileEx("C:\測試用.txt", "測試留言")

    Call Plugin.File.WriteFileEx("C:\測試用.txt", "https://www.facebook.com/profile.php?id=1000041310...

    Call Plugin.File.WriteFileEx("C:\測試用.txt", "測試...")

    End Sub

  • ?
    Lv 7
    8 年前

    整個的另外重點,

    應該是框內的抓圖,

    抓圖可以抓有相機的圖形,

    抓到點入,

    貼上內容,

    累計三次跳出,

    LOOP。

    有關暱稱+內容可以用EXCEL來輔助,

    應該相當方便,

    將資料複製與貼上記事本。

    這個軟體應該相當實用,

    可以滿足很愛互動的網友,

    不然那種三餐式的固定式問候,

    的確困擾大家的喔。

    這裡的抓圖可能要點技巧,

    比如一個畫面分成數個,

    不然抓不完整,

    這魔幻大師有說過的喔。

    真是既簡單又深奧。

    2013-08-20 11:49:18 補充:

    每頁大約最多三個相機,

    未留言無相機,

    最後的好像也有沒有相機的,

    每頁找三段.跳三頁就可換人了.

    以解析度 1280,720 為例

    For i = 0 To 2

    Delay 50

    FindPic 0, i*240, 1280, (i+1)*240, "Attachment:\留言相機.bmp", 1, intX, intY

    Delay 50

    2013-08-20 11:53:23 補充:

    這些都還算是基本架構,

    就重要的是如控制每頁三段,

    三頁換人,

    可能需要腦筋與邏輯很清楚的,

    來幫助你,

    我簡單的來測試一人算是可以的。

    您去找【虛無】大來幫你囉,

    除非沒人肯幫您,

    只好用我的土法煉鋼了。

  • ?
    Lv 5
    8 年前

    2013-08-17 10:18:11 補充

    【小修正通報】

    記事本請改為2段式~ A.URL B.留言內容

    這樣比較具多元性~以免流於制式化~謝謝~

    2013-08-21 23:06:12 補充:

    2013-08-21 23:05:44 補充

    感謝虛無大~先延5天讓大家慢慢測試~謝謝~

還有問題?馬上發問,尋求解答。