SMS flood

//===================================
//===== Gambiarra by 4SS4SS1N [HUEBR]
//===== 4SS4SS1N Fake SMS
//===== http://state-of-web.000webhostapp.com/
//===================================

function DownloadArquivo(const AOrigem, ADestino:
String): Boolean;
const BufferSize = 1024;
var
  hSession, hURL: HInternet;
  Buffer: array[1..BufferSize] of Byte;
  BufferLen: DWORD;
  f: File;
  sAppName: string;
begin
  Result   := False;
  sAppName := ExtractFileName(Application.ExeName);
  hSession := InternetOpen(PChar(sAppName),
                           INTERNET_OPEN_TYPE_PRECONFIG,
                           nil, nil, 0);
  try
    hURL := InternetOpenURL(hSession,
                            PChar(AOrigem),
                            nil,0,0,0);
    try
      if Assigned(hURL) then
      begin
        AssignFile(f, ADestino);
        Rewrite(f,1);
        repeat
          InternetReadFile(hURL, @Buffer,
                           SizeOf(Buffer),
                           BufferLen);
          BlockWrite(f, Buffer, BufferLen)
        until BufferLen = 0;
        CloseFile(f);
        Result := True;
      end;
    finally
      InternetCloseHandle(hURL);
    end
  finally
    InternetCloseHandle(hSession);
  end
end;

//=====


function SelectOptionByValue(const ADocument: IDispatch; const AElementID,
  AOptionValue: WideString): Integer;
var
  HTMLDocument: IHTMLDocument3;
  HTMLElement: IHTMLSelectElement;

  function IndexOfValue(const AHTMLElement: IHTMLSelectElement;
    const AValue: WideString): Integer;
  var
    I: Integer;
  begin
    Result := -1;
    for I := 0 to AHTMLElement.length - 1 do
      if (AHTMLElement.item(I, I) as IHTMLOptionElement).value = AValue then
      begin
        Result := I;
        Break;
      end;
  end;

begin
  Result := -1;
  if Supports(ADocument, IID_IHTMLDocument3, HTMLDocument) then
  begin
    if Supports(HTMLDocument.getElementById(AElementID), IID_IHTMLSelectElement,
      HTMLElement) then
    begin
      Result := IndexOfValue(HTMLElement, AOptionValue);
      HTMLElement.selectedIndex := Result;
    end;
  end;
end;

function RetiraSujeiras(Sujeiras, Texto: string): string;
var
i: integer;
begin
Result := '';
if Texto = '' then exit;
for i := 1 to Length(Texto) do
if Pos(Texto[i],Sujeiras)=0 then
Result := Result + Texto[i];
end;

procedure TForm1.ListBox1Click(Sender: TObject);
var
i: integer;
begin
Button1.Click;
Panel3.Visible:=false;
i:=Listbox1.ItemIndex;
Edit1.Text:=Listbox1.Items.Strings[i];
Edit5.text:=Copy(Edit1.Text,(Length(Trim(Edit1.Text))-8),9);

Edit6.Text:=Edit1.Text;
Edit6.text:=RetiraSujeiras('1234567890- ',Edit6.Text);

Edit7.Text:=Edit1.Text;
Edit7.text:=RetiraSujeiras('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz- ',Edit7.Text);
Edit7.Text:=Edit7.Text[1]+Edit7.Text[2];
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Webbrowser1.Silent:=true;
Webbrowser1.DoubleBuffered:=true;
Listbox1.Items.Clear;
Listbox1.Items.LoadFromFile('celulares.txt');
Edit2.text:=ExtractFilePath(Application.ExeName)+'sms.html';
Webbrowser1.Navigate(Edit2.Text);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Webbrowser1.Navigate(Edit2.Text);
Panel3.Visible:=false;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
Index: Integer;
begin
WebBrowser1.OleObject.Document.all.Item('Nome_Remetente', 0).value := Edit3.text;
WebBrowser1.OleObject.Document.all.Item('Numero_Remetente', 0).value := Edit4.text;
WebBrowser1.OleObject.Document.all.Item('Numero_Destinatario', 0).value := Edit5.text;
WebBrowser1.OleObject.Document.all.Item('Mensagem', 0).value := Memo1.text;

if edit6.text='Brasil Telecom' then
begin
Index := SelectOptionByValue(WebBrowser1.Document, 'Operadora', 'BRASILTELECOM');
end;

if edit6.text='Claro' then
begin
Index := SelectOptionByValue(WebBrowser1.Document, 'Operadora', 'CLARO');
end;

if edit6.text='CTBC Telecom' then
begin
Index := SelectOptionByValue(WebBrowser1.Document, 'Operadora', 'CTBC');
end;

if edit6.text='Oi' then
begin
Index := SelectOptionByValue(WebBrowser1.Document, 'Operadora', 'OI');
end;

if edit6.text='Nextel' then
begin
Index := SelectOptionByValue(WebBrowser1.Document, 'Operadora', 'NEXTEL');
end;

if edit6.text='Porto Seguro Conecta' then
begin
Index := SelectOptionByValue(WebBrowser1.Document, 'Operadora', 'CONECTA');
end;

if edit6.text='Sercomtel' then
begin
Index := SelectOptionByValue(WebBrowser1.Document, 'Operadora', 'SERCOMTEL');
end;

if edit6.text='Telemig Celular' then
begin
Index := SelectOptionByValue(WebBrowser1.Document, 'Operadora', 'TELEMIG');
end;

if edit6.text='TIM' then
begin
Index := SelectOptionByValue(WebBrowser1.Document, 'Operadora', 'TIM');
end;

if edit6.text='Vivo' then
begin
Index := SelectOptionByValue(WebBrowser1.Document, 'Operadora', 'VIVO');
end;

//===============

if edit7.text='11' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '11'); end;
if edit7.text='12' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '12'); end;
if edit7.text='13' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '13'); end;
if edit7.text='14' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '14'); end;
if edit7.text='15' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '15'); end;
if edit7.text='16' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '16'); end;
if edit7.text='17' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '17'); end;
if edit7.text='18' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '18'); end;
if edit7.text='19' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '19'); end;
if edit7.text='20' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '20'); end;
if edit7.text='21' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '21'); end;
if edit7.text='22' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '22'); end;
if edit7.text='23' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '23'); end;
if edit7.text='24' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '24'); end;
if edit7.text='25' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '25'); end;
if edit7.text='26' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '26'); end;
if edit7.text='27' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '27'); end;
if edit7.text='28' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '28'); end;
if edit7.text='29' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '29'); end;
if edit7.text='30' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '30'); end;
if edit7.text='31' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '31'); end;
if edit7.text='32' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '32'); end;
if edit7.text='33' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '33'); end;
if edit7.text='34' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '34'); end;
if edit7.text='35' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '35'); end;
if edit7.text='36' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '36'); end;
if edit7.text='37' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '37'); end;
if edit7.text='38' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '38'); end;
if edit7.text='39' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '39'); end;
if edit7.text='40' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '40'); end;
if edit7.text='41' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '41'); end;
if edit7.text='42' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '42'); end;
if edit7.text='43' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '43'); end;
if edit7.text='44' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '44'); end;
if edit7.text='45' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '45'); end;
if edit7.text='46' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '46'); end;
if edit7.text='47' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '47'); end;
if edit7.text='48' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '48'); end;
if edit7.text='49' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '49'); end;
if edit7.text='50' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '50'); end;
if edit7.text='51' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '51'); end;
if edit7.text='52' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '52'); end;
if edit7.text='53' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '53'); end;
if edit7.text='54' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '54'); end;
if edit7.text='55' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '55'); end;
if edit7.text='56' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '56'); end;
if edit7.text='57' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '57'); end;
if edit7.text='58' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '58'); end;
if edit7.text='59' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '59'); end;
if edit7.text='60' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '60'); end;
if edit7.text='61' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '61'); end;
if edit7.text='62' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '62'); end;
if edit7.text='63' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '63'); end;
if edit7.text='64' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '64'); end;
if edit7.text='65' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '65'); end;
if edit7.text='66' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '66'); end;
if edit7.text='67' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '67'); end;
if edit7.text='68' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '68'); end;
if edit7.text='69' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '69'); end;
if edit7.text='70' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '70'); end;
if edit7.text='71' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '71'); end;
if edit7.text='72' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '72'); end;
if edit7.text='73' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '73'); end;
if edit7.text='74' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '74'); end;
if edit7.text='75' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '75'); end;
if edit7.text='76' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '76'); end;
if edit7.text='77' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '77'); end;
if edit7.text='78' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '78'); end;
if edit7.text='79' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '79'); end;
if edit7.text='80' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '80'); end;
if edit7.text='81' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '81'); end;
if edit7.text='82' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '82'); end;
if edit7.text='83' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '83'); end;
if edit7.text='84' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '84'); end;
if edit7.text='85' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '85'); end;
if edit7.text='86' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '86'); end;
if edit7.text='87' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '88'); end;
if edit7.text='88' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '88'); end;
if edit7.text='89' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '89'); end;
if edit7.text='90' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '90'); end;
if edit7.text='91' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '91'); end;
if edit7.text='92' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '92'); end;
if edit7.text='93' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '93'); end;
if edit7.text='94' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '94'); end;
if edit7.text='95' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '95'); end;
if edit7.text='96' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '96'); end;
if edit7.text='97' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '97'); end;
if edit7.text='98' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '98'); end;
if edit7.text='99' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Destinatario', '99'); end;

//===================

if edit7.text='11' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '11'); end;
if edit7.text='12' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '12'); end;
if edit7.text='13' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '13'); end;
if edit7.text='14' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '14'); end;
if edit7.text='15' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '15'); end;
if edit7.text='16' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '16'); end;
if edit7.text='17' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '17'); end;
if edit7.text='18' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '18'); end;
if edit7.text='19' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '19'); end;
if edit7.text='20' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '20'); end;
if edit7.text='21' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '21'); end;
if edit7.text='22' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '22'); end;
if edit7.text='23' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '23'); end;
if edit7.text='24' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '24'); end;
if edit7.text='25' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '25'); end;
if edit7.text='26' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '26'); end;
if edit7.text='27' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '27'); end;
if edit7.text='28' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '28'); end;
if edit7.text='29' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '29'); end;
if edit7.text='30' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '30'); end;
if edit7.text='31' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '31'); end;
if edit7.text='32' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '32'); end;
if edit7.text='33' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '33'); end;
if edit7.text='34' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '34'); end;
if edit7.text='35' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '35'); end;
if edit7.text='36' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '36'); end;
if edit7.text='37' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '37'); end;
if edit7.text='38' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '38'); end;
if edit7.text='39' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '39'); end;
if edit7.text='40' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '40'); end;
if edit7.text='41' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '41'); end;
if edit7.text='42' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '42'); end;
if edit7.text='43' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '43'); end;
if edit7.text='44' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '44'); end;
if edit7.text='45' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '45'); end;
if edit7.text='46' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '46'); end;
if edit7.text='47' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '47'); end;
if edit7.text='48' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '48'); end;
if edit7.text='49' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '49'); end;
if edit7.text='50' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '50'); end;
if edit7.text='51' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '51'); end;
if edit7.text='52' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '52'); end;
if edit7.text='53' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '53'); end;
if edit7.text='54' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '54'); end;
if edit7.text='55' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '55'); end;
if edit7.text='56' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '56'); end;
if edit7.text='57' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '57'); end;
if edit7.text='58' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '58'); end;
if edit7.text='59' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '59'); end;
if edit7.text='60' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '60'); end;
if edit7.text='61' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '61'); end;
if edit7.text='62' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '62'); end;
if edit7.text='63' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '63'); end;
if edit7.text='64' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '64'); end;
if edit7.text='65' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '65'); end;
if edit7.text='66' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '66'); end;
if edit7.text='67' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '67'); end;
if edit7.text='68' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '68'); end;
if edit7.text='69' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '69'); end;
if edit7.text='70' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '70'); end;
if edit7.text='71' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '71'); end;
if edit7.text='72' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '72'); end;
if edit7.text='73' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '73'); end;
if edit7.text='74' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '74'); end;
if edit7.text='75' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '75'); end;
if edit7.text='76' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '76'); end;
if edit7.text='77' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '77'); end;
if edit7.text='78' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '78'); end;
if edit7.text='79' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '79'); end;
if edit7.text='80' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '80'); end;
if edit7.text='81' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '81'); end;
if edit7.text='82' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '82'); end;
if edit7.text='83' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '83'); end;
if edit7.text='84' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '84'); end;
if edit7.text='85' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '85'); end;
if edit7.text='86' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '86'); end;
if edit7.text='87' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '88'); end;
if edit7.text='88' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '88'); end;
if edit7.text='89' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '89'); end;
if edit7.text='90' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '90'); end;
if edit7.text='91' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '91'); end;
if edit7.text='92' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '92'); end;
if edit7.text='93' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '93'); end;
if edit7.text='94' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '94'); end;
if edit7.text='95' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '95'); end;
if edit7.text='96' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '96'); end;
if edit7.text='97' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '97'); end;
if edit7.text='98' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '98'); end;
if edit7.text='99' then begin Index := SelectOptionByValue(WebBrowser1.Document, 'DDD_Remetente', '99'); end;

if Index <> -1 then
//=
  else
//=
end;


procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
Memo1.MaxLength:=100;
end;

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
Edit3.MaxLength:=9;
end;

procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
Edit4.MaxLength:=9;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  vInd: Integer;
  vSource: String;
begin
  for vInd := 0 to WebBrowser1.OleObject.Document.Images.Length - 1 do
  begin
    vSource := WebBrowser1.OleObject.Document.Images.Item(vInd).Src;
    if (vSource <> '') then
    begin
      DownloadArquivo(vSource, 'Imagens\' + 'Imagem' +
IntToStr(vInd) + '.jpg');
    end;
  end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
WebBrowser1.OleObject.Document.all.Item('recaptcha_response_field', 0).value := Edit8.text;
Button5.Click;
Panel2.Visible:=false;
Panel3.Caption:='SMS enviado com sucesso!';
end;

procedure TForm1.Button5Click(Sender: TObject);
var

 Doc: IHTMLDocument2;
 ElementCollection: IHTMLElementCollection;
 HtmlElement: IHTMLElement;
 InputElement:IHTMLInputElement;
 I: Integer;
begin
  Doc := Webbrowser1.Document as IHTMLDocument2;
  ElementCollection := Doc.all;
  for I := 0 to ElementCollection.length - 1 do
  begin
    try
      HtmlElement := ElementCollection.item(I, '') as IHTMLElement;
    except
       continue;
    end;
    if UpperCase(HTMLElement.tagName) = 'INPUT' then
    begin
      InputElement:=HTMLElement as IHTMLInputElement;
      if UpperCase(InputElement.type_) = 'SUBMIT' then
      begin
        HtmlElement.Click;
        Exit;
      end;
    end;
  end;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
WebBrowser1.OleObject.Document.all.Item('envia', 0).Click;
Timer1.Enabled:=true;
Panel3.Visible:=true;
Panel3.Caption:='Digite os caracteres na imagem';
Edit8.Text:='';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled:=false;
Button3.Click;
Image1.Picture.LoadFromFile('Imagens\Imagem2.jpg');
Panel2.Visible:=true;
end;
 Report