Mensajes

[System.Security.Cryptography]

para cifrar se me ocurre ahora que pruebes por ahora usar System.Security.Cryptography, algo asi:

cifrar y descifrar

saludos.

Hola, y esto no te sirve?

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
    WebBrowser1.SetFocus
    SendKeys "{tab}"
End Sub

Private Sub Form_Load()
    WebBrowser1.Navigate "http://www.google.com"
End Sub

saludos.

Hola, pues para mi no hay que hacer tanto escandalo si tenes una contraseña MADRE ...guardada tambien en el archivo por mas que le copies a otro el archivo si el no pone TU CONTRASEÑA MADRE no podra ver las contraseñas y entrar al programa...

saludos.

[Option Explicit]

lo que pasa es que el de EON no tiene el Option Explicit y eso hace que tambien a la hora de compilar se salte lo que no esta definido, lo que no existe...te lo compila igual...proba ponerle Option Explicit y vas a ver de lo que digo...

saludos.

Hola, proba algo asi:

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function EnumProcesses Lib "PSAPI.DLL" (lpidProcess As Long, ByVal cb As Long, cbNeeded As Long) As Long
Private Declare Function EnumProcessModules Lib "PSAPI.DLL" (ByVal hProcess As Long, lphModule As Long, ByVal cb As Long, lpcbNeeded As Long) As Long
Private Declare Function GetModuleBaseName Lib "PSAPI.DLL" Alias "GetModuleBaseNameA" (ByVal hProcess As Long, ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Const PROCESS_VM_READ = &H10
Private Const PROCESS_QUERY_INFORMATION = &H400

Private Function EstaCorriendo(ByVal NombreDelProceso As String) As Boolean
    Const MAX_PATH As Long = 260
    Dim lProcesses() As Long, lModules() As Long, N As Long, lRet As Long, hProcess As Long
    Dim sName As String
    NombreDelProceso = UCase$(NombreDelProceso)
    ReDim lProcesses(1023) As Long
   
    If EnumProcesses(lProcesses(0), 1024 * 4, lRet) Then
        For N = 0 To (lRet \ 4) - 1
            hProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, 0, lProcesses(N))
            If hProcess Then
                ReDim lModules(1023)
                If EnumProcessModules(hProcess, lModules(0), 1024 * 4, lRet) Then
                    sName = String$(MAX_PATH, vbNullChar)
                    GetModuleBaseName hProcess, lModules(0), sName, MAX_PATH
                    sName = Left$(sName, InStr(sName, vbNullChar) - 1)
                    If Len(sName) = Len(NombreDelProceso) Then
                        If NombreDelProceso = UCase$(sName) Then EstaCorriendo = True: Exit Function
                    End If
                End If
            End If
            CloseHandle hProcess
        Next N
    End If
End Function

Private Sub Command1_Click()
    MsgBox EstaCorriendo("calc.exe")
End Sub


saludos.

Esta muy bien, pero mi problema no es separarlos sino meterlos al listview, tu metodo es muy bueno pero ocasiona un error a la hora de tratar de meterlos al listview.

De todas formas gracias por el codigo, los separa bien si lo muestras en un mensaje pero para el listview no funciona.

Código (vb) [Seleccionar] Expandir

PathArchivo = CD1.FileName
   
    Open PathArchivo For Input As #1
   
    While Not EOF(1)
    Line Input #1, linea
   
   llave = Trim(Mid(linea, 1, InStr(1, linea, "=") - 1))
   valor = Trim(Mid(linea, InStr(1, linea, "=") + 1, InStr(1, linea, ";") - InStr(1, linea, "=") - 1))
   comentario = Trim(Mid(linea, InStr(1, linea, ";") + 1))

    Set item = ListView.ListItems.Add(, , llave)
        item.SubItems(1) = valor
        item.SubItems(2) = comentario
 
    Wend
    Close #1

ese codigo asi como esta, lo probe y anda perfecto...carga los datos bien en el lsitview...

para de revivir post viejos de 2 años...

pues si,no vi la libreria...pero puede que soporte hasta una determinada versión del servidor de MySQL...

saludos.

fijate que en la pc donde te conectas tenga instalado bien el servidor de MySQL y que sea la misma version que la tuya...yo uso la 4.1 y nunca tuve problemas...pero proba esto:

Client does not support authentication protocol requested by server

saludos.

[ServerHost]

Hola, ahora no puedo probar, ¿ al conectarte sin esa liberia te conectas bien? en ServerHost pone "localhost" haber...

saludos.