iT邦幫忙

DAY 6
6

我的學習之路系列 第 6

實作一個簡單的MSN機器人-3

昨天分享了將MSN機器人寫成獨立的一個Class,裡面除了登入和發送訊息之外,也另外加了一些簡單的屬性和功能,今天我們來看看該如何接收別人傳過來的訊息(或是回傳的訊息),加上今天的程式碼,大家就可以試著自己寫一個簡單的MSN秘書囉!趕快讓我們來看看今天的程式碼吧!
今天的程式碼比較少,所以比較簡單,容易理解:

1.承續在上一篇所完成的Class中加入TextMessageReceived函式,程式碼如下:

    Private Sub TextMessageReceived(ByVal sender As Object, ByVal e As TextMessageEventArgs)
        Dim conv As Conversation = sender
        conv.SendTextMessage(New TextMessage(e.Sender.Mail & "你好啊!我是測試的MSN機器人,請多多指教!"))
    End Sub

2.接著我們可以利用程式碼視窗左上方的下接選單選擇msgr,右邊選擇ConversationCreated事件,這樣就會自動幫我們產生如下的程式碼,當然如果你想要自己手動輸入也是可以的:

    Private Sub msgr_ConversationCreated(ByVal sender As Object, ByVal e As MSNPSharp.ConversationCreatedEventArgs) Handles msgr.ConversationCreated
        '將每一個被建立的Conversation收到訊息的事件繫結到TextMessageReceived事件處理函式。
        AddHandler e.Conversation.TextMessageReceived, AddressOf TextMessageReceived

    End Sub

OK,完成了,我們今天的程式碼就這麼簡單的兩段,這樣就可以讓MSN機器人對於收到的訊息做出反應,透過TextMessageReceived函式所攜帶的e.Message.Text就可以得知對方傳送過來的訊息,只要解析傳送過來的訊息指令,就可以利用程式做出相對應的反應,所以就可以自己發揮想像力,可以實作一個簡單的MSN小秘書或是其它的應用囉!

實作簡單的MSN機器人系列文章:
實作一個簡單的MSN機器人
實作一個簡單的MSN機器人-2
實作一個簡單的MSN機器人-3
實作一個簡單的MSN機器人-4
實作一個簡單的MSN機器人-5


上一篇
實作一個簡單的MSN機器人-2
下一篇
實作一個簡單的MSN機器人-4
系列文
我的學習之路14

1 則留言

0
SunAllen
iT邦研究生 1 級 ‧ 2010-10-18 09:45:54

喜歡 好神奇啊

沙發

klm2242 iT邦研究生 1 級 ‧ 2010-11-02 16:59:20 檢舉

Thanks for your sharing

我要留言

立即登入留言