|
|
說起迅雷廣告這類的彈出窗口提示，簡直讓我無法忍受，廣告總屏蔽不了，可惡。
 不過這類的窗口有的確實做得很好，開機時間、地理信息、IP地址、本地時間，甚至是天氣預報，它都可以給你顯示出來，讓我佩服的是即使是斷網的情況下，有的也可以顯示出這些信息，好比360的開機助手，本人的開機速度簡直是弱爆了，所以就不上圖了。
所以，今天，我就來獻上我個人的窗口提示，呵呵。
程序是用delphi平臺寫的。
界面布局：
其中sLabel1.Caption是顯示消息內容，sLabel2.Caption是顯示上次時間，sLabel3.Caption是顯示上次地點；Image2是顯示木馬的圖像，Image1是顯示背景；SpeedButton1是查看按鈕；使用AlphaLite皮膚控件，自己做的皮膚還是有點bug的。
代碼：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, sSkinManager, ExtCtrls, StdCtrls, Buttons, sBitBtn, sLabel ,inifiles,
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, ShellApi;
type
TForm1 = class(TForm)
sSkinManager1: TsSkinManager;
Image1: TImage;
sLabel1: TsLabel;
Image2: TImage;
sLabel2: TsLabel;
IdHTTP1: TIdHTTP;
sLabel3: TsLabel;
SpeedButton1: TSpeedButton;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
function GetWebPage(const Url:string;IsUtf8:Boolean=False):string;
public
{ Public declarations }
end;
const
str:array[0..7] of string=(
'我是木馬！呵呵！',
'【雷友特權】國慶專題活動四！玩《醉西游》領取迅雷會員！',
'親！',
'黃金周今結束 北京7大高速恐擁堵至深夜',
'河北保定居民樓爆炸案系刑事案 致1死34傷',
'7日16時播小德VS特松加爭冠',
'7日19:30播阿扎決戰莎娃',
'新華社三問華山游客被刺案:為何說法不一'
); //廣告內容
strnum=7; //廣告數目-1
var
Form1: TForm1;
SysTime:TSystemTime;
wYear: Word;
wMonth: Word;
wDay: Word;
wHour: Word;
wMinute: Word;
lastini: TIniFile;
a0,a1,a2,a3,a4: Word;
temp:string;
tip:integer;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
sleep(Random(10));
tip:=Random(strnum);
sLabel1.Font.Color:=rgb(34,122,203); //字體顏色
sLabel1.Caption:=str[tip]+' 查看詳情>>';
GetLocalTime(SysTime); //本地時間
//GetSystemTime(SysTime); //喬治格林時間
temp:=GetWebPage('http://www.ip138.com/ips1388.asp');
Delete(temp,1,Pos(' 來自',temp)+6); //Pos()函數對漢字怎么進行使用？
temp:=Copy(temp,1,Pos('<',temp)-1);
lastini:=Tinifile.Create('.\lastrun.ini');
if lastini.readinteger('上次運行','lastrun',0)=0 then
begin
sLabel2.Caption:=IntToStr(SysTime.wYear)+'-'+IntToStr(SysTime.wMonth)+'-'+IntToStr(SysTime.wDay)+' '+IntToStr(SysTime.wHour)+':'+IntToStr(SysTime.wMinute);
sLabel3.Caption:=temp;
end
else
begin
a0:=lastini.readinteger('年','year',1); //讀取ini文件
a1:=lastini.readinteger('月','month',1);
a2:=lastini.readinteger('日','day',1);
a3:=lastini.readinteger('時','hour',1);
a4:=lastini.readinteger('分','minute',1);
sLabel2.Caption:=IntToStr(a0)+'-'+IntToStr(a1)+'-'+IntToStr(a2)+' '+IntToStr(a3)+':'+IntToStr(a4);
sLabel3.Caption:=lastini.readstring('地點','locale',''); //顯示上次信息
end;
end;
procedure TForm1.FormDestroy(Sender: TObject); //信息寫入ini文件
var
lastini: Tinifile;
begin
lastini:=Tinifile.Create('.\lastrun.ini');
if sLabel2.Caption='' then lastini.writeinteger('上次運行','lastrun',0)
else
begin
lastini.writeinteger('上次運行','lastrun',1);
lastini.writeinteger('年','year',SysTime.wYear);
lastini.writeinteger('月','month',SysTime.wMonth);
lastini.writeinteger('日','day',SysTime.wDay);
lastini.writeinteger('時','hour',SysTime.wHour);
lastini.writeinteger('分','minute',SysTime.wMinute);
lastini.writestring('地點','locale',temp);
end;
end;
function TForm1.GetWebPage(const Url: string; IsUtf8: Boolean): string; //通過外網獲取ip,地理信息，Ps：這段子程序來自網友的。
var
idp:TidHTTP;
begin
Result:='';
idp:=TIdHTTP.Create(Application);
try
idp.HandleRedirects:=True;
idp.Request.UserAgent:='Mozilla/5.0';
Result:=idp.Get(Url);
if IsUtf8 then
Result:=Utf8ToAnsi(Result);
finally
FreeAndNil(idp);
end;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject); //查看按鈕事件
begin
ShellExecute(handle,nil,pchar('http://www.baidu.com/s?wd='+str[tip]+'&rsv_bp=0&rsv_spt=3&rsv_sug3=3&rsv_sug1=3&rsv_sug4=203&inputT=1021'),nil,nil,sw_shownormal);
//打開搜索內容
Form1.Close;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ANimateWindow(handle,400,aw_slide+aw_ver_positive+aw_hide); //窗口關閉效果：自頂向下,400us
end;
end.
顯示效果：
圖片我也想設計成隨機變換的，可惜，我不會。我只能說，點擊查看的效果還不錯，也就只能這樣了。(∩_∩)
由于時間、地理信息是保存在ini文件里的，所以可以像爆破XX軟件一樣，修改內容，達到一定的效果，比如：
|
|
QQ好友和群
QQ空間
騰訊微博
騰訊朋友
收藏
淘帖
頂
踩
