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


Tema destacado: ¿Eres nuevo? ¿Tienes dudas acerca del funcionamiento de la comunidad? Lee las Reglas Generales


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 8 9 10 11 [12] 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 ... 74
111  Programación / Programación Visual Basic / Re: [Reto] Show My Source Code. en: 21 Febrero 2011, 19:14 pm
P.D: Hecho en 15 Lineas, se puede reducir 3 lineas asi que son 12 :D

12 lineas?? yo utilize 150

Esactamente no valen textbox forms ni nada por que entonces tendran que mostrar el codigo fuente de los mismo ( Codigo diseño, eventos, etc... y eso es imposible ).

voy a hacer odios sordo a eso porque es parte del metodo que utilize, seguramente voy por mal camino. :-\
112  Programación / Programación Visual Basic / Re: [Reto] Show My Source Code. en: 21 Febrero 2011, 03:22 am
creo que ya lo tengo, supongo que lo que estoy haciendo es lo que pide el reto, asi que voy a tener que quedarme con las dudas hasta el 26

Saludos.
113  Programación / Programación Visual Basic / Re: [Reto] Show My Source Code. en: 20 Febrero 2011, 04:10 am
Esto no es posible tal como suena, mas bien parece un truco que simula lo que suena, para darce una idea cuando se compila se borran los comentarios.
supongo que deve ser algun tipo de adding que guardara el source dentro del ejecutable o algo asi.
114  Programación / Programación Visual Basic / Re: Command$ extraer archivos. en: 13 Febrero 2011, 23:13 pm
Muy bueno seba123neo  tampoco tenia en cuenta los caracteres especiales. la de Raul funciona pero lo limita los caracteres especiales.

Muchisimas gracias a todos.

115  Programación / Programación Visual Basic / Re: Command$ extraer archivos. en: 13 Febrero 2011, 22:42 pm
jaj es complicado ahora fijate que con el primer ejemplo no funciona
Código:
C:\Proyecto1.exe "C:\reto 123.exe" C:\imagen.png

yo lo intente pero me saco.
116  Programación / Programación Visual Basic / Re: Command$ extraer archivos. en: 13 Febrero 2011, 21:47 pm
Hola, no funcionan,  la de ignorantev1.1  no me devuelve nada, y la de Mr. Frog me esta devolviendo el path y cortado

proba con este ejemplo

Código:
"C:\Documents and Settings\Administrador\Escritorio\proRegEdit.exe" "C:\Documents and Settings\Administrador\Escritorio\MSNOIE8_ESES_XP.EXE"

Saludos.


117  Programación / Programación Visual Basic / Command$ extraer archivos. en: 13 Febrero 2011, 18:43 pm
Hola una pregunta, como puedo obtener la lista de archivos de la linea de argumentos Command$

por ejemplo:
Código:
C:\Proyecto1.exe "C:\reto 123.exe" C:\imagen.png

cuando la ruta de un archivo tiene espacio windows pone " , de lo contrario solo separa un archivo de otro con espacios

cual es la logica para estraer los archivos de la linea de comando.

Saludos.
118  Programación / Programación Visual Basic / Re: [PROYECTO] Procesamiento digital de imagen - Seguimiento de color por webcam en: 8 Febrero 2011, 15:56 pm
buena LixKeÜ  seguis con el proyecto, espero que le puedas sacar lo maximo

Saludos.
119  Programación / Programación Visual Basic / Re: Como convertir Unicode a ascii en: 8 Febrero 2011, 15:49 pm
hola quizas sea Unicode a UTF8 o al revez

Código:
Option Explicit

Private Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpDefaultChar As String, ByVal lpUsedDefaultChar As Long) As Long
Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long
Private Const CP_UTF8                   As Long = 65001

Public Function UTF82Unicode(ByVal sUTF8 As String) As String
    Dim UTF8Size        As Long
    Dim BufferSize      As Long
    Dim BufferUNI       As String
    Dim LenUNI          As Long
    Dim bUTF8()         As Byte
   
    If LenB(sUTF8) = 0 Then Exit Function
   
    bUTF8 = StrConv(sUTF8, vbFromUnicode)
    UTF8Size = UBound(bUTF8) + 1
   
    BufferSize = UTF8Size * 2
    BufferUNI = String$(BufferSize, vbNullChar)
   
    LenUNI = MultiByteToWideChar(CP_UTF8, 0, bUTF8(0), UTF8Size, StrPtr(BufferUNI), BufferSize)
   
    If LenUNI Then UTF82Unicode = Left$(BufferUNI, LenUNI)

End Function


Public Function Unicode2UTF8(ByVal strUnicode As String) As String
    Dim LenUNI          As Long
    Dim BufferSize      As Long
    Dim LenUTF8         As Long
    Dim bUTF8()         As Byte
   
    LenUNI = Len(strUnicode)
   
    If LenUNI = 0 Then Exit Function
   
    BufferSize = LenUNI * 3 + 1
    ReDim bUTF8(BufferSize - 1)
   
    LenUTF8 = WideCharToMultiByte(CP_UTF8, 0, StrPtr(strUnicode), LenUNI, bUTF8(0), BufferSize, vbNullString, 0)
   
    If LenUTF8 Then
        ReDim Preserve bUTF8(LenUTF8 - 1)
        Unicode2UTF8 = StrConv(bUTF8, vbUnicode)
    End If

End Function
120  Programación / Programación Visual Basic / Re: listbox especial en: 8 Febrero 2011, 15:43 pm
hola mira este control te puede servir, obiamente vas a tener que echar un poco de mano vos (no lo tengo actualizado pero puede que como este te sirva)

http://www.leandroascierto.com.ar/categoria/Controles%20de%20Usuario/articulo/ScrollControl.php

te recomiendo que pongas un Picture y los labels que quieras dentro despues tenes que ir jugando con array de controles.

Saludos.
Páginas: 1 2 3 4 5 6 7 8 9 10 11 [12] 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 ... 74
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines