有人使用Delphi寫MSN機器人嗎? |
答題得分者是:阿子
|
swwad
一般會員 發表:3 回覆:0 積分:0 註冊:2004-04-02 發送簡訊給我 |
‘查詢資料庫,由接收到的訊息(Msg)查詢要回的話 ‘------------------------------------------------------------------------------------ Private Function SelectAns(ByVal Msg As String) As String Try Cmd = New OleDb.OleDbCommand("SELECT a From MsgExe where q='" Msg "'", cn) DrMsg = Cmd.ExecuteReader If DrMsg.Read Then SelectAns = DrMsg("a") Else SelectAns = "我聽不懂你再說啥!!" End If DrMsg.Close() Catch ex As Exception MsgBox(ex.Message) End Try End Function ‘------------------------------------------------------------------------------------ ‘UpState 將Data寫到紀錄用的文字盒(TxtLog) ‘------------------------------------------------------------------------------------ Private Sub UpState(ByVal Data As String) TxtLog.Text = Data vbCrLf TxtLog.Text End Sub ‘------------------------------------------------------------------------------------ ‘GetStatus 以狀態碼(ID)查詢狀態 ‘------------------------------------------------------------------------------------ Private Function GetStatus(ByVal ID As MSNStatus) As String Select Case ID Case MSNStatus.Offline GetStatus = "離線" Case MSNStatus.Hidden GetStatus = "隱藏" Case MSNStatus.Online GetStatus = "線上" Case MSNStatus.Away GetStatus = "離開" Case MSNStatus.Busy GetStatus = "忙碌" Case MSNStatus.BRB GetStatus = "馬上回來" Case MSNStatus.Lunch GetStatus = "外出用餐" Case MSNStatus.Phone GetStatus = "電話中" Case MSNStatus.Idle GetStatus = "閒置" Case Else GetStatus = "不明" End Select End Function這是在微軟的.NET上開發的嗎?因為我不熟微軟系列的所以看不出來! 止市大概知道應該有內定的函式可以直接控制MSN的動作, 但是在Delphi中有辦法嗎?還是說用其他辦法呢? 有人知道嗎^____^? |
stone2088
一般會員 發表:0 回覆:2 積分:0 註冊:2007-06-06 發送簡訊給我 |
|
syntax
尊榮會員 發表:26 回覆:1139 積分:1258 註冊:2002-04-23 發送簡訊給我 |
|
bighm
一般會員 發表:5 回覆:21 積分:15 註冊:2006-10-29 發送簡訊給我 |
|
stone2088
一般會員 發表:0 回覆:2 積分:0 註冊:2007-06-06 發送簡訊給我 |
|
阿子
站務副站長 發表:120 回覆:230 積分:201 註冊:2002-03-18 發送簡訊給我 |
寫MSN機器人不難 ,難在你要了解 MSN Messenger Protocol (MSNPX MSN的通訊協定) 目前出了不少版本跟著目前MSN 版本一直更新,網路上有不少相關文件可以參考,目前在NET下己有不少成熟組件可以使用,在Delphi(win32)中也有但成熟度通常不高,不過二者都一樣要先了解MSNPX才能上手。 原理不外乎依照MSNPX栛定封裝成元件,或是呼收MSN (client)的com來用。
提供Delphi VCL 給您參考: 商業元件 Bricksoft MSN Messenger VCL Component 理論上該應該比較成熟但應為商業元件,沒使用過。 free 元件 1. TMsnClient 2. ActiveMSN By Cellocity 以上二個 請到SourceForge.net 上去找 不然到google上找也很多。 找對該下苦功的地方作起事來會好作些。
------
從思考取勝一切~q |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |