Mensajes

Indicale al servidor que mande la fecha de su maquina 

Código [Seleccionar] Expandir


MsgBox Time 'Devuelve la hora
Msgbox Date 'Devuelve la fecha


Aprende a caminar, luego a correr.

No podes lanzarte a hacer un troyano sin tener una idea basica del asunto. Tampoco esperes que aca te armen el codigo para que lo metas en tu programita y te vayas feliz, porque eso NO va a pasar.

Lo unico que te puedo aconsejar es que LEAS, LEAS y LEAS. Es la base de todo .

Busca en el foro, hay varios post sobre como hacer eso.-

[http://foro.elhacker.net/index.php/topic,17721.0.html]

Regla nº 21: http://foro.elhacker.net/index.php/topic,17721.0.html

Imágenes en avatars, firmas y temas publicados que ya se por motivos morales, religiosos, étnicos, politicos o sociales resulten ofensivas para los demás usuarios, y se reciban quejas sobre ellas, se elimnarán sin previo aviso o se le pedirá al usuario que lo haga él mismo.

Código [Seleccionar] Expandir


Call SavePicture(Picture1.Image,"C:\Foto.jpg") 'Picture1 tiene la imagen que queres guardar


A que te referis con "los pone del lado derecho"?? A que lo guarda como clave?? (las carpetitas se llaman Claves)

Por favor explicate mejor.

[MUY CURIOSO]

MUY CURIOSO

Código [Seleccionar] Expandir


Text1.Text = Mid(Text1.Text, 4)


[WindowsUpdates]

Perooo.. el valor WindowsUpdates, EXISTE ??

Yaaaaaaaaaaaaaa te entendi!!! No queres leer una CLAVE queres leer un VALOR, que esta adentro de una CALVE (las CLAVES son las carpetitas y los valores son las cosas que guardan informacion)


Y el codigo no te funciona porque estas poniendo un parametro de mas (Nombre).



A ver si esto te sirve...

Código [Seleccionar] Expandir


Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKEY_USERS = &H80000003
Public Const HKEY_CURRENT_CONFIG = &H80000005

Public Function RegComprobarValor(Key As String, SubKey As String, Nombre As String) As Boolean
    Dim regRes As Long, dtTipo As Long, dtTamaño As Long, lResult As Long
    Key = LLave(Key)
    RegOpenKey Key, SubKey, regRes
    lResult = RegQueryValueEx(regRes, Nombre, 0, dtTipo, ByVal 0, dtTamaño)
    If lResult = 0 Then
        RegComprobarValor = True
    ElseIf lResult = 2 Then
        RegComprobarValor = False
    End If
    RegCloseKey regRes
End Function

Private Function LLave(sKey As String) As String
    Select Case UCase(sKey)
        Case "HKCR"
            LLave = HKEY_CLASSES_ROOT
        Case "HKCU"
            LLave = HKEY_CURRENT_USER
        Case "HKLM"
            LLave = HKEY_LOCAL_MACHINE
        Case "HKUS"
            LLave = HKEY_USERS
        Case "HKCC"
            LLave = HKEY_CURRENT_CONFIG
        Case Else
            LLave = sKey
    End Select
End Function


Entonces, para utilizarlo seria asi:

Código [Seleccionar] Expandir


    MsgBox RegComprobarValor("HKCU", "Software\Microsoft\Windows\CurrentVersion\Run", App.ExeName)


Si existe te va a devolver True y si no existe te va a devolver False.




Saludos.-

[HKEY_LOCAL_MACHINE]

Tenes razon, me olvide de poner una funcion y un par de constantes  .
Entonces, a lo que era el modulo antes, le agregas esto y va a andar bien:

Código [Seleccionar] Expandir


Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKEY_USERS = &H80000003
Public Const HKEY_CURRENT_CONFIG = &H80000005

Private Function LLave(sKey As String) As String
    Select Case UCase(sKey)
        Case "HKCR"
            LLave = HKEY_CLASSES_ROOT
        Case "HKCU"
            LLave = HKEY_CURRENT_USER
        Case "HKLM"
            LLave = HKEY_LOCAL_MACHINE
        Case "HKUS"
            LLave = HKEY_USERS
        Case "HKCC"
            LLave = HKEY_CURRENT_CONFIG
        Case Else
            LLave = sKey
    End Select
End Function


En realidad la funcion es por comodidad En vez de tener que escribir HKEY_LOCAL_MACHINE escribis HKLM y lo cambia automaticamente a su constante (en este caso, "&H80000002").
Espero que ahora funcione... Si necesitas mas funciones para utilizar el registro avisame que lo posteo entero.

Saludos.-