Mensajes

claro, no deja editarlo

pero nose porque no puedo mover las scrollbars :S

sera un fallo tonto digo yo,sabriais porque puede ser?

quizas el asunto deberia ser, denegar edicion de un lsitview, porque si lo bloqueas seria distinto, culpa mia

no,no la tiene

como me voy a ponerme a hacer un listview?, seria manera de complicarse la vida 

Queria hacer una pregunta mientras busco por google

Se pueden bloquear los listviews para evitar su edicion?

un saludo, si encuentro la respuesta lo pongo, sera una buena pregunta a mi parecer, simple pero que sirve



Change your LabelEdit property to "1 - lvwManual" instead of "0 = lvwAutomatic".

Esto no es mas o menos lo que busco, pero a alguien le podria servir, sirve para que no detecte los cambios, pero aun asi se puede editar

Bueno, me tomare un poco de mi batido de vainilla antes de comentar toda esta tirada

Tengo un equipo con windows 2000, al cual intento instalarle una aplicacion de desinstale en su tiempo, aora me la he descargado, intento iniciar el autorun o el setup.exe y no ejecuta ni el proceso ni tira nada al visor de eventos


He realizado las siguientes comprobaciones antes de decir nada :p

Iniciar en modo a prueba de fallos
Iniciar con otro usuario diferente

Desfragmentra disco
Analizar con el Av

Pasar el ccleaner
Pasar el regcleaner
Pasar el Wash and Go

Limpiar el Registro a pelo de claves que se deja el propio programa (fallo de desinstalacion >S, eso no se hace caca)

Intentado ejecutar setup y autorun desde terminal
Intentado instalar el programa desde un cd con el agregar o quitar programas

Comprobado el visor de eventos, no arroja nada
Comprobar el admin de tareas por si ejecuta proceso, no lo hace

He actualizado el wmi a la 3.1
He realizado las actualizaciones del sistema

He comprobado las aplicaciones al inicio de windows, ninguna sospechosa, soudman..etc ya comprendeis

He comprobado si era fallo de los archivos, he intentado con 3 instalaciones
He probado renombrando el archivo, nanai de la china

He mirado en las policies que no tenga ninguna funciona capada, ademas soy el admin :S

Por ahora creo que hice eso, algo se me olvidara fijo, si teneis la minima idea de porque puede ser, contadmelo

Tambien estaba pensando entrar como usuario System e intentar instalarlo, como se ve la cosa?

ok entonces uso apis, muchas gracias ^^

Veran, necesito leer los valores de este lugar

hkcu\software\microsoft\windows\currentversion\run

beno, de este y de otros mas, la cosa que cuando quiero leer todos los valores que contiene tira este error

No se pudo abrir la clave de registro ..... para leerla

a que se debera? que hago mal vamos

Código (vb) [Seleccionar] Expandir

Private Function registro()
    Dim regedit As Object
    Dim claves As String
   
    Set regedit = CreateObject("Wscript.Shell")
   
    claves = regedit.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run")
   
    MsgBox claves
   
    Set regedit = Nothing
   
End Function


saludos

Aqui mi actual escritorio, que cambio mucho jeje

Os dejo este programa, para que al capturar pantalla no tengais que ir a el paint y todo ese embrollo, aunque en distros de linux no hace falta :p

http://foro.elhacker.net/programacion_vb/vb_60_clip_manage_by_50l3r_gestiona_tu_clipboard-t286112.10.html

quizas pueda tratarse de un error de protocolo, no creo, pero esta ultima version que sacaron a mi me da fallos como que algunos contactos estan en no conectados y en ebuddy, y en si estan conectados en casa desde el msn

Veran, estoy creando un bot no maligno que lo unico que haga sea contestar a lo que le dices, bien, estoy sacando la informacion del protocolo de esta pagina:

http://msnpiki.msnfanatic.com/index.php/MSNP13:Example_Session

he llegado hasta la parte en el que te mandan las policies, que tienes que realizar esta accion que es el passport 3.0

http://msnpiki.msnfanatic.com/index.php/MSNP13:SOAPTweener

una vez esto esta bien, deberian mandarte como un tipo de cookie que esta alojado en una variable "t" que te mandan

la cosa es que necesito recoger eso con una solicitud sll, ya que ya no permiten conexion http, y me meti con winhttp

me podriais dar un ejemplo de como mandar lo que debo mandar ahi para que me de la variable t que necesito? estoy perdidisimo, os dejo el code de lo que hice hasta el momento para que lo veais:

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'espera

Public ct As Long
Public rver As String
Public wp As String
Public lc As Long
Public id As Long
Public ru As String
Public tw As Integer
Public kpp As Integer
Public kv As Integer
Public ver As String
Public rn As String
Public tpf As String






Private Sub Form_Load()
    luz = False
    Call conectar("messenger.hotmail.com")
End Sub



Private Sub wsk_Connect()
wsk.SendData "VER 1 MSNP18 MSNP17 CVR0" & vbCrLf
End Sub

Private Sub wsk2_Connect()
wsk2.SendData "VER 4 MSNP18 MSNP17 CVR0" & vbCrLf
End Sub

Private Sub wsk3_Connect()
wsk3.SendData "GET /login2.srf HTTP/1.1" & vbCrLf
wsk3.SendData "Authorization: Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F%2Fmessenger%2Emsn%2Ecom,sign-in=soler-cueto%40hotmail.com,pwd=081191,lc=" & lc & ",id=" & id & ",tw=" & tw & ",fs=1,ru=" & ru & ",ct=" & ct & ",kpp=" & kpp & ",kv=" & kv & ",ver=" & kv & ",tpf=" & tpf
wsk3.SendData "User-Agent: MSMSGS" & vbCrLf
wsk3.SendData "Host: login.passport.com" & vbCrLf
wsk3.SendData "Connection: Keep-Alive" & vbCrLf
wsk3.SendData "Cache-Control: no-cache" & vbCrLf & vbCrLf

txtprueba.Text = "GET /login2.srf HTTP/1.1" & vbCrLf
txtprueba.Text = txtprueba.Text & "Authorization: Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F%2Fmessenger%2Emsn%2Ecom,sign-in=soler-cueto%40hotmail.com,pwd=password,lc=" & lc & ",id=" & id & ",tw=" & tw & ",fs=1,ru=" & ru & ",ct=" & ct & ",kpp=" & kpp & ",kv=" & kv & ",ver=" & ver & ",tpf=" & tpf
txtprueba.Text = txtprueba.Text & "User-Agent: MSMSGS" & vbCrLf
txtprueba.Text = txtprueba.Text & "Host: login.passport.com" & vbCrLf
txtprueba.Text = txtprueba.Text & "Connection: Keep-Alive" & vbCrLf
txtprueba.Text = txtprueba.Text & "Cache-Control: no-cache" & vbCrLf & vbCrLf
End Sub




Private Sub wsk_DataArrival(ByVal bytesTotal As Long)
Dim arrays() As String
Dim devu As String
Dim comprobando As Integer

    wsk.GetData devu
   
    txtdevu.Text = txtdevu.Text & vbCrLf & "Servidor: " & devu
   
    MsgBox devu
   
   
   
    comprobando = InStr(1, devu, "VER")
    If comprobando <> 0 Then
        wsk.SendData "CVR 2 0x0C0A winnt 5.1 i386 MSNMSGR 6.0.0602 MSMSGS soler-cueto@hotmail.com" & vbCrLf
        Exit Sub
    End If
   
    comprobando = InStr(1, devu, "CVR")
    If comprobando <> 0 Then
        wsk.SendData "USR 3 TWN I soler-cueto@hotmail.com" & vbCrLf
        Exit Sub
    End If
   
    comprobando = InStr(1, devu, "XFR")
    If comprobando <> 0 Then
        arrays = Split(devu, " ")
        arrays = Split(arrays(3), ":")
        If arrays(0) <> "" Then
            Call conectar2(arrays(0))
        End If
        Exit Sub
    End If



End Sub

Private Sub wsk2_DataArrival(ByVal bytesTotal As Long)
Dim arrays() As String
Dim subarrays() As String
Dim devu As String
Dim comprobando As Integer

    wsk2.GetData devu
   
    txtdevu.Text = txtdevu.Text & vbCrLf & "Servidor: " & devu
   
    MsgBox devu
   
    comprobando = InStr(1, devu, "VER")
    If comprobando <> 0 Then
        wsk2.SendData "CVR 5 0x0C0A winnt 5.1 i386 MSNMSGR 6.0.0602 MSMSGS soler-cueto@hotmail.com" & vbCrLf
        Exit Sub
    End If
   
    comprobando = InStr(1, devu, "CVR")
    If comprobando <> 0 Then
        wsk2.SendData "USR 6 TWN I soler-cueto@hotmail.com" & vbCrLf
        Exit Sub
    End If
   
    comprobando = InStr(1, devu, "USR")
    If comprobando <> 0 Then
        arrays = Split(devu, " ")
        arrays = Split(arrays(4), ",")
       
       
       
        For i = 0 To UBound(arrays)
            subarrays = Split(arrays(i), "=")
            Select Case subarrays(0)
                Case "ct"
                    ct = subarrays(1)
                Case "rver"
                    rver = subarrays(1)
                Case "wp"
                    wp = subarrays(1)
                Case "lc"
                    lc = subarrays(1)
                Case "id"
                    id = subarrays(1)
                Case "ru"
                    ru = subarrays(1)
                Case "tw"
                    tw = subarrays(1)
                Case "kpp"
                    kpp = subarrays(1)
                Case "kv"
                    kv = subarrays(1)
                Case "ver"
                    ver = subarrays(1)
                Case "rn"
                    rn = subarrays(1)
                Case "tpf"
                    tpf = subarrays(1)
            End Select
        Next
        Call conectar3("login.passport.com")
        Exit Sub
    End If
 
End Sub

Private Sub wsk3_DataArrival(ByVal bytesTotal As Long)
Dim arrays() As String
Dim devu As String
Dim comprobando As Integer

    wsk3.GetData devu
   
    txtdevu.Text = txtdevu.Text & vbCrLf & "Servidor: " & devu
   
    MsgBox devu
End Sub




Public Function conectar(ByVal ipe As String)
            wsk.Close
            wsk.Protocol = sckTCPProtocol
            wsk.Connect ipe, 1863
End Function

Public Function conectar2(ByVal ipe As String)
            wsk2.Close
            wsk2.Protocol = sckTCPProtocol
            wsk2.Connect ipe, 1863
End Function

Public Function conectar3(ByVal ipe As String)
            wsk3.Close
            wsk3.Protocol = sckTCPProtocol
            wsk3.Connect ipe, 443
End Function




yo vi wn un wargame la decompilacion de un login flash, es super sencillo, solo necesitas una herramienta que maneje flash y pueda ver el codigo

a mi opinion, yo nunca haria un login en flash, y en caso de hacerlo, en modo paranoico