Mensajes

Buenas, alguien tiene a mano algun modulo o codigo que no utilize WMI para obtener algo de información de un proceso (Nombre de usuario, Uso de la memoria, CPU, etc.)

Saludos.

Las estructuras deben tener un tamaño fijo, esto queire decir que si utilizas string vas a tener que darle una dimencion

Private Type st
    ss As String * 50
    ll As Long
End Type


de todas formas "creo" que aveces esto puede no funcionar, no recuerdo si era porque mesclaba integer, pero no me funciono.

creo que lo mas adecuado seria utilizar array de bits,

Private Type st
    tamañocadena as long
    cadena() as byte
    otracosa As Long
End Type


entonces en tamañocadena pones la dimencion del array de cadena().

bue nose igual proba con lo otro primero.

saludos.

ahora que veo un poco mejor es utilzar la parte negativa para ampliar la capacidad de un long

Hola en realidad 4295017295 es el valor maximo  por eso esa funcion me sirve, quizas esta mal decir que es un valor Currency

Es valor maximo del registro de windows en los tipos REG_DWORD

Saludos.

Soluciando

Código (Vb) [Seleccionar] Expandir


Option Explicit

Private Sub Form_Load()
'Debug.Print LongToCurrency(-1)
'Debug.Print CurrencyToLong(4294967295#)
Debug.Print BigHex(4294967295#)

End Sub


Private Function BigHex(ByVal value As Currency) As String
    BigHex = Hex(CurrencyToLong(value))
End Function

Private Function LongToCurrency(ByVal lVal As Long) As Currency
    If lVal < 0 Then
        LongToCurrency = 4294967296# + lVal
    Else
        LongToCurrency = lVal
    End If
End Function

Private Function CurrencyToLong(ByVal lVal As Currency) As Long
    If lVal > 2147483647# Then
        CurrencyToLong = lVal - 4294967296#
    Else
        CurrencyToLong = lVal
    End If
End Function


Saludos.

Hola como puedo convertir un valor Currency en Hexadecimal?
con la función Hex de vb me da desbordamiento

Debug.Print Hex(4294967295#)

Saludos.

hola fijate si te sirve
http://www.canalvisualbasic.net/foro/sistema/comprimir-y-descomprimir-usando-lineas-de-comandos-6120/

Saludos.

si mal no recuerdo si renombras la pagina no te agrega el script por ejemplo

paginaweb.dat o paginaweb.zip

total vos seguro que noqueres mostrar una web solo queres los datos del servidor.

saludos.

Hola ami en w7 me funciona bien, por las dudas como se llama tu proyecto, tiene espacios dentro del nombre?, en donde lo guardas, lo ejecutaste al menos una vez como para que se ejecute la linea SetAutoRun = true?

te fijaste si se escrivio en el registro en la clave
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run

saludos.