国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

一個簡單的投票機器人

2019-11-18 18:19:32
字體：大 中 小
來源：轉載
供稿：網友

一個簡單的投票機器人

昨天幫人報一個參加日語能力考試的朋友報名，無奈名額已滿，需要不斷重試碰運氣。手工操作很麻煩，就決定做一個機器人試試，于是翻出了去年做的一個投票機器人。（報名機器人另文再寫）
      那時非典被困在宿舍，做畢設的公司正在參加一個十大新興技術企業的評選，有網上投票的環節。閑得無聊，就花了一天時間做了這個小程序。
       簡單看了一下，那個投票頁面做得很業余，就一個asp頁面，沒有用戶注冊和ip限制，完全的匿名投票。不過為了保險起見，我還是想了不少辦法，偽造IP地址很困難，我就用代理服務器，用一個代理列表中用代理服務器投票，另外選中的概率也不是100％，而是可以自由調節，投票的時間間隔也可以自由調節。
       發送投票結果有幾種方法：
n         一種是通過構造一個數據包，直接post過去，這個方法當時沒有成功，也沒有深究原因。
n         另一種方式就是自動填寫表單，然后通過表單提交結果。我用的就是這種辦法。
       用Delphi7開發，主要使用了Twebbrowser控件，那時第一次用，所以現在看有很多問題。
       首先動態生成一個頁面：
表格 1

構造HTML源代碼： 
PRocedure TFrmMain.makehtml;
var
    liststr1,liststr2,checkNum1,checkNum2:string;
    htmlFile:TextFile;
    i,j,who,part1,part2,num1,probility:integer;
begin
   liststr1:='';
   liststr2:='';
   htmlbody:='<HTML><meta http-equiv="Content-Type" content="text/html; charset=gb2312">';
   htmlbody:=htmlbody+'<BODY background="bgpaper.gif"><TITLE>投票系統</TITLE><p align="center">&nbsp;</p>';
 
   htmlbody:=htmlbody+'<INPUT TYPE=hidden NAME="LinkURL" VALUE="">';
   htmlbody:=htmlbody+'<TABLE width="80%" align="center" border="1" bordercolor="#339966"><TR bordercolor="#FFFFFF">';
   htmlbody:=htmlbody+'<TD ALIGN=center COLSPAN=2>';
   。。。。。。。。。。。。
   //構造投票選項―――――――――――――――――――――
   for j:=1 to 23 do
       begin
         checklist1[j]:=false;
         checklist2[j]:=false;
       end;
 
   RandSeed:= inttime;
   Randomize;
 
   //根據設置的投票選擇概率來確定本次是否選擇目標選項
   if factor = 0 then
       part1 := Random(10)
   else part1 := Random(11);
   num1:=part1;
   while (part1>0) do
   begin
       who := Random(23)+1;
       for j:=1 to 23 do
           begin
               if checklist1[who] then
                   break
               else
                   begin
                       checklist1[who]:=true;
                       part1:=part1-1;
                   end;
           end;
   end;
 
   probility := Random(100)+1;
   if factor = 0 then
       checklist2[2]:=true
   else if (probility Mod factor) = 0 then
      checklist2[2]:=true;
 
   if checklist2[2] then
       part2:=(10-num1)-1
   else part2:=(10-num1);
  
   while (part2 > 0 ) do
       begin
           who := Random(23)+1;
           for j:=1 to 23 do
             begin
                 if checklist2[who]  then //
                     break
                 else
                   begin
                       checklist2[who]:=true;
                       part2:=part2-1;
                   end;
             end;
       end;
 
   for j:=1 to 23 do
       begin
                   if checklist1[j] then
                       begin
                           liststr1:=liststr1+checkedlist1[j];
                           checkNum1:=checkNum1+inttostr(j)+',';
 
                       end
                   else liststr1:=liststr1+uncheckedlist1[j];
 
                   if checklist2[j] then
                       begin
                           liststr2:=liststr2+checkedlist2[j];
                           checkNum2:=checkNum2+inttostr(j)+',';
 
                       end
                   else liststr2:=liststr2+uncheckedlist2[j];
       end;
   RichEdit1.Lines.Add('第'+inttostr((times div 2)+1)+'次投票結果：');
   RichEdit1.Lines.Add('第一組選中序號('+inttostr(num1)+'個):'+checkNum1);
   RichEdit1.Lines.Add('第二組選中序號('+inttostr((10-num1))+'個):'+checkNum2);
 
            htmlbody:=htmlbody+liststr2;
       htmlbody:=htmlbody+'<INPUT TYPE=hidden NAME="CHOICE  2" VALUE="23"><TR bgcolor="#E7E8E3" bordercolor="#FFFFFF"><TD bgcolor="#CCCCCC"><TD ALIGN=center><INPUT name="sub" TYPE=submit VALUE="提交"></TABLE></FORM></BODY></HTML>';
    
end;

把生成的HTML載入Webbrowser，生成網頁
表格 2

procedure TFrmMain.loaDHTML;
var
    URL,v:OleVariant;
    HTMLDocument:ihtmldocument2;
begin
     try
      
        makehtml;
      
     except
         on e:exception do
        //showmessage('出錯！'+e.Message);
        //exit;
     end;
 
    HTMLDocument := (WebBrowser1.Document as IHTMLDocument2);
    v := VarArrayCreate([0, 0], varVariant);
    v[0] := htmlbody; // Here's your HTML string
    HTMLDocument.Write(PSafeArray(TVarData(v).VArray));
    HTMLDocument.Close;  
  
end;

然后模擬點擊網頁的提交按鈕，提交表單數據：
表格 3

procedure TFrmMain.submitForm;
var
      obj:OleVariant;
      doc: ihtmldocument2;
begin
    doc:=(WebBrowser1 .Document as IHTMLDocument2);
        if doc <> nil then
            begin
                //RichEdit1.text:=doc.body.innerText;
                obj:=doc.all.item('sub',0);
                obj.click;
            end;
end;

設置代理服務器：
表格 4

function TFrmcheckproxy.ChangeProxy(const Proxy, Port,ByPass: string; const bEnabled: boolean = True): boolean;
var
  reg: Tregistry;
  info: INTERNET_PROXY_INFO;
  Fproxy:string;
begin
  Result := False;
  FProxy:=Format('%s:%s',[Proxy,Port]);
  reg := Tregistry.Create;
  try
    reg.RootKey := HKEY_CURRENT_USER;
    if reg.OpenKey('/Software/Microsoft/Windows/CurrentVersion/Internet Settings', True) then
    begin
      reg.Writestring('ProxyServer', Fproxy);
      reg.WriteInteger('ProxyEnable', integer(bEnabled));
      info.dwaccessType := INTERNET_OPEN_TYPE_PROXY;
      info.lpszProxy := pchar(proxy);
      info.lpszProxyBypass := pchar(ByPass);
      InternetSetOption(nil, INTERNET_OPTION_PROXY, @info, SizeOf(Info));
      InternetSetOption(nil, INTERNET_OPTION_SETTINGS_CHANGED, nil, 0);
//      InternetSetOption(nil, INTERNET_OPTION_REFRESH, nil, 0);
//      Sendmessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0);
      Result:=True;
    end
  finally
    reg.CloseKey;
    reg.free;
  end;
end;

 
最后界面：
 
圖表 1 主界面（使用了一個界面的第三方包－SUIPackage）
 
圖表 2圖表 1 主界面，同時查看投票過程和結果（使用了一個界面的第三方包－SUIPackage）
 

上一篇：DEPHI發布時免安裝環境

下一篇：深入GDI(圖形設備接口)編程

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
學習交流
熱門圖片

新聞熱點

疑難解答

圖片精選

網友關注

主站蜘蛛池模板： 梅河口市| 嘉鱼县| 揭东县| 全椒县| 运城市| 阜康市| 潮州市| 闸北区| 西乌珠穆沁旗| 乌鲁木齐市| 谷城县| 肇源县| 治县。| 浙江省| 准格尔旗| 青龙| 万载县| 宁南县| 华亭县| 霞浦县| 阿克苏市| 崇阳县| 汉中市| 鄢陵县| 卓资县| 施甸县| 辽中县| 南乐县| 于田县| 龙泉市| 桂平市| 建湖县| 长岛县| 武胜县| 霍林郭勒市| 邵东县| 泌阳县| 彩票| 大足县| 新源县| 兴隆县|