vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
wenn Programm gestartet wird... 
Autor: Orwell
Datum: 05.08.17 20:08

Sers,

ich habe folgendes Problem. Ich möchte, wenn Opera gestartet wird, das der Computer auf lautlos gestellt wird.
Leider finde ich keine Anwendung die das kann.
Funktioniert das mit VB ? Hat jemand einen Tipp ?
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: wenn Programm gestartet wird... 
Autor: effeff
Datum: 06.08.17 21:06

Die Prozesse überwachen und dann, wenn Opera dort erscheint, das Mikrofon ausschalten? Das sind Stichworte. Den Rest kannst du alleine finden...

EALA FREYA FRESENA

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: wenn Programm gestartet wird... 
Autor: Franki
Datum: 07.08.17 04:33

Hallo,

definiere doch mal bitte was du unter lautlos verstehst.

Für mich bedeutet das zuerst mal, dass der PC dann "ruhig" wird also keine Laute mehr von sich gibt.

Also nicht wie effeff vermutet, das Mikrofon stummschalten sondern die Lautsprecher!?

Und bitte liefere doch bitte genauere Angaben, denn so oder so, Prozesse überwachen ist schön und gut, du müsstest aber auch filtern welche Prozesse Ein- oder Ausgaben über Mikrofon/Lautsprecher grade so laufen.

Und wieso ein Browser? Opera ist ein Browser nicht mehr und nicht weniger. Warum möchtest du grade diesen Browser überwachen? Und ich vermute, dass du den über deine Anwendung starten möchtest um die Überwachung überhaupt durchführen zu können.

Mehr Details würden helfen...

Gruß
Frank
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: wenn Programm gestartet wird... 
Autor: Orwell
Datum: 07.08.17 08:30

Hallo,

hier mal meine Lösung:
Option Strict On
Imports System.Runtime.InteropServices
 
Public Class Form1
 
    Private Const APPCOMMAND_VOLUME_MUTE As Integer = &H80000
    Private Const APPCOMMAND_VOLUME_UP As Integer = &HA0000
    Private Const APPCOMMAND_VOLUME_DOWN As Integer = &H90000
    Private Const WM_APPCOMMAND As Integer = &H319
 
    <DllImport("user32.dll")> Public Shared Function SendMessageW(ByVal hWnd _
      As IntPtr, ByVal Msg As Integer, ByVal wParam As IntPtr, ByVal lParam As _
      IntPtr) As IntPtr
    End Function
 
    Dim HScroll3 As Integer = 0
    Dim Count As Integer = 0
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles _
      Timer1.Tick
        If System.Diagnostics.Process.GetProcessesByName( _
        My.Settings.App).Length > 0 Then
            Label1.Text = "Ein" 
        Else
            Label1.Text = "Aus"
        End If
    End Sub
 
    Private Sub Label1_TextChanged(sender As Object, e As EventArgs) Handles _
      Label1.TextChanged
        If Label1.Text = "Ein" Then
            SendMessageW(Me.Handle, WM_APPCOMMAND, Me.Handle, New IntPtr( _
              APPCOMMAND_VOLUME_MUTE))
        Else
 
        End If
 
    End Sub
 
    Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs)
 
    End Sub
 
    Private Sub BearbeitenToolStripMenuItem_Click(sender As Object, e As _
      EventArgs)
 
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TextBox1.Text = My.Settings.App
 
        WindowState = FormWindowState.Minimized
        ShowInTaskbar = False
    End Sub
 
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles _
      TextBox1.TextChanged
        My.Settings.App = TextBox1.Text
        My.Settings.Save()
        My.Settings.Reload()
    End Sub
 
    Private Sub CloseToolStripMenuItem_Click(sender As Object, e As EventArgs) _
      Handles CloseToolStripMenuItem.Click
        Me.Close()
    End Sub
 
    Private Sub ShowToolStripMenuItem_Click(sender As Object, e As EventArgs) _
      Handles ShowToolStripMenuItem.Click
        WindowState = FormWindowState.Normal
        Me.Show()
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        SendMessageW(Me.Handle, WM_APPCOMMAND, Me.Handle, New IntPtr( _
        APPCOMMAND_VOLUME_MUTE))
    End Sub
 
 
End Class
Gibt es eine andere Lösung als mit dem Timer ?

Gruß
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel