test.bas

短信开发控件

Attribute VB_Name = "Module1"
Option Explicit

Public Declare Function SendSms Lib "C:\tempt\kkstar_sms.dll" _
   (ByVal cGateWay As String, _
    ByVal cUserName As String, _
    ByVal cPassword As String, _
    ByVal cPhone As String, _
    ByVal cContent As String, _
    ByVal cNickName As String, _
    ByVal cExtent As String) As String
    
Public Declare Function GetGatewayList Lib "C:\tempt\kkstar_sms.dll" () As String