sms_tcp.bas

这是一本学习串口编程喝计算机监控的好书里面是用VB开发的源代码

Attribute VB_Name = "SMS_TCP"
Option Explicit

Public Declare Function GetPrice Lib "HTTPEUCPComm" (ByVal SN As String, ByVal Balance As String) As Long
Public Declare Function GetBalance Lib "HTTPEUCPComm" (ByVal SN As String, ByVal Balance As String) As Long
Public Declare Function SendSMS Lib "HTTPEUCPComm" (ByVal SN As String, ByVal MN As String, ByVal ct As String) As Long
Public Declare Function SendSMSEx Lib "HTTPEUCPComm" (ByVal SN As String, ByVal MN As String, ByVal ct As String, ByVal addi As String) As Long
Public Declare Function SendScheSMS Lib "HTTPEUCPComm" (ByVal SN As String, ByVal MN As String, ByVal ct As String, ByVal ti As String) As Long
Public Declare Function SendScheSMSEx Lib "HTTPEUCPComm" (ByVal SN As String, ByVal MN As String, ByVal ct As String, ByVal ti As String, ByVal addi As String) As Long
Public Declare Function Register Lib "HTTPEUCPComm" (ByVal SN As String, ByVal pwd As String, ByVal EntName As String, ByVal LinkMan As String, ByVal PHONE As String, ByVal mobile As String, ByVal Email As String, ByVal Fax As String, ByVal sAddress As String, ByVal Postcode As String) As Long
Public Declare Function UnRegister Lib "HTTPEUCPComm" (ByVal SN As String) As Long
Public Declare Function ChargeUp Lib "HTTPEUCPComm" (ByVal SN As String, ByVal acco As String, ByVal pass As String) As Long
Public Declare Function ReceiveSMSVB Lib "HTTPEUCPComm" (ByVal SN As String, ByVal myFunc As Long) As Long
Public Declare Function CancelTransfer Lib "HTTPEUCPComm" (ByVal SN As String) As Long
Public Declare Function RegistryTransfer Lib "HTTPEUCPComm" (ByVal SN As String, ByVal MN As String) As Long
Public Declare Function SetProxy Lib "HTTPEUCPComm" (ByVal ip As String, ByVal port As String, ByVal username As String, ByVal passW As String) As Long
Public Declare Function ReceiveStatusReportVB Lib "HTTPEUCPComm" (ByVal SN As String, ByVal myFunc As Long) As Long

Public strReg_SN As String

Public strSMS As String
Public strPhone As String
Public strTime As String

Public Sub ClearSMS()
    strSMS = ""
    strPhone = ""
    strTime = ""
End Sub

Public Sub MyWinProc(ByVal mobile As String, ByVal senderaddi As String, ByVal recvaddi As String, ByVal ct As String, ByVal sd As String, ByRef flag As Long)
    strPhone = mobile
    strSMS = ct
    strTime = Mid(sd, 1, 4) + "-" + ts(Val(Mid(sd, 5, 2))) + "-" + ts(Val(Mid(sd, 7, 2))) + "/" + _
              ts(Val(Mid(sd, 9, 2))) + ":" + Mid(sd, 11, 2) + ":" + Mid(sd, 13, 2)   '20060510145112
End Sub