SDK二次开发请教

寒流源点 寒流源点 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
我按照SKD二次开发帮助用VB.NET 做一个窗口,SDK包安装在服务器,现在我的EXE文件在服务器上运行可以发送提示功能,但在客户端上运行不了,提示:error # -17762 应用SDK:连接SDK服务器错误。
按照SDK帮助我已经对服务器上的AppConnConfig.xml、SDKProperty.XML和客户端的rtxServerApi.ini都已经做设好了服务器IP地方,但还是不能运行。请问怎么解决?还有如果这个软件装在客户端是不是每台都要配置以下三个文件?

服务器:SDKProperty.XML

<?xml version="1.0"?>
<Property>
<APIClient>
<IPLimit Enabled="1">
     <IP>127.0.0.1</IP>
<IP>192.168.4.28</IP> ‘我的电脑IP’
</IPLimit>
</APIClient>
<sdkhttp>
<IPLimit Enabled="1">
<IP>192.168.4.28</IP>‘我的电脑IP’
</sdkhttp>
</Property>

服务器:AppConnConfig.xml
<?xml version="1.0"?>
<Property>
<APIClient>
<IPLimit Enabled="1">
<IP>127.0.0.1</IP>
<IP>192.168.4.28</IP> ‘我的电脑IP’
</IPLimit>
</APIClient>
</Property>


我电脑:rtxServerApi.ini
[Common]
Host = 192.168.1.15‘服务器IP’
Port = 6000


发送消息代码:

Dim RootObj As RTXSAPILib.RTXSAPIRootObj

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
RootObj.ServerIP = txtIP.Text '设置服务器IP
RootObj.ServerPort = txtPort.Text ' 设置服务器端口,默认为8006

On Error Resume Next

RootObj.SendNotify(txtReceivers.Text, txtTitle.Text, 0, txtContent.Text) '发送消息提醒


If (Err.Number <> 0) Then

MsgBox("Error # " & Err.Number & Chr(13) & Err.Description)

Else
MsgBox("发送成功")

End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
RootObj = CreateObject("RTXSAPIRootObj.RTXSAPIRootObj") ' 创建根对象
End Sub


在服务端运行情况:



客户端运行情况:


...全文
评论 12
收藏 已收藏
分享
返回顶部
寒流源点
VB 16,718 成员 110,520 内容