鞋柜厂家
免费服务热线

Free service

hotline

010-00000000
鞋柜厂家
热门搜索:
技术资讯
当前位置:首页 > 技术资讯

关于傲天SGIP的API调用

发布时间:2020-02-03 06:03:12 阅读: 来源:鞋柜厂家

程序如下

Private Declare Function Startup Lib "l" (ByVal cLocalIp As String, _

ByVal iLocalPort As Long, _

ByVal cSmgIp As String, _

ByVal iSmgPort As Long, _

ByVal cLoginName As String, _

ByVal cPassword As String, _

ByVal lSocketTimeOut As Long, _

ByVal lMTTimeOut As Long, _

ByVal iSrcNode As Long, _

ByVal lMTThread As Long, _

ByVal lMaxListNode As Long, _

ByVal lMTMaxRetryTime As Long, _

ByVal lMOThread As Long, _

ByRef Deliver As Variant, _

ByRef Report As Variant, _

ByRef Response As Variant, _

ByRef Mterror As Variant) As Long

Const StringLocalIP = "10.50.0.231"

Const StringLocalPort = 9881

Const StringSmgIP = "10.50.0.231"

Const StringSmgPort = 8801

Const LoginName = "test"

Const Password = "test"

Const SocketTimeOut = 30

Const MTTimeOut = 30

Const SrcNode = 350001

Const MTThread = 100

Const MaxListNode = 1

Const MTMaxRetryTime = 50

Const MOThread = 100

Private Declare Function Submit Lib "l" (ByVal spnumber As String, _

ByVal chargenumber As String, _

ByVal user_count As Long, _

ByVal usernumber As String, _

ByVal corpid As String, _

ByVal service_type As String, _

ByVal fee_type As String, _

ByVal fee_value As String, _

ByVal given_value As String, _

ByVal agent_flag As String, _

ByVal mo_flag As String, _

ByVal priority As String, _

ByVal expire_time As String, _

ByVal schedule_time As String, _

ByVal report_flag As String, _

ByVal tp_pid As String, _

ByVal tp_udhi As String, _

ByVal message_coding As String, _

ByVal message_type As String, _

ByVal message_length As Long, _

ByVal message_content As String, _

ByVal reserve As String, _

ByRef sequencenumber1 As Long, _

ByRef sequencenumber2 As Long, _

ByRef sequencenumber3 As Long) As Long

Private Sub Command1_Click()

'初始化程序

Dim i As Integer

i = Startup(StringLocalIP, StringLocalPort, StringSmgIP, StringSmgPort, LoginName, Password, _

SocketTimeOut, MTTimeOut, SrcNode, MTThread, MaxListNode, MTMaxRetryTime, MOThread, _

AddressOf rocessDeliver, AddressOf rocessReport, AddressOf rocessResponse, Null)

MsgBox (i)

End Sub

Private Sub Command2_Click()

Dim i

Dim sequencenumber1, sequencenumber2, sequencenumber3

Dim spnumber As String

Dim chargenumber As String

Dim user_count As Long

Dim usernumber As String

Dim corpid As String

Dim service_type As String

Dim fee_type As String

Dim fee_value As String

Dim given_value As String

Dim agent_flag As String

Dim mo_flag As String

Dim priority As String

Dim expire_time As String

Dim schedule_time As String

Dim report_flag As String

Dim tp_pid As String

Dim tp_udhi As String

Dim message_coding As String

Dim message_type As String

Dim message_length As Long

Dim message_content As String

Dim reserve As String

spnumber = "35000"

chargenumber = "8613060698634"

user_count = 1

usernumber = "8613060698634"

corpid = "35000"

service_type = ""

fee_type = "1"

fee_value = "0"

given_value = "0"

agent_flag = "1"

mo_flag = "0"

priority = "1"

expire_time = ""

schedule_time = ""

report_flag = "1"

tp_pid = "0"

tp_udhi = "0"

message_coding = "15"

message_type = "0"

message_length = Len(xt)

message_content = xt

reserve = ""

i = Submit(spnumber, chargenumber, user_count, usernumber, corpid, service_type, fee_type, fee_value, given_value, agent_flag, mo_flag, priority, expire_time, schedule_time, report_flag, tp_pid, tp_udhi, message_coding, message_type, message_length, message_content, reserve, sequencenumber1, sequencenumber2, sequencenumber3)

MsgBox (i)

End Sub

美女的奶子福利

露背福利

女式高跟鞋大全

相关阅读