田草博客

互联网田草博客


网友交流QQ群:11740834 需注明申请加入原因

微信 公众号:ByCAD

邮箱:tiancao1001x126.com
ByCAD,微信公众号
首页 | 普通 | 电脑 | AutoCAD | VB/VB.NET | FLash | 结构 | 建筑 | 电影 | BIM | 规范 | 软件 | ID
-随机-|-分布-
-博客论坛-|-﨣﨤﨧﨨-
-网站导航-|-规范下载-
-BelovedFLash欣赏-

用户登陆
用户:
密码:
 

站点日历
73 2024 - 11 48
     12
3456789
10111213141516
17181920212223
24252627282930


站点统计

最新评论



VB 系统快照 【转帖】Delphi.NET/Chrome 飞信SDK开发短信收发程序
未知 Visual Basic 2005 飞信SDK开发短信收发程序   [ 日期:2009-01-08 ]   [ 来自:本站原创 ]  HTML
Visual Basic 2005 飞信SDK开发短信收发程序

按此在新窗口打开图片



按此在新窗口打开图片




打开 Visual Basic 2005  新建一个项目,引用FetionSDK.dll

    Dim fetion As New NullStudio.Fetion_SDK.FetionSDK

登陆
    '登陆
    Private Sub Btn_Login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Login.Click
        fetion.AccountManager.FillUserIdAndPassword(Me.Txt_User.Text.ToString, Me.Txt_Password.Text.ToString, False)
        Me.Label_LoginPrompt.Text = "正在登陆……"
        System.Threading.Thread.Sleep(500)
        Dim i As Short
        i = fetion.AccountManager.Login()
        System.Threading.Thread.Sleep(500)
        If i = -1 Then
            Me.Label_LoginPrompt.Text = "已经登陆成功"
        End If
        Btn_Login.Enabled = False
    End Sub

发送信息
    '发送信息
    Private Sub Btn_SendIM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_SendIM.Click
        Dim i As Short
        'i为0 发送失败 为1 发送成功
        '飞信可以给自己发送短信,不能给自己发送飞信
        If Me.RadioButton_IM.Checked = True Then
            i = fetion.ContactControl.SendIM.SendIM(Me.Txt_SendID.Text.ToString, Me.Txt_SendContent.Text.ToString)
        Else
            i = fetion.ContactControl.SendSMS.SendSMS(Me.Txt_SendID.Text.ToString, Me.Txt_SendContent.Text.ToString)
        End If
        Me.Btn_SendIM.Enabled = False
        System.Threading.Thread.Sleep(1000)
        Me.Btn_SendIM.Enabled = True
    End Sub

读取好友列表
    '读取好友列表
    Private Sub Button_ReadFriend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_ReadFriend.Click
        Dim lst
        lst = fetion.ContactControl.getAllContactList '我不知道该怎么定义这个类型
        System.Threading.Thread.Sleep(1000)
        Dim i As Short
        For i = 0 To lst.Count - 1
            Me.Grid_FriendList.Rows.Add()
            Me.Grid_FriendList.Rows(i).Cells(0).Value = lst(i).DisplayName              '屏显名称
            Me.Grid_FriendList.Rows(i).Cells(1).Value = lst(i).Uri.Id                   '好友ID
            Me.Grid_FriendList.Rows(i).Cells(2).Value = lst(i).PersonalInfo.MobileNo    '手机号码
            '用户状态
        Next
    End Sub


[本日志由 tiancao1001 于 2009-03-28 11:00 PM 编辑]


引用这个评论 jesperzx 于 2010-07-26 09:44 AM 发表评论: 
很不幸啊,fetion sdk已经被封了,还不知道什么时候可以重新用,大家有什么好的办法登陆飞信阿,谢谢lz了

引用这个评论 leijinhua 于 2010-05-06 10:47 PM 发表评论: 
站长,本人对这个很感兴趣啊,能否发给我一份这方面资料啊!
邮箱:905226787@qq.com

引用这个评论 l_o_ng 于 2010-04-27 08:55 PM 发表评论: 

Partial Class _Default
    Inherits System.Web.UI.MobileControls.MobilePage
    Dim fetion As New NullStudio.Fetion_SDK.FetionSDK

    Protected Sub Command1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Command1.Click
        fetion.AccountManager.FillUserIdAndPassword(Me.TextBox1.Text, Me.TextBox2.Text, False)

        System.Threading.Thread.Sleep(500)
        Dim i As Short
        i = fetion.AccountManager.Login()
        System.Threading.Thread.Sleep(500)
        If i = -1 Then
            ActiveForm = Form2

        End If
        ActiveForm = Form1


    End Sub
End Class

fetion.AccountManager.FillUserIdAndPassword(Me.TextBox1.Text, Me.TextBox2.Text, False)
提示:用户代码未处理nullReferenceException.
怎么回事呢?lz我的qq是605355232,加我qq聊下了

引用这个评论 l_o_ng 于 2010-04-26 10:54 AM 发表评论: 
qz,我正在做这个的毕业设计,能不能给发给我参考一下呢?谢谢!
邮箱l_o_ng@yeah.net

引用这个评论 tiancao1001 于 2010-01-29 05:46 PM 发表评论: 
接收飞信
  AddHandler Fetion.SDK_ReceiveMessage, AddressOf sdk_SDK_ReceiveMessage


 Public Sub sdk_SDK_ReceiveMessage(ByVal sender As Object, ByVal fe As NullStudio.Fetion_SDK.Event.SDK_ReceiveMessageEventArgs)
        Me.TextBox_ReceiveMessage.Text = Me.TextBox_ReceiveMessage.Text & _
                                            fe.Contact.DisplayName & vbCrLf & _
                                            "    " & fe.Message & vbCrLf
    End Sub

引用这个评论 thunderming 于 2010-01-27 04:35 PM 发表评论: 
楼主的程序我用过了,但是接收不到消息啊。
SDK_ReceiveMessage事件好像没有触发啊。怎么回事?

引用这个评论 tiancao1001 于 2009-02-18 02:46 PM 发表评论: 
谢谢,指点,希望能向你学习。
我的QQ号码:327750885

引用这个评论 podvcd 于 2009-02-18 02:22 PM 发表评论: 
If Me.RadioButton_IM.Checked = True Then
            i = fetion.ContactControl.SendIM.SendIM(Me.Txt_SendID.Text.ToString, Me.Txt_SendContent.Text.ToString)
        Else
            i = fetion.ContactControl.SendSMS.SendSMS(Me.Txt_SendID.Text.ToString, Me.Txt_SendContent.Text.ToString)
        End If
        Me.Btn_SendIM.Enabled = False
        System.Threading.Thread.Sleep(1000)
您的代码因为是同步的,所以这里不需要sleep同样可以得到返回值i


另外想问下   有没有这个sdk 的说明文档,里面很多方法没有说明文档使用不来。如果知道发我邮箱吧  podvcd@hotmail.com谢谢

引用这个评论 podvcd 于 2009-02-18 11:39 AM 发表评论: 
站长你的 Button_ReadFriend_Click 事件偶尔会出错  建议捕捉state状态再自动读取,sleep不是很可靠  呵呵  参考了你的代码 再此感谢  希望能一起进步

引用这个评论 podvcd 于 2009-02-18 11:21 AM 发表评论: 
Dim lst
        lst = fetion.ContactControl.getAllContactList '我不知道该怎么定义这个类型


应该这样定义
Dim lst As List(Of Contact)

        lst = fetion.ContactControl.getAllContactList '我不知道该怎么定义这个类型


Contact包含在命名空间
Imports Imps.Client.Core

发表评论 - 不要忘了输入验证码哦!
作者: 用户:  密码:   注册? 验证:  防止恶意留言请输入问题答案:3*6=?  
评论:

禁止表情
禁止UBB
禁止图片
识别链接
识别关键字

字体样式 文字大小 文字颜色
插入粗体文本 插入斜体文本 插入下划线
左对齐 居中对齐 右对齐
插入超级链接 插入邮件地址 插入图像
插入 Flash 插入代码 插入引用
插入列表 插入音频文件 插入视频文件
插入缩进符合
点击下载按钮 下标 上标
水平线 简介分割标记
表  情
 
Tiancao Blog All Rights Reserved 田草博客 版权所有
Copyright ©