Mensajes

no creo, por donde vivo tienden a tirar balazos al aire y cuidado!¡... al fin y al cabo siempre se termina festejando algo ese dia, aunq ue no sea lo que se marca en la fecha!¡

kill() es para archivo!¡.

Dulces Lunas!¡.

[rmdir()]

si con rmdir() en el evento correspondiente

y no, No todos tenemos un disco C:\

Ducles Lunas¡!.

Esto me allegado hoy a mi correo!¡.

y pues como lo ando sirculando ya sabran mi opinion al respecto!¡.

No deseo armar polemica, solo es para compartir!¡.





SÍ ESTÁS DE ACUERDO, CIRCÚLALA


Este 15 de Sep. No va a haber grito, va a haber silencio, por
México.
 
Hagamos algo con verdadero valor para México, algo que de verdad demuestre que estamos unidos, y en desacuerdo con la manera de combatir la inseguridad.

Este 15 y 16 de septiembre démosle la espalda a nuestros gobernantes.

Dejemos que ellos solo celebren las fiestas patrias, ellos sí tienen que festejar.

Que por primera vez en la historia de este país, el grito de
independencia y libertad sea un gran silencio de inconformidad y disgusto.

Que sientan los principales líderes y mandatarios de este país que nosotros también podemos darles la espalda.

Esto es lo que mueve, esto es lo que hace reaccionar, esto es saber que es tener a un país secuestrado, vivimos a la zozobra, entre rejas en nuestros hogares y comercios, con blindajes de todo tipo.
 
No estamos en tiempos de decir VIVA MÉXICO, ni de festejar nada, ni de ir aplaudirle al Ejercito, ni a al Mandatario, Gobernante en turno, que no han podido controlar ni darnos bienestar. Ni mucho menos seguridad que es lo mínimo que deben hacer, para eso se funda el estado.
   
Así que propongo que este 15 de Septiembre no haya grito sino un gran silencio de enojo y reclamo.

Dejemos solos a los gobernadores, al (los) mandatario (s) en sus respectivas plazas, que le den su grito al aire y a su familia y equipo de trabajo, que se lo crean ellos, no nos han servido absolutamente para nada, si se fijan sólo han aprobado las reformas que a ellos convienen ya sea para recibir más apoyos y/o votos.
 
Únete de verdad a este movimiento histórico por el bien de tu familia, de tu comunidad, de tu estado, de tu vida y del país en que vivimos todos.
   
Este 15 de Sep. No va a haber grito, va a haber silencio, por
México.
Demos el grito y festejemos (si hay algo que festejar) en nuestras casas con amigos y familiares y al desfile ni pararnos por ahí, los reconocimientos que hemos recibido últimamente son un par de medallas olímpicas y el primer lugar en secuestros ¡que lo festejen ellos!

LAS DIZQUE AUTORIDADES DEBERÍAN DE TENER MIEDO AL PUEBLO,NO EL PUEBLO A UNA BOLA DE RATAS, CORRUPTOS QUE SOLO VELAN POR SUS INTERESES 'HAY QUE APOYAR, ES MOMENTO DE HACER ALGO'.
 
¡VIVA MÉXICO!, sólo que sin las farsas de los gobernantes y su grito de independencia en las diferentes plazas cívicas de todo el país.




Dulce Infierno Lunar!¡.

.
Eso solo lee una clave del registro usa las apis para leer el registro de windows.
y por ultimo con expresiones regulares obtienes lo deseado.

Es lo que se entiende!¡.

P.D.: No creo que nadie te lo pase a VB6.

Dulces Lunas!¡.

Tienes varias Opciones:

Usar Rutas Relativas
Usar un archivo de Configuracion (Ruta de los Archivos, puedes usar el registro pero mejor un archivo xP).
MD5
obtener solo los cabesales o por firmas en los archivos ( Siempre deben estar estas en un mismo Offset del archivo )

So la sque se me ocurren, la verdad no se para que realmente deseas ahcer eso asi que bueno aqui tienes las ideas!¡.

Dulces Lunas!¡.

Edito:

Solo por aclarar en currency al obtener los valores salen con coma decimal por ello hay que multiplicar por 10000 para eliminarla, aun que puede trabajarse aun con ella...

Edicion 2

en tu codigo falta dividir una vez mas entre 1024 para obtener los Gigas!¡, en espacio utilizado como en espacio libre

Código (Vb) [Seleccionar] Expandir



Option Explicit

Private Declare Function GetDiskFreeSpaceEx Lib "kernel32" Alias "GetDiskFreeSpaceExA" _
       (ByVal lpRootPathName As String, _
        lpFreeBytesAvailableToCaller As Currency, _
        lpTotalNumberOfBytes As Currency, _
        lpTotalNumberOfFreeBytes As Currency) As Long

Private Sub Form_Load()
    Dim r As Long, BytesFreeToCalller As Currency, TotalBytes As Currency
    Dim TotalFreeBytes As Currency, TotalBytesUsed As Currency
    Const RootPathName$ = "c:\"
    Call GetDiskFreeSpaceEx(RootPathName, BytesFreeToCalller, TotalBytes, TotalFreeBytes)
    Me.AutoRedraw = True
    Me.Cls
    Me.Print "    Datos del Disco " & RootPathName
    Me.Print "Capasidad Total:"
    Me.Print ShowPrintForm(GetExpBytes(TotalBytes * 10000, 2))
    Me.Print
    Me.Print "Espacio Libre en " & RootPathName
    Me.Print ShowPrintForm(GetExpBytes(TotalFreeBytes * 10000, 2))
    Me.Print
    Me.Print "Bytes Disponibles en " & RootPathName
    Me.Print ShowPrintForm(GetExpBytes(BytesFreeToCalller * 10000, 2))
    Me.Print
    Me.Print "Espacio Utilizado en " & RootPathName
    Me.Print ShowPrintForm(GetExpBytes((TotalBytes - TotalFreeBytes) * 10000, 2))
End Sub

Private Function GetExpBytes(ByVal vVal As Currency, Optional Redondear As Long = -1) As Currency()
Dim TmpArr()    As Currency
Dim PtrArr&
   ReDim TmpArr(PtrArr&)
   TmpArr(PtrArr&) = vVal
   Do Until Val(TmpArr(PtrArr&) - 100) < 0
       PtrArr& = PtrArr& + 1
       ReDim Preserve TmpArr(PtrArr&)
       If Redondear < 0 Then
           TmpArr(PtrArr&) = TmpArr(PtrArr& - 1) / 1024
       Else
           TmpArr(PtrArr&) = Round(TmpArr(PtrArr& - 1) / 1024, Redondear)
       End If
   Loop
   GetExpBytes = TmpArr()
End Function

Private Function ShowPrintForm(ByRef RefCol() As Currency, Optional StrAbrev$ = "KMGT", Optional Sep$ = vbCrLf) As String
If (Not RefCol) = -1 Then Exit Function
Dim vByte(3) As Byte '  //  Index:QueCosa? --> 0:LBound();  1:Len();  2:Ubound():  3:IndexFor
   vByte(0) = LBound(RefCol) + 0
   ShowPrintForm = RefCol(vByte(0)) & " Bytes"
   vByte(1) = Len(StrAbrev$) + 0
   vByte(2) = UBound(RefCol) + 0
   If vByte(2) > vByte(1) Then vByte(2) = vByte(1)
   For vByte(3) = vByte(0) + 1 To vByte(2)
       ShowPrintForm = ShowPrintForm & Sep$ & RefCol(vByte(3)) & " " & Mid$(StrAbrev$, vByte(3), 1) & "Bytes"
   Next
End Function



Dulce Infierno Lunar!¡.

[la pregunta esta bastantemente clara]

@Petro_Boca

Eso no es lo que no desea, ya que la pregunta esta bastantemente clara, al rato veo que hago!¡.

Ducles Lunas!¡.

.
Solo es declarar las APIS en formato de VB.NET!¡.

P.D.: MSDN!¡.

Dulces Lunas!¡.

mmm que se cree un punto en la crreacion con datos originales tal cual, es decir se puedan modificar los datos, pero los 1eros siempre esten intactos!¡, posteriormente para que no se queden estos datos, para el primer logeo se pidan datos falsos que se almacen y se guarden pero los original (pruebas) aun esten intactos!¡.

Bueno eso seria solo una sugerencia xP

Dulces Lunas!¡.