我又中大奖啦！（年末灌水）

昨天在妹妹里得到通知，说我中了 500 万英镑（British Pounds Sterlings 500,000.00.GBP）的大奖，让我告知对方联系方式、电话、国籍等。妹妹来自一个英吉利的地址（award@lotto.co.uk)）。

再以前，曾经有阿根廷、日本的网址通知我中了大奖，分别是 500 万 美刀和 100 万 美刀。

还别说，人家可真是“大手笔”，看到那么些美刀，怎能不动心？不象咱的手机里，用短信通知我中了区区 1.2 万大米，要不然就是在 XXX 消费了 6000 元，有啥疑问可以致电 xxxxxxxxx。

嘿嘿 。。。。。

[EOS-1Ds 编辑于 2009-12-30 14:52]

看跟哪儿比，看跟谁比~~

比起LZ俺就较积多了！这是前些年自己编写的算体彩号码用的软件的一小部份代码：

#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "trayicon"
#pragma resource "*.dfm"
TForm1 *Form1;
bool icon;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
Timer1->Enabled=true;
Timer1->Interval=90000;
Timer2->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
NMFTP1->Disconnect();
Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
try
{
Timer1->Interval=600000;
Newdata225=true;
Newdata317=true;
Newdata367=true;
canclose=true;//能否关闭软件
Button2->Enabled=false;
Button1->Cursor=crHourGlass;
StatusBar1->SimpleText="FTP状态:正在连接服务器下载开奖记录!";
edit=Form1->IdHTTP1->Get("http://www_fjlottery_com/index.htm"); //取得体彩网源码
Net225();//取得福建体彩上的开奖记录
html225();//登记到HTML页面上

Net317();
html317();//登记到HTML页面上

Net367();
html367();//登记到HTML页面上

NMFTP1->Host="ftp_533_net";
NMFTP1->Port=21;
NMFTP1->UserID="****";
NMFTP1->Password="***********";
NMFTP1->Connect();//连接FTP
if(Newdata225){StatusBar1->SimpleText="FTP状态:正在上传22选5开奖记录!";
               NMFTP1->Upload("C:\\Program Files\\AutoFTP\\fujian225.htm","");
               RichEdit1->Lines->Add("---22选5上传成功---!");}//这是上传
if(Newdata317){StatusBar1->SimpleText="FTP状态:正在上传31选7开奖记录!";
                NMFTP1->Upload("C:\\Program Files\\AutoFTP\\fujian317.htm","");
                RichEdit1->Lines->Add("---31选7上传成功---!");}//这是上传
if(Newdata367){StatusBar1->SimpleText="FTP状态:正在上传36选7开奖记录!";
                NMFTP1->Upload("C:\\Program Files\\AutoFTP\\fujian367.htm","");
                RichEdit1->Lines->Add("---36选7上传成功---!");}//这是上传
NMFTP1->Disconnect();//argo_533_net传完

StatusBar1->SimpleText="FTP状态:FTP已断开连接!";
Button1->Cursor=crDefault;
Button2->Enabled=true;
if(canclose&&CheckBox1->Checked)
{Form1->Close();}
}
catch(...) {
           Timer1->Interval=600000;
           canclose=false;
           Button1->Cursor=crDefault;
           Button2->Enabled=true;
           RichEdit1->Lines->Add("---无法登陆福建体彩网站,下载失败!---");return;
           }
}
//---------------------------------------------------------------------------
void TForm1::Net225(void)
{
try{
AnsiString str,str2,str3,str4;
AnsiString hao[6]={""};
int a=5000,chang=edit.Length();
for(int i=5000;i<chang;i++)
{
a++;
str=edit.SubString(a,44);
if(str=="体彩“<font color='#000000'>22选5</font>”第")
{
str2=edit.SubString(a+42,180);
break;
}
}
int a2=0,chang2=str2.Length(),di=1;
for(int i=0;i<chang2;i++)
  {
a2++;
str3=str2.SubString(a2,2);
if(str3=="第"){hao[0]=str2.SubString(a2+2,5)+":";}
str4=str2.SubString(a2,1);
if(str4=="&"){hao[di]=str2.SubString(a2-2,2);di++;}
  }
RichEdit1->Lines->Add(hao[0]+hao[1]+","+hao[2]+","+hao[3]+","+hao[4]+","+hao[5]);//22选5
str225=hao[0]+hao[1]+","+hao[2]+","+hao[3]+","+hao[4]+","+hao[5];
}
catch(...){
           Timer1->Interval=600000;
           canclose=false;
           Button2->Enabled=true;
           Button1->Cursor=crDefault;
           RichEdit1->Lines->Add("---22选5无法登陆福建体彩网站,下载失败!---");return;
           }
}
//=============================================================
void TForm1::Net317(void)
{
try{
AnsiString str,str2,str3,str4,str5;
AnsiString hao[9]={""};
int a=5000,chang=edit.Length();
for(int i=5000;i<chang;i++)
{
a++;
str=edit.SubString(a,44);
if(str=="体彩“<font color='#000000'>31选7</font>”第")
{
str2=edit.SubString(a+42,195);
break;
}
}
int a2=0,chang2=str2.Length(),di=1;
for(int i=0;i<chang2;i++)
  {
a2++;
str3=str2.SubString(a2,2);
if(str3=="第"){hao[0]=str2.SubString(a2+2,5)+":";}
str4=str2.SubString(a2,1);
if(str4=="&"){hao[di]=str2.SubString(a2-2,2);di++;}
str5=str2.SubString(a2,14);
if(str5=="color='green'>"){hao[8]=str2.SubString(a2+14,2);}
  }

RichEdit1->Lines->Add(hao[0]+hao[1]+","+hao[2]+","+hao[3]+","+hao[4]+","+hao[5]+","
                      +hao[6]+","+hao[7]+","+hao[8]);//31选7
str317=hao[0]+hao[1]+","+hao[2]+","+hao[3]+","+hao[4]+","+hao[5]+","
                      +hao[6]+","+hao[7]+","+hao[8];
}
catch(...){
           Timer1->Interval=600000;//等待5分钟后再重新开始
           canclose=false;
           Button2->Enabled=true;
           Button1->Cursor=crDefault;
           RichEdit1->Lines->Add("---31选7无法登陆福建体彩网站,下载失败!---");return;
           }
}
//=============================================================
void TForm1::Net367(void)
{
try{
AnsiString str,str2,str3,str4,str5;
AnsiString hao[9]={""};
int a=5000,chang=edit.Length();
for(int i=5000;i<chang;i++)
{
a++;
str=edit.SubString(a,44);
if(str=="体彩“<font color='#000000'>36选7</font>”第")
{
str2=edit.SubString(a+42,195);
break;
}
}
int a2=0,chang2=str2.Length(),di=1;
for(int i=0;i<chang2;i++)
  {
a2++;
str3=str2.SubString(a2,2);
if(str3=="第"){hao[0]=str2.SubString(a2+2,5)+":";}
str4=str2.SubString(a2,1);
if(str4=="&"){hao[di]=str2.SubString(a2-2,2);di++;}
str5=str2.SubString(a2,14);
if(str5=="color='green'>"){hao[8]=str2.SubString(a2+14,2);}
  }

RichEdit1->Lines->Add(hao[0]+hao[1]+","+hao[2]+","+hao[3]+","+hao[4]+","+hao[5]+","
                      +hao[6]+","+hao[7]+","+hao[8]);//36选7
str367=hao[0]+hao[1]+","+hao[2]+","+hao[3]+","+hao[4]+","+hao[5]+","
                      +hao[6]+","+hao[7]+","+hao[8];
}
catch(...){
           Timer1->Interval=600000;
           canclose=false;
           Button2->Enabled=true;
           Button1->Cursor=crDefault;
           RichEdit1->Lines->Add("---36选7无法登陆福建体彩网站,下载失败!---");return;
           }

}
//=============================================================
void TForm1::html225(void)
{
try{
AnsiString html225=IdHTTP1->Get("http://argo_html_533_net/fujian225.htm");
AnsiString html225_B;
for(int i=html225.Length()-300;i<html225.Length();i++)
{
if(html225.SubString(i,20)==str225)
{Newdata225=false;RichEdit1->Lines->Add("---22选5记录已是最新! ---");break;}//若南船网页上的和福建体彩的一样就停止
}//for end
if(Newdata225)
{
html225_B=html225.Insert("\n"+str225+"<br>",html225.Length()-17);//增加到html页面
TStrings *CODE1=new TStringList();
CODE1->Text = html225_B;
CODE1->SaveToFile("C:\\Program Files\\AutoFTP\\fujian225.htm");
delete CODE1;
}
}//try end

catch(...){Timer1->Interval=600000;
          canclose=false;
          Button2->Enabled=true;
          Button1->Cursor=crDefault;
          RichEdit1->Lines->Add("---连接南船网站5/22失败!!!---");return;
          }
}
//============================================
void TForm1::html317(void)
{
try{
AnsiString html317=IdHTTP1->Get("http://argo_html_533_net/fujian317.htm");
AnsiString html317_B;
for(int i=html317.Length()-300;i<html317.Length();i++)
{
if(html317.SubString(i,29)==str317)
{Newdata317=false;RichEdit1->Lines->Add("---31选7记录已是最新! ---");break;}//若南船网页上的和福建体彩的一样就停止
}//for end
if(Newdata317)
{
html317_B=html317.Insert("\n"+str317+"<br>",html317.Length()-17);//增加到html页面
TStrings *CODE2=new TStringList();
CODE2->Text = html317_B;
CODE2->SaveToFile("C:\\Program Files\\AutoFTP\\fujian317.htm");
delete CODE2;
}
}//try end

catch(...){
           Timer1->Interval=600000;
           canclose=false;
           Button2->Enabled=true;
           Button1->Cursor=crDefault;
           RichEdit1->Lines->Add("---连接南船网站7/31失败!!!---");return;
           }

}
//============================================
void TForm1::html367(void)
{
try{
AnsiString html367=IdHTTP1->Get("http://argo_html_533_net/fujian367.htm");
AnsiString html367_B;
for(int i=html367.Length()-300;i<html367.Length();i++)
{
if(html367.SubString(i,29)==str367)
{Newdata367=false;RichEdit1->Lines->Add("---36选7记录已是最新! ---");break;}//若南船网页上的和福建体彩的一样就停止
}//for end
if(Newdata367)
{
html367_B=html367.Insert("\n"+str367+"<br>",html367.Length()-26);//增加到html页面
TStrings *CODE3=new TStringList();
CODE3->Text = html367_B;
CODE3->SaveToFile("C:\\Program Files\\AutoFTP\\fujian367.htm");
delete CODE3;
}
}//try end

catch(...){Timer1->Interval=600000;
           canclose=false;
           Button2->Enabled=true;
           Button1->Cursor=crDefault;
           RichEdit1->Lines->Add("---连接南船网站7/36失败!!!---");return;
           }

}
//============================================

[南船 编辑于 2010-01-03 15:49]

难得玩一下，乐和乐和~~

新年好~~

去年他们赌马，我出了两块钱，大奖五十，我中了四十四，合人民币二百二~~

去年去跑步，我磨磨蹭蹭啥名次也没有，结果几千个人抽奖，我中了一个~~

我要啥时候中了乐透，我就买个k-7，再买个d3x，的背带，三根背带换着背我的无敌兔~~

早说啊！现在已经晚了，来不及爬上去啦。。。。。

还别说，体彩 33 选 7 俺还是真中了奖，是三个五等奖，加起来得 9 元人民币。嘿嘿 ......

求包养，合体也行