frm_main.frm

实现对触摸屏的监控

VERSION 5.00
Begin VB.Form Frm_main 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "触摸屏监控程序"
   ClientHeight    =   3660
   ClientLeft      =   150
   ClientTop       =   435
   ClientWidth     =   6405
   Icon            =   "Frm_main.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   3660
   ScaleWidth      =   6405
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command1 
      Caption         =   "立即重起"
      Height          =   375
      Left            =   4800
      TabIndex        =   4
      Top             =   2640
      Width           =   1215
   End
   Begin VB.ListBox List1 
      Height          =   2220
      Left            =   0
      TabIndex        =   3
      Top             =   1440
      Visible         =   0   'False
      Width           =   4095
   End
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   60000
      Left            =   5760
      Top             =   120
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "邢台信息部"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   18
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   360
      Index           =   2
      Left            =   4200
      TabIndex        =   2
      Top             =   3000
      Width           =   1875
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "触摸屏监控程序"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   32.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   645
      Index           =   1
      Left            =   930
      TabIndex        =   1
      Top             =   690
      Width           =   4620
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "触摸屏监控程序"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   32.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H008080FF&
      Height          =   645
      Index           =   0
      Left            =   960
      TabIndex        =   0
      Top             =   720
      Width           =   4620
   End
   Begin VB.Menu jkcz 
      Caption         =   "【监控操作(&C)】"
      Begin VB.Menu jkcz_Start 
         Caption         =   "&S 开始监控"
         Shortcut        =   {F4}
      End
      Begin VB.Menu jkcz_Stop 
         Caption         =   "&E 停止监控"
         Shortcut        =   {F5}
      End
      Begin VB.Menu jkcz_System 
         Caption         =   "&B 系统设置"
         Shortcut        =   {F9}
      End
      Begin VB.Menu bar1 
         Caption         =   "-"
      End
      Begin VB.Menu jkcz_Help 
         Caption         =   "&H 帮助"
         Shortcut        =   {F1}
      End
      Begin VB.Menu jkcz_Exit 
         Caption         =   "&X 退出系统"
         Shortcut        =   {F8}
      End
   End
   Begin VB.Menu Jbsz 
      Caption         =   "【基本设置(&S)】"
      Begin VB.Menu Jbsz_Find 
         Caption         =   "& 查找触摸屏程序"
         Shortcut        =   {F2}
      End
   End
End
Attribute VB_Name = "Frm_main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()
 Call 重起计算机
End Sub

Private Sub Form_Load()
 Me.WindowState = 1
 jkcz_Start_Click
End Sub

Private Sub Jbsz_Find_Click()
 Frm_Find.Show
End Sub

Private Sub jkcz_Exit_Click()
 Call 退出
End Sub

Private Sub jkcz_Start_Click()
 Dim myIniFile As New cIniFile
 myIniFile.INIFile = App.Path & "\Txt\setting.ini"
 Cmp_File = Trim(myIniFile.GetFile("setting", "FilePath"))
 Cmp_File = Left(Cmp_File, Len(Cmp_File) - 1)
 If Cmp_File = "" Then
    'MsgBox "触摸屏文件路径没有设置，请设置后再进行监控!", 16, "提示"
    '设置触摸屏文件为默认路径
    Cmp_File = "C:\PROGRAM FILES\联通河北省分公司触摸屏查询系统\HITOUCH.EXE"
    Timer1.Enabled = True
 Else
    Timer1.Enabled = True
 End If
End Sub

Private Sub jkcz_Stop_Click()
 Timer1.Enabled = False
End Sub

Private Sub jkcz_System_Click()
 Frm_Set.Show
End Sub
Private Sub 退出()
    '设置鼠标模式为忙（沙漏模式）
    Screen.MousePointer = vbHourglass
    Unload Me
    '恢复鼠标模式为缺省模式
    Screen.MousePointer = vbDefault
End Sub

Private Sub List1_Click()
 Me.Caption = List1.Text
End Sub

Private Sub Timer1_Timer()
  On Error Resume Next
  列举所有进程
  判断
End Sub