| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 4038 人关注过本帖
标题:vb程序 翻译成pb程序 大家帮忙
只看楼主 加入收藏
怕我不由得
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2015-8-24
收藏
 问题点数:0 回复次数:0 
vb程序 翻译成pb程序 大家帮忙
'使用这个测试例子之前,将 Amserver设置为你的服务器,Sender设置为你的发送人及相应的密码更改。Receive改成你的消息接受者

    Dim obj, Msg,prot
    Dim Amserver,Sender,Sender_password,Receive

'组件生效   
    Set obj = CreateObject("ASIM.IM")
    Set Msg = CreateObject("ASIM.Msg")

'设置服务器,发送者,接受者等信息,AMserver的Ip 地址根据自己部署情况输入
    Amserver="192.168.0.1"
    Sender="whx"
    Sender_password="123"
    Receive="jzx_user1"

'设置消息的相关内容,AM8的端口默认是 5011 ,测试根据自己的情况输入 port 参数
    Msg.ContentType = "Text/Text"
    Msg.Subject = "Start test obj"
    Msg.Body = "This is a test messenger"
    obj.port=5011
    obj.Init Amserver, Sender, Sender_password

'消息发送
    obj.SendMsgEx Msg, Receive
2015-08-24 16:53
快速回复:vb程序 翻译成pb程序 大家帮忙
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016381 second(s), 9 queries.
Copyright©2004-2025, BC-CN.NET, All Rights Reserved