form1.frm

用VB写的闯红灯自动抓拍系统 根据地方不同修改服务器地址。

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{19B73C7C-C76C-11D2-849E-840A94D4800A}#1.2#0"; "FTP.ocx"
Object = "{79B38E02-1F2D-4A69-9ACB-EEB49C92A1BF}#2.0#0"; "HTAgent.ocx"
Begin VB.Form Form1 
   Caption         =   "B-DZJC01数据"
   ClientHeight    =   8220
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   13185
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   8220
   ScaleWidth      =   13185
   StartUpPosition =   3  '窗口缺省
   WindowState     =   1  'Minimized
   Begin VB.CheckBox Check1 
      Caption         =   "3小时执行一次"
      Height          =   345
      Left            =   30
      TabIndex        =   13
      Top             =   7110
      Value           =   1  'Checked
      Width           =   1575
   End
   Begin VB.Frame Frame2 
      Height          =   675
      Left            =   30
      TabIndex        =   10
      Top             =   7500
      Width           =   5355
      Begin MSComctlLib.ProgressBar ProgressBar3 
         Height          =   255
         Left            =   90
         TabIndex        =   15
         Top             =   360
         Width           =   2955
         _ExtentX        =   5212
         _ExtentY        =   450
         _Version        =   393216
         BorderStyle     =   1
         Appearance      =   0
         Scrolling       =   1
      End
      Begin VB.CommandButton Command1 
         Caption         =   "上 传"
         Height          =   435
         Left            =   3090
         TabIndex        =   12
         Top             =   180
         Width           =   1095
      End
      Begin VB.CommandButton Command2 
         Caption         =   "写入日志"
         Height          =   435
         Left            =   4230
         TabIndex        =   11
         Top             =   180
         Width           =   1005
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "0%"
         ForeColor       =   &H000000FF&
         Height          =   180
         Left            =   1230
         TabIndex        =   16
         Top             =   150
         Width           =   180
      End
   End
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   4110
      Top             =   8550
   End
   Begin VB.ListBox List2 
      BackColor       =   &H00000000&
      ForeColor       =   &H0000FF00&
      Height          =   6720
      Left            =   5460
      TabIndex        =   9
      Top             =   30
      Width           =   7725
   End
   Begin VB.Frame Frame1 
      Height          =   1125
      Left            =   5520
      TabIndex        =   2
      Top             =   7050
      Width           =   7605
      Begin VB.CommandButton Command4 
         Caption         =   "下 载"
         Height          =   405
         Left            =   6210
         TabIndex        =   5
         Top             =   210
         Width           =   1335
      End
      Begin VB.CommandButton Command3 
         Caption         =   "写入日志"
         Enabled         =   0   'False
         Height          =   405
         Left            =   6210
         TabIndex        =   3
         Top             =   690
         Width           =   1335
      End
      Begin MSComctlLib.ProgressBar ProgressBar1 
         Height          =   405
         Left            =   60
         TabIndex        =   4
         Top             =   300
         Width           =   3645
         _ExtentX        =   6429
         _ExtentY        =   714
         _Version        =   393216
         BorderStyle     =   1
         Appearance      =   0
         Scrolling       =   1
      End
      Begin MSComctlLib.ProgressBar ProgressBar2 
         Height          =   405
         Left            =   3810
         TabIndex        =   6
         Top             =   300
         Width           =   2295
         _ExtentX        =   4048
         _ExtentY        =   714
         _Version        =   393216
         BorderStyle     =   1
         Appearance      =   0
         Scrolling       =   1
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         Caption         =   "0%"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000FF&
         Height          =   240
         Left            =   1650
         TabIndex        =   8
         Top             =   780
         Width           =   270
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "0%"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000FF&
         Height          =   240
         Left            =   4830
         TabIndex        =   7
         Top             =   810
         Width           =   270
      End
   End
   Begin VB.ListBox List1 
      BackColor       =   &H00000000&
      ForeColor       =   &H0000FF00&
      Height          =   6900
      Left            =   0
      TabIndex        =   1
      Top             =   30
      Width           =   5385
   End
   Begin HTAGENTLib.HTAgent HTAgent1 
      Height          =   795
      Left            =   4470
      TabIndex        =   0
      Top             =   8580
      Visible         =   0   'False
      Width           =   825
      _Version        =   65536
      _ExtentX        =   1455
      _ExtentY        =   1402
      _StockProps     =   0
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "00:00:00"
      Height          =   180
      Left            =   1770
      TabIndex        =   14
      Top             =   7200
      Width           =   720
   End
   Begin DevPowerFTP.FTP FTP1 
      Left            =   5730
      Top             =   8490
      _ExtentX        =   847
      _ExtentY        =   847
      AlwaysIncludeDirs=   0   'False
      WildCard        =   ""
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Cs(1 To 3) As String
Dim Cn As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim fN(1 To 4) As String
Dim k As Long, kk As Long
Dim ccn As New ADODB.Connection
'Dim RS As New ADODB.Recordset
Dim mc(255) As String, Ip(255) As String, LKs As Integer
Dim WSum As Long

Private Sub Check1_Click()
   If Check1.Value = 1 Then
      k = 3 * 60 * 60
      Timer1.Enabled = True
   Else
      Timer1.Enabled = False
   End If
End Sub

Private Sub Command1_Click()
   Command1.Enabled = False
   List1.Clear
   CsSj
   Command1.Enabled = True
End Sub

Private Sub Command2_Click()
   Dim i As Long
   Command2.Enabled = False
   Open App.Path & "\log\sc" & Format(Date, "yyyymmdd") & Format(Time, "hhnnss") & ".log" For Output As #1
   For i = 0 To List1.ListCount
      Print #1, List1.List(i)
   Next
   Close #1
   Command2.Enabled = True
End Sub

Private Sub Command3_Click()
   Dim i As Long
   Command3.Enabled = False
   Open App.Path & "\log\xz" & Format(Date, "yyyymmdd") & Format(Time, "hhnnss") & ".log" For Output As #1
   For i = 0 To List2.ListCount
      Print #1, List2.List(i)
   Next
   Close #1
   Command3.Enabled = True
End Sub

Private Sub Command4_Click()
  Xh
End Sub

Private Sub Form_Load()
    Dim Ks As New ADODB.Recordset