● 如何使你的上站时间迅速增长！ - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: Peter (小飞侠), 信区: Program
标  题: 如何使你的上站时间迅速增长！
发信站: BBS 荔园晨风站 (Fri Jan 22 13:53:15 1999), 转信

unit Unitx;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Timer1: TTimer;
    Label1: TLabel;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  WinHwnd:Integer;
  WinMenu:Integer;
  AutoPost:Boolean;
  times,SetupTime:integer;
  Phase:integer;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  WinHwnd:=0;
  WinHwnd:=FindWindow(nil,'bbs.njupt.edu.cn');
if WinHwnd=0 then
   WinHwnd:=FindWindow(nil,'NetTerm-bbs.njupt.edu.cn');
if WinHwnd=0 then
     Application.MessageBox('不能找到NetTerm','冰原',1)
else Application.MessageBox('找到NetTerm','冰原',1);

if WinHwnd<>0 then
begin
  SendMessage(WinHwnd,WM_SYSCOMMAND,SC_RESTORE,0);
  WinMenu:=GetMenu(WinHWnd);
  Timer1.Enabled:=True;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  AutoPost:=False;
  Timer1.Enabled:=False;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if times=SetupTime then
   begin
    if phase<=5 then
      begin
       SendMessage(WinHWnd,WM_SYSKEYDOWN,VK_UP,1);
       SendMessage(WinHWnd,WM_SYSKEYUP,VK_UP,1);
       Phase:=Phase+1;
      end;
    if phase>5 then
      begin
       SendMessage(WinHWnd,WM_SYSKEYDOWN,VK_DOWN,1);
       SendMessage(WinHWnd,WM_SYSKEYUP,VK_DOWN,1);
       Phase:=Phase+1;
      if Phase>10 then Phase:=1;
      end;
    Times:=0;
   end;
  Times:=Times+1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Times:=0;
SetupTime:=5;
Phase:=0;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    SetupTime:=StrtoInt(Edit1.Text);
end;

end.

--

--
※ 来源:．BBS 荔园晨风站 bbs.szu.edu.cn．[FROM: 192.168.1.3]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店