全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:4430
推到 Plurk!
推到 Facebook!

有人使用Delphi寫MSN機器人嗎?

答題得分者是:阿子
swwad
一般會員


發表:3
回覆:0
積分:0
註冊:2004-04-02

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-06-09 21:47:31 IP:221.169.xxx.xxx 未訂閱
‘查詢資料庫,由接收到的訊息(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

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-06-06 19:35:59 IP:222.212.xxx.xxx 訂閱
我写过完成的一个应用,用在各集团公司,实时的获取分公司的数据。delphi编写的一个办法, 封装MSN的完整协议!
------
^-^
syntax
尊榮會員


發表:26
回覆:1139
積分:1258
註冊:2002-04-23

發送簡訊給我
#3 引用回覆 回覆 發表時間:2007-06-06 23:49:34 IP:61.64.xxx.xxx 訂閱
少吹噓

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

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


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


發表:5
回覆:21
積分:15
註冊:2006-10-29

發送簡訊給我
#4 引用回覆 回覆 發表時間:2007-06-07 00:51:23 IP:59.104.xxx.xxx 未訂閱
看起來應該是 VB.NET的語法
因為只有片段程式,我自己又沒碰過msn的應用,
所以不能幫上什麼忙

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


發表:0
回覆:2
積分:0
註冊:2007-06-06

發送簡訊給我
#5 引用回覆 回覆 發表時間:2007-06-07 16:59:49 IP:222.212.xxx.xxx 訂閱
贴图不会,代码不公开! 可以加我MSN:colorstone@163.net 可以给你看,也可以讨论!
------
^-^
阿子
站務副站長


發表:120
回覆:230
積分:201
註冊:2002-03-18

發送簡訊給我
#6 引用回覆 回覆 發表時間:2007-06-12 00:49:22 IP:222.124.xxx.xxx 訂閱
寫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
以上二個 請到
------
從思考取勝一切~q
系統時間:2017-10-23 5:09:16
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!