module1.bas

这个软件可以通过短信猫收发短信。可以用做短信平台。功能十分强大！

Attribute VB_Name = "Module1"
'数据库
Global adocn As New ADODB.Connection
Global adocnstring As String
Global sql As String
'变量
'用户
Global gUserCode As String
Global gUserName As String
Global gUserpass As String
Global gUserQX As String
Global gExitFlag As Boolean '退出标志

Global mDelDXX1 As Boolean  '确定是否删除模块1的短消息
Global mDelDXX2 As Boolean  '确定是否删除模块2的短消息
Global gXJJS As Integer    '巡检计时
Global LDNum  As Integer   '路灯的数量
Global mDXXNR As String    '要发送短消息的内容
Global mDXXH1 As Integer   '主控机箱中模块1的短消息的位置
Global MDXXH2 As Integer   '主控机箱中模块2的短消息的位置
Global MK1THFlag As Boolean    '模块1通话标志 看模块1是否通话过
Global MK2THFlag As Boolean    '模块2通话标志 看模块2是否通话过
Global mMSGLDKH1 As Integer   '1#模块被呼的卡号
Global mMSGLDKH2 As Integer   '2#模块被呼的卡号
Global sCall As Integer   '用于判断哪个分机或者还是外线打进来的
Global WXHJFlag1 As Boolean    '判断外线呼叫标志 用于模块1 外线呼叫不要做任何响应
Global WXHJFlag2 As Boolean    '判断外线呼叫标志 用于模块2
Global LDHJFlag1 As Boolean    '路灯呼叫到监控中心的标志  呼叫到中心模块1上 判断门开
Global LDHJFlag2 As Boolean    '路灯呼叫到监控中心的标志  呼叫到中心模块2上
Global LDHJFLag11 As Boolean     '用于判断电压情况
Global LDHJFlag22 As Boolean     '用于判断电压情况
Global QMS1 As Integer    '取出被呼时的秒数 模块1
Global QMS11 As Integer    '取出被呼时的秒数 模块1  不同状态的判断
Global QMS111 As Integer
Global QMS2 As Integer    '取出被呼时的秒数 模块2
Global QMS22 As Integer    '取出被呼时的秒数 模块2
Global QMS222 As Integer
Global QFS1 As Integer    '取出被呼时的分数值 模块1
Global QFS11 As Integer    '取出被呼时的分数值 模块1
Global QFS111 As Integer
Global QFS2 As Integer    '取出被呼时的分数值 模块2
Global QFS22 As Integer    '取出被呼时的分数值 模块2
Global QFS222 As Integer
Global MK1XBHFlag As Boolean    '模块1先被呼标志
Global MK2XBHFlag As Boolean    '模块2先被呼标志
Global DYDFlag As Boolean     '电压低的标志
Global DYGFlag As Boolean     '电压高的标志
Global MK1BHJFlag1 As Boolean     '模块1被呼叫标志  用于判断电压低状态
Global MK2BHJFlag2 As Boolean     '模块2被呼叫标志  用于判断电压高状态
Global BJFSSJ1 As Integer           '用于分数时间的比较
Global BJFSSJ2 As Integer           '用于秒数时间比较
Global BJMSSJ1 As Integer           '用于分数时间的比较
Global BJMSSJ2 As Integer
Global k As Integer    '存放分机地址

Global XLTComPortOpen1 As Boolean    '判断信灵通的模块1是否打开
Global XLTComPortOpen2 As Boolean    '判断信灵通模块2是否端口打开
Global PortItem As Integer      '选择端口号
Global gXJFlag As Boolean       '巡检的标志
Type LD
   tBH As Integer
   tJH As String
   tXM As String  '司机姓名
   tFJ As String
   tGLH As String
   tFX As String
   tRQ As Data
   tCS   As Integer
   tZT As String
   tVol As Single
   tXX As String
   tDYGDFlag As Boolean   '电压高低标志
End Type
Type XJ
    xFlag As Boolean '要巡检
    xOK     As Boolean  '巡检成功
End Type
Type DXX
   xxSJH As String
   xxSJXM As String
   xxSJ As Data
   xxRQ As Data
   xxNR As String
End Type

Global xDXX(1 To 200) As DXX
Global lLD(1 To 100) As LD
Global xXJ(1 To 100) As XJ
Global g_Color(0 To 8) As Single
Public Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Public Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long

Sub main()
LDNum = 30 * 2
mDXXNR = "S12343E"
mDelDXX1 = False
gXJFlag = False
Set adocn = New ADODB.Connection

adocn.ConnectionTimeout = 10
adocnstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\LDSystem.mdb;Persist Security Info=false" '在当前的路径下查找数据库
adocn.ConnectionString = adocnstring
adocn.Open      '打开数据库
Frmlogin.Show     '显示登录窗体
DoEvents
Exit Sub
aa:
   MsgBox err.Number
   MsgBox err.Description
End Sub


Public Sub Wait1(pt As Single)
  Dim answer, st
  On Error Resume Next
  st = Timer
  Do While Timer < st + pt
       answer = DoEvents
  Loop
End Sub