unit1.dfm

国外的远程控制源码,国内首发~~~我看到了就转过来了~

object Form1: TForm1
  Left = 205
  Top = 113
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Anal Rape - By Otis'
  ClientHeight = 202
  ClientWidth = 410
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Comic Sans MS'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 15
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 409
    Height = 169
    ActivePage = TabSheet3
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Connect'
      object Edit1: TFlatEdit
        Left = 40
        Top = 8
        Width = 145
        Height = 21
        ColorFlat = clBtnFace
        ParentColor = True
        TabOrder = 0
        Text = '127.0.0.1'
      end
      object Edit2: TFlatEdit
        Left = 192
        Top = 8
        Width = 41
        Height = 21
        ColorFlat = clBtnFace
        ParentColor = True
        TabOrder = 1
        Text = '0715'
      end
      object Button1: TFlatButton
        Left = 240
        Top = 8
        Width = 49
        Height = 25
        Caption = 'Connect'
        TabOrder = 2
        OnClick = Button1Click
      end
      object Button3: TFlatButton
        Left = 296
        Top = 40
        Width = 73
        Height = 25
        Caption = 'Server Info'
        TabOrder = 3
        OnClick = Button3Click
      end
      object Button2: TFlatButton
        Left = 296
        Top = 72
        Width = 73
        Height = 25
        Caption = 'Comp Info'
        TabOrder = 4
        OnClick = Button2Click
      end
      object Button4: TFlatButton
        Left = 296
        Top = 104
        Width = 73
        Height = 25
        Caption = 'Remove'
        TabOrder = 5
        OnClick = Button4Click
      end
      object Memo1: TFlatMemo
        Left = 8
        Top = 40
        Width = 273
        Height = 89
        ColorFlat = clBtnFace
        ParentColor = True
        TabOrder = 6
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'CDRom'
      ImageIndex = 1
      object Button6: TFlatButton
        Left = 120
        Top = 16
        Width = 65
        Height = 25
        Caption = 'Open CD'
        TabOrder = 0
        OnClick = Button6Click
      end
      object Button7: TFlatButton
        Left = 120
        Top = 40
        Width = 65
        Height = 25
        Caption = 'Crazy CD'
        TabOrder = 1
        OnClick = Button7Click
      end
      object Button5: TFlatButton
        Left = 200
        Top = 16
        Width = 65
        Height = 25
        Caption = 'Close CD'
        TabOrder = 2
      end
      object Button17: TFlatButton
        Left = 200
        Top = 40
        Width = 65
        Height = 25
        Caption = 'Coffee Cup'
        TabOrder = 3
        OnClick = Button17Click
      end
      object Button8: TFlatButton
        Left = 72
        Top = 80
        Width = 89
        Height = 25
        Caption = 'Monitor On'
        TabOrder = 4
      end
      object Button9: TFlatButton
        Left = 224
        Top = 80
        Width = 89
        Height = 25
        Caption = 'Monitor Off'
        TabOrder = 5
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Power'
      ImageIndex = 2
      object Button10: TFlatButton
        Left = 72
        Top = 16
        Width = 89
        Height = 25
        Caption = 'Shutdown'
        TabOrder = 0
        OnClick = Button10Click
      end
      object Button12: TFlatButton
        Left = 72
        Top = 40
        Width = 89
        Height = 25
        Caption = 'Logoff'
        TabOrder = 1
        OnClick = Button12Click
      end
      object Button14: TFlatButton
        Left = 72
        Top = 64
        Width = 89
        Height = 25
        Caption = 'Suspend'
        TabOrder = 2
        OnClick = Button14Click
      end
      object Button11: TFlatButton
        Left = 208
        Top = 16
        Width = 89
        Height = 25
        Caption = 'Restart'
        TabOrder = 3
        OnClick = Button11Click
      end
      object Button13: TFlatButton
        Left = 208
        Top = 40
        Width = 89
        Height = 25
        Caption = 'Force Shutdown'
        TabOrder = 4
      end
      object Button15: TFlatButton
        Left = 208
        Top = 64
        Width = 89
        Height = 25
        Caption = 'Restart Windows'
        TabOrder = 5
      end
      object Button16: TFlatButton
        Left = 136
        Top = 104
        Width = 89
        Height = 25
        Caption = 'Power Off'
        TabOrder = 6
        OnClick = Button16Click
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'IRC Bot'
      ImageIndex = 3
      object FlatButton1: TFlatButton
        Left = 320
        Top = 8
        Width = 73
        Height = 25
        Caption = 'IRC Bot On'
        TabOrder = 0
        OnClick = FlatButton1Click
      end
      object FlatButton2: TFlatButton
        Left = 240
        Top = 8
        Width = 73
        Height = 25
        Caption = 'IRC Bot Off'
        TabOrder = 1
        OnClick = FlatButton2Click
      end
      object FlatButton3: TFlatButton
        Left = 8
        Top = 8
        Width = 145
        Height = 25
        Caption = 'Bot Status: OFF'
        TabOrder = 2
        OnClick = FlatButton3Click
      end
      object FlatButton4: TFlatButton
        Left = 160
        Top = 8
        Width = 73
        Height = 25
        Caption = 'Get Bot Info'
        TabOrder = 3
        OnClick = FlatButton4Click
      end
      object FlatButton5: TFlatButton
        Left = 8
        Top = 40
        Width = 57
        Height = 25
        Caption = 'Bot Nick'
        TabOrder = 4
        OnClick = FlatButton5Click
      end
      object FlatEdit3: TFlatEdit
        Left = 80
        Top = 40
        Width = 73
        Height = 21
        ColorFlat = clBtnFace
        ParentColor = True
        TabOrder = 5
      end
      object FlatButton6: TFlatButton
        Left = 8
        Top = 72
        Width = 57
        Height = 25
        Caption = 'Bot Chan'
        TabOrder = 6
        OnClick = FlatButton6Click
      end
      object FlatEdit4: TFlatEdit
        Left = 80
        Top = 72
        Width = 73
        Height = 21
        ColorFlat = clBtnFace
        ParentColor = True
        TabOrder = 7
      end
      object FlatButton7: TFlatButton
        Left = 8
        Top = 104
        Width = 57
        Height = 25
        Caption = 'Bot Pass'
        TabOrder = 8
        OnClick = FlatButton7Click
      end
      object FlatEdit5: TFlatEdit
        Left = 80
        Top = 104
        Width = 73
        Height = 21
        ColorFlat = clBtnFace
        ParentColor = True
        TabOrder = 9
      end
      object FlatButton8: TFlatButton
        Left = 160
        Top = 104
        Width = 73
        Height = 25
        Caption = 'Say'
        TabOrder = 10
        OnClick = FlatButton8Click
      end
      object FlatEdit6: TFlatEdit
        Left = 240
        Top = 104
        Width = 121
        Height = 21
        ColorFlat = clBtnFace
        ParentColor = True
        TabOrder = 11
      end
      object FlatButton9: TFlatButton
        Left = 160
        Top = 72
        Width = 73
        Height = 25
        Caption = 'RAW'
        TabOrder = 12
        OnClick = FlatButton9Click
      end
      object FlatEdit7: TFlatEdit
        Left = 240
        Top = 72
        Width = 121
        Height = 21
        ColorFlat = clBtnFace
        ParentColor = True
        TabOrder = 13
      end
      object FlatButton10: TFlatButton
        Left = 160
        Top = 40
        Width = 73
        Height = 25
        Caption = 'Logged in User'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -9
        Font.Name = 'Comic Sans MS'
        Font.Style = []
        ParentFont = False
        TabOrder = 14
        OnClick = FlatButton10Click
      end
      object FlatEdit8: TFlatEdit
        Left = 240
        Top = 40
        Width = 121
        Height = 21
        ColorFlat = clBtnFace
        ParentColor = True
        TabOrder = 15
      end
    end
  end
  object FlatEdit1: TFlatEdit
    Left = 8
    Top = 176
    Width = 137
    Height = 21
    ColorFlat = clBtnFace
    ParentColor = True
    Enabled = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Comic Sans MS'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    Text = 'Disconnected'
  end
  object FlatEdit2: TFlatEdit
    Left = 256
    Top = 176
    Width = 153
    Height = 21
    ColorFlat = clBtnFace
    ParentColor = True
    TabOrder = 2
    Text = 'Http://www.imafraid.com/'
    OnChange = changed
    OnClick = clicked
    OnDblClick = clicked
  end
  object AboutButton: TFlatButton
    Left = 152
    Top = 176
    Width = 89
    Height = 17
    Caption = 'About'
    TabOrder = 3
    OnClick = AboutButtonClick
  end
  object ClientSocket1: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 0
    OnConnecting = ClientSocket1Connecting
    OnConnect = ClientSocket1Connect
    OnDisconnect = ClientSocket1Disconnect
    OnRead = ClientSocket1Read
    OnError = ClientSocket1Error
    Left = 40
    Top = 176
  end
end