Tweet
Montando:
Abra o delphi e vá em Install Packages
Coloque ADD e vá em no
diretório do seu delphi + \Bin\dclsockets70.bpl.
Agora no delphi adicione:
1 label (paleta Standard).
1 Edit (paleta Standard).
2 Botões (paleta Standard).
1 Panel (paleta Standard).
1 ClientSocket (paleta Internet).
Mude o text da Edit para “127.0.0.1″.
Mude o capition da label para “Ip:” o do Botão 1 para “Conectar” e o Botão2 para “Desconectar”.
O capition do panel deixe em branco.
Mude a port do ClientSocket para “12″
Deve estar assim sua form:
Agora clique duas vezes no botão conectar, e coloque o seguinte código:
procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Host := edit1.Text;
ClientSocket1.Active := true;
end;
E no botão desconectar:
procedure TForm1.Button2Click(Sender: TObject);
begin
ClientSocket1.Active := false;
end;
Agora adicione um botão e altere o capition para “Ocultar Relógio” e no código coloque:
procedure TForm1.Button3Click(Sender: TObject);
begin
ClientSocket1.Socket.SendText(‘ocultar’);
end;
Adicione outro botão e altere o capition para “Mostrar Relógio” e no código coloque:
procedure TForm1.Button4Click(Sender: TObject);
begin
ClientSocket1.Socket.SendText(‘mostrar’);
end;
Agora salve tudo em uma pasta e abra:
Adicione um Serversocket (paleta Internet).
Agora abra Events da form1
E clique duas vezes em OnCreate e como codigo coloque:
procedure TForm1.FormCreate(Sender: TObject);
begin
application.ShowMainForm := false;
end;
E No código adicione isso:
function EnDecryptString(StrValue : String; Chave: Word) : String;
var
I: Integer;
OutValue : String;
begin
OutValue := ”;
for I := 1 to Length(StrValue) do
OutValue := OutValue + char(Not(ord(StrValue[I])-Chave));
Result := OutValue;
end;
Cortesia do Dr.Dopearmy disponibilizando de graça um programa pago
Agora baixe o Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar... e abra ele.
Em texto para criptografar coloque “ocultar”
E clique em Criptografar deve formar o seguinte
texto |ˆvwŠy Copie ele.
Volte no Delphi.
Agora no ServerSocket coloque port 12
E Active true. E em events clique das vezes
OnClientRead e coloque o seguinte codigo:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
receber : String;
begin
receber := Socket.ReceiveText;
if receber = EnDecryptString(‘~|xwyŠy’, 236) then
ShowWindow( FindWindowEx(FindWindowEx( FindWindow(‘Shell_TrayWnd’, nil), HWND(0), ‘TrayNotifyWnd’, nil), HWND(0), ‘TrayClockWClass’, nil), Sw_Hide)
~|xwyŠy é a criptografia de “mostrar” Pronto! Agora é só testar.
Source ( Feita para o GH pelo Dr.DopeArmy) Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar...
Gostou ? Comente e Agradeça .Nao seje Lammer.Deu Trabalho Valorize
Vim para Mudar.
Abra o delphi e vá em Install Packages
Coloque ADD e vá em no
diretório do seu delphi + \Bin\dclsockets70.bpl.
Agora no delphi adicione:
1 label (paleta Standard).
1 Edit (paleta Standard).
2 Botões (paleta Standard).
1 Panel (paleta Standard).
1 ClientSocket (paleta Internet).
Mude o text da Edit para “127.0.0.1″.
Mude o capition da label para “Ip:” o do Botão 1 para “Conectar” e o Botão2 para “Desconectar”.
O capition do panel deixe em branco.
Mude a port do ClientSocket para “12″
Deve estar assim sua form:
Agora clique duas vezes no botão conectar, e coloque o seguinte código:
procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Host := edit1.Text;
ClientSocket1.Active := true;
end;
E no botão desconectar:
procedure TForm1.Button2Click(Sender: TObject);
begin
ClientSocket1.Active := false;
end;
Agora adicione um botão e altere o capition para “Ocultar Relógio” e no código coloque:
procedure TForm1.Button3Click(Sender: TObject);
begin
ClientSocket1.Socket.SendText(‘ocultar’);
end;
Adicione outro botão e altere o capition para “Mostrar Relógio” e no código coloque:
procedure TForm1.Button4Click(Sender: TObject);
begin
ClientSocket1.Socket.SendText(‘mostrar’);
end;
Agora salve tudo em uma pasta e abra:
Adicione um Serversocket (paleta Internet).
Agora abra Events da form1
E clique duas vezes em OnCreate e como codigo coloque:
procedure TForm1.FormCreate(Sender: TObject);
begin
application.ShowMainForm := false;
end;
E No código adicione isso:
function EnDecryptString(StrValue : String; Chave: Word) : String;
var
I: Integer;
OutValue : String;
begin
OutValue := ”;
for I := 1 to Length(StrValue) do
OutValue := OutValue + char(Not(ord(StrValue[I])-Chave));
Result := OutValue;
end;
Cortesia do Dr.Dopearmy disponibilizando de graça um programa pago
Agora baixe o Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar... e abra ele.
Em texto para criptografar coloque “ocultar”
E clique em Criptografar deve formar o seguinte
texto |ˆvwŠy Copie ele.
Volte no Delphi.
Agora no ServerSocket coloque port 12
E Active true. E em events clique das vezes
OnClientRead e coloque o seguinte codigo:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
receber : String;
begin
receber := Socket.ReceiveText;
if receber = EnDecryptString(‘~|xwyŠy’, 236) then
ShowWindow( FindWindowEx(FindWindowEx( FindWindow(‘Shell_TrayWnd’, nil), HWND(0), ‘TrayNotifyWnd’, nil), HWND(0), ‘TrayClockWClass’, nil), Sw_Hide)
~|xwyŠy é a criptografia de “mostrar” Pronto! Agora é só testar.
Source ( Feita para o GH pelo Dr.DopeArmy) Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar...
Gostou ? Comente e Agradeça .Nao seje Lammer.Deu Trabalho Valorize Vim para Mudar.
Comment