Delphi下如何进行MSN messenger 方面的编程？(300分)

  • 主题发起人 主题发起人 zx8
  • 开始时间 开始时间
Z

zx8

Unregistered / Unconfirmed
GUEST, unregistred user!
5415已经问过此问题。
比如我想记录对话信息，添加MSN的背景图片等等。
总之关于MSN方面的编程资料谁有？ 我已经全文检索过大富翁关于此类问题的问答，
如果哪位兄弟能解决，300分相送，小弟先谢了。
 
MSN有开发包，微软就有下载
 
微软关于MSN的开发包是对VB和VC支持的,在那里可以下载支持delphi的？
 
http://new.playicq.com/dispdocnew.php?id=3975
MSN Recorder -- 作者:

开发语言： Delphi &amp
Kylix

简介： 用HOOK技术，获取MSN Messenger5 的聊天信息

 
谢谢 cxz9 ,我知道有MSN Recorder，实际上我要求的是要带源文件MSN Messenger 的delphi 接口库文件。
 
这个，你自己导入tlb
add msmsgs.exe
就可了
// *********************************************************************//
// Interface: IMsgrUser
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {218CB453-20B6-11D2-8E17-0000F803A446}
// *********************************************************************//
IMsgrUser = interface(IDispatch)
['{218CB453-20B6-11D2-8E17-0000F803A446}']
procedure Set_FriendlyName(const pbstrFriendlyName: WideString)
safecall;
function Get_FriendlyName: WideString
safecall;
function Get_EmailAddress: WideString
safecall;
function Get_State: MSTATE
safecall;
function Get_LogonName: WideString
safecall;
function SendText(const bstrMsgHeader: WideString
const bstrMsgText: WideString

mmtType: MMSGTYPE): Integer
safecall;
function Get_Service: IMsgrService
safecall;
property FriendlyName: WideString write Set_FriendlyName;
property EmailAddress: WideString read Get_EmailAddress;
property State: MSTATE read Get_State;
property LogonName: WideString read Get_LogonName;
property Service: IMsgrService read Get_Service;
end;

// *********************************************************************//
// DispIntf: IMsgrUserDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {218CB453-20B6-11D2-8E17-0000F803A446}
// *********************************************************************//
IMsgrUserDisp = dispinterface
['{218CB453-20B6-11D2-8E17-0000F803A446}']
property FriendlyName: WideString writeonly dispid 1610743808;
property EmailAddress: WideString readonly dispid 1610743810;
property State: MSTATE readonly dispid 1610743811;
property LogonName: WideString readonly dispid 1610743812;
function SendText(const bstrMsgHeader: WideString
const bstrMsgText: WideString

mmtType: MMSGTYPE): Integer
dispid 101;
property Service: IMsgrService readonly dispid 1610743814;
end;

// *********************************************************************//
// Interface: IMsgrUser2
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {218CB456-20B6-11D2-8E17-0000F803A446}
// *********************************************************************//
IMsgrUser2 = interface(IMsgrUser)
['{218CB456-20B6-11D2-8E17-0000F803A446}']
procedure Set_Property_(ePropType: MUSERPROPERTY
pvPropVal: OleVariant)
safecall;
function Get_Property_(ePropType: MUSERPROPERTY): OleVariant
safecall;
property Property_[ePropType: MUSERPROPERTY]: OleVariant write Set_Property_;
end;

// *********************************************************************//
// DispIntf: IMsgrUser2Disp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {218CB456-20B6-11D2-8E17-0000F803A446}
// *********************************************************************//
IMsgrUser2Disp = dispinterface
['{218CB456-20B6-11D2-8E17-0000F803A446}']
property Property_[ePropType: MUSERPROPERTY]: OleVariant writeonly dispid 1610809344;
property FriendlyName: WideString writeonly dispid 1610743808;
property EmailAddress: WideString readonly dispid 1610743810;
property State: MSTATE readonly dispid 1610743811;
property LogonName: WideString readonly dispid 1610743812;
function SendText(const bstrMsgHeader: WideString
const bstrMsgText: WideString

mmtType: MMSGTYPE): Integer
dispid 101;
property Service: IMsgrService readonly dispid 1610743814;
end;

// *********************************************************************//
// Interface: IMsgrUsers
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {218CB454-20B6-11D2-8E17-0000F803A446}
// *********************************************************************//
IMsgrUsers = interface(IDispatch)
['{218CB454-20B6-11D2-8E17-0000F803A446}']
function Get_Count: Integer
safecall;
function Item(Index: Integer): IMsgrUser
safecall;
procedure Add(const pUser: IMsgrUser)
safecall;
procedure Remove(const pUser: IMsgrUser)
safecall;
function Get__NewEnum: IUnknown
safecall;
property Count: Integer read Get_Count;
property _NewEnum: IUnknown read Get__NewEnum;
end;

// *********************************************************************//
// DispIntf: IMsgrUsersDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {218CB454-20B6-11D2-8E17-0000F803A446}
// *********************************************************************//
IMsgrUsersDisp = dispinterface
['{218CB454-20B6-11D2-8E17-0000F803A446}']
property Count: Integer readonly dispid 1610743808;
function Item(Index: Integer): IMsgrUser
dispid 0;
procedure Add(const pUser: IMsgrUser)
dispid 100;
procedure Remove(const pUser: IMsgrUser)
dispid 101;
property _NewEnum: IUnknown readonly dispid -4;
end;

// *********************************************************************//
// Interface: IMsgrIMSession
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {82E11592-20F5-11D2-91AD-0000F81FEFC9}
// *********************************************************************//
IMsgrIMSession = interface(IDispatch)
['{82E11592-20F5-11D2-91AD-0000F81FEFC9}']
function Get_Members: IMsgrUsers
safecall;
function Get_State: SSTATE
safecall;
function Get_Service: IMsgrService
safecall;
function Get_Invitees: IMsgrUsers
safecall;
procedure LeaveSession
safecall;
procedure InviteUser(vUser: OleVariant)
safecall;
function SendText(const bstrMsgHeader: WideString
const bstrMsgText: WideString

mmtType: MMSGTYPE): Integer
safecall;
property Members: IMsgrUsers read Get_Members;
property State: SSTATE read Get_State;
property Service: IMsgrService read Get_Service;
property Invitees: IMsgrUsers read Get_Invitees;
end;

// *********************************************************************//
// DispIntf: IMsgrIMSessionDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {82E11592-20F5-11D2-91AD-0000F81FEFC9}
// *********************************************************************//
IMsgrIMSessionDisp = dispinterface
['{82E11592-20F5-11D2-91AD-0000F81FEFC9}']
property Members: IMsgrUsers readonly dispid 1610743808;
property State: SSTATE readonly dispid 1610743809;
property Service: IMsgrService readonly dispid 1610743810;
property Invitees: IMsgrUsers readonly dispid 1610743811;
procedure LeaveSession
dispid 100;
procedure InviteUser(vUser: OleVariant)
dispid 101;
function SendText(const bstrMsgHeader: WideString
const bstrMsgText: WideString

mmtType: MMSGTYPE): Integer
dispid 102;
end;

// *********************************************************************//
// Interface: IMsgrIMSessions
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {6FD143E6-20A5-11D2-91AD-0000F81FEFC9}
// *********************************************************************//
IMsgrIMSessions = interface(IDispatch)
['{6FD143E6-20A5-11D2-91AD-0000F81FEFC9}']
function Get_Count: Integer
safecall;
function Item(Index: Integer): IMsgrIMSession
safecall;
function Get__NewEnum: IUnknown
safecall;
property Count: Integer read Get_Count;
property _NewEnum: IUnknown read Get__NewEnum;
end;

// *********************************************************************//
// DispIntf: IMsgrIMSessionsDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {6FD143E6-20A5-11D2-91AD-0000F81FEFC9}
// *********************************************************************//
IMsgrIMSessionsDisp = dispinterface
['{6FD143E6-20A5-11D2-91AD-0000F81FEFC9}']
property Count: Integer readonly dispid 1610743808;
function Item(Index: Integer): IMsgrIMSession
dispid 0;
property _NewEnum: IUnknown readonly dispid -4;
end;

// *********************************************************************//
// Interface: IMsgrServices
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {659ECAD8-A5C0-11D2-A440-00C04F795683}
// *********************************************************************//
IMsgrServices = interface(IDispatch)
['{659ECAD8-A5C0-11D2-A440-00C04F795683}']
procedure Set_PrimaryService(const ppService: IMsgrService)
safecall;
function Get_PrimaryService: IMsgrService
safecall;
function Get_Count: Integer
safecall;
function Item(Index: Integer): IMsgrService
safecall;
function Get__NewEnum: IUnknown
safecall;
property PrimaryService: IMsgrService write Set_PrimaryService;
property Count: Integer read Get_Count;
property _NewEnum: IUnknown read Get__NewEnum;
end;

// *********************************************************************//
// DispIntf: IMsgrServicesDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {659ECAD8-A5C0-11D2-A440-00C04F795683}
// *********************************************************************//
IMsgrServicesDisp = dispinterface
['{659ECAD8-A5C0-11D2-A440-00C04F795683}']
property PrimaryService: IMsgrService writeonly dispid 1610743808;
property Count: Integer readonly dispid 1610743810;
function Item(Index: Integer): IMsgrService
dispid 0;
property _NewEnum: IUnknown readonly dispid -4;
end;

// *********************************************************************//
// Interface: IMsgrService
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {659ECAD9-A5C0-11D2-A440-00C04F795683}
// *********************************************************************//
IMsgrService = interface(IDispatch)
['{659ECAD9-A5C0-11D2-A440-00C04F795683}']
function Get_ServiceName: WideString
safecall;
function Get_LogonName: WideString
safecall;
procedure Set_FriendlyName(const pbstrName: WideString)
safecall;
function Get_FriendlyName: WideString
safecall;
function Get_Capabilities: Integer
safecall;
function Get_Status: MSVCSTATUS
safecall;
procedure Logoff
safecall;
function FindUser(const bstrFirstName: WideString
const bstrLastName: WideString

const bstrCity: WideString
const bstrState: WideString

const bstrCountry: WideString): Integer
safecall;
function SendInviteMail(const bstrEmailAddress: WideString
lFindCookie: Integer

lFindIndex: Integer
lLCID: Integer): Integer
safecall;
function RequestURLPost(muType: MURLTYPE
const bstrAdditionalInfo: WideString): Integer
safecall;
procedure Set_ProfileField(MPFLFIELD: MPFLFIELD
pvFieldValue: OleVariant)
safecall;
function Get_ProfileField(MPFLFIELD: MPFLFIELD): OleVariant
safecall;
property ServiceName: WideString read Get_ServiceName;
property LogonName: WideString read Get_LogonName;
property FriendlyName: WideString write Set_FriendlyName;
property Capabilities: Integer read Get_Capabilities;
property Status: MSVCSTATUS read Get_Status;
property ProfileField[MPFLFIELD: MPFLFIELD]: OleVariant write Set_ProfileField;
end;

// *********************************************************************//
// DispIntf: IMsgrServiceDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {659ECAD9-A5C0-11D2-A440-00C04F795683}
// *********************************************************************//
IMsgrServiceDisp = dispinterface
['{659ECAD9-A5C0-11D2-A440-00C04F795683}']
property ServiceName: WideString readonly dispid 1610743808;
property LogonName: WideString readonly dispid 1610743809;
property FriendlyName: WideString writeonly dispid 1610743810;
property Capabilities: Integer readonly dispid 1610743812;
property Status: MSVCSTATUS readonly dispid 1610743813;
procedure Logoff
dispid 1610743814;
function FindUser(const bstrFirstName: WideString
const bstrLastName: WideString

const bstrCity: WideString
const bstrState: WideString

const bstrCountry: WideString): Integer
dispid 1610743815;
function SendInviteMail(const bstrEmailAddress: WideString
lFindCookie: Integer

lFindIndex: Integer
lLCID: Integer): Integer
dispid 1610743816;
function RequestURLPost(muType: MURLTYPE
const bstrAdditionalInfo: WideString): Integer
dispid 1610743817;
property ProfileField[MPFLFIELD: MPFLFIELD]: OleVariant writeonly dispid 1610743818;
end;

// *********************************************************************//
// Interface: IMessengerApp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {F3A614DD-ABE0-11D2-A441-00C04F795683}
// *********************************************************************//
IMessengerApp = interface(IDispatch)
['{F3A614DD-ABE0-11D2-A441-00C04F795683}']
function Get_Application: IDispatch
safecall;
function Get_Parent: IDispatch
safecall;
procedure Quit
safecall;
function Get_Name: WideString
safecall;
function Get_FullName: WideString
safecall;
function Get_Path: WideString
safecall;
procedure LaunchLogonUI
safecall;
procedure LaunchOptionsUI(MOPTDLGPAGE: MOPTDLGPAGE)
safecall;
procedure LaunchAddContactUI(const bstrEMail: WideString)
safecall;
procedure LaunchFindContactUI(const bstrFirstName: WideString
const bstrLastName: WideString

vbstrCity: OleVariant
vbstrState: OleVariant

vbstrCountry: OleVariant)
safecall;
function LaunchIMUI(vUser: OleVariant): IMessengerIMWindow
safecall;
function Get_IMWindows: IMessengerIMWindows
safecall;
function Get_ToolBar: WordBool
safecall;
procedure Set_ToolBar(pBoolToolBar: WordBool)
safecall;
function Get_StatusBar: WordBool
safecall;
procedure Set_StatusBar(pBoolStatusBar: WordBool)
safecall;
function Get_StatusText: WideString
safecall;
procedure Set_StatusText(const pbstrStatusText: WideString)
safecall;
function Get_HWND: Integer
safecall;
function Get_Left: Integer
safecall;
procedure Set_Left(plLeft: Integer)
safecall;
function Get_Top: Integer
safecall;
procedure Set_Top(plTop: Integer)
safecall;
function Get_Width: Integer
safecall;
procedure Set_Width(plWidth: Integer)
safecall;
function Get_Height: Integer
safecall;
procedure Set_Height(plHeight: Integer)
safecall;
function Get_Visible: WordBool
safecall;
procedure Set_Visible(pBoolVisible: WordBool)
safecall;
procedure AutoLogon
safecall;
procedure Set_FirstTimeCredentials(const bstrUser: WideString
const bstrPassword: WideString

const pService: IMsgrService
Param4: Integer)
safecall;
procedure Set_CachedPassword(const bstrUser: WideString
const bstrPassword: WideString

const pService: IMsgrService
Param4: WordBool)
safecall;
procedure RequestURLPost(muType: MURLTYPE
vbstrAdditionalInfo: OleVariant)
safecall;
procedure Set_TaskbarIcon(pBoolVisible: WordBool)
safecall;
function Get_TaskbarIcon: WordBool
safecall;
property Application: IDispatch read Get_Application;
property Parent: IDispatch read Get_Parent;
property Name: WideString read Get_Name;
property FullName: WideString read Get_FullName;
property Path: WideString read Get_Path;
property IMWindows: IMessengerIMWindows read Get_IMWindows;
property ToolBar: WordBool read Get_ToolBar;
property StatusBar: WordBool read Get_StatusBar;
property StatusText: WideString read Get_StatusText;
property HWND: Integer read Get_HWND;
property Left: Integer read Get_Left;
property Top: Integer read Get_Top;
property Width: Integer read Get_Width;
property Height: Integer read Get_Height;
property Visible: WordBool read Get_Visible;
property FirstTimeCredentials[const bstrUser: WideString
const bstrPassword: WideString

const pService: IMsgrService]: Integer write Set_FirstTimeCredentials;
property CachedPassword[const bstrUser: WideString
const bstrPassword: WideString

const pService: IMsgrService]: WordBool write Set_CachedPassword;
property TaskbarIcon: WordBool read Get_TaskbarIcon write Set_TaskbarIcon;
end;
 
cxz9, 我很菜,如何导入tlb.谢谢.
 
直接在DELPHI的IDE下用Project下的Type Lib什么的菜单，找到MSN的就可以倒入
 
张兄:能否把导出的xxxxx_TLB.pas 文件发给我 zx89@msn.com
 
虽然没有解决问题，但是还是要感谢大家，我发奋，我也发分：）
 
多人接受答案了。
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
5K
chlkuei
C
一
谁装了Visual Studio 6.0，请进来！300分(50分)
2
回复
34
查看
639
一个过客
一
Z
如何进行web的串口编程？(100分)
回复
4
查看
113
zouqh
Z
J
delphi中实现面向对象编成一问(200分)
回复
13
查看
571
jinchi
J
N
通过服务器上网时，如何用MSN实现与外界用户的语音聊天？(100分)
回复
10
查看
202
nxzj
N
后退
顶部