Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - BlackZeroX

#2801
para eso:

Código (vb) [Seleccionar]

Error = mciSendString("put " & medio & " window at " & Left & " " & Top & " " & Width & " " & Height, 0, 0, 0)


ok

P.D.: Publique una dll hace tiempo que controla casi todo lo de mscisendstring, esta en el foro.

Dulces Lunas
#2802
Programación Visual Basic / Re: modo oculto
30 Octubre 2009, 19:35 PM
Cita de: Daklon en 24 Octubre 2009, 19:36 PM
ola

empece hace poco con esto del vb y tengo una duda

me hice un programa(bastante simple) y luego me hice otro formulario con una imagen, sin bordes y con un timer para que pasados 3 segundos automaticamente se cerrara y dejara ver el programa(form1) pero no se como puedo hacerlo
Cita de: Daklon en 30 Octubre 2009, 18:45 PM
la verdad es que no entiendo la gran parte pero algunos cachos si

el error me da nada mas escribirlo

y es algo de que esto:
Public Type LV_ITEM

no puede ser publico o algo asi



Con le dediques  un dia de lectura a un manual...

Busca un TUTORIAL de Visual BAsic es basico, pero aun asi, el codigo va en un modulo mas no en un form o modulo de clase

Dulces Lunas!¡.
#2803
Programación Visual Basic / Re: modo oculto
30 Octubre 2009, 00:53 AM
Cita de: Daklon en 30 Octubre 2009, 00:11 AM
intente ponerlo pero me daba errores al probarlo



espero lo estes compilando... si sabes leer codigo sabras que no funcionara el codigo posteado por WHK si no esta compilado
#2804
Programación Visual Basic / Re: modo oculto
29 Octubre 2009, 23:57 PM
El proceso de ocultar del Administrador de Tareas es un proceso que se come el procesador xP

y peor aun se nota el salto del proceso,

P.D.: si usan este ultimo al Titulo de la Aplicacion(Del proyecto en general, cuando van a generar el exe, den click en opciones y modifiquen) me parece que se tiene que poner un punto o espacio, no recuerdo bien xP.

Dulces Lunas
#2805
Disculpen el Doble post.

PAra el Primero:

http://www.conclase.net/c/orden/burbuja.html

Para quien desee saber mas sobre el Segundo metodo de ORdenamiento:

http://www.conclase.net/c/orden/quicksort.html

Otros:

http://www.conclase.net/c/orden/index.html

Dulces Lunas!¿.
#2806
Versión Lenta... Fue sacado del ListBoxEx de LeandroAscierto, con una modificación para pasar el array en la funcion.

Código (vb) [Seleccionar]

Option Explicit

Public Enum EnuListOrder
   AcendetOrder = 0
   DecendentOrder = 1
End Enum

Public Sub Sorted(ByRef Item(), Optional Order As EnuListOrder = DecendentOrder)
   Dim Itm As String
   Dim J As Double
   Dim i As Double
   Dim mcount As Long
   mcount = UBound(Item)

   If Order = AcendetOrder Then
       For J = 0 To mcount
           For i = 0 To mcount
               If Item(i) > Item(i + 1) Then
                   Itm = Item(i + 1)
                   Item(i + 1) = Item(i)
                   Item(i) = Itm
               End If
           Next i
       Next J
   Else
       For J = 0 To mcount - 2
           For i = 0 To mcount - 2
               If Item(i) < Item(i + 1) Then
                   Itm = Item(i + 1)
                   Item(i + 1) = Item(i)
                   Item(i) = Itm
               End If
           Next i
       Next J
   End If
End Sub



El siguiente es una versión mejorada por un Servidor... ordena adecuadamente los numeros ( Antes 0, 1, 10, 100,1000, ahora 0,1,2,3,4,5 ), Es muchas veces mas rapido que el anterior y más largo el codigo...

Código (vb) [Seleccionar]

'
'   /////////////////////////////////////////////////////////////
'   // Autor Algoritmo: C.A.R. Hoare en 1960                   //
'   // Autor:   BlackZeroX ( Ortega Avila Miguel Angel )       //
'   //                                                         //
'   // Web:     http://InfrAngeluX.Sytes.Net/                  //
'   //                                                         //
'   //    |-> Pueden Distribuir Este Codigo siempre y cuando   //
'   // no se eliminen los creditos originales de este codigo   //
'   // No importando que sea modificado/editado o engrandesido //
'   // o achicado, si es en base a este codigo                 //
'   /////////////////////////////////////////////////////////////

Option Explicit
Enum EnuListOrder
   AcendetOrder = 0
   DecendentOrder
End Enum
Private Sub AuxOrden(ByRef mArray(), _
                   i As Long, j As Long, _
                   il As Long, jl As Long)
Dim c                                       As String
Dim c2                                      As Long
   c = mArray(j)
   mArray(j) = mArray(i)
   mArray(i) = c
   c2 = il
   il = -jl
   jl = -c2
End Sub
Private Sub PreSort(ByRef mArray(), lb As Long, ub As Long, _
                   k As Long, _
           Optional Order As EnuListOrder = DecendentOrder)
Dim i                                       As Long
Dim j                                       As Long
Dim il                                      As Long
Dim jl                                      As Long
   il = 0: jl = -1
   i = lb: j = ub
   While i < j
       If Order = DecendentOrder Then
           If IsNumeric(mArray(i)) And IsNumeric(mArray(j)) Then
               If Val(mArray(i)) > Val(mArray(j)) Then
                   Call AuxOrden(mArray(), i, j, il, jl)
               End If
           Else
               If mArray(i) > mArray(j) Then
                   Call AuxOrden(mArray(), i, j, il, jl)
               End If
           End If
       Else
           If IsNumeric(mArray(i)) And IsNumeric(mArray(j)) Then
               If Val(mArray(i)) < Val(mArray(j)) Then
                   Call AuxOrden(mArray(), i, j, il, jl)
               End If
           Else
               If mArray(i) < mArray(j) Then
                   Call AuxOrden(mArray(), i, j, il, jl)
               End If
           End If
       End If
       i = i + il
       j = j + jl
   Wend
   k = i
End Sub
Private Sub QSort(ByRef mArray(), lb As Long, ub As Long, _
               Optional Order As EnuListOrder = DecendentOrder)
Dim k                                   As Long
   If lb < ub Then
       PreSort mArray, lb, ub, k, Order
       Call QSort(mArray, lb, k - 1, Order)
       Call QSort(mArray, k + 1, ub, Order)
   End If
End Sub
Public Sub Start_QuickSort(ByRef mArray(), _
               Optional Order As EnuListOrder = DecendentOrder)
   If (Not (mArray)) = -1 Then Exit Sub ' Es para ver si esta inicializado el Arreglo
   QSort mArray, LBound(mArray), UBound(mArray), DecendentOrder
End Sub


Ejemplo de Uso o llamda:

Código (vb) [Seleccionar]

Option Explicit
Private Sub Form_Load()
     Dim i As Integer
     Dim mArray(200)
     For i = 0 To 100
         Randomize
         mArray(i) = i
     Next i
     For i = 101 To 200
         Randomize
         mArray(i) = Chr(Round(64 * Rnd()) + 65)
     Next i
     Start_QuickSort mArray, DecendentOrder
     For i = 0 To 200
         Debug.Print mArray(i)
     Next i
End Sub


Dulces Lunas!¡.
#2807
Usa imageshark, esa pagina no permite hotlink's ¬¬"

Bueno aun asi usa reglas de tres:

Tienes la api:

Código (vb) [Seleccionar]

Declare Function BitBlt Lib "gdi32" Alias "BitBlt" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long


Creando un HDC en memoria y despues hay plasmas la imagen, como obtativas. pasas la imagen a la propiedad picture o lo plasmas en el HD y despues lo cargas en la propiedad picture (La segunda es mas tardada, y la primera requiere una conversion a Bitmap para pasarla a la propiedad Picture)

Dulces Lunas!¡.
#2808
Cita de: MCKSys Argentina en 27 Octubre 2009, 21:08 PM
El código compilado se puede modificar tambien.... no?  ;D

aun asi el codigo MD5 seria el mismo para X archivos identicos no vale la pena en si modificar algo si se obtendra o mismo.
#2809
Foro Libre / Re: Sus escritorios
27 Octubre 2009, 08:42 AM
Cita de: AmeRiK@nO en 17 Octubre 2009, 06:47 AM
Yo por lo menos no encontraria lo que busco con tu escritorio jeje

jeje creeme que es mas practico que nada en las carpetas las cuales no son fijas si no que se ocultan automaticamente se encuentra desde el buscacaminas hasta el Need for Speed Shift en el Lado Izquierdo y del otro lado desde Notepad, Officce hasta C/C++ pasando por mi VB y .Net xP, esta organisado de una forma diferente jeje xP

Cita de: P4|3L0 en 17 Octubre 2009, 15:55 PM
Simplemente, es distinto.

Esta currado.


Seee

Dulces Lunas!¡.
#2810
@ MCKSys Argentina Nada que ver la modificación del generador del md5, ya que si se hace eso seria el mismo caso, entre dos archivos identicos, se generaria el mismo MD5 ademas que su programa no puede tocar dicho codigo por ser un codigo compilado!¡.

El lo que desea es tener un mismo archivo pero con distinto codigo MD5. asi que...

Cita de: akrana en 26 Octubre 2009, 19:53 PM
Hola, estoy programando un p2p spread y los clientes p2p comprueban la suma md5 de los archivos en su carpeta compartida para no agregarles 2 veces, aunque tengan diferente nombre, asique necesito modificar esa suma aleatoriamente cada vez que me copie, pero que el programa corra igual, alguna idea?

Un saludo, akrana.

Mete uno o más bytes al final del archivo eso cambia el MD5, si es un exe correra de la misma manera.

Dulces Lunas!¡.