这个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" ()

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