Mensajes

Mirando mas en detalle los saltos de linea son un poco mas cortos y quedan mas abajo del nivel inferior de los otros caracteres

Las rayas que te salen en negrita son lineas

Texto = Replace(Texto, Chr(10), "")
o
Texto = Replace(Texto, Chr(10), vbNewLine)

Saludos

Hola, no se si correspònde SendMessage para este caso pero me parece que estas mandando mal el mensaje


Private Const WM_CHAR = &H102
Private Const WM_BACK = &H8
Private Const WM_TAB = &H9


Call SendMessage(hwnd, WM_CHAR, VK_TAB, 0&)


Saludos

No estaras llegando al hwnd  que corresponde ya que así se manda un Tab con SenMessage

Call SendMessage(hwnd, WM_CHAR, WM_TAB , 0&)

Saludos

SenMessage está mal declarado

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Saludos

Hola, no se si correspònde SendMessage para este caso pero me parece que estas mandando mal el mensaje


Private Const WM_CHAR = &H102
Private Const WM_BACK = &H8
Private Const WM_TAB = &H9


Call SendMessage(hwnd, WM_CHAR, VK_TAB, 0&)


Saludos

[dashrender]

hola dashrender, en el caso que en lugar de ser un proceso (como svchost.exe), busques una aplicación (oculta o visible), pòdes usar solamente FindWindows.

PD: Buen code Seba

Saludos

[Si lo pudiera separar todos con comas funcionaria, pero como digo no puedo cambiar la estructura del txt.]

Muy bien, pero el archivo de texto es como dije anteriormente:

LLAVE=VALOR ;COMENTARIO

Si lo pudiera separar todos con comas funcionaria, pero como digo no puedo cambiar la estructura del txt.

No cambies la extructura del txt,  crea una cadena con el txt y modificala

Código [Seleccionar] Expandir



Dim cadena$: cadena = "usuario = felipito  ;Nombre de usuario" + vbNewLine + "password = 1234  ;password del usuario" + vbNewLine + "rango = 3  ;Rango de usuario: 1= admin, 2=normal, 3=mod"

MsgBox cadena

cadena = Replace(cadena, "usuario =", "usuario ,")
cadena = Replace(cadena, "password =", "password ,")
cadena = Replace(cadena, "rango =", "rango ,")
cadena = Replace(cadena, ";", ",")
cadena = Replace(cadena, "1= admin, 2=normal, 3=mod", "1= admin  2=normal  3=mod")
MsgBox cadena



Saludos

Hola, en VB podes usar  Environ (sirve para cualquier idioma)

If Dir(Environ("programfiles") + "\archivo.exe") <> "" Then
  Shell Environ("programfiles") + "\archivo.exe", vbNormalFocus
Else
  MsgBox "No Existe"
End If

Saludos

Fijate si esto ayuda

http://www.recursosvisualbasic.com.ar/htm/utilidades-codigo-fuente/winsock-enviar-archivo.htm

Saludos