我有一个dllsendsms.dll需调用,用vb,是一个发送短信的dll,如何调用??谢谢!!
解决方案 »
- 操作记录
- 请教各位,如果不想一直搞VB了,换个别的什么事做要好点呢?
- 关于vb中combo控件的listindex不准的问题
- 如何在VB中使用ADO插入图片
- 请高手进来来帮帮我,看看是不是要用到键盘钩子?
- 急,请教关于VB 用 ADO 连接MSDE 的问题?谢谢!
- 请问谁知道在XP中按ctrl+alt+del后出现的对话框对应什么windows目录下的哪一个可执行文件?
- 关于SHBrowseForFolder。急啊!
- 如何将文件读入ComboBox控件中-----(在线等待)
- 我正在做一个聊天辅助软件,有一个问题无法解决...
- 关于打印datagrade表的打印程序怎么写
- 能不能在一个Project实现多个MDI的效果? 若是多个Project,能不能让他生成一个exe文件?
2、运行 regsvr32 dllsendsms.dll
然后就可以引用了,呵呵
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
按照一楼的方法运行之后再在vb中引用相应的dll就ok!