Beiträge von GreenHornBaldi

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?

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/

https://api.viglink.com/api/click?format=go&jsonp=vglnk_146141855851910&key=164c798480991146ca4f59cecb8bdc5e&libId=ind6vgo50100jwb3000DLkv005tei&loc=https%3A%2F%2Fwww.autoitscript.com%2Fforum%2Ftopic%2F86639-audiorecorder-mp3oggwav-bassdll%2F&v=1&out=http%3A%2F%2Frapidshare.com%2Ffiles%2F176617327%2FRecorder.zip&ref=https%3A%2F%2Fwww.google.de%2F&title=Audiorecorder%20mp3%2Fogg%2Fwav%20(bass.dll)%20-%20AutoIt%20Example%20Scripts%20-%20AutoIt%20Forums&txt=http%3A%2F%2Frapidshare.com%2Ffiles%2F176617327%2FRecorder.zip

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!

#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

$File = FileOpenDialog("Datei wählen...",@UserProfileDir,"All (*.*)")
$BinFile = FileOpen($File,16)


$Fileop = FileOpen(@DesktopDir & "\Test.jpg",18)
FileWrite($Fileop,$BinFile)

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

#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

#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

$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