Foro de elhacker.net

ola wenas soy nuevo en esto y haber si me pueden ayudar en esto

como se hace para igualar una variable al contenido de un textbox?

por ejemplo creo un textbox y un boton y quiero que al darle al boton se abra la ruta del archivo escrita en el textbox

por ejemplo

Private Sub Command1_Click()
Dim ruta As String
ruta = Text1.Text ' aqui pongo laa ruta de un txt por ejemplo C:\ola.txt
Shell ("notepad.exe ruta")
End Sub


pero nada no rula

thx de antemano

Concatenando...

Shell ("notepad.exe " & ruta)

muchas gracias por compartir vuestros conocimientos

pero aun no se resolvio el problema por ejemplo si quiero matar un proceso y quiero que elimine el porceso del textbox

Private Sub Command1_Click()

Dim proceso As String
proceso = Text1.Text


For Each process In GetObject("winmgmts:"). _
ExecQuery("select * from Win32_Process where name='proceso'")
process.Terminate (0)
Next process

End sub

gracias de antemano

igual que como apuntas una variable la sacas de esta manera

Private Sub Command1_Click()

Dim proceso As String
proceso = Text1.Text


For Each process In GetObject("winmgmts:"). _
ExecQuery("select * from Win32_Process where name='proceso'")
process.Terminate (0)
Next process

text1.text = vbnullstring
End sub

saludos

ops gracias pero em sigue sin funcionar  :o :o

Prueba asi

Prueba esto:

    Public Sub KillProcess(ByVal processName As String)
 
    On Error GoTo ErrHandler
 
    Dim oWMI
    Dim ret
    Dim sService
    Dim oWMIServices
    Dim oWMIService
    Dim oServices
    Dim oService
    Dim servicename
 
    Set oWMI = GetObject(”winmgmts:”)
    Set oServices = oWMI.InstancesOf(”win32_process”)
 
    For Each oService In oServices
 
    servicename = LCase(Trim(CStr(oService.Name) & “”))
 
    If InStr(1, servicename, LCase(processName), vbTextCompare) > 0 Then
    ret = oService.Terminate
    End If
 
    Next
 
    Set oServices = Nothing
    Set oWMI = Nothing
 
    ErrHandler:
    Err.Clear
    End Sub

Esta función simplemente te cierra un proceso. Si quisieras cerrar el del notepad usarias:

KillProcess (”Notepad”)

Para cerrar el de algo escrito en text1 usarias:

KillProcess (text1.text)

Recuerda que no has de escribir la extensión, simplemente el nombre del exe a cerrar el proceso.

Muchas gracias alos que respondieron de verdad me ayudaron mucho en este y otro programas  :D :D

no entiendo porque hay que hacer eso pero asi funciona  :xD

en serio gracias  :P