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

 

 


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


  Mostrar Temas
Páginas: 1 ... 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 [59] 60 61 62 63 64 65 66
581  Programación / Programación Visual Basic / Manual Puerto serie con PIC16F84A bajo VC++ y VB en: 11 Marzo 2009, 18:07 pm
Hola:

http://foro.elhacker.net/electronica/manual_puerto_serie_con_pic16f84a_bajo_vc_y_vb-t248253.0.html


Saludo.
582  Informática / Electrónica / Manual Puerto serie con PIC16F84A bajo VC++ y VB en: 11 Marzo 2009, 18:06 pm
[size=18]Manual Puerto serie con PIC16F84A bajo Visual C++ y Visual Basic[/size]

Presento este manual en PDF para el manejo del puerto serie mediante el microcontrolador PIC16F84A bajo Visual C++ y Visual Basic.

http://www.abcdatos.com/tutoriales/tutorial/v12.html

Un cordial saludo.
583  Programación / .NET (C#, VB.NET, ASP) / Visual Web Developer en: 8 Marzo 2009, 14:52 pm
Hola:

He hecho manuales en PDF sobre el puerto serie sobre Visual C#, Visual C++ y Visual Basic con el serialPort.

Me gustaría saber si en el Visual Web Developer tiene el componente serialPort para poder manejar el puerto serie mediante vía web ya que puedo usar el C# para programarlo.

Descarga Visual Web Developer Español

Un cordial saludo.
584  Programación / Programación Visual Basic / Manual de prueba VC++ y VB sobre RS232 en: 28 Febrero 2009, 19:44 pm
Hola:

Estoy haciendo la continuación del manual sobre Visual C# de la parte de MonoDevelop 1 bajo Linux, por otro lado algo de Visual C++ y Visual Basic.

El único código funcional es el VC++, el VB funciona aunque no está publicado porque está hecho a la chapuza. Cuando lo haga seriamente lo publico en el manual. Si alguien quiere ese código ya, me lo dicen y lo pongo aquí, funciona, pero no es el adecuado, hay otro método que estoy averiguando en hacerlo más cómodo y con menos código.

El manual no está acabado, sólo verán su estilo a ver si les gusta y yo mismo ver sus sugerencias.

DESCARGAR Manual PDF

Un cordial saludo.
585  Programación / .NET (C#, VB.NET, ASP) / Activar un comando al cerrar la aplicación. en: 24 Febrero 2009, 18:34 pm
Hola:

Tengo un código hecho con Visual C#  Express. Se trata de que uso el puerto serie, si pulso un botón dejo la comunicación activa, si cierro el programa principal, el dato enviado por el puerto serie que lleva hasta un PIC16F84A está activo, antes de cerrar el programa debo pulsar el otro botón para desactivar el PIC por el puerto serie. Me gustaría saber si hay una posibilidad de que se cuando cierre la aplicación, envíe un comando del mismo botón que hace que se desactive el PIC. Espero averiguar o al menos saber si existe hacer esa posibilidad.

Código
  1.            byte[] mBuffer = new byte[1];
  2.            mBuffer[0] = 0x20; //ASCII letra "Espacio".
  3.            serialPort1.Write(mBuffer, 0, mBuffer.Length);

Un cordial saludo.
586  Programación / .NET (C#, VB.NET, ASP) / Puerto serie RS232 en: 23 Febrero 2009, 21:39 pm
Hola:

Estoy con MonoDevelop con el openSUSE 11.1. Mirando esta web http://www.mono-project.com/HowToSystemIOPorts quiero configurar el puerto serie como a mi me de la gana.

Lo he puesto así:

Código
  1. mySerial new SerialPort("/dev/ttyS0", 9600, None, 8, Two);

La otra manera con comillas así:

Código
  1. mySerial new SerialPort("/dev/ttyS0", 9600, "None", 8, "Two");

Código completo:

Código
  1. // MainWindow.cs created with MonoDevelop
  2. // User: metaconta at 17:46 23/02/2009
  3. //
  4. // To change standard headers go to Edit->Preferences->Coding->Standard Headers
  5. //
  6. using System;
  7. using Gtk;
  8. using System.IO.Ports;
  9.  
  10. public partial class MainWindow: Gtk.Window
  11. {
  12. public MainWindow (): base (Gtk.WindowType.Toplevel)
  13. {
  14. Build ();
  15. }
  16.  
  17. protected void OnDeleteEvent (object sender, DeleteEventArgs a)
  18. {
  19. Application.Quit ();
  20. a.RetVal = true;
  21. }
  22.  
  23. protected virtual void OnButton1Clicked (object sender, System.EventArgs e)
  24. {
  25. mySerial new SerialPort("/dev/ttyS0", 9600, None, 8, Two);
  26. }
  27. }

Me da error en la línea 25. ¿Qué puede ser?

Estoy intentando pasar este código de Visual C# a Mono, puedes ver el código en las páginas 153 y 154 en este manual en PDF.

http://www.abcdatos.com/tutoriales/tutorial/z9521.html

Saludos.

EDITO:
He logrado abrir el puerto pero no he sido enviar el código al puerto serie.
Código
  1. // MainWindow.cs created with MonoDevelop
  2. // User: metaconta at 17:46 23/02/2009
  3. //
  4. // To change standard headers go to Edit->Preferences->Coding->Standard Headers
  5. //
  6. using System;
  7. using Gtk;
  8. using System.IO.Ports;
  9.  
  10. public partial class MainWindow: Gtk.Window
  11. {
  12. private SerialPort mySerial;
  13.  
  14. public MainWindow (): base (Gtk.WindowType.Toplevel)
  15. {
  16. Build ();
  17. }
  18.  
  19. protected void OnDeleteEvent (object sender, DeleteEventArgs a)
  20. {
  21. Application.Quit ();
  22. a.RetVal = true;
  23. }
  24.  
  25. protected virtual void OnButton1Clicked (object sender, System.EventArgs e)
  26. {
  27. mySerial = new SerialPort("/dev/ttyS0", 9600, Parity.None, 8, StopBits.Two);
  28.  
  29. if(mySerial == null) return;
  30.  
  31. mySerial.Open();
  32.  
  33. if(!mySerial.IsOpen)
  34. {
  35. label1.Text = "Error abriendo";
  36. mySerial.Dispose();
  37. return;
  38. }
  39.  
  40. byte[] buffer = new byte[1];
  41. buffer[0] = 0x74;
  42. mySerial.Write(buffer, 0, 1);
  43.  
  44. try
  45. {
  46. mySerial.Write(buffer, 0, 1);
  47. }
  48. catch(Exception ex)
  49. {
  50. //label1.Text = ex.Message;// + " " + ex.StackTrace;
  51. mySerial.Close();
  52. mySerial.Dispose();
  53. return;
  54. }
  55.  
  56. mySerial.Close();
  57. }
  58. }

Un cordial saludo.
587  Programación / .NET (C#, VB.NET, ASP) / DE Visual C++ a Visual C#... en: 10 Febrero 2009, 23:00 pm
Hola:

Intentando pasar de VC# a VC++ esta parte que parece que no sirve.

Código
  1. 1 using System;
  2. 2 using System.Collections.Generic;
  3. 3 using System.ComponentModel;
  4. 4 using System.Data;
  5. 5 using System.Drawing;
  6. 6 using System.Linq;
  7. 7 using System.Text;
  8. 8 using System.Windows.Forms;
  9. 9 using System.IO.Ports;
  10. 10
  11. 11 namespace PicRS232
  12. 12 {
  13. 13    public partial class Form1_Principal : Form
  14. 14    {
  15. 15        // Utilizaremos un string como buffer de recepcion
  16. 16        string Recibidos;
  17. 17        public Form1_Principal()
  18. 18        {
  19. 19            InitializeComponent();
  20. 20            // Abrir puerto mientra se ejecute la aplicación
  21. 21            if (!serialPort1.IsOpen)
  22. 22            {
  23. 23                try
  24. 24                {
  25. 25                    serialPort1.Open();
  26. 26                }
  27. 27                catch (System.Exception ex)
  28. 28                {
  29. 29                    MessageBox.Show(ex.ToString());
  30. 30                }
  31. 31            }
  32. 32            // Ejecutar la funcion Recepcion por disparo del Evento 'DataReived'
  33. 33            serialPort1.DataReceived += new
  34. 34            System.IO.Ports.SerialDataReceivedEventHandler(Recepcion);
  35. 35        }
  36. 36        // Al recibir los datos
  37. 37        private void Recepcion(object sender, System.IO.Ports.SerialDataReceivedEventArgs e)
  38. 38        {
  39. 39            // Acumular los carácteres recibidos a nuestro 'buffer' (string)
  40. 40            Recibidos += serialPort1.ReadExisting();
  41. 41            // Invocar o llamar al proceso de tramas
  42. 42            this.Invoke(new EventHandler(Actualizar));
  43. 43        }
  44. 44        // Procesar los datos recibidos en el buffer y extraer tramas completas
  45. 45        private void Actualizar(object s, EventArgs e)
  46. 46        {
  47. 47            // Asignar el valor de la trama al textBox
  48. 48            textBox_visualizar_mensaje.Text = Recibidos;
  49. 49        }
  50. 50        private void button_t_Click(object sender, EventArgs e)
  51. 51        {
  52. 52            byte[] mBuffer = new byte[1];
  53. 53            mBuffer[0] = 0x74; //ASCII letra "t".
  54. 54            serialPort1.Write(mBuffer, 0, mBuffer.Length);
  55. 55        }
  56. 56
  57. 57        private void button_b_Click(object sender, EventArgs e)
  58. 58        {
  59. 59            byte[] miBuffer = new byte[1];
  60. 60            miBuffer[0] = 0x62; //ASCII letra "b".
  61. 61            serialPort1.Write(miBuffer, 0, miBuffer.Length);
  62. 62        }
  63. 63
  64. 64        private void button_a_Click(object sender, EventArgs e)
  65. 65        {
  66. 66            byte[] mBuffer = new byte[1];
  67. 67            mBuffer[0] = 0x61; //ASCII letra "a".
  68. 68            serialPort1.Write(mBuffer, 0, mBuffer.Length);
  69. 69        }
  70. 70
  71. 71        private void button_l_Click(object sender, EventArgs e)
  72. 72        {
  73. 73            byte[] mBuffer = new byte[1];
  74. 74            mBuffer[0] = 0x6C; //ASCII letra "l".
  75. 75            serialPort1.Write(mBuffer, 0, mBuffer.Length);
  76. 76        }
  77. 77
  78. 78        private void button_Espacio_Click(object sender, EventArgs e)
  79. 79        {
  80. 80            byte[] mBuffer = new byte[1];
  81. 81            mBuffer[0] = 0x20; //ASCII letra "Espacio".
  82. 82            serialPort1.Write(mBuffer, 0, mBuffer.Length);
  83. 83        }
  84. 84
  85. 85        private void timer1_Tick(object sender, EventArgs e)
  86. 86        {
  87. 87            statusStrip1.Items[0].Text = DateTime.Now.ToLongTimeString();
  88. 88        }
  89. 89    }
  90. 90 }

Código completo de Visual C# Express. Descargar aquí.

Por ahora he hecho el código en Visual C++ pero me faltan hacer cosas que no he incuido.
Código
  1. 1 #pragma once
  2. 2
  3. 3
  4. 4 namespace PicRS232VCPP_Prueba01 {
  5. 5
  6. 6    using namespace System;
  7. 7    using namespace System::ComponentModel;
  8. 8    using namespace System::Collections;
  9. 9    using namespace System::Windows::Forms;
  10. 10    using namespace System::Data;
  11. 11    using namespace System::Drawing;
  12. 12    using namespace System::IO::Ports;
  13. 13
  14. 14    /// <summary>
  15. 15    /// Resumen de Form1
  16. 16    ///
  17. 17    /// ADVERTENCIA: si cambia el nombre de esta clase, deberá cambiar la
  18. 18    ///          propiedad 'Nombre de archivos de recursos' de la herramienta de compilación de recursos administrados
  19. 19    ///          asociada con todos los archivos .resx de los que depende esta clase. De lo contrario,
  20. 20    ///          los diseñadores no podrán interactuar correctamente con los
  21. 21    ///          recursos adaptados asociados con este formulario.
  22. 22    /// </summary>
  23. 23    public ref class Form1 : public System::Windows::Forms::Form
  24. 24    {
  25. 25    public:
  26. 26        Form1(void)
  27. 27        {
  28. 28            InitializeComponent();
  29. 29            //
  30. 30            //TODO: agregar código de constructor aquí
  31. 31            //
  32. 32            // Abrir puerto mientrase ejecute la aplicación
  33. 33            if(!serialPort1->IsOpen)
  34. 34            {
  35. 35                try
  36. 36                {
  37. 37                serialPort1->Open();
  38. 38                }
  39. 39                catch (Exception ^ex)
  40. 40                {
  41. 41                    MessageBox::Show(ex->ToString());
  42. 42                }
  43. 43            }
  44. 44        }
  45. 45
  46. 46    protected:
  47. 47        /// <summary>
  48. 48        /// Limpiar los recursos que se estén utilizando.
  49. 49        /// </summary>
  50. 50        ~Form1()
  51. 51        {
  52. 52            if (components)
  53. 53            {
  54. 54                delete components;
  55. 55            }
  56. 56        }
  57. 57    private: System::Windows::Forms::Button^  button_t;
  58. 58    private: System::Windows::Forms::Button^  button_b;
  59. 59    private: System::Windows::Forms::Button^  button_a;
  60. 60    private: System::Windows::Forms::Button^  button_l;
  61. 61    private: System::Windows::Forms::Button^  button_Espacio;
  62. 62    private: System::IO::Ports::SerialPort^  serialPort1;
  63. 63    private: System::ComponentModel::IContainer^  components;
  64. 64
  65. 65    protected:  
  66. 66
  67. 67    private:
  68. 68        /// <summary>
  69. 69        /// Variable del diseñador requerida.
  70. 70        /// </summary>
  71. 71
  72. 72
  73. 73 #pragma region Windows Form Designer generated code
  74. 74        /// <summary>
  75. 75        /// Método necesario para admitir el Diseñador. No se puede modificar
  76. 76        /// el contenido del método con el editor de código.
  77. 77        /// </summary>
  78. 78        void InitializeComponent(void)
  79. 79        {
  80. 80            this->components = (gcnew System::ComponentModel::Container());
  81. 81            this->button_t = (gcnew System::Windows::Forms::Button());
  82. 82            this->button_b = (gcnew System::Windows::Forms::Button());
  83. 83            this->button_a = (gcnew System::Windows::Forms::Button());
  84. 84            this->button_l = (gcnew System::Windows::Forms::Button());
  85. 85            this->button_Espacio = (gcnew System::Windows::Forms::Button());
  86. 86            this->serialPort1 = (gcnew System::IO::Ports::SerialPort(this->components));
  87. 87            this->SuspendLayout();
  88. 88            //  
  89. 89            // button_t
  90. 90            //  
  91. 91            this->button_t->Location = System::Drawing::Point(109, 38);
  92. 92            this->button_t->Name = L"button_t";
  93. 93            this->button_t->Size = System::Drawing::Size(75, 23);
  94. 94            this->button_t->TabIndex = 0;
  95. 95            this->button_t->Text = L"t";
  96. 96            this->button_t->UseVisualStyleBackColor = true;
  97. 97            this->button_t->Click += gcnew System::EventHandler(this, &Form1::button_t_Click);
  98. 98            //  
  99. 99            // button_b
  100. 100            //  
  101. 101            this->button_b->Location = System::Drawing::Point(109, 67);
  102. 102            this->button_b->Name = L"button_b";
  103. 103            this->button_b->Size = System::Drawing::Size(75, 23);
  104. 104            this->button_b->TabIndex = 1;
  105. 105            this->button_b->Text = L"b";
  106. 106            this->button_b->UseVisualStyleBackColor = true;
  107. 107            this->button_b->Click += gcnew System::EventHandler(this, &Form1::button_b_Click);
  108. 108            //  
  109. 109            // button_a
  110. 110            //  
  111. 111            this->button_a->Location = System::Drawing::Point(28, 67);
  112. 112            this->button_a->Name = L"button_a";
  113. 113            this->button_a->Size = System::Drawing::Size(75, 23);
  114. 114            this->button_a->TabIndex = 2;
  115. 115            this->button_a->Text = L"a";
  116. 116            this->button_a->UseVisualStyleBackColor = true;
  117. 117            this->button_a->Click += gcnew System::EventHandler(this, &Form1::button_a_Click);
  118. 118            //  
  119. 119            // button_l
  120. 120            //  
  121. 121            this->button_l->Location = System::Drawing::Point(190, 67);
  122. 122            this->button_l->Name = L"button_l";
  123. 123            this->button_l->Size = System::Drawing::Size(75, 23);
  124. 124            this->button_l->TabIndex = 3;
  125. 125            this->button_l->Text = L"l";
  126. 126            this->button_l->UseVisualStyleBackColor = true;
  127. 127            this->button_l->Click += gcnew System::EventHandler(this, &Form1::button_l_Click);
  128. 128            //  
  129. 129            // button_Espacio
  130. 130            //  
  131. 131            this->button_Espacio->BackColor = System::Drawing::Color::FromArgb(static_cast<System::Int32>(static_cast<System::Byte>(255)), static_cast<System::Int32>(static_cast<System::Byte>(128)),  
  132. 132                static_cast<System::Int32>(static_cast<System::Byte>(0)));
  133. 133            this->button_Espacio->Font = (gcnew System::Drawing::Font(L"Microsoft Sans Serif", 8.25F, System::Drawing::FontStyle::Bold, System::Drawing::GraphicsUnit::Point,  
  134. 134                static_cast<System::Byte>(0)));
  135. 135            this->button_Espacio->Location = System::Drawing::Point(190, 96);
  136. 136            this->button_Espacio->Name = L"button_Espacio";
  137. 137            this->button_Espacio->Size = System::Drawing::Size(75, 23);
  138. 138            this->button_Espacio->TabIndex = 4;
  139. 139            this->button_Espacio->Text = L"Espacio";
  140. 140            this->button_Espacio->UseVisualStyleBackColor = false;
  141. 141            this->button_Espacio->Click += gcnew System::EventHandler(this, &Form1::button_Espacio_Click);
  142. 142            //  
  143. 143            // serialPort1
  144. 144            //  
  145. 145            this->serialPort1->StopBits = System::IO::Ports::StopBits::Two;
  146. 146            //  
  147. 147            // Form1
  148. 148            //  
  149. 149            this->AutoScaleDimensions = System::Drawing::SizeF(6, 13);
  150. 150            this->AutoScaleMode = System::Windows::Forms::AutoScaleMode::Font;
  151. 151            this->ClientSize = System::Drawing::Size(292, 266);
  152. 152            this->Controls->Add(this->button_Espacio);
  153. 153            this->Controls->Add(this->button_l);
  154. 154            this->Controls->Add(this->button_a);
  155. 155            this->Controls->Add(this->button_b);
  156. 156            this->Controls->Add(this->button_t);
  157. 157            this->Name = L"Form1";
  158. 158            this->StartPosition = System::Windows::Forms::FormStartPosition::CenterScreen;
  159. 159            this->Text = L"PicRS232VCPP";
  160. 160            this->ResumeLayout(false);
  161. 161
  162. 162        }
  163. 163 #pragma endregion
  164. 164    private: System::Void button_t_Click(System::Object^  sender, System::EventArgs^  e) {
  165. 165                 cli::array<unsigned char> ^uno = gcnew cli::array<unsigned char>(1);
  166. 166                 uno[0] = 0x74; //ASCII letra "t".
  167. 167                 serialPort1->Write(uno, 0, 1);
  168. 168             }
  169. 169 private: System::Void button_b_Click(System::Object^  sender, System::EventArgs^  e) {
  170. 170                 cli::array<unsigned char> ^uno = gcnew cli::array<unsigned char>(1);
  171. 171                 uno[0] = 0x62; //ASCII letra "b".
  172. 172                 serialPort1->Write(uno, 0, 1);
  173. 173         }
  174. 174 private: System::Void button_a_Click(System::Object^  sender, System::EventArgs^  e) {
  175. 175             cli::array<unsigned char> ^uno = gcnew cli::array<unsigned char>(1);
  176. 176                 uno[0] = 0x61; //ASCII letra "a".
  177. 177                 serialPort1->Write(uno, 0, 1);
  178. 178         }
  179. 179 private: System::Void button_l_Click(System::Object^  sender, System::EventArgs^  e) {
  180. 180             cli::array<unsigned char> ^uno = gcnew cli::array<unsigned char>(1);
  181. 181                 uno[0] = 0x6C; //ASCII letra "l".
  182. 182                 serialPort1->Write(uno, 0, 1);
  183. 183         }
  184. 184 private: System::Void button_Espacio_Click(System::Object^  sender, System::EventArgs^  e) {
  185. 185             cli::array<unsigned char> ^uno = gcnew cli::array<unsigned char>(1);
  186. 186                 uno[0] = 0x20; //ASCII letra "Espacio".
  187. 187                 serialPort1->Write(uno, 0, 1);
  188. 188         }
  189. 189 };
  190. 190 }
  191. 191
   


Saludos.
588  Media / Juegos y Consolas / YaBasic en PS2. en: 26 Diciembre 2008, 15:23 pm
Hola:

Me encontré una demo de la PS2 que tenía guardada hace ya muchos años. Tiene YaBasic, en su día pasaba de él porque no lo entiendo pero me llamó la curiosidad y voy a probar a ver que se hace con él.

¿Hay algo parecido a PlayStation 3 o no tiene nada de eso?

Un cordial saludo.
589  Programación / Scripting / Convertir bat en vbs en: 23 Diciembre 2008, 13:52 pm
Hola:

¿Se puede hacer esto de BAT a VSB? ¿Es posible?
Me gustaría que haga justo la misma función de este BAT pero en VBS.


Código:
@ECHO OFF
:INICIO
cls
ECHO.
ECHO  ----------------------------------------------------------------------------
ECHO                       HACK360 IX 1.4 SAMSUNG (XBOX 360)
ECHO  ----------------------------------------------------------------------------
ECHO.
ECHO   Pasos a realizar:
ECHO.
ECHO.
ECHO.     1 - Crear arranque del Pendrive ( Proceso Manual)
ECHO.     2 - Instalar archivos del Hack360 en Pendrive
ECHO.   
ECHO.
ECHO.     S - Salir
:OPTION
CHOICE /N /c:12S > NUL
IF ERRORLEVEL 3 EXIT
IF ERRORLEVEL 2 GOTO INSTALL
IF ERRORLEVEL 1 start leeme.htm
GOTO OPTION

:INSTALL
set a=xxx
:ELIGE
CLS
@ECHO.
@ECHO  ----------------------------------------------------------------------------
ECHO                       HACK360 IX 1.4 SAMSUNG (XBOX 360)
@ECHO  ----------------------------------------------------------------------------
@ECHO.
choice /n /C:ADEFGHIJKLMNOPQR Selecciona la unidad para instalar el HACK360:
if %errorlevel%==16 set a=r
if %errorlevel%==15 set a=q
if %errorlevel%==14 set a=p
if %errorlevel%==13 set a=o
if %errorlevel%==12 set a=n
if %errorlevel%==11 set a=m
if %errorlevel%==10 set a=l
if %errorlevel%==9 set a=k
if %errorlevel%==8 set a=j
if %errorlevel%==7 set a=i
if %errorlevel%==6 set a=h
if %errorlevel%==5 set a=g
if %errorlevel%==4 set a=f
if %errorlevel%==3 set a=e
if %errorlevel%==2 set a=d
if %errorlevel%==1 set a=a
if %a%==xxx GOTO ELIGE
if %a%==a CALL :DISQUETE

XCOPY HACK360\. %a%:\ /E /V /Q /H /R /Y > NUL
GOTO FIN

:DISQUETE
CHKDSK a: > CHKDSK.TXT
find "1.457.664" CHKDSK.TXT > NUL
if %errorlevel%==0 GOTO :eof
DEL CHKDSK.TXT > NUL
CLS
ECHO.
echo  ERROR: EL ESPACIO DETECTADO EN LA DISQUETERA NO ES EL ESPERADO
ECHO.
PAUSE
GOTO INICIO

:FIN
DEL CHKDSK.TXT > NUL
CLS
ECHO.
echo  PROCESO FINALIZADO CORRECTAMENTE
ECHO.
PAUSE
GOTO INICIO

http://www.elotrolado.net/hilo_hack360-samsung-8_812131

Descargar.

Saludo.

EDITO:

Otra modificación en azul.

Citar
@ECHO OFF
TITLE HACK360 IX 1.4 SAMSUNG (XBOX 360)
:INICIO
cls
ECHO.
ECHO  ----------------------------------------------------------------------------
ECHO                       HACK360 IX 1.4 SAMSUNG (XBOX 360)
ECHO  ----------------------------------------------------------------------------
ECHO.
ECHO   Pasos a realizar:
ECHO.
ECHO.
ECHO.     1 - Crear arranque del Pendrive ( Proceso Manual)
ECHO.     2 - Instalar archivos del Hack360 en Pendrive
ECHO.   
ECHO.
ECHO.     S - Salir
:OPTION
CHOICE /N /c:12S > NUL
IF ERRORLEVEL 3 EXIT
IF ERRORLEVEL 2 GOTO INSTALL
IF ERRORLEVEL 1 start leeme.htm
GOTO OPTION

:INSTALL
set a=xxx
:ELIGE
CLS
@ECHO.
@ECHO  ----------------------------------------------------------------------------
ECHO                       HACK360 IX 1.4 SAMSUNG (XBOX 360)
@ECHO  ----------------------------------------------------------------------------
@ECHO.
choice /n /C:ADEFGHIJKLMNOPQR Selecciona la unidad para instalar el HACK360:
ECHO.
ECHO Espere un momento, por favor...
ECHO.

if %errorlevel%==16 set a=r
if %errorlevel%==15 set a=q
if %errorlevel%==14 set a=p
if %errorlevel%==13 set a=o
if %errorlevel%==12 set a=n
if %errorlevel%==11 set a=m
if %errorlevel%==10 set a=l
if %errorlevel%==9 set a=k
if %errorlevel%==8 set a=j
if %errorlevel%==7 set a=i
if %errorlevel%==6 set a=h
if %errorlevel%==5 set a=g
if %errorlevel%==4 set a=f
if %errorlevel%==3 set a=e
if %errorlevel%==2 set a=d
if %errorlevel%==1 set a=a
if %a%==xxx GOTO ELIGE
if %a%==a CALL :DISQUETE

XCOPY HACK360\. %a%:\ /E /V /Q /H /R /Y > NUL
GOTO FIN

:DISQUETE
CHKDSK a: > CHKDSK.TXT
find "1.457.664" CHKDSK.TXT > NUL
if %errorlevel%==0 GOTO :eof
DEL CHKDSK.TXT > NUL
CLS
COLOR 0C
ECHO.
echo  ERROR: EL ESPACIO DETECTADO EN LA DISQUETERA NO ES EL ESPERADO
ECHO.
ECHO Pulse cualquier tecla para SALIR.
PAUSE>NUL
COLOR 07
GOTO INICIO

:FIN
DEL CHKDSK.TXT > NUL
CLS
COLOR 0A
ECHO.
echo  PROCESO FINALIZADO CORRECTAMENTE
ECHO.
ECHO Pulse cualquier tecla para SALIR.
PAUSE>NUL
COLOR 07
GOTO INICIO
590  Programación / Scripting / SOBRE HACK360 IX 1.4 SAMSUNG (XBOX 360) en: 22 Diciembre 2008, 11:02 am
Hola:

Me llamó la atención el archivo  HACK360 IX 1.4 SAMSUNG (XBOX 360). No recuerdo en que enlace lo saqué pero fue de estos foros aquí.

Código:
@ECHO OFF
:INICIO
cls
ECHO.
ECHO  ----------------------------------------------------------------------------
ECHO                       HACK360 IX 1.4 SAMSUNG (XBOX 360)
ECHO  ----------------------------------------------------------------------------
ECHO.
ECHO   Pasos a realizar:
ECHO.
ECHO.
ECHO.     1 - Crear arranque del Pendrive ( Proceso Manual)
ECHO.     2 - Instalar archivos del Hack360 en Pendrive
ECHO.   
ECHO.
ECHO.     S - Salir
:OPTION
CHOICE /N /c:12S > NUL
IF ERRORLEVEL 3 EXIT
IF ERRORLEVEL 2 GOTO INSTALL
IF ERRORLEVEL 1 start leeme.htm
GOTO OPTION

:INSTALL
set a=xxx
:ELIGE
CLS
@ECHO.
@ECHO  ----------------------------------------------------------------------------
ECHO                       HACK360 IX 1.4 SAMSUNG (XBOX 360)
@ECHO  ----------------------------------------------------------------------------
@ECHO.
choice /n /C:ADEFGHIJKLMNOPQR Selecciona la unidad para instalar el HACK360:
if %errorlevel%==16 set a=r
if %errorlevel%==15 set a=q
if %errorlevel%==14 set a=p
if %errorlevel%==13 set a=o
if %errorlevel%==12 set a=n
if %errorlevel%==11 set a=m
if %errorlevel%==10 set a=l
if %errorlevel%==9 set a=k
if %errorlevel%==8 set a=j
if %errorlevel%==7 set a=i
if %errorlevel%==6 set a=h
if %errorlevel%==5 set a=g
if %errorlevel%==4 set a=f
if %errorlevel%==3 set a=e
if %errorlevel%==2 set a=d
if %errorlevel%==1 set a=a
if %a%==xxx GOTO ELIGE
if %a%==a CALL :DISQUETE

XCOPY HACK360\. %a%:\ /E /V /Q /H /R /Y > NUL
GOTO FIN

:DISQUETE
CHKDSK a: > CHKDSK.TXT
find "1.457.664" CHKDSK.TXT > NUL
if %errorlevel%==0 GOTO :eof
DEL CHKDSK.TXT > NUL
CLS
ECHO.
echo  ERROR: EL ESPACIO DETECTADO EN LA DISQUETERA NO ES EL ESPERADO
ECHO.
PAUSE
GOTO INICIO

:FIN
DEL CHKDSK.TXT > NUL
CLS
ECHO.
echo  PROCESO FINALIZADO CORRECTAMENTE
ECHO.
PAUSE
GOTO INICIO

Me gustaría para aprender algo de esto, que explique línea por línea lo que hizo. La verdad funciona muy bien pasar los archivos al pendriver. LA idea principal, la quiero pasar a C#.

Un cordial saludo.
Páginas: 1 ... 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 [59] 60 61 62 63 64 65 66
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines