荔园在线
荔园之美,在春之萌芽,在夏之绽放,在秋之收获,在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: 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软件 网络书店