VBA可以讓Messenger送出字串後震動別人嗎?

'[工具]->[設定引用項目], 引用 Messenger API Type Library

Sub sendMSN()

Application.ScreenUpdating = False

Dim oMSN As New Messenger

Dim oContact As IMessengerContact

Dim i As Integer

oMSN.InstantMessage "aaabbbccc@hotmail.com"

SendKeys "您好" & "{Enter}" & "{Enter}" & "{Enter}"

End Sub

請問可以在送出字串 "您好" 後 震動別人嗎?

2 Answers

Rating
  • 1 decade ago
    Favorite Answer

    SendKeys "您好" & "{Enter}" & "{Enter}" & "{Enter}"

    底下加這些:

    Application.Wait (Now + TimeValue("0:00:2")) '間隔2秒

    SendKeys "%A" '送出 Alt+A 按鍵。

    SendKeys "D" '送出 D 按鍵。

  • Brian
    Lv 5
    1 decade ago

    加上 SendKeys "%AD"

    其它功能一樣可以如法泡製 : )

Still have questions? Get your answers by asking now.