form1.frm

本文件包含200个visual baisc实例

VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Begin VB.Form form1 
   Caption         =   "监控上网过程"
   ClientHeight    =   3480
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7845
   LinkTopic       =   "Form1"
   ScaleHeight     =   3480
   ScaleWidth      =   7845
   StartUpPosition =   1  '所有者中心
   Begin VB.TextBox Text1 
      Alignment       =   2  'Center
      BackColor       =   &H00C0C0C0&
      BorderStyle     =   0  'None
      Height          =   315
      Left            =   5985
      TabIndex        =   3
      Text            =   "挂断网络"
      Top             =   225
      Width           =   1695
   End
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   "E:\编程技巧\xcx\网络\计算机上网日志\net.mdb"
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   465
      Left            =   -180
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "net"
      Top             =   2625
      Visible         =   0   'False
      Width           =   2115
   End
   Begin MSDBGrid.DBGrid DBGrid1 
      Bindings        =   "form1.frx":0000
      Height          =   2295
      Left            =   180
      OleObjectBlob   =   "form1.frx":0014
      TabIndex        =   1
      Top             =   555
      Width           =   7485
   End
   Begin VB.Timer Timer1 
      Interval        =   800
      Left            =   2550
      Top             =   2745
   End
   Begin VB.CommandButton Command1 
      Caption         =   "退出"
      Height          =   435
      Left            =   5355
      TabIndex        =   0
      Top             =   2955
      Width           =   2310
   End
   Begin VB.Label Label2 
      Caption         =   "状态："
      Height          =   345
      Left            =   5370
      TabIndex        =   4
      Top             =   225
      Width           =   765
   End
   Begin VB.Label Label1 
      Caption         =   "监控上网过程"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   555
      Left            =   2760
      TabIndex        =   2
      Top             =   105
      Width           =   2025
   End
End
Attribute VB_Name = "form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long
        
Private Declare Function RasEnumConnections Lib "RasApi32.dll" Alias _
    "RasEnumConnectionsA" (lpRasCon As Any, lpcb As Long, _
    lpcConnections As Long) As Long
    
Private Declare Function RasGetConnectStatus Lib "RasApi32.dll" Alias _
    "RasGetConnectStatusA" (ByVal hRasCon As Long, _
    lpStatus As Any) As Long

Const SW_SHOW = 5
Const RAS95_MaxEntryName = 256
Const RAS95_MaxDeviceType = 16
Const RAS95_MaxDeviceName = 32

Private Type RASCONNSTATUS95
    dwSize As Long
    RasConnState As Long
    dwError As Long
    szDeviceType(RAS95_MaxDeviceType) As Byte
    szDeviceName(RAS95_MaxDeviceName) As Byte
End Type

Private Type RASCONN95
    dwSize As Long
    hRasCon As Long
    szEntryName(RAS95_MaxEntryName) As Byte
    szDeviceType(RAS95_MaxDeviceType) As Byte
    szDeviceName(RAS95_MaxDeviceName) As Byte
End Type

Dim mydb As Database
Dim myrs As Recordset

Private Sub Form_Load()
  Data1.DatabaseName = App.Path & "\net.mdb"
End Sub

Private Sub Text1_Change()
  Set mydb = OpenDatabase(App.Path & "\net.mdb")
  Set myrs = mydb.OpenRecordset("net", dbOpenTable)
  myrs.AddNew
  If Text1.Text = "连接网络" Then
     myrs.Fields(0) = "连接上网"
     myrs.Fields(1) = Date
     myrs.Fields(2) = Time
  Else
     myrs.AddNew
     myrs.Fields(0) = "挂断网络"
     myrs.Fields(1) = Date
     myrs.Fields(2) = Time
  End If
  myrs.Update
  myrs.Close
  mydb.Close
  Data1.Refresh
End Sub

Private Sub Timer1_Timer()
  Dim TRasCon(255) As RASCONN95
  Dim lg As Long
  Dim lp As Long
  Dim RetVal As Long
  Dim status As RASCONNSTATUS95
  
  TRasCon(0).dwSize = 412
  lg = 256 * TRasCon(0).dwSize
  RetVal = RasEnumConnections(TRasCon(0), lg, lp)
  If RetVal <> 0 Then
     Exit Sub
  End If
  status.dwSize = 160
  RetVal = RasGetConnectStatus(TRasCon(0).hRasCon, status)
  If status.RasConnState = &H2000 Then
     Text1.Text = "连接网络"
   Else
     Text1.Text = "挂断网络"
  End If
End Sub

Private Sub Command1_Click()
  End
End Sub