Ir para conteúdo
Fórum Script Brasil

soluvel

Membros
  • Total de itens

    24
  • Registro em

  • Última visita

Sobre soluvel

soluvel's Achievements

0

Reputação

  1. bom seguinte..... existe um site www.digshop.com.br nesse site exite varias apostilas para concursos.... onde voce baixa um demo que contem os aquivos... e depois de 2 dias voce tem que pagar para receber o serial do programa.... o negocio é que os aquivos de dados dos textos do programa então em extenção .tkl e .tree e assim exemplo: apostila português...... na pasta vai ter um arquivo na extenção .tree e varios arquivos na extenção .tkl...... esses arquivos tkl estão numeradors de forma incerta, tipow: 01.tkl , 17.tkl , 256.tkl , etc foto: Redução da imagem: 58% do seu tamanho original [ 1157 x 623 ] alguém sabe como eu posso ler esses arquivos? ou alguma forma de mudar a configuração, com o delphi, do programa para pode tb abrir em arquivos de texto? qualquer dica é valida... orbrigado...
  2. bom seguinte..... existe um site www.digshop.com.br nesse site exite varias apostilas para concursos.... onde voce baixa um demo que contem os aquivos... e depois de 2 dias voce tem que pagar para receber o serial do programa.... o negocio é que os aquivos de dados dos textos do programa então em extenção .tkl e .tree e assim exemplo: apostila português...... na pasta vai ter um arquivo na extenção .tree e varios arquivos na extenção .tkl...... esses arquivos tkl estão numeradors de forma incerta, tipow: 01.tkl , 17.tkl , 256.tkl , etc foto: alguém sabe como eu posso ler esses arquivos? ou alguma forma de mudar a configuração do programa para pode tb abrir em arquivos de texto? qualquer dica é valida... orbrigado...
  3. fala pessoal eu to precisando de um codigo.... eu sei que não ajudo muito o forum , pos sou novato em delphi mas quando tiver mais conhecimento eu ajudo o forum... o codigo e o seguinte: ele precisa mandar de "tanto em tanto tempo", uma pasta do meu computador para o meu e-mail anexada. alguém sabe como eu posso fazer isso?? vlw brigado
  4. seguinte eu quero que a cada meia hora o programa faça 63 funçoes diferentes uma da outra... então pus lar no time o valor de 1800000 dentro do timer eu puz as 63 funções e botei um botaoa para ativar e desativar o time...... mas o seguite as funçoes são executadas muito rapidamente e o computador não le direito, eu xeguei a conclusão de que eu teria que fazer um timer pra cada função e mais outro time para cada função ativando cada uma......... o que seria muito trabalho e um codigo muito grande...... alguém sabe alguma forma de facilitar isso? OBS: o tempo de uma função pra outra pode ser de 0,3 ou 0,2 segundos , um delay pequeno.... o que não pode e tudo de uma vez so, entende?! vlw
  5. soluvel

    Click do Mouse

    achei bastante coisa util nesses topicos........ mais eu não estou conseguindo usar o comando setmousepos(x,y); ajuda? vlw obs: consegui achar a cordenada da tela
  6. soluvel

    Click do Mouse

    que dizer que o aplicativo criado no delphi, vai ter um botao que quando eu clicar automaticamente executa a função do mause: clicar numa cordenada x y da tela? que dizer que se eu usar apenas o evento de presionamento, o mouse fica presionado direto? para isso eu tenho tambem que por o evento de soltar o botao? Qual a finalidade ??? abraço jogo ^^ e que eu preciso que o value de um codigo seja mudado em um determinado tempo.. obs: 1-como que eu faço para saber as cordenadas da tela do meu computador?Existe algum programa? 2-como seria tambem os comandos de click com o butao diteito do mouse? vlw
  7. como que eu faço para simular o click do mouse numa cordenada x y na tela do computador??/ quais os comandos? como que eu faço para simular o click do mouse so que presionado? e como que eu faço para soltar o click depois que o mouse presionado já xegou no destino? perguntas adicionais..... com o cheat engine da para catar codigos nos programas em execução e alterar os values............................... como que eu faço um programa que entra em um determinado codigo de um outro programa e muda e desmuda o value , de acordo com o que eu programar? vlw pessoal brigadão!!!
  8. não e um arquivo com extenção .msa serve para fazer um programa funcionar
  9. isso pode ser considerado criptografia? < mythil.tga h „¾ö½Ê`¿½øôF=ìn*¿ˆÕ<¿k€æ½‡[É=ë[^?„¾ö½Ê`¿½þŸœ>não.¿ý0¿ ,|>‡[É=T>Šk¾`¢J»eí¢>ƒ7w¿Éþ±:Bö„> éÄ=uþ–½¬kݽþŸœ>ž¾±è{¿¾=4ì>T>vþ–½Ê`¿½O¬>á¾ÃF¿·å?2ì> Ò2=7§½½`¢J»˜´>N|¿åÛݼY?+>A> vþ–½¥¶²=O¬>µ!ܾU%B?qÔú>2ì> Ò2=„¾ö½¥¶²=þŸœ>E‰;¿)Ä*?ÿÚ >‡[É=T>Šk¾ ¢J»´‰=ƒ7w¿7²ºBö„¾ Þbg?vþ–½Ê`¿½˜ø’<:A³¾ÓS¿ýËà¾2ì>àÒt?uþ–½¬kݽøôF=®‚ö½(q}¿Xr–½4ì>ë[^?Ÿã¤=¬kݽþŸœ>°‚ö=(q}¿Pr–=ó@?T>Ÿã¤=Ê`¿½O¬>=A³>ÓS¿ Ìà>ó@? Ò2=eŒË=`¢J»˜´>M|?äÛÝ< Y?w°O? Ÿã¤=¥¶²=O¬>.c>ð–V?Ï ÿ>ó@? Ò2=uþ–½†ÁÐ=þŸœ>ž¾°è{?¾=4ì>T>„¾ö½§¶²=üôF=¿R¿³„A?ºóO¾‡[É=ë[^?:§½½ ¢J» 1;M|¿üÛÝ<Y¿'>A> €?Ÿã¤=Ê`¿½˜ø’<á>ÆF¿¶å¿ó@?àÒt?Ÿã¤=¬kݽøôF=ž>°è{¿¾½ó@?ë[^?ÖQ>Ê`¿½þŸœ>ìn*?ˆÕ<¿g€æ=Ôf?T>^!>`¢J»fí¢>ƒ7w?à ²ºCö„> €?éÄ=ÖQ>¥¶²=þŸœ>¿R?²„A?½óO>Ôf?T>Ÿã¤=†ÁÐ=þŸœ>§‚ö='q}?Wr–=ó@?T>uþ–½ˆÁÐ=üôF=¤‚ö½)q}?Gr–½4ì>ë[^?vþ–½§¶²= ø’<.c¾ô–V?Ç ÿ¾2ì>àÒt?bŒË= ¢J» 1;N|?ÆÛݼY¿v°O? €?ÖQ>Ê`¿½øôF= não.?ÿ0¿ ,|¾Ôf?ë[^?^!> ¢J»¸‰=ƒ7w?+²:Bö„¾ €?Ýbg?ÖQ>§¶²=üôF=D‰;?*Ä*?÷Ú ¾Ôf?ë[^?Ÿã¤=ˆÁÐ=üôF=ž>°è{?¾½ó@?ë[^?Ÿã¤=§¶²= ø’<²!Ü>Y%B?gÔú¾ó@?àÒt? se for como que fsso pra ler coisas desse tipow? vlw...
  10. mais assim nesse codigo que voce boto, tem parada de por texto no edit.... e o que eu quero e tipow um so que fique apertando sem para o insert meu codigo fico assim unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Timer1: TTimer; Button1: TButton; procedure Timer1Timer(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Timer1Timer(Sender: TObject); begin keybd_event ( VK_INSERT, 0, 0, 0 ); end; procedure TForm1.Button1Click(Sender: TObject); begin Timer1.Enabled := True; end; end. lembrando que eu usei esse mesmo codigo com a tecla 'enter' 'i' e 'backspace' mas so com o 'insert' que não ta funcionando, o comando so acontece uma vez e não de meio em meio segundo como os outros.. vlw abraço
  11. vlw mais aew... deu erro no edit1.SetFocus
  12. a pera aew... que dizer que eu tb tenho que por o numero de vezes que a tecla vai ser apertada?? no caso se eu quisesse que a tecla insert ficasse apertando... mil vezes por meio em meio segundo, ia ficar mais o menos assim: var Form1: TForm1; cont : integer = 0; implementation {$R *.DFM} procedure TForm1.Timer1Timer(Sender: TObject); begin keybd_event ( VK_INSERT, 0, 0, 0 ); cont := cont + 1; end; procedure TForm1.Button1Click(Sender: TObject); begin Timer1.Enabled := true; edit1.SetFocus; end; procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key = #45 then Edit1.Text := '1000 ' + inttostr(cont); end; ??? e outra coisa esse codigo e pra por dentro do relogio?
  13. bom pessoal eu to tendo alguns problemas com tecla... eu fiz com que omeu programa ficasse apertando a tecla "i" "enter" "backspace" de meio a meio segundo quando eu clicava no botao de ativar o comando em cada um deles so que tive problemas com a tecla insert, ela so funcionava uma vez.... alem disso eu testei tb com a tecla "caps lock", "scroll lock", etc e tb so funcionava uma vez............... já com a "delete" eu consegui que ela fica-se apertando de meio em meio segundo tem algum problema com essas teclas?? ou eu usei errado para o "i" "enter" "backspace" "delete"eu usei : keybd_event ( 8, 0, 0, 0 ); keybd_event ( 13, 0, 0, 0 ); keybd_event ( 73, 0, 0, 0 ); keybd_event ( VK_DELETE, 0, 0, 0 ); já para o "capslock" e o 'Insert' eu usei: keybd_event ( VK_CAPITAL, 0, 0, 0 ); keybd_event ( VK_INSERT, 0, 0, 0 ); e keybd_event ( 45, 0, 0, 0 ); keybd_event ( 20, 0, 0, 0 ); alguém pode me ajuda?
  14. eu queria fazer um programa que aperta a tecla insert a cada meio segundo abri um Ttimer no form.... no timer eu puz : 500 no onTimer eu puz: keybd_event(VK_INSERT, 0, 0, 0); no anabled eu puz true... mais so que o delphi não le esse comando o que que eu faço? ta errado?
×
×
  • Criar Novo...