frmonr.frm

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

VERSION 5.00
Begin VB.Form FrmOnr 
   Caption         =   "进程控制"
   ClientHeight    =   5160
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form4"
   ScaleHeight     =   5160
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox TxtPath 
      Height          =   375
      Left            =   120
      TabIndex        =   3
      Top             =   3960
      Width           =   4455
   End
   Begin VB.CommandButton CmdKill 
      Caption         =   "结束进程"
      Height          =   375
      Left            =   1560
      TabIndex        =   2
      Top             =   4560
      Width           =   1335
   End
   Begin VB.ListBox List1 
      Height          =   3120
      Left            =   120
      TabIndex        =   0
      Top             =   360
      Width           =   4455
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "选定程序的路径："
      Height          =   180
      Left            =   120
      TabIndex        =   4
      Top             =   3720
      Width           =   1440
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "正在运行程序列表："
      Height          =   180
      Left            =   120
      TabIndex        =   1
      Top             =   120
      Width           =   1620
   End
End
Attribute VB_Name = "FrmOnr"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Dim RunList As String
FrmMain.SockCli.SendData "GETRUNN"
'请求进程列表
If InfoBack = "GOTINFO" Then
    MsgBox "服务器收到命令！", vbOKOnly, "成功"
End If
If Left$(GotData, 7) = "RUNLIST" Then
'获得列表
RunList = Right$(GotData, Len(GotData) - 7)
End If
'以下开始处理列表

End Sub