Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - cobein

Páginas: 1 ... 5 6 7 8 9 [10] 11 12 13 14 15 ... 24
136
Visual Basic 6 / Re:Shellcode vb6 help me
« en: Agosto 01, 2012, 06:53:53 pm »
Ok do you know how to code in assembly?

137
Visual Basic 6 / Re:Shellcode vb6 help me
« en: Agosto 01, 2012, 04:24:01 pm »
To compile the code in the example above I recommend you to use FASM that will generate a bin file that file will have the opcodes you need after that you can copy them with an hex viewer.

138
Visual Basic 6 / Re:Shellcode vb6 help me
« en: Agosto 01, 2012, 09:05:17 am »
First you can start checking some examples from planetsourcecode, go look up for Paul Caton and you will find many examples to help you out start with ASM. Here is an example with ASM source included http://planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=49798&lngWId=1


139
Visual Basic 6 / Re:control winsock para windows 7
« en: Julio 18, 2012, 09:13:44 am »
Busca Unisock  en PlanetSourceCode creo que ese funciona bien.

140
Visual Basic 6 / Re:Transferencia de archivos
« en: Julio 17, 2012, 05:38:27 pm »
No se a que te referis con "manipularlos" pero FTP es una buena opcion.

141
Bien el problema esta es que algunos de los controles que utilizaste no tienen propiedad container y eso causa el error, lo mas simple es poner un On Error Resume Next como en el ejemplo, no es lo mas elegante pero enumerar las propiedades es mas tedioso.

Código: [Seleccionar]
Private Function PackControls(ByVal objForm As Form, ByVal objContainer As Control) As String
    Dim sHash       As String
    Dim ctlObject   As Object

    On Error Resume Next
    For Each ctlObject In objForm.Controls
        If ctlObject.Container Is objContainer Then
            sHash = sHash & PackProperties(ctlObject)
        End If
    Next
   
    PackControls = HashString(sHash)
End Function

Algunos comentarios del codigo que me mandaste, no te olvides de agregar una referencia a TypeLib Information (Proyecto->Referencias) y lo otro es llama a Call cSignature.GetSignature(Me, Picture2) despues de haber cargado los datos en los controles, ejemplo si los datos los sacas de un DB cargas los mismo en los controles y lueago llamas a Call cSignature.GetSignature(Me, Picture2) y despues de eso en cualquier momento podes llamar cSignature.HasChanged(Me, Picture2) para ver si hay cambios.

Saludos

142
Pregunta, que parametros le pasas a la funcion al llamarla?

Si es posible podrias pasarme el form donde lo queres aplicar asi lo veo y arreglo el problema?

Por otro lado, lo que dice seba es verdad se puede hacer asi pero si tenes 20 controles vas a tener que agregar y comparar los 20 paramtros uno a uno y en algunos casos imagino que se puede volver tedioso.

143
Aca arme una clase para detectar cambios en las propiedades de los controles, se le pueden pasar las propiedades que se quiera ej: text, listindex, value etc y automagicamente va a verificar las propiedades de todos los controles dentro de un contenedor.

El proyecto utiliza una referencia a TypeLib Information. En la descarga hay un ejemplo de como se utiliza con varios controles standard de VB.

http://www.2shared.com/file/ndI_FTGx/ControlDataChange.html

Saludos

144
Visual Basic 6 / Re:Make Application Unkillable
« en: Julio 07, 2012, 12:10:27 pm »
Ill look for that code, not sure if I have it with me anymore, anyways the source your talking about uses a global hook to accomplish that but there are many ways to do it, you can set the process as critical too, its quite easy.

http://www.codeproject.com/Articles/43405/Protecting-Your-Process-with-RtlSetProcessIsCriti

145
Visual Basic 6 / Re:Controlar lo que se copia con windows.
« en: Junio 28, 2012, 05:58:50 pm »
FindFirstChangeNotification ,FindNextChangeNotification etc te permiten moniterear la atividad en el disco, con respecto a lo del portapapeles... FindNextChangeNotification es lo que necesitas pero no creo que sea fiable, el portapapeles no recive todos los eventos.

146
Visual Basic 6 / Re:De ListBox a TextBox + vbNewLine
« en: Junio 26, 2012, 08:28:27 am »
Código: [Seleccionar]
Private Sub Form_Load()

    'Llenamos el ListBox con datos de prueba

    Dim i As Integer
    For i = 1 To 100
        List1.AddItem i
    Next i

    'Llenamos el Textbox
   
    For i = 1 To List1.ListCount
        Text1.Text = Text1.Text & List1.List(i - 1)
        If i Mod 5 = 0 Then Text1.Text = Text1.Text & vbNewLine
    Next i

End Sub

147
Visual Basic 6 / [SRC] ValBox UserControl
« en: Junio 22, 2012, 05:29:56 pm »
Bueno necesitaba este control asi que lo hice, es un texbox numerico con varias propiedades interesantes, el control soporta diferentes formatos como ser, moneda, porcentaje, enteros y decimales. Tambien corrige el problema que tenia con el separador decimal entre otras cosas.



http://www.2shared.com/file/e_7Dt2OK/ValBox.html

148
Si a mi tambien me abrio sin problemas, le puse oculto, solo lectura y lo abrio.

149
Buenas, estaba haciendo un programita y queria agregar la posibilidad de importar y utilizar las cuentas de usuario de Active Directory, mas que nada para que los usuarios utilicen un solo password y no necesiten recordar varias credenciales. Adjunto el codigo con un ejemplo.

Modifique algunas rutinas que en Window$ 7 no funcionaban correctamente.

Updated:
http://www.2shared.com/file/umK3NQVP/Login.html

Saludos.

150
Visual Basic 6 / Re:Decimales... la historia sin fin
« en: Junio 07, 2012, 11:04:21 am »
Bien aca hice un modulo para arreglar el problemita que tengo con VAL.

Código: (VB) [Seleccionar]
'---------------------------------------------------------------------------------------
' Module    : mVal
' Author    : Cobein - cobein27@gmail.com
' Date      : 07/06/2012
' Purpose   : Fix issue using VAL on a system with comma as a decimal separator.
'             Native VAL will be overridden by this function
'---------------------------------------------------------------------------------------
Option Explicit

Private Const LOCALE_SDECIMAL   As Long = &HE

Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long
Private Declare Function GetThreadLocale Lib "kernel32" () As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)

Private m_sSeparator            As String
Private m_bInitialized          As Boolean

Private Sub Init()
    m_sSeparator = GetDecimalSeparator
    m_bInitialized = True
End Sub

Public Function Val(sVal As String) As Double
    If Not m_bInitialized Then Init
    Val = VBA.Conversion.Val(Replace(sVal, m_sSeparator, "."))
End Function

Private Function GetDecimalSeparator() As String
    Dim sBuff   As String
    Dim lLen    As Long
   
    sBuff = Space$(260)
    GetDecimalSeparator = "."
    lLen = GetLocaleInfo(GetThreadLocale, LOCALE_SDECIMAL, sBuff, 260)
    If Not lLen = 0 Then GetDecimalSeparator = Left$(sBuff, lLen - 1)
End Function

Páginas: 1 ... 5 6 7 8 9 [10] 11 12 13 14 15 ... 24