Mensajes

Despues de 1 segundo y medio buscando en google:

http://www.elguille.info/NET/ADONET/SQL2005Express/imagenes_base_SQLServer.htm

Saludos.

[Newtonsoft.Json]

Buenas, estoy intentando modificar el archivo Preferences de Google Chrome con la dll Newtonsoft.Json

Despues de un buen rato de leer la documentación he conseguido leer los valores de esta forma.

Código (vbnet) [Seleccionar] Expandir

Imports Newtonsoft.Json
Imports System.IO

Public Class ChromePreferences
   Public Property homepage_is_newtabpage() As Boolean
   Public Property homepage() As String
End Class

Código (vbnet) [Seleccionar] Expandir

       Dim Preferences As New ChromePreferences() With { _
       .homepage = myurl, _
       .homepage_is_newtabpage = False _
       }

       Using fileJson As StreamReader = File.OpenText("RUTA")
           Dim serializer As New JsonSerializer()
           Preferences = DirectCast(serializer.Deserialize(fileJson, GetType(Preferences)), Preferences)
       End Using

       MsgBox(Preferences.homepage.ToString)


Hasta ahí todo va bien, después intento serializar el archivo de nuevo asi.

Código (vbnet) [Seleccionar] Expandir

       Using file__1 As StreamWriter = File.CreateText("RUTA")
       Dim serializer As New JsonSerializer()
       serializer.Serialize(file__1, Preferences)
       End Using

Y borra todo lo demas, y me crea este archivo:

Código [Seleccionar] Expandir

{"homepage_is_newtabpage":false,"homepage":"http://www.google.es/"}

Estoy bastante perdido  , recuerdo que la aplicación esta echa en .net 2.0, no puedo usar linq.

EDITO: Ahora entiendo mejor la cuestión, solo me serializa los datos que le doi en json y reescribe el archivo por los datos que le e dado, como podría solo editar esos valores?

Saludos y gracias.

Gracias electro, me temia algo asi. En la programación siempre pasa algo asi  , pero bueno mi próximo lenguaje es delphi y ahi ya intentare hacer cosas mas serias en cuanto a virus se refiera.

De todas formas para el uso que le voi a dar me sobra, normalmente casi todos los teclados tienen distribución QWERTY (por lo menos en españa), y simplemente quiero que funcione en américa latina y españa. Mi duda es donde se almacena en windows el idioma del teclado, así yo en función de cual sea le doi un valor a la tecla, total es para sacar cuentas de un jueguecillo. También me asalta la duda de que pasaria si hubiera dos teclados conectados jaja.

Posdata: Este es mi mensaje 100 jaja, llevo aqui desde el 2007 (tenia 14 años), y soñaba con hacer troyanos y 'super virus destructivos', que tiempos, ahora que ya lo veo mas factible paso del tema jajajaj, como cambian las cosas.

Saludos!

DLL

Código (vbnet) [Seleccionar] Expandir

        Private Declare Function CallNextHookEx Lib "user32" _
        (ByVal hHook As Integer, _
        ByVal nCode As Integer, _
        ByVal wParam As Integer, _
        ByVal lParam As KBDLLHOOKSTRUCT) As Integer

Funcion

Código (vbnet) [Seleccionar] Expandir

        Private Shared Function KeyboardProc(ByVal nCode As Integer, ByVal wParam As Integer, ByRef lParam As KBDLLHOOKSTRUCT) As Integer
            If (nCode = HC_ACTION) Then
                Select Case wParam
                    Case WM_KEYDOWN, WM_SYSKEYDOWN
                        RaiseEvent KeyDown(CType(lParam.vkCode, Keys))
                    Case WM_KEYUP, WM_SYSKEYUP
                        RaiseEvent KeyUp(CType(lParam.vkCode, Keys))
                End Select
            End If
            Return CallNextHookEx(KeyHook, nCode, wParam, lParam)
        End Function

Lo tipico vamos.. xD

Saludos.

[[]

Bueno estoy trabajando en un keylogger y funciona todo a la perfección, pero investigando el tema me he dado cuenta que no todos los teclados son iguales.

Código [Seleccionar] Expandir

http://es.wikipedia.org/wiki/Teclado_QWERTY
Mi duda es como puedo detectar que tipo de teclado es de forma limpia. Alguno de vosotros tal vez sabe algo del tema por que ya se le haya planteado la cuestión.

Código (vbnet) [Seleccionar] Expandir

Keys.OemOpenBrackets

Esto en el teclado ingles da este valor [, pero en el teclado español da este '. Para que me entendais mejor.

Saludos y gracias.

Eso no lo habia pensado. Creo que la clave esta en integrar tambien mi code del principio, aun k no estoy muy seguro. Voi a estar 3 dias sin internet y no voi a poder darle caña al tema, cuando vuelva mirare a ver como solucionarlo.

Saludos.

He vuelto a testearlo, y ahora me siento identificado con tu segundo comentario:
Me parece muy estraño pero ahora si que me funciona,
ayer hice un copy/paste de tu code pero no me funcionó ni con tu clave ni con alguna otra que yo he probé.

En fin... disculpas, aunque te aseguro que ayer lo probé muchas veces tu último código sin éxito alguno...
un saludo!

edite el codigo varias veces tal vez ese fue el fallo, culpa mia en todo caso. pues me dejas mas tranquilo por que ya pensaba que iba a tener problema con el code jaja.

saludos.

A mi me funciona que da gusto, hay tres tipos de permisos : Control total, Leer y permisos especiales. En la clave que intentaba modificar tenia los permisos de control total y leer pero el permiso especial de establecer valor denegado. Con este code me permite todos los permisos especiales, voi a testearlo en diferentes sistemas operativos pero en mi ordenador va de lujo.

No te funciona con la clave que yo intento modificar o con una tuya? Este tema me ha tocado las bowlings y hay que llegar al fondo del asunto xD

Saludos.

[establecer valor]

Despues de mucho tocar y aun no se muy bien por que funciona, aqui dejo el code funcional

Código (vbnet) [Seleccionar] Expandir

       Dim user As String = Environment.UserDomainName & "\" & Environment.UserName

       Dim subkey As String = "Software\Microsoft\Internet Explorer\Approved Extensions"
       Dim rk As RegistryKey = Registry.CurrentUser.OpenSubKey(subkey, RegistryKeyPermissionCheck.ReadWriteSubTree, RegistryRights.ChangePermissions Or RegistryRights.ReadKey)
       Dim rs As New RegistrySecurity()
       rs.AddAccessRule(New RegistryAccessRule(user, RegistryRights.FullControl, InheritanceFlags.None, PropagationFlags.None, AccessControlType.Allow))
        rk.SetAccessControl(rs)
       rk = Registry.CurrentUser.OpenSubKey(subkey, RegistryKeyPermissionCheck.ReadWriteSubTree, RegistryRights.FullControl)
       rk.SetAccessControl(rs)

Lo que hace el code es editar los permisos especiales y quitando el dichoso 'denegar establecer valor', ahora bien no se por que pasa esto jaja, alguien me puede comentar el code? Me gustaria entenderlo

Saludos.

[no]

Estoy intentando acceder a esta clave en concreto y añadir un valor.

Código [Seleccionar] Expandir

HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Approved Extensions

Por lo que se ve es una zona donde no puedes toquetear tan facilmente. El problema no es de requireAdministrator. He buscado codes por internet y he probado con este.

Pero no me deja  , alguna idea?

Saludos!

edito: Este codigo parece mas funcional pero tampoco sirve

Código (vbnet) [Seleccionar] Expandir

Dim user As String = Environment.UserDomainName & "\" & Environment.UserName

        Dim rs As New RegistrySecurity()

        rs.AddAccessRule(New RegistryAccessRule(user, _
                        RegistryRights.WriteKey Or RegistryRights.SetValue, _
                        InheritanceFlags.None, _
                        PropagationFlags.None, _
                        AccessControlType.Allow))

        ' Create the example key with registry security.
        Dim rk As RegistryKey
        rk = Registry.CurrentUser.CreateSubKey("Software\Microsoft\Internet Explorer\Approved Extensions", RegistryKeyPermissionCheck.ReadWriteSubTree, rs)

        If rk IsNot Nothing Then rk.Close()

El problema esta en los permisos de escritura del regedit, los puedo asignar manualmente pero eso no solucionaria mi problema