其他

开发平台：
Delphi

FirstAid.dfm：源码内容
							object FirstAidDlg: TFirstAidDlg
  Left = 208
  Top = 107
  BorderStyle = bsDialog
  Caption = 'OICQ急救'
  ClientHeight = 416
  ClientWidth = 306
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 60
    Height = 12
    Caption = 'OpenICQ ID'
  end
  object Label2: TLabel
    Left = 44
    Top = 36
    Width = 24
    Height = 12
    Caption = '密码'
  end
  object lbStatus: TLabel
    Left = 208
    Top = 396
    Width = 24
    Height = 12
    Caption = '离线'
  end
  object edUserId: TEdit
    Left = 76
    Top = 4
    Width = 121
    Height = 20
    TabOrder = 0
  end
  object edPasskey: TEdit
    Left = 76
    Top = 32
    Width = 121
    Height = 20
    PasswordChar = '*'
    TabOrder = 1
  end
  object UserList: TListBox
    Left = 4
    Top = 60
    Width = 193
    Height = 352
    ItemHeight = 12
    PopupMenu = PopupMenu1
    TabOrder = 2
  end
  object btnLogon: TButton
    Left = 212
    Top = 4
    Width = 75
    Height = 25
    Caption = '上线'
    TabOrder = 3
    OnClick = btnLogonClick
  end
  object btnLogoff: TButton
    Left = 212
    Top = 32
    Width = 75
    Height = 25
    Caption = '下线'
    Enabled = False
    TabOrder = 4
    OnClick = btnLogoffClick
  end
  object btnReadFriend: TButton
    Left = 212
    Top = 60
    Width = 75
    Height = 25
    Caption = '读朋友'
    Enabled = False
    TabOrder = 5
    OnClick = btnReadFriendClick
  end
  object btnDeleteFriend: TButton
    Left = 212
    Top = 116
    Width = 75
    Height = 25
    Caption = '删除'
    Enabled = False
    TabOrder = 6
    OnClick = btnDeleteFriendClick
  end
  object btnName: TButton
    Left = 212
    Top = 88
    Width = 75
    Height = 25
    Caption = '姓名'
    Enabled = False
    TabOrder = 7
    OnClick = btnNameClick
  end
  object UDPSock: TNMUDP
    RemoteHost = '202.103.190.46'
    RemotePort = 8000
    LocalPort = 0
    ReportLevel = 1
    OnDataReceived = UDPSockDataReceived
    Left = 144
    Top = 116
  end
  object SaveDlg: TSaveDialog
    DefaultExt = '.txt'
    Filter = '文本文件(*.TXT)|.txt'
    Left = 88
    Top = 116
  end
  object PopupMenu1: TPopupMenu
    Left = 116
    Top = 116
    object mClear: TMenuItem
      Caption = '清除'
      OnClick = mClearClick
    end
    object mSave: TMenuItem
      Caption = '保存'
      OnClick = mSaveClick
    end
  end
end

						