我有一个dllsendsms.dll需调用,用vb,是一个发送短信的dll,如何调用??谢谢!!

解决方案 »

  1.   

    1、copy到c:\windows\system32下面
    2、运行 regsvr32 dllsendsms.dll
    然后就可以引用了,呵呵
      

  2.   

    请问这段代码有误吗?好象用户类型没定义,如何定义呢?谢谢!!!!!!!!
    Dim dllSend As dllsendsms.dllsendsmsPrivate Sub Command1_Click()
        
        
        'Dim isSend As Boolean
            
        isSend = dllSend.SendText("", "", "test")
        If (isSend = True) Then
            MsgBox "send success"
        Else
            MsgBox "send fail"
        End If
    End SubPrivate Sub Form_Load()
        Dim isSend As Boolean
        
        Set dllSend = New dllsendsms.dllsendsms
        
        '设置你的信息.
        'isSend = dllSend.Connect("GS2001", "GS2001_ok", "8080021")
        isSend = dllSend.Connect("", "", "")    If (isSend) Then
            MsgBox "Conncet success"
        Else
            MsgBox "connect fail"
        End If
    End SubPrivate Sub Timer1_Timer()
        Dim isConnect As Boolean
        isConnect = dllSend.getConnect
        
        If (isConnect) Then
            Label1.Caption = "connect success"
        Else
            Label1.Caption = "connect fail"
        End If
    End Sub
      

  3.   

    没有定义是因为你没有注册这个dll文件:)
    按照一楼的方法运行之后再在vb中引用相应的dll就ok!