Mensajes

[Link con informacion que deberian leer]

Abro un nuevo tema asi todos se enteran de que esta esto.

Aca les dejo un link con infoemacion y tres estructuras para crear manifests para Vista y obtener distintos privilegios.

Link con informacion que deberian leer
http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=463884&SiteID=1

Estructura de 3 manifest para Vista

Código [Seleccionar] Expandir

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
   <assemblyIdentity
      name="App Name"
      processorArchitecture="x86"
      version="1.0.0.0"
      type="win32"/>
   <description>Application description here</description>
   <dependency>
      <dependentAssembly>
         <assemblyIdentity
            type="win32"
            name="Microsoft.Windows.Common-Controls"
            version="6.0.0.0"
            processorArchitecture="x86"
            publicKeyToken="6595b64144ccf1df"
            language="*"
         />
      </dependentAssembly>
   </dependency>
   <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
      <security>
         <requestedPrivileges>
            <requestedExecutionLevel
               level="asInvoker"
               uiAccess="False"/>
         </requestedPrivileges>
      </security>
   </trustInfo>
</assembly>



<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
   <assemblyIdentity
      name="App Name"
      processorArchitecture="x86"
      version="1.0.0.0"
      type="win32"/>
   <description>Application description here</description>
   <dependency>
      <dependentAssembly>
         <assemblyIdentity
            type="win32"
            name="Microsoft.Windows.Common-Controls"
            version="6.0.0.0"
            processorArchitecture="x86"
            publicKeyToken="6595b64144ccf1df"
            language="*"
         />
      </dependentAssembly>
   </dependency>
   <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
      <security>
         <requestedPrivileges>
            <requestedExecutionLevel
               level="highestAvailable"
               uiAccess="False"/>
         </requestedPrivileges>
      </security>
   </trustInfo>
</assembly>


<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
   <assemblyIdentity
      name="App Name"
      processorArchitecture="x86"
      version="1.0.0.0"
      type="win32"/>
   <description>Application description here</description>
   <dependency>
      <dependentAssembly>
         <assemblyIdentity
            type="win32"
            name="Microsoft.Windows.Common-Controls"
            version="6.0.0.0"
            processorArchitecture="x86"
            publicKeyToken="6595b64144ccf1df"
            language="*"
         />
      </dependentAssembly>
   </dependency>
   <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
      <security>
         <requestedPrivileges>
            <requestedExecutionLevel
               level="requireAdministrator"
               uiAccess="False"/>
         </requestedPrivileges>
      </security>
   </trustInfo>
</assembly>

Para escalar privilegios en Vista podes hacerlo manualmente como lo comentaron o a traves de un manifest aca adjunto un link con la informacion.

http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=463884&SiteID=1

Aca les dejo dos funciones para trabajar con archivos de tamaño superior a los 2GB.

Código (vb) [Seleccionar] Expandir


Private Const Bit31                         As Currency = 2147483647@
Private Const Bit32                         As Currency = 4294967295@

Private Declare Function SetFilePointer Lib "kernel32" (ByVal hFile As Long, ByVal lDistanceToMove As Long, lpDistanceToMoveHigh As Long, ByVal dwMoveMethod As Long) As Long
Private Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long

Private Function GetFileSizeEx(ByVal hFile As Long) As Currency
    Dim lLow    As Long
    Dim lHigh   As Long
    lLow = GetFileSize(hFile, lHigh)
    Call ToLargeInt(GetFileSizeEx, lLow, lHigh)
End Function

Private Function SetFilePointerEx(ByVal hFile As Long, ByVal lDistanceToMove As Currency, ByVal dwMoveMethod As Long) As Currency
    Dim lLow    As Long
    Dim lHigh   As Long
   
    Call FromLargeInt(lDistanceToMove, lLow, lHigh)
    lLow = SetFilePointer(hFile, lLow, lHigh, dwMoveMethod)
    Call ToLargeInt(SetFilePointerEx, lLow, lHigh)
End Function

Private Sub FromLargeInt(ByVal cLargeInt As Currency, ByRef lLow As Long, ByRef lHigh As Long)
    Do Until cLargeInt < Bit32
        lHigh = lHigh + 1
        cLargeInt = cLargeInt - Bit32
    Loop
    If cLargeInt > Bit31 Then
        lLow = -CLng(Bit32 - (cLargeInt - 1))
    Else
        lLow = CLng(cLargeInt)
    End If
End Sub

Private Sub ToLargeInt(ByRef cLargeInt As Currency, ByVal lLow As Long, ByVal lHigh As Long)
    cLargeInt = Bit32 * lHigh
    If lLow < 0 Then
        cLargeInt = cLargeInt + (Bit32 + (lLow + 1))
    Else
        cLargeInt = cLargeInt + lLow
    End If
End Sub



Es bastante precario, espero que sea util

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
    Dim sVal        As String
    Dim sCheck      As String
    Dim i           As Long
    Dim svData()    As Byte
    Dim sPacket     As String
   
    sVal = "25" '// Valor

    sVal = Right$(String(5, "0") & sVal, 5) '// Formateado para tener un largo de 5 caracteres
   
    svData = StrConv(sVal, vbFromUnicode) '// Lo convertimos en un bytearray
   
    For i = 1 To 4
        svData(0) = svData(0) Xor svData(i) '// Checksum
    Next

    sCheck = Chr$(svData(0)) '// convertimos el valor del checksum en un caracter
   
'////////////////////////////////////////// Corregido
  sPacket = Chr$(&H39) & Chr$(&H38) & sVal & sCheck & vbCr & vbLf '// armamos el pedido
   
    Debug.Print sPacket
End Sub

Hola, tendrias que buscar un poco mas, creo que postie unas 10 veces este codigo.

http://www.uploadsourcecode.com.ar/d/gT4O9xhOYguVS6IGuRDWvT3qT9B1rcH5

@Tughack
Si, al parecer te equivocaste, es bueno que lo aceptes,"herrar es humano" como te habras dado cuenta las apariencias engañan.
Pero no te hagas problema es solamente algo menor, yo sigo manteniendo la misma opinion acerca de vos.

[Lee esto.]

HAHHAAH alguna vez me tenia que tocar... venia teniendo suerte de que no comentes nada acerca de mis posts =),  si es por dejarlo aprender tendrias que haber puesto la referecia a la API y dejarlo investigar por su cuenta.

Con respecto a las constantes tenes razon, gracias por el dato, de ahora en mas lo voy a usar siempre

La primer respuesta tendria que haber sido esta.

Lee esto.
http://msdn.microsoft.com/en-us/library/ms633545(VS.85).aspx

Pone esto en el general (arriba de todo)

Código [Seleccionar] Expandir

Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)


y en el load del form esto

Código [Seleccionar] Expandir

Private Sub Form_Load()
    Call SetWindowPos(Me.hWnd, -1, 0, 0, 0, 0, &H53)
End Sub

El ArrayAdd es para agregar un Socket, los maneja al estilo coleccion.

Te recomiendo bajarte los ejemplos de PSC y mirarlos ahi esta muy claro como funciona.

A ver, no nos saquemos los ojos, lo mio fuo una critia u observacion nada mas, hice una critica con su respectiva justificacion para que si el considera que es valedera corrija el code y aprenda de ello, nada mas, esto no es una competencia de nada, personalmente valoro su aporte.

Con respecto a lo que decian, el modulo que hice NO es mejor que nada, es simple y esta incompleto, es solamente lo que necesitaba, no tiene enumeracion ni muchas cosas mas que tendria que tener para ser considerado siquiera COMPLETO.