[Duvida enviar mensagem webbrowser.]

Ainda não consegui, estou retomando minhas atividades hoje pra ver se consigo.

[Algoritmo de kruskal HELP.]

Bom pessoa boa noite, comecei a fazer um trabalho da faculdade de grafos, que é pra ler um arquivo .txt contendo uma matriz nesse arquivo e o programa mostrar a arvore minima geradora pelo algoritmo de Kruskal, eu so não consegui fazer até agora essa parte desse algoritmo, achei muito complexo, vou postar aqui a parte do meu codigo onde ler o arquivo, se alguém poder me ajudar agradeço muito.

Program AlgoritmoemGrafos;
uses crt, dos;

var
MAdjacencia : Array [1..100,1..100] of integer; {Matriz de Adjacencia do Grafo}
n,m         : Integer;      {Quantidade de Vertices e de Arestas direcionadas do Grafo}
arquivo     : Text;         {Arquivo texto onde esta o Grafo}
arqok       : Boolean;      {Arquivo encontrado ou não}
nomearquivo : String;       {Nome do arquivo a ser utilizado}
Auxarq      : Char;         {Auxiliar para colocar os dados do arquivo na matriz}
Snumero     : String;       {Numero do arquivo em formato String}
Inumero     : Integer;      {Numero do arquivo em formato inteiro}
I, J        : Integer;      {Auxiliares para varrer a matriz}
erro        : Integer;      {Erro na transformacao de String para Inteiro}


{============ VARIAVEIS DOS ALUNOS =============}





{======= FIM DAS VARIAVEIS DOS ALUNOS ==========}

begin
     textbackground(1);
     clrscr;
     arqok := false;
     while not arqok do         {Verificando a existencia do arquivo}
     begin
          write('Digite o nome do arquivo: ');
          readln (nomearquivo);
          if Fsearch (nomearquivo,'') <> '' then
          begin
               arqok := true;
               writeln('Arquivo localizado com sucesso!');
               readkey;
               clrscr;
          end
          else
          begin
               writeln ('Arquivo inexistente, tente novamente!')
          end;
     end;

     for i := 1 to 100 do
     for j := 1 to 100 do
     MAdjacencia [i,j] := 0;

     writeln('Trabalhos dos alunos: X, Y e Z');
     {Substituir o X, Y e Z pelo nome dos componentes da equipe e excluir esse comentario}
     writeln(' ');

     writeln('Matriz de Adjacencia do Grafo no arquivo:');
     writeln(' ');

     assign (arquivo, nomearquivo);
     reset (arquivo);

     snumero := '';
     i := 1;    {Preenchimento inicial na linha  1 }
     j := 1;    {Preenchimento inicial na coluna 1 }
     m := 0;

     While not eof (arquivo) do         {Preenchimento da Matriz de Adjacencia do Grafo}
     begin

          read(arquivo, auxarq);

          if (auxarq <> ' ') and (auxarq <> chr(13)) and (auxarq <> chr(10)) then
          begin
               snumero := concat (snumero,auxarq);
          end
          else
          begin
               val (snumero,inumero,erro);

               if (erro <> 0) and (auxarq <> chr(10)) then
               begin
                    Writeln('Erro: ', erro,'. Arquivo não possui um grafo');
                    readkey;
                    halt;
               end;

               snumero := '';
               MAdjacencia [i,j] := inumero;

               if inumero <> 0 then m := m + 1; {Definindo a quantidade de Arestas Dirigidas em digrafos}


               if auxarq = ' ' then
               begin
                    write (MAdjacencia [i,j], ' ');
                    j := j + 1;
               end
               else
               begin
                    if (auxarq <> chr(10)) then
                    begin
                         writeln (MAdjacencia [i,j], ' ');
                         i := i + 1;
                         j := 1;
                    end;
               end;
          end;          {do if}
     end;               {do while eof}


          val (snumero,inumero,erro);
          if (erro <> 0) and (auxarq <> chr(10)) then
               begin
                    Writeln('Erro: ', erro,'. Arquivo não possui um grafo');
                    readkey;
                    halt;
               end;
          MAdjacencia [i,j] := inumero;

          if inumero <> 0 then m := m + 1; {Definindo a quantidade de Arestas Dirigidas em digrafos}


     writeln (MAdjacencia [i,j], ' ');
     {m := m div 2; {descomente essa linha para grafos}
     n := i;
     writeln('');
     writeln('');
     writeln('n= ',n, ' e m= ', m);

     close(arquivo);
     readkey;


{=== CODIGODe Kruskal implementar a partir dessa linha ====}



end.

 

[Duvida enviar mensagem webbrowser.]

No campo que escreve a mensagem tem isso nas salas novas

<div id="chatMessageSend" data-joyride="data-joyride" ng-model="text" name="text" bp-textarea="bp-textarea" contenteditable="true" tabindex="1" class="ng-valid ng-dirty"></div>

e no botão enviar tem isso

<a id="sendBtn" ng-click="sendMsg()" send-msg="send-msg" tabindex="7" class="prefix button bold">Enviar</a>

Mas o que eu queria mostrar é que o código funciona, desde que eu clique dentro do campo da mensagem no webbrowser ai o botão que criei clica e envia a mensagem, Mas o problema é que assim não da pois o boot não vai ta clicando dentro do campo de mensagem da pagina pra poder enviar a mensagem, no modelo antigo funcionava perfeitamente, mas nesse novo ta complicado com isso impedindo do meu botão funcionar...

[Duvida enviar mensagem webbrowser.]

Bom dia companheiros, estou com uma dúvida a alguns dias e não consigo resolver, fiz um webbrowser pra acessar o bate papo da uol e mandar mensagens automaticamente(um boot) mas estou enfrentando um problema, pois no botão enviar(enviar a mensagem) ele não envia o que escrevi no edit, e só envia se eu clicar no campo da mensagem dentro da página, sendo que também o campo já é preenchido pelo edit...  (lembrando que esse código funcionava perfeitamente com o modelo antigo das salas da uol, ai como mudaram o modelo das salas agora estou com esse problema...) se alguém poder me ajudar ficarei muito grato.

segue abaixo o código do meu botão enviar...

    webbrowser1.OleObject.Document.All.item('chatMessageSend').innerHTML := edit2.text;
    webbrowser1.OleObject.Document.All.item('chatMessageSend', 0).click;
    webbrowser1.OleObject.Document.All.item('sendBtn', 0).click

;