【衍生題】請問按精高手FB塗鴉牆留言區選前3篇自動貼上問候語

請先參考前題~http://tw.knowledge.yahoo.com/question/question?qi... >>> 暱稱前加 @ 然後游標往暱稱的右邊遊走 會出現很多的超連結 直到最後一個字母 就會出現真正的超連結然後TAB一下 超連結暱稱就進入留言區了請問如何將此題的內容的暱稱自動變成超連結 

已更新項目:

請問是不是很難~請來解說一下也可以~謝謝~

2 個已更新項目:

感謝 妙地 知識長的建議~

所以建議您改個需求:

如何用按精辨識 @虛無大 早安~這個早安前的空白的就是暱稱,

然後以方向鍵來完成暱稱超連結的產生,

對虛無大來說應該可以辦得到的。

3 個已更新項目:

寫的真是精彩~沒意見的話準備結案了~謝謝大家~

3 個解答

評分
  • 8 年前
    最佳解答

    這樣???

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

    Youtube thumbnail

    記事本格式:

    1.網址

    2.@暱稱 留言

    暱稱後面空白是分割用的

    文件路徑 = "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

    Call Plugin.Bkgnd.LeftClick(Hwnd, intX - XY(0) + 50, intY - XY(1) + 10)

    Delay 50

    SayString split(Text(n + 1), " ")(0)

    Delay 200

    Call Plugin.Bkgnd.KeyPress(Hwnd, 39)

    Delay 200

    Call Plugin.Bkgnd.KeyPress(Hwnd, 9)

    Delay 200

    SayString split(Text(n + 1), " ")(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 200

    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/liu.qi.758%22)

    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

  • 【版主來信求助】

    跟您分析一下,

    假如要在暱稱前面+@是不難,

    用EXCEL的函式就可以完成,

    進入按精之後,

    也可以用右方向鍵來導引,

    可是無法確定有幾個字,

    或許用按精可以分析在空白字之前的位數,

    比如@虛無大 早安~

    早安的空白前就是暱稱,

    但是同名同姓,

    您又該如何去辨識呢,

    也就是不考慮重項,

    就用FB顯示的超連結圖示的第一位,

    用TAB鍵就可以加入了,

    當然用EXCEL也是可以幫您克服的,

    所以建議您改個需求:

    如何用按精辨識 @虛無大 早安~這個早安前的空白的就是暱稱,

    然後以方向鍵來完成暱稱超連結的產生,

    對虛無大來說應該可以辦得到的。

    2013-09-03 16:35:26 補充:

    虛無 大

    腳本寫的很靈活,

    很棒的範本。

    但是發現版主尚未考量到暱稱的特性,

    比如英文暱稱中間就有兩個空白,

    中文還好,

    尚未發現有空白,

    也就是用空白來管制不是相當理想的,

    建議用關鍵字與特殊字或是特殊符號,

    比如用[摯友]的[摯]來控管,

    來取代原有的空白,如Sim Teck Koon 摯友:===

    如此的話,是不是把您的腳本的空白管制處改為[摯]就可以了

    SayString split(Text(n + 1),"摯")(0)  SayString split(Text(n + 1)," 摯")(1)

    經測試不行,

    請問還要改哪裡,

    請指點一下,

    謝謝。

    2013-09-03 20:25:03 補充:

    虛無 前輩

    謝謝私下的指導,

    謝謝。

  • 8 年前

    2013-08-28 20:16:06 補充

    請問是不是很難~請來解說一下也可以~謝謝~

    2013-09-02 12:02:15 補充:

    2013-09-02 12:01:56 補充

    感謝 妙地 知識長的建議~

    所以建議您改個需求:

    如何用按精辨識 @虛無大 早安~這個早安前的空白的就是暱稱,

    然後以方向鍵來完成暱稱超連結的產生,

    對虛無大來說應該可以辦得到的。

    2013-09-03 20:31:20 補充:

    2013-09-03 20:30:59 補充

    寫的真是精彩~沒意見的話準備結案了~謝謝大家~

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