elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Introducción a la Factorización De Semiprimos (RSA)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  problemas con codigo un fichero asociado a una aplicacion
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: problemas con codigo un fichero asociado a una aplicacion  (Leído 1,387 veces)
ELGRANSOLRAC

Desconectado Desconectado

Mensajes: 91


Ver Perfil
problemas con codigo un fichero asociado a una aplicacion
« en: 16 Febrero 2006, 01:04 am »

Hola a todos:
Mi problema es que tengo un codigo que asocia un fichero con una extension por ejemplo .BAR a una aplicacion concreta.
Cuando pinchas en el fichero con la extension .BAR llama a mi aplicacion y yo lo que quisiera esque mi aplicacion tiene un textbox y se visualizaran los datos en el textobox automaticamente.
Si es posible agradecceria ayuda esto loco buscando por hay Gracias...
Código:

Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" _
(ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" _
(ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal _
lpData As String, ByVal cbData As Long) As Long

Const ERROR_SUCCESS = 0&
Const ERROR_BADDB = 1&
Const ERROR_BADKEY = 2&
Const ERROR_CANTOPEN = 3&
Const ERROR_CANTREAD = 4&
Const ERROR_CANTWRITE = 5&
Const ERROR_OUTOFMEMORY = 6&
Const ERROR_INVALID_PARAMETER = 7&
Const ERROR_ACCESS_DENIED = 8&
Private Const HKEY_CLASSES_ROOT = &H80000000
Private Const MAX_PATH = 260&
Private Const REG_SZ = 1



Private Sub Command1_Click()
Dim sKeyName As String
Dim sKeyValue As String
Dim ret&
Dim lphKey&

'Crea una entrada llamada `MyApp`.
    sKeyName = "MyApp"
    sKeyValue = "My Application"
    ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)
    ret& = RegSetValue&(lphKey&, "", REG_SZ, sKeyValue, 0&)
'Asocia la extensión .BAR a "MyApp".
    sKeyName = ".BAR"
    sKeyValue = "MyApp"
    ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)
    ret& = RegSetValue&(lphKey&, "", REG_SZ, sKeyValue, 0&)
'Establece la ruta de `MyApp`.
    sKeyName = "MyApp"
    sKeyValue = "c:\my.exe %1"
    ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)
    ret& = RegSetValue&(lphKey&, "shell\open\command", REG_SZ, sKeyValue, MAX_PATH)


End Sub


En línea

APOKLIPTICO


Desconectado Desconectado

Mensajes: 3.871


Toys in the attic.


Ver Perfil
Re: problemas con codigo un fichero asociado a una aplicacion
« Respuesta #1 en: 16 Febrero 2006, 05:47 am »

Código:
Private Sub Form_Load()
Open Command For Binary As #1
Dim chars As String * 1
Do Until EOF(1)
DoEvents
Get #1, , chars
textbox1 = textbox1 & chars 'donde textbox1 es el nombre de la caja de texto
Loop
End Sub


En línea

AMD Phenom II 1075T X6 @ 290 Mhz x 11 (HT 2036 Mhz NB Link 2616 Mhz) 1.23 Vcore
ASUS M4A89GTD-PRO/USB3
2x2gb G-Skill RipjawsX DDR3 1600 Mhz CL7 (7-8-7-24-25-1T)
Seagate 500 Gb
XFX HD4850 512Mb GDDR3. 650 Mhz/995 Mhz 1.1 Tflops.
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[Codigo] Rubenix (fichero BAT + NIRCMD)
Scripting
777Rubenix777 2 4,253 Último mensaje 31 Enero 2011, 13:35 pm
por 777Rubenix777
SOS Racismo, contra una aplicación que publica un fichero de personalidades ...
Noticias
wolfbcn 0 1,777 Último mensaje 14 Septiembre 2011, 01:33 am
por wolfbcn
Problemas con código ASM
ASM
Cristhian_Rider 0 3,530 Último mensaje 16 Noviembre 2011, 21:38 pm
por Cristhian_Rider
AYUDA: Encapsular el codigo en un .COM (DLL) y luego llamarlo en la aplicacion.
.NET (C#, VB.NET, ASP)
rooten 0 1,806 Último mensaje 8 Junio 2012, 09:37 am
por rooten
Problemas con fichero jar
Java
shmarte 1 3,995 Último mensaje 17 Julio 2023, 14:42 pm
por yuzielin
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines