这个dll用VB可以轻松的正确调用,但是到星中我多次试验都不成功.不知道用星该如何设置,请高手做个简单的例子.

由于文件无法上传我把用VB调用的源码附上大家看看

Private Sub Form_Load()
Dim strSoftName As String
Dim strSoftID As String
Dim strSoftDesc As String
Dim ownerHWnd As Long
Dim strReserve As String

Dim ret As Integer

strSoftName = "截图工具"
'注意:此softID必须为六位数字串.
strSoftID = "101059"
'软件描述.
strSoftDesc = "截图工具 "
ownerHWnd = 0
'保留字节
strReserve = ""
ret = registerMe(strSoftName, strSoftID, strSoftDesc, ownerHWnd, strReserve)

If ret <> 0 Then
MsgBox "注册成功."
End If


End Sub

相关说明:

'========================================
'函数: registerMe
'功能: 注册合作软件.
'返回值: 0失败.
' 非0成功.
'
'参数: strSoftName: 软件名称.
' strSoftID 软件ID.(此参数必须为6位数字串).
' strSoftDesc 软件描述.
' ownerHWnd
' strReserve 保留字符串.
Public Declare Function registerMe Lib "dmshell.dll" (ByVal strSoftName As String, ByVal strSoftID As String, ByVal strSoftDesc As String, ByVal ownerHWnd As Long, ByVal strReserve As String) As Integer

'=======================================
'函数: stopAd
'功能: 停止
'返回值: 无
'参数: 无
Public Declare Function stopAd Lib "dmshell.dll" ()

我也想知道，高手帮帮忙。