| |
VB.NET - Ein- und Umsteigerwenn 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 ? | |
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 | |
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ß | |
| 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 |
|
|
vb@rchiv CD Vol.6 vb@rchiv Vol.6
Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
Online-Update-Funktion Entwickler-Vollversionen u.v.m.Jetzt zugreifen Tipp des Monats März 2024 Dieter OtterUTF-8 Konvertierung von Dateien und StringsVB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. Neu! sevCommand 4.0
Professionelle Schaltflächen im modernen Design!
Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Weitere Infos
|
|
|
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
|
|