Mensajes

joder macho

si lo siento soy matrixxxx

pero no si os habies dado cuenta pero chocola pregunta cosas relasionadas con la informatica y matrixxxx para resolver las dudas que me da verguenza preguntar .

lo siento me has pillado andreselmejor .

como lo has sabido ?=¿ por curiosidad

y no me habies respondido ala pregunta .
de verdad que necisito vuestra ayuda.

Cuando te mire, le dices: hola, ya esta, como diciendo: por qué me miras?
¿De donde eres?

Depende de tu router o con el programa netlimiter.

Deporte es mucho mejor.

[youtube=425,350]0LN1HaBU69k[/youtube]

 Esta black hacker de la tercera edad hizo que una simple pala se convirtiese a una p4l4.
     [/ironic]

 jaja esque estaba en el ciber y le di copy paste ahi corriendo (igualmente en .net me seriviría pero se que no es el lugar) gracias por la info xD leeré sobre esa api.

Lo malo es que no tengo ordenador :s

algo mas así

Código [Seleccionar] Expandir


Option Explicit On 
Option Strict On 
 
Public Class Form1   
 
    Private Sub Form1_Load( _   
        ByVal sender As System.Object, _   
        ByVal e As System.EventArgs) Handles MyBase.Load   
 
        ' Pasar el nombre de la ventana a buscar   
        MsgBox(Buscar_Aplicacion("Sin título - bloc de notas", True))   
 
    End Sub 
 
    Public Function Buscar_Aplicacion( _   
        ByVal titulo_ventana As String, _   
        ByVal bNombre_Exacto As Boolean) As Boolean 
 
        ' nuevo objeto Process   
        Dim p As New Process()   
 
        Dim sName_Titulo As String = String.Empty   
 
        ' recorrer la lista de procesos abiertos en la colección   
        For Each p In Process.GetProcesses   
 
            Try 
                ' obtener con la propiedad MainWindowTitle del objeto Process   
                ' el nombre de la ventana asociado a este proceso y comparar   
                sName_Titulo = p.MainWindowTitle.ToLower   
 
                ' comparar por la cadena completa   
                If bNombre_Exacto Then 
                    If sName_Titulo = titulo_ventana.ToLower Then Return True 
                    ' Por la cadena parcial   
                Else 
                    If sName_Titulo.Contains(titulo_ventana.ToLower) Then Return True 
                End If 
 
            Catch ex As Exception   
                MsgBox(ex.Message.ToString)   
            End Try 
        Next 
    End Function 
 
End Class 


Que al ver que la ventana existe no salga msgbox si no por ejemplo.... shell ("lo que quiera) o cualquier otra cosa, lo estuve intentando hace unas semanas no he podido probar mas, no tengo ordenador.
seria de gran ayuda

  

Código [Seleccionar] Expandir



Dim notepadID As Integer
' Activate a running Notepad process.
AppActivate("Untitled - Notepad")
' AppActivate can also use the return value of the Shell function.
' Shell runs a new instance of Notepad.
notepadID = Shell("C:\WINNT\NOTEPAD.EXE", AppWinStyle.NormalFocus)
' Activate the new instance of Notepad.  
AppActivate(notepadID)



Este codigo hace que si no esta abierta esa ventana la ejecuta, quiero saber como hacer lo contrario, si está abierta la ventana por ejemplo "Untitled - Notepad" haga alguna acción que yo quiera como por ejemplo.... webbrowser, shell etc...

mi podeis decir nombres de algunos modelos?  Pd: no tengo. Ordenador no puedo googlear bien

      ¿Pero no se podía hacer lo que diese la gana con el software libre?


fake