基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：78630559

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

获取企业信息

下载根对象VB示例工程, 下载根对象.NET示例工程

Dim RootObj As RTXSAPIRootObj '声明一个RTXSAPIRootObj变量 

Private Sub Command1_Click()

RootObj.ServerIP = txtIP.Text '设置服务器IP
RootObj.ServerPort = txtPort.Text ' 设置服务器端口，默认为8006

On Error Resume Next
txtResult.Text = RootObj.QueryUserState(txtUserName.Text) '查询用户状态
If (Err.Number <> 0) Then 
txtResult.Text = "Error # " & Err.Number & Chr(13) & Err.Description
End If 

End Sub

Private Sub Form_Load()

Set RootObj = CreateObject("RTXSAPIRootObj.RTXSAPIRootObj") ' 创建根对象

End Sub