Dim ll_rtn As Long = - 1
Dim ls_yybh As String="420101"
Dim ls_user As String="990824"
Dim ls_encpwd As String="990824"
Dim ls_cname As String= "WKNoteBook"
Dim ls_ip As String= "192.168.1.2"
Dim ls_mac As String= "18-DB-F2-5B-02-1A"
Dim ls_svrIP As String="172.16.5.63" '假设此 ip 为前置机 ip
Dim lu_port As String="9090" '假设前置机开放端口为 9090
'创建调用实例
Dim li_sndBufSize As Integer=16384
Dim li_recvBufSize As Integer=16384
ll_rtn=Initialize(ls_svrIP,lu_port,li_sndBufSize,li_recvBufSize)
If ll_rtn <= 0 Then
MessageBox.Show("系统错误", "HNHISBridge 初始化调用实例操作异常! ")
Else
msgbox("成功")
' msgbox(ll_rtn) '返回1表示成功了
End If
'创建调用实例
Dim ll_handle As Long
ll_handle = CreateInstace()
msgbox("获得的句柄为:" & ll_handle)
If ll_rtn =1 Then
msgbox("ll_rtn=" & ll_rtn)
'将单项数据传入调用实例
ll_rtn = SetParam(ll_handle, "FN", "1") '设置功能号 本示例是登录
ll_rtn = SetParam(ll_handle, "YYBH", ls_yybh) '医院编号
ll_rtn = SetParam(ll_handle, "USERID", ls_user) '医院 HIS 登录用户
ll_rtn = SetParam(ll_handle, "PWD", ls_encpwd) '医院 HIS 登录密码
ll_rtn = SetParam(ll_handle, "COMPUTER", ls_cname) '医院 HIS 登录计算机名
ll_rtn = SetParam(ll_handle, "IP", ls_ip) '医院 HIS 登录计算机 IP 地址
ll_rtn = SetParam(ll_handle, "MAC", ls_mac) '医院 HIS 登录计算机 MAC 地址