‘查詢資料庫，由接收到的訊息(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中有辦法嗎?還是說用其他辦法呢? 有人知道嗎^____^?

我写过完成的一个应用，用在各集团公司，实时的获取分公司的数据。delphi编写的一个办法, 封装MSN的完整协议!

------
^-^

少吹噓

把東西拿出來，不然跟廢話沒兩樣

論壇是用來分享知識，不適合用來吹虛你的豐功偉業


===================引 用 stone2088 文 章===================
我写过完成的一个应用，用在各集团公司，实时的获取分公司的数据。delphi编写的一个办法, 封装MSN的完整协议!

看起來應該是 VB.NET的語法
因為只有片段程式，我自己又沒碰過msn的應用，
所以不能幫上什麼忙

理論上 delphi 做得到那支程式的效果，
不過如果那個 MSNStatus 是 .NET 組件的話，
請記得用支援 .NET的 Delphi 喔

贴图不会，代码不公开！ 可以加我MSN:colorstone@163.net 可以给你看，也可以讨论!

------
^-^

寫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