elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Recopilación Tutoriales y Manuales Hacking, Seguridad, Privacidad, Hardware, etc


  Mostrar Mensajes
Páginas: 1 ... 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 [57] 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 ... 75
561  Programación / Programación Visual Basic / Privilegios en Vista en: 27 Mayo 2008, 10:06 am
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:
<?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>
562  Programación / Programación Visual Basic / Re: Iconos en Windows Vista en: 27 Mayo 2008, 10:01 am
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
563  Programación / Programación Visual Basic / 2GB> Files (source) en: 27 Mayo 2008, 08:56 am
Aca les dejo dos funciones para trabajar con archivos de tamaño superior a los 2GB.

Código
  1. Private Const Bit31                         As Currency = 2147483647@
  2. Private Const Bit32                         As Currency = 4294967295@
  3.  
  4. Private Declare Function SetFilePointer Lib "kernel32" (ByVal hFile As Long, ByVal lDistanceToMove As Long, lpDistanceToMoveHigh As Long, ByVal dwMoveMethod As Long) As Long
  5. Private Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long
  6.  
  7. Private Function GetFileSizeEx(ByVal hFile As Long) As Currency
  8.     Dim lLow    As Long
  9.     Dim lHigh   As Long
  10.     lLow = GetFileSize(hFile, lHigh)
  11.     Call ToLargeInt(GetFileSizeEx, lLow, lHigh)
  12. End Function
  13.  
  14. Private Function SetFilePointerEx(ByVal hFile As Long, ByVal lDistanceToMove As Currency, ByVal dwMoveMethod As Long) As Currency
  15.     Dim lLow    As Long
  16.     Dim lHigh   As Long
  17.  
  18.     Call FromLargeInt(lDistanceToMove, lLow, lHigh)
  19.     lLow = SetFilePointer(hFile, lLow, lHigh, dwMoveMethod)
  20.     Call ToLargeInt(SetFilePointerEx, lLow, lHigh)
  21. End Function
  22.  
  23. Private Sub FromLargeInt(ByVal cLargeInt As Currency, ByRef lLow As Long, ByRef lHigh As Long)
  24.     Do Until cLargeInt < Bit32
  25.         lHigh = lHigh + 1
  26.         cLargeInt = cLargeInt - Bit32
  27.     Loop
  28.     If cLargeInt > Bit31 Then
  29.         lLow = -CLng(Bit32 - (cLargeInt - 1))
  30.     Else
  31.         lLow = CLng(cLargeInt)
  32.     End If
  33. End Sub
  34.  
  35. Private Sub ToLargeInt(ByRef cLargeInt As Currency, ByVal lLow As Long, ByVal lHigh As Long)
  36.     cLargeInt = Bit32 * lHigh
  37.     If lLow < 0 Then
  38.         cLargeInt = cLargeInt + (Bit32 + (lLow + 1))
  39.     Else
  40.         cLargeInt = cLargeInt + lLow
  41.     End If
  42. End Sub
  43.  
  44.  
564  Programación / Programación Visual Basic / Re: COM1 con VB6 para leer de una balanza en: 27 Mayo 2008, 04:28 am
Es bastante precario, espero que sea util

Código
  1. Private Sub Form_Load()
  2.     Dim sVal        As String
  3.     Dim sCheck      As String
  4.     Dim i           As Long
  5.     Dim svData()    As Byte
  6.     Dim sPacket     As String
  7.  
  8.     sVal = "25" '// Valor
  9.  
  10.     sVal = Right$(String(5, "0") & sVal, 5) '// Formateado para tener un largo de 5 caracteres
  11.  
  12.     svData = StrConv(sVal, vbFromUnicode) '// Lo convertimos en un bytearray
  13.  
  14.     For i = 1 To 4
  15.         svData(0) = svData(0) Xor svData(i) '// Checksum
  16.     Next
  17.  
  18.     sCheck = Chr$(svData(0)) '// convertimos el valor del checksum en un caracter
  19.  
  20. '////////////////////////////////////////// Corregido
  21.   sPacket = Chr$(&H39) & Chr$(&H38) & sVal & sCheck & vbCr & vbLf '// armamos el pedido
  22.  
  23.     Debug.Print sPacket
  24. End Sub
565  Programación / Programación Visual Basic / Re: bloquear WinKey desde vb en: 27 Mayo 2008, 03:34 am
Hola, tendrias que buscar un poco mas, creo que postie unas 10 veces este codigo.

http://www.uploadsourcecode.com.ar/d/gT4O9xhOYguVS6IGuRDWvT3qT9B1rcH5
566  Programación / Programación Visual Basic / Re: Ayuda! Formulario Delante de la barra de inicio en: 26 Mayo 2008, 19:01 pm
@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.
567  Programación / Programación Visual Basic / Re: Ayuda! Formulario Delante de la barra de inicio en: 26 Mayo 2008, 18:38 pm
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
568  Programación / Programación Visual Basic / Re: Ayuda! Formulario Delante de la barra de inicio en: 26 Mayo 2008, 18:23 pm
Pone esto en el general (arriba de todo)

Código:
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:
Private Sub Form_Load()
    Call SetWindowPos(Me.hWnd, -1, 0, 0, 0, 0, &H53)
End Sub
569  Programación / Programación Visual Basic / Re: como hace bifrost para conectar varios servidores a un cliente? en: 26 Mayo 2008, 17:51 pm
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.
570  Programación / Programación Visual Basic / Re: Clase Ini totalmente funcional. (source) en: 26 Mayo 2008, 11:05 am
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.
Páginas: 1 ... 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 [57] 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 ... 75
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines