elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Únete al Grupo Steam elhacker.NET


  Mostrar Temas
Páginas: 1 [2]
11  Programación / Programación General / [Delphi.NET] DaGiMe Explorer by .:WindHack:. en: 30 Mayo 2010, 23:51 pm
Una navegador programado en Delphi Prism (Oxygen) o como me gusta decirle, Delphi.NET.
Usa el típico componente WebBrowser.



Descarga: http://www.box.net/shared/tgff4zrb41

Incluye el código fuente.

- Código:
Código
  1. namespace Reproductor;
  2.  
  3. interface
  4.  
  5. uses
  6.   System.Drawing,
  7.   System.Collections,
  8.   System.Collections.Generic,
  9.   System.Linq,
  10.   System.Windows.Forms,
  11.   System.ComponentModel;
  12.  
  13. type
  14.   MainForm = partial class(System.Windows.Forms.Form)
  15.   private
  16.     method Nav(Address:String);
  17.     method NavFile(FileName:String);
  18.     method Navegador_Navigated(sender: System.Object; e: System.Windows.Forms.WebBrowserNavigatedEventArgs);
  19.     method salirToolStripMenuItem_Click(sender: System.Object; e: System.EventArgs);
  20.     method toolSBack_Click(sender: System.Object; e: System.EventArgs);
  21.     method toolSNext_Click(sender: System.Object; e: System.EventArgs);
  22.     method toolSReload_Click(sender: System.Object; e: System.EventArgs);
  23.     method toolSStop_Click(sender: System.Object; e: System.EventArgs);
  24.     method toolSHome_Click(sender: System.Object; e: System.EventArgs);
  25.     method toolSIr_Click(sender: System.Object; e: System.EventArgs);
  26.     method Direccion_KeyDown(sender: System.Object; e: System.Windows.Forms.KeyEventArgs);
  27.     method Navegador_Navigating(sender: System.Object; e: System.Windows.Forms.WebBrowserNavigatingEventArgs);
  28.     method Navegador_DocumentCompleted(sender: System.Object; e: System.Windows.Forms.WebBrowserDocumentCompletedEventArgs);
  29.     method abrirDirecciónToolStripMenuItem_Click(sender: System.Object; e: System.EventArgs);
  30.     method abrirArchivoToolStripMenuItem_Click(sender: System.Object; e: System.EventArgs);
  31.     method trabajarSinConexiónToolStripMenuItem_Click(sender: System.Object; e: System.EventArgs);
  32.     method pantallaCompletaToolStripMenuItem_Click(sender: System.Object; e: System.EventArgs);
  33.     method MainForm_Load(sender: System.Object; e: System.EventArgs);
  34.     method acercaDeDiGiMeBrowserToolStripMenuItem_Click(sender: System.Object; e: System.EventArgs);
  35.   protected
  36.     method Dispose(disposing: Boolean); override;
  37.   public
  38.     constructor;
  39.   end;
  40.  
  41. implementation
  42.  
  43. {$REGION Construction and Disposition}
  44. constructor MainForm;
  45. begin
  46.   InitializeComponent();
  47. end;
  48.  
  49. method MainForm.Dispose(disposing: Boolean);
  50. begin
  51.   if disposing then begin
  52.     if assigned(components) then
  53.       components.Dispose();
  54.   end;
  55.   inherited Dispose(disposing);
  56. end;
  57. {$ENDREGION}
  58.  
  59. method MainForm.Nav(Address:String);
  60. begin  
  61.  if Not Address.StartsWith('http://') And 
  62.       Not Address.StartsWith('https://') then
  63.       Address := 'http://' + Address;
  64.   try
  65.     Navegador.Navigate(New Uri(Address));
  66.   except
  67.   on E:Exception do
  68.      Navegador.DocumentText := '<h1><span style="font-weight: bold; font-family: Calibri;"><img alt="" src="http://cdn.iconfinder.net/data/icons/solarsystem/PNG/128x128/earth.png">&nbsp;</span></h1><h1><span style="font-weight: bold; font-family: Calibri;">Un error ha ocurrido... :(</span></h1>___________________________<span style="font-weight: bold; font-family: Calibri;">DaGiMe Explorer<br> v1.0 <br> Desarrollado por <a href="http://daw-labs.com">DaW - Labs</a><br></span>';
  69.   end;
  70. end;
  71.  
  72. method MainForm.NavFile(FileName: String);
  73. begin
  74.   if Not FileName.StartsWith('file:///') then
  75.      FileName := 'file:///'+FileName;
  76.  
  77.      Navegador.Navigate(New Uri(FileName));
  78. end;
  79.  
  80. method MainForm.Navegador_Navigated(sender: System.Object; e: System.Windows.Forms.WebBrowserNavigatedEventArgs);
  81. begin
  82.   Direccion.Text := Navegador.Url.AbsoluteUri;
  83.   lbEstado.Text := Navegador.StatusText;
  84.   Text := Navegador.Document.Title + ' - DaGiMe Explorer';
  85. end;
  86.  
  87. method MainForm.salirToolStripMenuItem_Click(sender: System.Object; e: System.EventArgs);
  88. begin
  89.   Close();
  90. end;
  91.  
  92. method MainForm.toolSBack_Click(sender: System.Object; e: System.EventArgs);
  93. begin
  94.   if Navegador.CanGoBack = True then
  95.      Navegador.GoBack;
  96. end;
  97.  
  98. method MainForm.toolSNext_Click(sender: System.Object; e: System.EventArgs);
  99. begin
  100.   if Navegador.CanGoForward = True then
  101.      Navegador.GoForward;
  102. end;
  103.  
  104. method MainForm.toolSReload_Click(sender: System.Object; e: System.EventArgs);
  105. begin
  106.   Navegador.Refresh();
  107. end;
  108.  
  109. method MainForm.toolSStop_Click(sender: System.Object; e: System.EventArgs);
  110. begin
  111.   Navegador.Stop();
  112. end;
  113.  
  114. method MainForm.toolSHome_Click(sender: System.Object; e: System.EventArgs);
  115. begin
  116.   Nav(toolsHome.ToolTipText);
  117. end;
  118.  
  119. method MainForm.toolSIr_Click(sender: System.Object; e: System.EventArgs);
  120. begin
  121.   Nav(Direccion.Text);
  122. end;
  123.  
  124. method MainForm.Direccion_KeyDown(sender: System.Object; e: System.Windows.Forms.KeyEventArgs);
  125. begin
  126.   if (E.KeyCode = Keys.Enter) then
  127.      Nav(Direccion.Text);
  128. end;
  129.  
  130. method MainForm.Navegador_Navigating(sender: System.Object; e: System.Windows.Forms.WebBrowserNavigatingEventArgs);
  131. begin
  132.   lbEstado.Text := Navegador.StatusText;
  133. end;
  134.  
  135. method MainForm.Navegador_DocumentCompleted(sender: System.Object; e: System.Windows.Forms.WebBrowserDocumentCompletedEventArgs);
  136. begin
  137.   lbEstado.Text := 'Página cargada con éxito';
  138. end;
  139.  
  140. method MainForm.abrirDirecciónToolStripMenuItem_Click(sender: System.Object; e: System.EventArgs);
  141. begin
  142.   Direccion.Focus;
  143.   Direccion.SelectAll;
  144. end;
  145.  
  146. method MainForm.abrirArchivoToolStripMenuItem_Click(sender: System.Object; e: System.EventArgs);
  147. begin
  148.   if OpenFile.ShowDialog = DialogResult.OK then
  149.      NavFile(OpenFile.FileName);
  150. end;
  151.  
  152.  
  153. method MainForm.trabajarSinConexiónToolStripMenuItem_Click(sender: System.Object; e: System.EventArgs);
  154. begin
  155.   Navegador.ShowSaveAsDialog
  156. end;
  157.  
  158. method MainForm.pantallaCompletaToolStripMenuItem_Click(sender: System.Object; e: System.EventArgs);
  159. begin
  160.  
  161. end;
  162.  
  163. method MainForm.MainForm_Load(sender: System.Object; e: System.EventArgs);
  164. begin
  165.   Nav(ToolSHome.ToolTipText);
  166. end;
  167.  
  168. method MainForm.acercaDeDiGiMeBrowserToolStripMenuItem_Click(sender: System.Object; e: System.EventArgs);
  169. var
  170.   F:Form;
  171. begin
  172.   F := New DaGiMeF;
  173.   F.Show;
  174. end;
  175.  
  176. end.
12  Programación / Scripting / DaW Command - ¡Comando para Batch! en: 17 Mayo 2010, 04:47 am


DaW Command como su nombre lo indica, es un comando para el intérprete de Windows® CMD.
Para usarlo simplemente debe copiar el archivo DaW-Command.exe en la carpeta System32 y listo.

- Opciones
-?: Muestra la ayuda.
-m: Muestra un mensaje. Modo de uso: DaW-Command -m Mensaje
-mA: Muestra un MessageBox. Modo de uso: DaW-Command -mA Mensaje
-h: Muestra la hora.
-c: Copia un archivo. Modo de uso: DaW-Command -c RutaOrigen RutaDestino
-e: Obtiene el nombre del Computador.
-u: Obtiene el nombre de usuario.
-f: Muestra la fecha.
-n: Crea un archivo. Modo de uso: DaW-Command -n RutaYNombreArchivo
-iX: Convierte un número a Hexadecimal. Modo de uso: DaW-Command -iX Número
-hI: Convierte una cadena Hexadecimal a Número. Modo de uso: DaW-Command -hI Cadena
-sR Obtiene la raíz cuadrada de un número. Modo de uso: DaW-Command -sR Número
-A: Convierte una cadena a ASCII (Extendido). Modo de Uso: DaW-Command -A Cadena Separador (Opcional)
-DaW: Visita el sitio web de DaW - Labs.

- Vídeo de demostración
http://www.youtube.com/watch?v=wZw76ZtObgk

- Descargar


Sitio Oficial: http://daw-labs.com
13  Programación / Programación C/C++ / Obtener el nombre de PC en: 16 Mayo 2010, 21:01 pm
Ya había programado esta función en Delphi, así que me decidí a traducirla a C/C++.

Código
  1. /* DaW - Labs - http://daw-labs.com */
  2.  
  3. #include <windows.h>
  4.  
  5. int main(int argc, CHAR* argv[])
  6. {
  7. 	char Buffer[MAX_COMPUTERNAME_LENGTH + 1];
  8. 	DWORD nSize = sizeof(Buffer);
  9. 	if (GetComputerName(Buffer,&nSize))
  10. 		{
  11. 			MessageBox(0,Buffer,"Nombre de PC",MB_OK | MB_ICONINFORMATION);
  12. 		}
  13. 	return 0;
14  Programación / Programación C/C++ / Bloc de notas en C++ Builder by DaW - Labs en: 15 Mayo 2010, 05:54 am
Estaba aburrido, no tenía nada que hacer, así que me puse a programar algo en C++.

Éste es un bloc de notas sencillo, pero con las funcionalidades esenciales. Perdonen si hay errores o si el código no está completamente optimizado, pues no programo mucho en este lenguaje.

Espero sirva de base o mejor dicho de ejemplo.



Programado en: Borland C++ Builder

Descargar: Box.net – Notepad(C++).rar

Código:

Código
  1. //---------------------------------------------------------------------------//
  2. //---------------------------------------------------------------------------//
  3. //-------------------- Notepad(C++) by DaW - Labs  ----------------------//
  4. //---------------------------------------------------------------------------//
  5. //   Éste es un bloc de notas programado en C++ Builder.
  6. //   Si deseas compartirlo o mejorarlo puedes hacerlo, pero respeta la
  7. //   fuente y el autor del mismo.
  8. //   Desarrollado por DaW - Labs®
  9. //--------------------------------------------------------------------------//
  10.  
  11. #include <vcl.h>
  12. #include <clipbrd.hpp>
  13. #pragma hdrstop
  14.  
  15. #include "uMain.h"
  16. //---------------------------------------------------------------------------
  17. #pragma package(smart_init)
  18. #pragma resource "*.dfm"
  19. TfrmMain *frmMain;
  20. UnicodeString FileName;
  21.  
  22. const
  23. 	UnicodeString Espacio = " - ";
  24. 	UnicodeString App = "Notepad (C++) ";
  25. 	UnicodeString NuevoTexto = "Sin_título.txt";
  26. //---------------------------------------------------------------------------
  27. __fastcall TfrmMain::TfrmMain(TComponent* Owner)
  28. 	: TForm(Owner)
  29. {
  30. }
  31. //---------------------------------------------------------------------------
  32. void __fastcall TfrmMain::FormCreate(TObject *Sender)
  33. {
  34. 	MemoEditor->Align = alClient;
  35. }
  36. //---------------------------------------------------------------------------
  37. void __fastcall TfrmMain::Abrir1Click(TObject *Sender)
  38. {
  39. 	if (OpenDialog->Execute() == True) {
  40. 		{
  41. 			FileName = OpenDialog->FileName;
  42. 			MemoEditor->Lines->LoadFromFile(FileName);
  43. 			Caption = ExtractFileName(FileName)+Espacio+App;
  44. 			MemoEditor->Modified = False;
  45. 		}
  46. 	}
  47. }
  48. //---------------------------------------------------------------------------
  49. void __fastcall TfrmMain::Guardar1Click(TObject *Sender)
  50. {
  51. 	if (FileName == "")
  52. 		{
  53. 			if (SaveDialog->Execute())
  54. 			  {
  55. 					FileName = SaveDialog->FileName;
  56. 					MemoEditor->Lines->SaveToFile(FileName);
  57. 					Caption = ExtractFileName(FileName)+Espacio+App;
  58. 					MemoEditor->Modified = False;
  59. 			  }
  60. 		}
  61. 			else
  62. 				{
  63. 					MemoEditor->Lines->SaveToFile(FileName);
  64. 					Caption = ExtractFileName(FileName)+Espacio+App;
  65. 					MemoEditor->Modified = False;
  66. 				}
  67. }
  68.  
  69. //---------------------------------------------------------------------------
  70. void __fastcall TfrmMain::Nuevo1Click(TObject *Sender)
  71. {
  72. 	if (MemoEditor->Modified == False)
  73. 		{
  74. 			MemoEditor->Clear();
  75. 			FileName = "";
  76. 			MemoEditor->Modified = False;
  77. 			Caption = NuevoTexto+Espacio+App;
  78. 		}
  79. 		else
  80. 			{
  81. 				switch (MessageBox(Handle,"¿Desea guardar los cambios?","Información", MB_YESNO | MB_ICONQUESTION))
  82. 					{
  83. 						case IDYES:
  84. 								Guardar1Click(Sender);
  85. 						break;
  86.  
  87. 						case IDNO:
  88. 								MemoEditor->Clear();
  89. 								FileName = "";
  90. 								MemoEditor->Modified = False;
  91. 								Caption = NuevoTexto+Espacio+App;
  92. 						break;
  93. 				   }
  94. 			}
  95. }
  96. //---------------------------------------------------------------------------
  97. void __fastcall TfrmMain::Guardarcomo1Click(TObject *Sender)
  98. {
  99. 	if (SaveDialog->Execute())
  100. 		{
  101. 			FileName = SaveDialog->FileName;
  102. 			MemoEditor->Lines->SaveToFile(FileName);
  103. 			Caption = ExtractFileName(FileName)+Espacio+App;
  104. 			MemoEditor->Modified = False;
  105. 		}
  106. }
  107. //---------------------------------------------------------------------------
  108. void __fastcall TfrmMain::Salir1Click(TObject *Sender)
  109. {
  110. 	Application->Terminate();
  111. }
  112. //---------------------------------------------------------------------------
  113. void __fastcall TfrmMain::EditCut1Execute(TObject *Sender)
  114. {
  115. 	MemoEditor->CutToClipboard();
  116. }
  117. //---------------------------------------------------------------------------
  118. void __fastcall TfrmMain::EditCopy1Execute(TObject *Sender)
  119. {
  120. 	MemoEditor->CopyToClipboard();
  121. }
  122. //---------------------------------------------------------------------------
  123. void __fastcall TfrmMain::EditPaste1Execute(TObject *Sender)
  124. {
  125. 	MemoEditor->PasteFromClipboard();
  126. }
  127. //---------------------------------------------------------------------------
  128. void __fastcall TfrmMain::EditSelectAll1Execute(TObject *Sender)
  129. {
  130. 	MemoEditor->SelectAll();
  131. }
  132. //---------------------------------------------------------------------------
  133. void __fastcall TfrmMain::EditUndo1Execute(TObject *Sender)
  134. {
  135. 	MemoEditor->Undo();
  136. }
  137. //---------------------------------------------------------------------------
  138. void __fastcall TfrmMain::EditDelete1Execute(TObject *Sender)
  139. {
  140. 	MemoEditor->ClearSelection();
  141. }
  142. //---------------------------------------------------------------------------
  143. void __fastcall TfrmMain::EditCopy1Update(TObject *Sender)
  144. {
  145. 	EditCopy1->Enabled = MemoEditor->SelLength > 0;
  146. }
  147. //---------------------------------------------------------------------------
  148. void __fastcall TfrmMain::EditPaste1Update(TObject *Sender)
  149. {
  150. 	EditPaste1->Enabled = Clipboard()->HasFormat(CF_TEXT);
  151. }
  152. //---------------------------------------------------------------------------
  153. void __fastcall TfrmMain::EditUndo1Update(TObject *Sender)
  154. {
  155. 	EditUndo1->Enabled = MemoEditor->CanUndo;
  156. }
  157. //---------------------------------------------------------------------------
  158. void __fastcall TfrmMain::FuenteClick(TObject *Sender)
  159. {
  160. 	FontDialog->Font->Assign(MemoEditor->Font);
  161. 		if (FontDialog->Execute())
  162. 			{
  163. 				MemoEditor->Font->Assign(FontDialog->Font);
  164. 			}
  165. }
  166. //---------------------------------------------------------------------------
  167.  

Respeten la fuente y el autor (DaW - Labs).
15  Informática / Software / DaW Ultimate Notepad - ¡Pruébalo! en: 14 Mayo 2010, 17:01 pm


El DaW Ultimate Notepad es un editor de texto desarrollado por el equipo de DaW – Labs para  plataformas Microsoft Windows®.

En esta versión se ha implementado un nuevo formato llamado DaW Text File (.dxt). Además se ha mejorado tanto su interfaz, como su correcto funcionamiento.

- Características
  • Soporte de arrastrar/soltar archivos.
  • Completa funcionalidad en Windows Vista/7®.
       
  • Formato para insertar fecha.
  • Buscar y reemplazar texto en el archivo.
  • Nuevo formato DXT.
       
  • Transparencia de aplicación.
  • Siempre visible.
- Vídeo de demostración
http://www.youtube.com/watch?v=_TLiOMD2UuA

- Descargar


Sitio Oficial: http://daw-labs.com
16  Informática / Software / DaW vContacts en: 1 Mayo 2010, 04:20 am


El DaW vContacts es un gestor de contactos desarrollado por el equipo de DaW – Labs para  plataformas Microsoft Windows®.

El gestor principalmente ha sido desarrollado para crear una base de datos en la cual podrás tener un control más organizado de tus contactos, y así en el momento oportuno exportarlos e importarlos a clientes de correo electrónico que permitan el manejo de vCard.

- Capturas de Pantalla




- Descargar
Páginas: 1 [2]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines