|
地板
楼主 |
发表于 2016-3-9 15:41:35
|
只看该作者
不好意思,还是不行。应用ID在哪儿输入啊,还有RSA签名认证、应用业务服务器自定义验证 这两种都怎么实现呢,demo中找不到啊。
Private Sub LoginWnd_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
InitSDK()
LoginUser.Text = "AnyChat5"
Room.Text = "1"
Server.Text = "cloud.anychat.cn"
Port.Text = "8906"
End Sub
Private Sub Login_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Login_Button.Click
Dim ret As Integer
ret = -1
ret = BRAC_SetServerAuthPass("BaiRuiTech")
If (ret <> 0) Then
MsgBox("设置服务器验证密码失败!")
Exit Sub
End If
'此功能暂未实现
'Dim VersionOK
BRAC_Connect(Server.Text, CInt(Port.Text))
ret = -1
ret = BRAC_Login(LoginUser.Text, "", 0)
If (ret <> 0) Then
MsgBox("请求登录系统失败!")
Exit Sub
End If
ret = -1
ret = BRAC_EnterRoom(CInt(Room.Text), "", 0)
Me.Hide()
MainWnd.Show()
End Sub
老大指点下啊,开发文档貌似都找不到云的内容啊
|
|