Mensajes

[GlobalAlloc]

buenas
ultimamente estoy en esas cosa de la memoria
y tengo esa duda como puedo crear un "espacio de memoria" e pensado quiza en la api GlobalAlloc tambien en la
VirtualAlloc
y cuando cree mi espacio en la memoria poder poner cualquier programa en ese espacio digamos el notepad
que apis o que referencia o acerca de que buscar

genial
mi ignorancia lo que me hace preguntar para la proxima investigare mas
es Ftp no... ?

alguna referencia
es como te  digo sé programar en vb pero esto que necesito hacer no se como es que funciona

buenas yo no se mucho sobre programacion web y eso
nose como funciona pero mi idea lo que quiero hacer es
subir texto y/o archivos a una web ( no lo se si puede llamar web, creo ques ftp ) mi programa se conecte a una web
y la web pedira contraseña y usuario ( el programa tendra es informacion )
bueno no se si esto que hablo es ftp es que yo no se nada de esas cosas de web
en el caso del texto la web tendra una caja de texto donde el programa inserte ese texto a la caja
espero que me entendais y quisiera saber como es todo esto es FTP ?
o una web o que

  si yo e visto codigos de el y es bastante muy bueno
habria de ver si ya no se conecta...

    increible no puedo creerlo 

 
me ah gustado tio
por otra parte ahora me probad con negativos me e fijado que la mia no funciona con negativos
la modificare

como funcionan tus funciones a mi no me da
digamos la primera el bin:
11111111000000001111111100000000

parametros 8,8

se supone que debe de devolver 1111 1111
devuelve 65280 osea con 0's

PD: me equivoque
entonces deberia devolver 0

[010]

buenas, comparto estos codes que hice que me son de mucha utilidad cuando trabajan con bits

Código (VB) [Seleccionar] Expandir



'--------------------------Mid de Bits----------------------------------
' obtenemos solamente la cantidad y la posicion de bits que queremos
Function MidBit(DWord As Long, StartB As Byte, LengthB As Byte) As Long
Dim ln      As Byte
Dim sleft   As Byte
Dim FFFF   As Long

    ln = LenBi(DWord)
    sleft = (ln - StartB) + 1

    ' Obtemos la mascara creada por los mismo bits
    ' 1111 1111 1111 1111... ?
    Do While sleft
        FFFF = (FFFF * 2) + 1
        sleft = sleft - 1
    Loop
   
    MidBit = FFFF And DWord
    MidBit = MidBit \ 2 ^ (ln - ((StartB - 1) + LengthB))
End Function
' By Raul100 no quitar texto

La funcion MIdBit usa la funcion LenBits pueden agregarle el codigo de la funcion lenBits al Midbits tambien...
Algo importante la funcion MidBit trata directamente con los Bits asi que debemos saber cuando bits usa el numero
que introduciremos esta funcion toma en cuenta los 0's a la izquierda ( es normal ) porque obviamente no valen nada.


Tambien algo importante MidBit NO es toma los Bits como Cadenas
Por ejemplo si tenemos este binario:
0000 0010 0010 0000
queremos obtener los Bits que esta en negrita, Obtendremos 10 ( el 0 de la izquierda no vale nada )
eso es de esperarselo tambien se puede modificar para que lo obtenga pero no tendria logica
lo correcta es que no lo tome

Código (VB) [Seleccionar] Expandir


'----------------------LenBits--------------------------
' Obtenemos la longitud de bits en "uso"
' LenBits para 32 Bits...
Function LenBi(Bits As Long) As Byte
Dim l   As Long: l = 1
Dim c   As Byte

    'Max = 0000 0000 0000 0000 0000 0000 0000 0000 = 32 Bits
    Do
        l = l * 2: c = c + 1
        If ((&H80000000 / l) And Bits) Then l = 0
    Loop While l
LenBi = &H20 - c
End Function
' By Raul100 no quitar texto


La funcion LenBi obtiene el numero de bits en "uso"
por ejemplo el binario:
0000 0001 0101 0010
Obtendremos 9 ( los bits de la izquierda no valen nada )
y es logico y no tendria sentido sino usaramos la de VB
es mas yo creo que asi funciona la funcion real de VB creo

las funciones son para 32Bits se pueden modificar para 64Bits usando dos de tipo Longs tambien

hoy ultimamente no acepto nada de aplicaciones porque ahora cualquier puede hacer una aplicacion en facebook
para sus propositos pero nose
aqui hay info:

http://randymatheson.com/takethislollipop-com-will-send-you-running-to-lock-your-doors/

http://adage.com/article/digitalnext/jason-zada-created-facebook-s-scariest-viral-sensation/230609/