RTX客户端发送数据到服务器

Question

有谁用VB写过RTX客户端发送数据到服务器的程序？因为RTX SDK中是采用VC++将客户端数据发送到服务器，本人对VC++一头雾水，所以哪位好心人写过，或知道怎么写，给点建议哦，在此先谢过了

Answer 1

查找了RTX的SDK，写了如下的语句：
Private Sub Form_Load()Dim objRTXCApi As RTXClient.RTXAPI   ' 定义一个RTXCAPI对象
Dim objKerRoot As Object             ' 定义一个KernalRoot对象
Dim objAppRoot As Object             ' 定义一个AppRoot对象
Dim CModule As IRTXCModuleSite2Dim Sender As String
Dim AppGuid As String
Dim CDataObj As RTXCData ' 声明一个CData对象Set objRTXCApi = CreateObject("RTXClient.RTXAPI")    ' 开始创建RTXCAPI对象
Set objKerRoot = objRTXCApi.GetObject("KernalRoot")    ' 获得KernalRoot对象
Set objAppRoot = objRTXCApi.GetObject("AppRoot")      ' 获得AppRoot对象
Set CDataObj = objKerRoot.CreateRTXCDataCDataObj.SetString "Sender", "andyzheng"  ' 设置发送者
CDataObj.SetString "Content", "Kylie Testing"   ' 设置消息内容
CDataObj.SetString "Receivers", "kylieye"CModule.SendData "{AF7DD61A-53F0-4a59-9556-C516142AF30F}", CDataObj, RTXC_SEND_DATA_FLAG_DEFAULTEnd Sub运行时提示：Object Variable or With block variable not set.根据提示知道是CModule没有set,然后添加了一句：Set CModule=new RTXCModuleSite,提示：ActiveX Component can't create object.
本人不会VB，哪位VB高手知道怎么做呀？另外提供一段VC程序，该程序也使用了这个接口。
 // 定义变量      IRTXCRootPtr ptrRoot;
      IRTXCModuleSitePtr ptrModuleSite;
      CString strLocalAccount = _T(""); 
      CString strReceiverName = _T("Mike");       // 初始化变量 
      ptrModuleSite = RTXCModuleSite;
      ptrRoot = ptrModuleSite->RTXCRoot;
      strLocalAccount = (LPCTSTR)ptrRoot->Account;       // 创建一个IRTXCData对象      IRTXCDataPtr& ptrSendData = ptrRoot->CreateRTXCData();      // 设置RTXCData的内容
      ptrSendData->SetString(_T("SENDER"), _bstr_t((LPCTSTR)strLocalAccount));
      ptrSendData->SetLong(_T("INDEX"),(long)0);      // 发送数据,接收者为mike 
      ptrModuleSite->SendData(_bstr_t((LPCTSTR)strReceiverName), 
             ptrSendData, RTXC_SEND_DATA_FLAG_FILTERING_IS_FORBIDDEN);