• Miércoles 12 de Febrero de 2025, 11:04

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - RadicalEd

Páginas: 1 ... 79 80 [81] 82 83 ... 123
2001
ASM (Ensamblador) / Re: Llamada A Un Archivo .exe
« en: Sábado 18 de Junio de 2005, 03:08 »
Si quieres abrir un archivo, la funcion 3Dh de la INT 21h te sirve para eso.

2002
Visual Basic 6.0 e inferiores / Re: Shape.fillcolor
« en: Sábado 18 de Junio de 2005, 02:55 »
Código: Text
  1. Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
  2. Dim x As Integer
  3. x = 1000
  4. Private Sub blanco()
  5. shape1.fillcolor = vbwhite
  6. x = x + 1000
  7. Sleep x
  8. Call negro
  9. End Sub
  10. Private Sub negro()
  11. shape1.fillcolor = vbblack
  12. x = x + 1000
  13. Sleep x
  14. Call blanco
  15. End Sub
  16.  
  17.  

2003
La taberna del BIT / Re: Hoy Aprendi Algo Nuevo
« en: Sábado 18 de Junio de 2005, 02:29 »
Cita de: "JuanK"
Para aquellos pocos que al igual que RadicalEd no entendieron la broma les explico:

No es que sea tan tonto como para creer que la ley de Murphy la ideo Eddie Murphy, lo dije solo a manera de broma  :hola:
:( Y tenes que decir mi nombre? :(

2004
C/C++ / Re: Trabajando Con Numeros Base Hexadecimal
« en: Sábado 18 de Junio de 2005, 02:25 »
Lo unico que debes hacer es:
Código: Text
  1.  
  2. x=15;
  3. printf("El número %d en hexadecimal es: %x",x,x);
  4.  
Ojala te sirva.
Chao

2005
C# / Re: Poo
« en: Sábado 18 de Junio de 2005, 01:29 »
La programación orientada a objetos expresa un programa como un conjunto de objetos, que se comunican entre ellos para realizar tareas, como dices para que las clases interactuen entre ellas y no para crear ventanitas, JuanK te explica mejor, es el que medio me enseña a mi

2006
Visual Basic 6.0 e inferiores / Re: Ayuda En Proyecto
« en: Sábado 18 de Junio de 2005, 01:15 »
Nada malo, todo bien, yo hice uno igual pero para C.
Código: Text
  1. for (a=1;a<45;a++)
  2. {for ( b=1;b<45;b++)
  3.  {for (c=1;c<45;c++)
  4.   {for (d=1;d<45;d++)
  5.    {for (e=1;e<45;e++)
  6.     {for (f=1;f<45;f++)
  7.      {if ((a!=B)&&(a!=c)&&(a!=d)&&(a!=e)&&(a!=f))
  8.        {if ((b!=c)&&(b!=d)&&(b!=e)&&(b!=f))
  9.          {if ((c!=d)&&(c!=e)&&(c!=f))
  10.           {if ((d!=e)&&(d!=f))
  11.            {if (e!=f)
  12.             {printf ("%d %d %d %d %d %d",a,b,c,d,e,f)}
  13.              
  14.  
Ahora compara cual es más bonito, mira este es el link

2007
Sobre los Foros de SoloCodigo / Re: Foro Crystal Reports!
« en: Sábado 18 de Junio de 2005, 00:42 »
Hace rato no lo manejo, pero apoyo la creación del foro.

2008
Visual Basic 6.0 e inferiores / Re: Los Menus Y Las Api
« en: Sábado 18 de Junio de 2005, 00:37 »
Y por que no cuando carga el formulario llamas la rutina de ese menú???
 :blink:  :blink:  :blink:

2009
La taberna del BIT / Re: El Comando Dir
« en: Viernes 17 de Junio de 2005, 23:12 »
Y después dicen que Hao y yo somos los desocupados.
jejejejejejejejejejejeje

2010
Dudas informáticas / Re: Deshabilitar Puertos
« en: Viernes 17 de Junio de 2005, 23:04 »
Que Windows usas?

2011
ASM (Ensamblador) / Re: Ayuda Por Favor
« en: Viernes 17 de Junio de 2005, 19:07 »
:lightsabre:  :lightsabre:  :lightsabre:

2012
Visual Basic 6.0 e inferiores / Re: Ejecutar Un Boton De Otra Aplicacion
« en: Viernes 17 de Junio de 2005, 02:59 »
GetModuleHandle y GetClassLong, busca info en AllApi

Ojala te sirva.
Chao

2013
Virus / Re: Consulta A Expertos
« en: Viernes 17 de Junio de 2005, 02:40 »
Revisa este enlace, dicen que es un proceso raro.
sysfader

2014
Visual Basic 6.0 e inferiores / Re: Ayudenme A Optimizar
« en: Jueves 16 de Junio de 2005, 23:56 »
Pregunta?
Por que no utilizas la misma pieza1 para todas las llamadas y una subrutina con esta info.
Código: Text
  1. Private Sub info()
  2. Select Case value_odonto
  3.    Case 3: 'extraidas
  4.        x(Index).Picture = LoadPicture(App.Path + "\odontograma\xazul.gif")
  5.        x(Index).Tag = 3
  6.    Case 2: 'por extraer
  7.        x(Index).Picture = LoadPicture(App.Path + "\odontograma\xrojo.gif")
  8.        x(Index).Tag = 2
  9.    Case 1: 'caries obturadas
  10.        pieza1(Index).Picture = LoadPicture(App.Path + "\odontograma\pieza1a.gif")
  11.        pieza1(Index).Tag = 1
  12.    Case 0: 'caries por obturar
  13.        pieza1(Index).Picture = LoadPicture(App.Path + "\odontograma\pieza1r.gif")
  14.        pieza1(Index).Tag = 0
  15. End Select
  16. End Sub
  17.  

2015
La taberna del BIT / Re: Lenguaje De Programación Favorito
« en: Jueves 16 de Junio de 2005, 23:28 »
Van 3 :( y eso que les mande el enlace a casi todos :( , a ver yo voy, me gusta el Visual Basic, por que fue el primer lenguaje en el que aprendi ha programar medio bien, lo defiendo por que es un lenguaje con el que puedes hacer cosas interesantes mas que DB :angry: que las odio, y ASM que para mi es la fuente de la juventud para un programador, y aunque no sea un  :comp: para esto me entreno, y voy a tratar de ser el mejor, ASM y VB si esos son mis 2 lenguajes favoritos, C pues no le doy por que fui muy malo para este, bueno no malo sino que no he tenido donde entrenar.

PD. Yo quiero saber en que programa solocodigo, osea tú Jefecito, ya que casi nunca te he visto dar una respuesta en algun foro de programación.

2016
ASM (Ensamblador) / Re: Capturar Valores
« en: Jueves 16 de Junio de 2005, 22:48 »
Por fin.
Código: Text
  1. .MODEL SMALL
  2. .STACK
  3. .DATA
  4.     VAL1 DB 'DIGITE VALOR 1: $'
  5.     VAL2 DB 13,10,'DIGITE VALOR 2: $'
  6.     MSG DB 13,10,'LA SUMA ES: $'
  7.     RESU DB '0'
  8.     CAPT1BIN DB '0'
  9.     CAPT2BIN DB '0'
  10. .CODE
  11. inicio:
  12. &#59;CAPTURAR PRIMER VALOR
  13.     MOV AX, SEG VAL1
  14.     MOV DS, AX
  15.     MOV DX, OFFSET VAL1   &#59;Envia a DX el mensaje VAL1
  16.     CALL Print
  17.     CALL Capt
  18.     MOV CAPT1BIN, AL      &#59;Guarda en Binario
  19.     SUB CAPT1BIN, 48      &#59;Se restan 48 para dar valor ASCII
  20.  
  21. &#59;CAPTURAR SEGUNDO VALOR
  22.     MOV AX, SEG VAL2
  23.     MOV DS, AX
  24.     MOV DX, OFFSET VAL2   &#59;Envia a DX el mensaje VAL1
  25.     CALL Print
  26.     CALL Capt
  27.     MOV CAPT2BIN, AL      &#59;Guarda en Binario
  28.     SUB CAPT2BIN, 48      &#59;Se restan 48 para dar valor ASCII
  29.  
  30. &#59;SE EFECTUA LA SUMA
  31.     MOV BL, CAPT1BIN
  32.     ADD BL, CAPT2BIN
  33.     MOV RESU, BL
  34.  
  35. &#59;SE IMPRIME MENSAJE DE RESULTADO
  36.     MOV AX, SEG MSG
  37.     MOV DS, AX
  38.     MOV DX, OFFSET MSG  &#59;Envia a DX el mensaje MSG
  39.     MOV AH, 09h         &#59;imprime mensaje con la
  40.     INT 21h             &#59;función 9h
  41.  
  42. &#59;IMPRIMIR LOS RESULTADOS
  43.     MOV AH, 0  &#59;Se limpia el registro
  44.     MOV AL, RESU&#59;El dividendo en AX para impresion de digitos uno por uno
  45.     MOV BL, 10  &#59;Se le pone 10 al divisor BL
  46.     DIV BL  &#59;Se divide (al=numero/divisor=10 ) COCIENTE=AL RESIDUO=DX
  47.     MOV CL, AL  &#59;Guardamos el cociente en CL
  48.     MOV CH, AH  &#59;Guardamos el residuo en CH
  49.     ADD AL, 48  &#59;Sumamos 48d al numero para convertirlo en ascii
  50.     MOV AH, 2  &#59;Funcion del DOS para imprimir un caracter
  51.     MOV DL, AL  &#59;Imprimir el primer digito
  52.     INT 21h
  53.     ADD CH, 48  &#59;Sumamos 48d al numero para convertirlo en ascii
  54.     MOV DL, CH  &#59;Imprimimos el segundo caracter
  55.     INT 21h
  56.     MOV AH, 4Ch        &#59;Sale al DOS
  57.     INT 21h
  58.  
  59. ;PROCEDIMIENTO PARA IMPRIMIR CADENA
  60. Print Proc Near
  61.     MOV AH, 09h  &#59;imprime mensaje con la
  62.     INT 21h  &#59;función 9h
  63.     SUB AL, 48         &#59;restamos al caracter el ASCII de 0 para convertirlo en un numero
  64.     RET
  65. Print Endp
  66.  
  67. ;PROCEDIMIENTO DE CAPTURA
  68. Capt Proc Near
  69.     MOV AH, 01h  &#59;captura un valor del teclado
  70.     INT 21h  &#59;y se guarda en AL
  71.     RET    
  72. Capt Endp
  73. END inicio
  74.  

2017
ASM (Ensamblador) / Re: Suma De Dos Numeros
« en: Jueves 16 de Junio de 2005, 22:46 »
Ahora si ya me funciono.
Código: Text
  1. .MODEL SMALL
  2. .STACK
  3. .DATA
  4.     VAL1 DB 'DIGITE VALOR 1: $'
  5.     VAL2 DB 13,10,'DIGITE VALOR 2: $'
  6.     MSG DB 13,10,'LA SUMA ES: $'
  7.     RESU DB '0'
  8.     CAPT1BIN DB '0'
  9.     CAPT2BIN DB '0'
  10. .CODE
  11. inicio:
  12. &#59;CAPTURAR PRIMER VALOR
  13.     MOV AX, SEG VAL1
  14.     MOV DS, AX
  15.     MOV DX, OFFSET VAL1   &#59;Envia a DX el mensaje VAL1
  16.     CALL Print
  17.     CALL Capt
  18.     MOV CAPT1BIN, AL      &#59;Guarda en Binario
  19.     SUB CAPT1BIN, 48      &#59;Se restan 48 para dar valor ASCII
  20.  
  21. &#59;CAPTURAR SEGUNDO VALOR
  22.     MOV AX, SEG VAL2
  23.     MOV DS, AX
  24.     MOV DX, OFFSET VAL2   &#59;Envia a DX el mensaje VAL1
  25.     CALL Print
  26.     CALL Capt
  27.     MOV CAPT2BIN, AL      &#59;Guarda en Binario
  28.     SUB CAPT2BIN, 48      &#59;Se restan 48 para dar valor ASCII
  29.  
  30. &#59;SE EFECTUA LA SUMA
  31.     MOV BL, CAPT1BIN
  32.     ADD BL, CAPT2BIN
  33.     MOV RESU, BL
  34.  
  35. &#59;SE IMPRIME MENSAJE DE RESULTADO
  36.     MOV AX, SEG MSG
  37.     MOV DS, AX
  38.     MOV DX, OFFSET MSG  &#59;Envia a DX el mensaje MSG
  39.     MOV AH, 09h         &#59;imprime mensaje con la
  40.     INT 21h             &#59;función 9h
  41.  
  42. &#59;IMPRIMIR LOS RESULTADOS
  43.     MOV AH, 0  &#59;Se limpia el registro
  44.     MOV AL, RESU&#59;El dividendo en AX para impresion de digitos uno por uno
  45.     MOV BL, 10  &#59;Se le pone 10 al divisor BL
  46.     DIV BL  &#59;Se divide (al=numero/divisor=10 ) COCIENTE=AL RESIDUO=DX
  47.     MOV CL, AL  &#59;Guardamos el cociente en CL
  48.     MOV CH, AH  &#59;Guardamos el residuo en CH
  49.     ADD AL, 48  &#59;Sumamos 48d al numero para convertirlo en ascii
  50.     MOV AH, 2  &#59;Funcion del DOS para imprimir un caracter
  51.     MOV DL, AL  &#59;Imprimir el primer digito
  52.     INT 21h
  53.     ADD CH, 48  &#59;Sumamos 48d al numero para convertirlo en ascii
  54.     MOV DL, CH  &#59;Imprimimos el segundo caracter
  55.     INT 21h
  56.     MOV AH, 4Ch        &#59;Sale al DOS
  57.     INT 21h
  58.  
  59. ;PROCEDIMIENTO PARA IMPRIMIR CADENA
  60. Print Proc Near
  61.     MOV AH, 09h  &#59;imprime mensaje con la
  62.     INT 21h  &#59;función 9h
  63.     SUB AL, 48         &#59;restamos al caracter el ASCII de 0 para convertirlo en un numero
  64.     RET
  65. Print Endp
  66.  
  67. ;PROCEDIMIENTO DE CAPTURA
  68. Capt Proc Near
  69.     MOV AH, 01h  &#59;captura un valor del teclado
  70.     INT 21h  &#59;y se guarda en AL
  71.     RET    
  72. Capt Endp
  73. END inicio
  74.  
  75.  
  76.  

2018
La taberna del BIT / Lenguaje De Programación Favorito
« en: Jueves 16 de Junio de 2005, 19:47 »
Hola chicos de SoloCodigo, propongo que cada cual eliga su lenguaje preferido y lo defienda, ya se sabe que los moderadores escogeran el Lenguaje del foro el cual moderan, digan solo por que?, sin ofender los demas, no se acepta decir:

1. Visual Basic es el peor lenguaje
2. C++ es el lenguaje por excelencia

Bueno cosas asi.

2019
Vulnerabilidades / Boletin De Seguridad Junio
« en: Jueves 16 de Junio de 2005, 18:23 »
http://www.microsoft.com/technet/security/bulletin/ms05-jun.mspx

2020
Visual Basic para principiantes / Re: Que Falta?
« en: Jueves 16 de Junio de 2005, 18:19 »
wow Basic, casi nadie lo usa ya.
Esta es la variable que desencripta  D, entonces haces esto:
Código: Text
  1. LOCATE 12, 20: PRINT "INFORMACION DESENCRIPTADA CON EXITO" & D
  2.  
  3.  

2021
ABAP / Re: Decimal A Binario En Abap
« en: Martes 14 de Junio de 2005, 20:03 »
Cual de las 2 preguntas es???.
Mira he hecho esto:
Código: Text
  1. REPORT FACTORIAL.
  2. DATA: FACT TYPE I,
  3.       ICICLO TYPE I.
  4. SELECTION-SCREEN BEGIN OF BLOCK BLOCK.
  5. PARAMETERS:
  6.       XCAPT TYPE I.
  7. SELECTION-SCREEN END OF BLOCK BLOCK.
  8. START-OF-SELECTION.
  9. FACT = 1.
  10. WHILE XCAPT GE 1.
  11. FOR ICICLO = 1 TO XCAPT.
  12.   FACT = ICICLO * FACT.
  13. ENDFOR
  14. PERFORM FACTORIAL USING FACT.
  15. ENDWHILE
  16. FOR FACTORIAL USING FACT.
  17.  WHILE:/'EL FACTORIAL DE: ',XCAPT,' ES: ',FACT.
  18. ENDFORM
  19.  

2022
ABAP / Re: Decimal A Binario En Abap
« en: Martes 14 de Junio de 2005, 18:06 »
Pregunta???
Como creo un TextBox?
Como hago un ciclo?

2023
Visual Basic 6.0 e inferiores / Re: Problema Con Threads
« en: Martes 14 de Junio de 2005, 17:53 »
Si conoces el nombre del proceso de tu programa usa la api TerminateProcess, busca en el foro que tambien hay info al respecto.

2024
Virus / Spam Michael Jackson
« en: Martes 14 de Junio de 2005, 00:01 »
Mensaje de spam sobre un intento de suicidio de Michael Jackson oculta un troyano



Expertos de SophosLabs™, la red global de análisis de virus y de spam de Sophos, han advertido de una campaña de spam sobre un supuesto intento de suicidio de Michael Jackson que pretende propagar un troyano.

Ejemplo del mensaje
En el mensaje se afirma que Michael Jackson ha intentado suicidarse, pero si hace clic en el enlace podría infectar su ordenador.

Sophos ha identificado cientos de mensajes de spam en circulación que se aprovechan del gran interés mediático en el juicio del polémico cantante. Los mensajes de spam tienen las siguientes características:

Asunto: Re: Suicidal aattempt

Mensaje:
Last night, while in his Neverland Ranch, Michael Jackson has made a suicidal attempt.

They suggest this attempt follows the last claim was made against the king of pop. 46 years old Michael has left pre-suicid note which describes and interpretes some of his sins.

Read more...

Sin embargo, cuando el usuario hace clic en el enlace será redirigido a una página Web que de forma oculta instala código malicioso en el equipo.

"Al hacer clic en el enlace, el sitio Web muestra un mensaje que afirma que está sobrecargado, lo que no sorprenderá necesariamente a los usuarios que crean que es una noticia real sobre Michael Jackson," afirmó Carole Theriault, asesora de seguridad informática de Sophos. "No obstante, es una táctica para desviar la atención, puesto que en un segundo plano la página Web descarga un programa malicioso en el ordenador sin el conocimiento del usuario."

Expertos de Sophos han analizado el código que se descarga al hacer clic en el enlace y han determinado que ese mismo código intenta descargar otro troyano que Sophos detecta como Troj/Borobt-Gen. Sophos PureMessage ha sido actualizado para detener el mensaje de spam de forma automática en la pasarela de correo.

Sophos advierte que no es la primera vez que el turbado cantante ha sido utilizado por creadores de virus y hackers que pretenden propagar su código malicioso. En octubre del año pasado circularon mensajes por Internet que afirmaban que se habían hallado vídeos caseros compremetedores pertenecientes a Jackson, pero al hacer clic en el mensaje los usuarios se veían infectados con el troyano Hackarmy.

"La mente morbosa detrás de creadores de virus y otros programas maliciosos se aprovecha a menudo de famosos y de noticias que llaman la atención para infectar al mayor número de usuarios posibles," continuó Theriault. "Todos debemos ser precavidos a la hora de hacer clic en los enlaces en mensajes no solicitados o abrir adjuntos desconocidos."

Sophos recomienda a las empresas actualizar su protección antivirus de forma automática y filtrar los documentos adjuntos que puedan contener códigos maliciosos en la pasarela de correo con una solución combinada que los proteja contra virus y spam.
Acerca de Sophos

Sophos es un líder mundial en el desarrollo de software antivirus y anti-spam. Con sede central en el Reino Unido, la compañía protege empresas y organizaciones, desde PYMEs a instituciones gubernamentales y multinacionales, contra virus y spam. Sophos es reconocido mundialmente por ofrecer el más alto nivel de protección y satisfacción de sus clientes. Los productos de la compañía se venden en más de 150 países y protegen a más de 35 millones de usuarios.

2025
Visual Basic para principiantes / Re: Problemas Con Instalacion
« en: Lunes 13 de Junio de 2005, 23:02 »
Utiliza el instalador Inno Setup, aqui en el foro hay varios posts al respecto.

En cuanto a tu problema, puede que necesites en esos PC's las librerias que tienes en tu PC con el cual manejas tu programa.

Páginas: 1 ... 79 80 [81] 82 83 ... 123