supergreenbean(超级绿豆 - 放暑假了)，请进来，有问题询问！

Question

supergreenbean(超级绿豆 - 放暑假了)：
　　我用你的anycall测试了我的dll文件，还是出现了些问题，你帮我看看，问题出在哪里。
　　我一共用了三个API函数测试，分别是：ussdconnect（含两个参数）,ussdcloseconnect（不含参数）,On_Outbind（含一个参数）.
    VB中的语言是：
　　1、sDll = "d:\人防工程-程序\USSD\rdnsmpp.dll"
　　　goAnyCall.CallApiByName(sDll, "USSDConnect", VarPtr(i))
　　执行后，出现死机，并出现发送错误报告的提示。
　　2、sDll = "d:\人防工程-程序\USSD\rdnsmpp.dll"
　　　goAnyCall.CallApiByName(sDll, "USSDCloseConnect", VarPtr(i))
　　执行后，也出现死机，以及发送错误报告的提示。
　　3、sDll = "d:\人防工程-程序\USSD\rdnsmpp.dll"
　　　goAnyCall.CallApiByName(sDll, "On_Outbind", VarPtr(i))
    执行后，也出现死机，以及发送错误报告的提示。
　　问题出在哪儿？请指教。
　　还是那个dll文件有问题吗？

Answer 1

你的dll是标准的dll吗？我怀疑不是

Answer 2

Public g_oAnyCall As New CVBAnyCall
Public Function USSDConnect(ByVal HostIP As String, ByVal UssdPort As Integer) As Long
    Dim abHostIP() As Byte
    abHostIP = StrConv(HostIP, vbFromUnicode)
    With g_oAnyCall
        .IsStandardCall = False
        .ThroughVTable = True
        USSDConnect = .CallApiByName("rdnsmpp.dll", "USSDConnect", VarPtr(abHostIP(0)), UssdPort)
    End With
End Function你这样看看？

Answer 3

我在写中间dll了，你要么再等些时候吧

Answer 4

to supergreenbean(超级绿豆 - 放暑假了)：
   thanks a lot

Answer 5

to rainstormmaster(暴风雨 v2.0)
   dll文件是第三方给的，我没有源程序，不清楚是不是标准dll。

Answer 6

to supergreenbean(超级绿豆 - 放暑假了)：
　　新程序试了，一样的问题。