Danke für den link @chip , aber Bei der BASS UDF verliere ich den überblick, gibt es nicht schon fertige scripts die ich nutzen kann, oder eventuell noch n beispiel?
Beiträge von GreenHornBaldi
-
-
Hallo Zusammen,
Ich möchte gerne auf mein Mikrofon zugreifen, allerdings sind die folgenden beiden links, welche ich im Web gefunden habe, anscheinend nicht mehr aktuell.http://www.autoitscript.com/forum/topic/86…oggwav-bassdll/
Ich weiß nicht weiter...
-
ich habe es nun auch mit deiner UDF versucht @BugFix ... leider kein erfolg. Kann ich irgendwie die Kamera ID direkt übergeben, sodass dieses Dialogfeld zum wählen der Kamera nicht mehr nötig ist?
-
Hallo Leute,
brauche nochmal eure Hilfe.
Ich möchte auf meine webcam zugreifen (Integrierte laptopkamera) doch es kommt nur ein schwarzes bild. Wenn ich das über meinen TowerPC mache (Externe Webcam) funktioniert alles einwandfrei. HILFE!AutoIt: Mein Code
Alles anzeigen#include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <Webcam.au3> #include <misc.au3> #RequireAdmin #Region ### START Koda GUI section ### Form= $BK = GUICreate("BK",@DesktopWidth,@DesktopHeight,0,0,$WS_POPUP) GUISetBkColor(0x0) WinSetTrans($BK,"",190) WinSetOnTop($BK,"",1) GUISetState(@SW_SHOW) _WebcamInit() $Form = GUICreate("Block.Block", 300, 250, -1, -1, $WS_POPUP,-1,$BK) GUISetBkColor(0x8080FF) $Input = GUICtrlCreateInput("", 0, 200, 300, 50,$ES_PASSWORD) GUICtrlSetFont(-1, 30,300) WinSetOnTop($Form,"",1) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### _Webcam($Form,300,200,0,0) While 1 If _IsPressed("0D") Then If GUICtrlRead($Input) == $Passwort Then $Block = 1 GUIDelete($Form) _WebcamStop() Return Else _WebcamSnapShot() EndIf Sleep(200) EndIf WEnd
-
Danke @4ern und @Kanashius funktioniert mit dem titel so wie ich es möchte. Muss halt wenn ich eine weitere URL zur " to block" liste hinzufügen möchte immer die AutoIT Info aus dem install ordner nehmen
-
und wie lese ich die aktuelle url aus? @4ern
-
Hallo zusammen,
ich möchte die url-adresse meines Browsers (Chrome) auslesen um bei speziellen url-links den browser sofort zu beenden (in meinem Fall WhatsApp-web), da in der schule der Laptop auch von anderen genutzt wird und chatt schon häufiger abfotografiert wurden.
Kann mir jemand weiter helfen?
Danke schonmal -
Hallo zusammen,
ich möchte die oberfläche meines Programms gerne aus einer Textdatei heraus erstellen. Also das Programm liest z.B. Die größe und Position eines Buttons aus der .txt aus und Platziert diesen dann. Nur leider habe ich das Problem, dass wenn ich die Buttons im nachhinein mit GUICtrlCreateButton erstelle diese nicht mit der eigentlichen GUI verbunden sind und deswegen keine funktion haben brauche unbedingt hilfe!! -
Hallo zusammen :D,
Ich versuche vergeblichst in Web nach einer Lösung zu suchen...
Ich möchte die Auslastung meiner Grafikkarte auslesen (GTX 960M) möglichst mit Prozentwert.
Hat jemand einen Vorschlag?Schonmal Danke ...
-
Funktioniert wunderbar Danke @eukalyptus , @chip und @alpines
-
Da sollte natürlich ein "!" hin @alpines Die BASS-UD Habe ich auch schon herunter geladen, aber ich finde unter den unzähligen Funktionen keine, mit der ich den Mic-Pegel auslesen kann hast du eventuell einen Fuktionsnamen, nach dem ich suchen kann?
-
Hallo zusammen,
Wie kann ich den Aktuellen Pegel des Mikrofons ablesen?Danke für eure Hilfe?
-
Das funktioniert bei mir noch nicht mal ohne TCP verbindung... @alpines
-
Hallo,
wie sendet man eine beliebige Datei (z.B. ein .jpg oder eine .mp4) per TCP? Ich habe schon versucht die Binärcode der Dateien zu senden, aber das funktioniert genau so wenig wie den einfachen FielRead der Dateien zu versenden.
Schonmal Danke -
Oh :D. Warum einfach wenn es auch Kompliziert geht würde ich mal sagen Vielen Dank @misterspeed . Funktioniert genau so, wie ich mir das vorgestellt habe Auch an die anderen - Danke
-
AutoIt: Server
Alles anzeigen#Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Outfile=testserv.exe #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** $Port = 8745 $ServerIP = @IPAddress1 $ClientIP = "192.168.1.38" TCPStartup() $MainSocket = TCPListen($ServerIP, $Port) If $MainSocket = -1 Then MsgBox(16,"Fail","Server ist bereits Gestartet!") Exit EndIf $ConnectedSocket = -1 Do $ConnectedSocket = TCPAccept($MainSocket) Until $ConnectedSocket <> -1 $BackSocket = TCPConnect($ClientIP, $Port +10) While 1 $recv = TCPRecv($ConnectedSocket, 2048) If $recv <> "" Then _CommandToActive($recv) EndIf WEnd Func _CommandToActive($command) $ar = StringSplit($command,",") Switch $ar[1] Case "Msg" SplashTextOn($ar[2],$ar[3],400,180,-1 ,-1, 0, "Consolas", 14) TCPSend($BackSocket, "Feedback-MessageGesendet") EndSwitch EndFunc
AutoIt: Client
Alles anzeigen#Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Outfile=testcli.exe #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** $Port = 8745 $ServerIP = "192.168.1.107" $ClientIP = @IPAddress1 TCPStartup() $Mainsocket = TCPConnect($ServerIP, $Port) $BackSocket = TCPListen($ServerIP, $Port + 10) If $BackSocket = -1 Then MsgBox(16,"Fail","Backsocket geht nicht!") Exit EndIf $ConnectedBackSocket = -1 Do $ConnectedBackSocket = TCPAccept($BackSocket) Until $ConnectedBackSocket <> -1 TCPSend($Mainsocket,"Msg,Info,Dies ist ein Informationstext!") $recv = "" While $recv <> "" $recv = TCPRecv($ConnectedBackSocket, 2048) If $recv <> "" Then _CommandToActive($recv) EndIf WEnd Func _CommandToActive($command) $ar = StringSplit($command,",") Switch $ar[1] Case "Feedback-MessageGesendet" MsgBox(0,"ANTWORT","Antwort vom Server!") EndSwitch EndFunc
So. Ich habe das jz nochmal überarbeitet, aber ich komme immer noch nicht weiter @BugFix & @Andy
-
AutoIt
Alles anzeigen$Port = 8745 $ServerIP = @IPAddress1 $ClientIP = "192.168.1.38" TCPStartup() $MainSocket = TCPListen($ServerIP, $Port) If $MainSocket = -1 Then MsgBox(16,"Fail","Server ist bereits Gestartet!") Exit EndIf $ConnectedSocket = -1 Do $ConnectedSocket = TCPAccept($MainSocket) Until $ConnectedSocket <> -1 While 1 $recv = TCPRecv($ConnectedSocket, 2048) If $recv <> "" Then _CommandToActive($recv) EndIf WEnd Func _CommandToActive($command) $ar = StringSplit($command,",") Switch $ar[1] Case "Msg" SplashTextOn($ar[2],$ar[3],400,180,-1 ,-1, 0, "Consolas", 14) TCPSend($ClientIP, "Feedback-MessageGesendet") EndSwitch EndFunc
So müsste ja eigentlich "Feedback-MessageGesendet" an den Client zurückgesendet werden... @BugFix
-
Vielen dank @BugFix vom Prinzip her verstanden. Ich habe das auch so ähnlich schon probiert. Aber hättest du ein Beispielscript? Danke
-
Hallo,
ich suche seit einigen Tagen nach einer Möglichkeit, um bei einer TCP Verbindung ein "Feedback" - sprich einen String - vom Server zu Client zurück zu senden.
Kann mir da jemand weiter helfen?Danke
-
Hallo zusammen,
gibt es eine Möglichkeit die Funktion GUICtrlSetState() auf alle Buttons gleichzeitig anzuwenden?
Meine GUI hat 46 Buttons und es ist ziemlich mühselig jeden einzelnen Button mit $GUI_DISABLE zu deaktivieren
Schonmal Danke