toupiao.pas

自动投票系统.只需要输入基础参数,你就可以得到系统投票的情况.

unit toupiao;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, WinInet, StdCtrls,FileCtrl,shlobj,shellapi;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
//type
//  buffer=array [2..1024] of char;

var
  url:string;
  myhinternet:HINTERNET;
  hInternetFile:HINTERNET;
  buffer:array[2..1024] of char;

  dwBytesRead:DWord;
  
//  myfile:Textfile;
  s:string;  
//  i,j:integer;

  sl:TStringList;

begin
  dwBytesRead:=1024;
//  url:='http://club.mir3.com.cn/newmir3/gallary/show.asp?ID=16289&Action=poll';
 url:='http://www.tz100.net/2005singer/baoming/vote.asp?ID=204';
//sl:=TStringList.Create;
//try
//  sl.LoadFromFile('cell.txt');
//  for i:=0 to sl.Count-1 do
//    s:=sl.strings[1];
//    ShowMessage(s);
//     url:=#39+s+#39;
//finally
//  sl.Free;
//end;
try
  myhinternet:=InternetOpen('Microsoft Internet Explorer',INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
  if myhinternet=NIL then
    exit;
  hInternetFile:=InternetOpenUrl(myhinternet,pchar(url), nil, 0, INTERNET_FLAG_TRANSFER_BINARY + INTERNET_FLAG_RELOAD + INTERNET_FLAG_DONT_CACHE, 0);
  if hInternetFile=NIL then
    exit;
  InternetReadFile(hInternetFile,@buffer,SizeOf(buffer),dwBytesRead);
  InternetCloseHandle(myhinternet);
finally
  Application.Terminate;
end;  
end;


end.