Beiträge von oh-ha

oh-ha

Danke dir, hatte eh vor, die Serverauswahl etwas flexibler zu gestalten, wenn ich denn die Zeit dafür habe. Das Ganze über eine Serverliste von NordVPN. Da hast du mir Arbeit abgenommen wobei ich das so wohl nicht hinbekommen hätte, bin da ein wenig Nostalgiker und mache auch heute noch das ein oder andere über Batch Dateien, wenn auch nicht mehr über WBAT.

Edit:

In den Zeilen 95 und 108 sollte man es so ändern $sCmd = "FancyVPN.exe"&' --disconnect' anstatt ' disconnect'

oh-ha

Habe das ganze jetzt so umgesetzt, falls jemand ähnliches brauchen sollte.

Auch die Einbindung des Tor-Browsers als Standard funktioniert sehr gut.

C

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIFiles.au3>

$Form1_1 = GUICreate("Form1", 125, 425, 658, 32)
$Label1 = GUICtrlCreateLabel("Browser Auswahl", 16, 8, 100, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button_fire = GUICtrlCreateButton("Firefox", 24, 32, 75, 25)
$Button_opera = GUICtrlCreateButton("Opera", 24, 64, 75, 25)
$Button_edge = GUICtrlCreateButton("edge", 24, 96, 75, 25)
$Button_chrom = GUICtrlCreateButton("Chrome", 24, 128, 75, 25)
$Button_tor = GUICtrlCreateButton("Tor", 24, 160, 75, 25)
$Label_vpn = GUICtrlCreateLabel("NordVPN", 32, 192, 56, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Labe_verb = GUICtrlCreateLabel("Verbinden mit", 24, 248, 81, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button_aus = GUICtrlCreateButton("VPN AUS", 24, 216, 75, 25)
$Button_kenya= GUICtrlCreateButton("Kenya", 24, 264, 75, 25)
$Button_gbr = GUICtrlCreateButton("GBR", 24, 296, 75, 25)
$Button_port= GUICtrlCreateButton("Portugal", 24, 328, 75, 25)
$Button_nor = GUICtrlCreateButton("Norwedgen", 24, 360, 75, 25)
$Button_swed = GUICtrlCreateButton("Sweden", 24, 392, 75, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
Global $iTimeout = 3
Global $browser,$vpn, $hFile

Func ps()
	 $hFile = FileOpen("1.ps1",1)
		FileWriteLine($hFile, "if ($env:OS -ne 'Windows_NT') { throw 'This script runs on Windows only' }")
		FileWriteLine($hFile, 'Stop-Process -ErrorAction Ignore -Name SystemSettings')
		FileWriteLine($hFile, "Start-Process ms-settings:defaultapps")
		FileWriteLine($hFile, "$ps = Get-Process -ErrorAction Stop SystemSettings")
	    FileWriteLine($hFile, "do {")
	    FileWriteLine($hFile, "Start-Sleep -Milliseconds 100")
	    FileWriteLine($hFile, "$ps.Refresh()")
	    FileWriteLine($hFile, "} while ([int] $ps.MainWindowHandle)")
	    FileWriteLine($hFile, "Start-Sleep -Milliseconds 200")
	    FileWriteLine($hFile, "$shell = New-Object -ComObject WScript.Shell")
	    FileWriteLine($hFile, "foreach ($i in 1..4) { $shell.SendKeys('{TAB}'); Start-Sleep -milliseconds 500 }")
	    FileWriteLine($hFile, "$shell.SendKeys" & "(" & '"' & $browser & '"' & "); Start-Sleep -seconds 1")
	    FileWriteLine($hFile, "$shell.SendKeys('{TAB}'); Start-Sleep -milliseconds 100")
	    FileWriteLine($hFile, "$shell.SendKeys('{ENTER}'); Start-Sleep -milliseconds 100")
	    FileWriteLine($hFile, "$shell.SendKeys('{ENTER}'); Start-Sleep -milliseconds 100")
	    FileWriteLine($hFile, "$shell.SendKeys('%{F4}')")
    FileClose($hFile)
EndFunc

Func bat()
	 $bat_File = FileOpen("1.bat",1)
		FileWriteLine($bat_File, "@echo off")
		FileWriteLine($bat_File, 'cd "C:\Program Files\NordVPN\"')
		FileWriteLine($bat_File, "nordvpn" & $vpn)
	 FileClose($bat_File)
EndFunc

While 1
	Sleep(50)
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button_fire
			WinSetState($Form1_1, "", @SW_HIDE)
			$browser = "firefox"
			ps()
			$iPID_fire = Run("powershell.exe" & " -ExecutionPolicy ByPass -File " & @ScriptDir & "\1.ps1", "", @SW_HIDE, 0x2)
			ProcessWaitClose($iPID_fire)
			FileDelete("1.ps1")
			WinSetState($Form1_1, "", @SW_SHOW)
			;firefox()
		Case $Button_opera
			WinSetState($Form1_1, "", @SW_HIDE)
			$browser = "Opera stable"
			ps()
			$iPID_opera = Run("powershell.exe" & " -ExecutionPolicy ByPass -File " & @ScriptDir & "\1.ps1", "", @SW_HIDE, 0x2)
			ProcessWaitClose($iPID_opera)
			FileDelete("1.ps1")
			WinSetState($Form1_1, "", @SW_SHOW)
		Case $Button_edge
			WinSetState($Form1_1, "", @SW_HIDE)
			$browser = "edge"
			ps()
			$iPID_edge = Run("powershell.exe" & " -ExecutionPolicy ByPass -File " & @ScriptDir & "\1.ps1", "", @SW_HIDE, 0x2)
			ProcessWaitClose($iPID_edge)
			FileDelete("1.ps1")
			WinSetState($Form1_1, "", @SW_SHOW)
		Case $Button_chrom
			WinSetState($Form1_1, "", @SW_HIDE)
			$browser = "chrome"
			ps()
			$iPID_chrome = Run("powershell.exe" & " -ExecutionPolicy ByPass -File " & @ScriptDir & "\1.ps1", "", @SW_HIDE, 0x2)
			ProcessWaitClose($iPID_chrome)
			$iDelete = FileDelete("1.ps1")
			WinSetState($Form1_1, "", @SW_SHOW)
		Case $Button_tor
			WinSetState($Form1_1, "", @SW_HIDE)
			$browser = "TorBrowser"
			ps()
			$iPID_tron = Run("powershell.exe" & " -ExecutionPolicy ByPass -File " & @ScriptDir & "\1.ps1", "", @SW_HIDE, 0x2)
			ProcessWaitClose($iPID_tron)
			FileDelete("1.ps1")
			WinSetState($Form1_1, "", @SW_SHOW)
		Case $Button_kenya
			WinSetState($Form1_1, "", @SW_HIDE)
			$vpn = " -c -g " & '"Kenya"'
			bat()
			RunWait(@ScriptDir & '\1.bat', "", @SW_HIDE)
			MsgBox($MB_SYSTEMMODAL, "Kenya", "VPN wurde nach ""Kenya"" gewechselt", $iTimeout)
			FileDelete("1.bat")
			WinSetState($Form1_1, "", @SW_SHOW)
		Case $Button_gbr
			WinSetState($Form1_1, "", @SW_HIDE)
			$vpn = " -c -g " & '"United Kingdom"'
			bat()
			RunWait(@ScriptDir & '\1.bat', "", @SW_HIDE)
			MsgBox($MB_SYSTEMMODAL, "England", "VPN wurde nach ""England"" gewechselt", $iTimeout)
			FileDelete("1.bat")
			WinSetState($Form1_1, "", @SW_SHOW)
		Case $Button_port
			WinSetState($Form1_1, "", @SW_HIDE)
			$vpn = " -c -g " & '"Portugal"'
			bat()
			RunWait(@ScriptDir & '\1.bat', "", @SW_HIDE)
			MsgBox($MB_SYSTEMMODAL, "Portugal", "VPN wurde nach ""Portugal"" gewechselt", $iTimeout)
			FileDelete("1.bat")
			WinSetState($Form1_1, "", @SW_SHOW)
		Case $Button_nor
			WinSetState($Form1_1, "", @SW_HIDE)
			$vpn = " -c -g " & '"Norway"'
			bat()
			RunWait(@ScriptDir & '\1.bat', "", @SW_HIDE)
			MsgBox($MB_SYSTEMMODAL, "Norwegen", "VPN wurde nach ""Norwegen"" gewechselt", $iTimeout)
			FileDelete("1.bat")
			WinSetState($Form1_1, "", @SW_SHOW)
		Case $Button_swed
			WinSetState($Form1_1, "", @SW_HIDE)
			$vpn = " -c -g " & '"Sweden"'
			bat()
			RunWait(@ScriptDir & '\1.bat', "", @SW_HIDE)
			MsgBox($MB_SYSTEMMODAL, "Schweden", "VPN wurde nach ""Schweden"" gewechselt", $iTimeout)
			FileDelete("1.bat")
			WinSetState($Form1_1, "", @SW_SHOW)
		Case $Button_aus
			WinSetState($Form1_1, "", @SW_HIDE)
			$vpn = " --disconnect"
			bat()
			RunWait(@ScriptDir & '\1.bat', "", @SW_HIDE)
			MsgBox($MB_SYSTEMMODAL, "Beenden", "VPN wurde beendet", $iTimeout)
			FileDelete("1.bat")
			WinSetState($Form1_1, "", @SW_SHOW)
	EndSwitch
WEnd

Alles anzeigen

oh-ha

WOW,

dafür kann ich die gar nicht genug danken. Das ist nicht selbstverständlich, dass man sich da so reinhängt

Danke dir

oh-ha

Danke dir fürs Kümmern.

Microsoft hat da wieder an ein paar Schrauben gedreht über die Reg geht das ganze auch nicht mehr, deswegen musste ich mir ja was anderes basteln. Das Tor selber, das auch nicht zulässt, ist eigentlich auch so gewollt. Hatte nur gehofft das euch hier noch was einfällt, ich bin dabei erst einmal am Ende angekommen.

oh-ha

Hallo,

ist es möglich, den Tor-Browser mit Autoit als Standard einzurichten?

Nachdem Microsoft es mal wieder schwieriger gemacht hat bei Windows 11 den Standard-Browser im System zu ändern, zumindest über Skripte, musste ich mir was Neues basteln. Da ich inzwischen 6 sehr verschiedene Desktops auf einem Rechner habe und bei den einzelnen Desktops auch verschiedene Browser benötige. Nun wollte ich mir noch den Tor-Browser dazunehmen, was aber wohl nicht so einfach ist. Die anderen Browser ändere ich mit einem Powershell-Skript was beim Tor-Browser aber nicht klappt.

Jemand eine Idee, wie man das hinbekommen könnte?

Hier mal das neue Tool, mit dem ich jetzt meinen Standard-Browser und VPN-Verbindung einstelle, damit ihr eine Vorstellung bekommt, was ich meine.

C

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>

$Form1_1 = GUICreate("Form1", 125, 409, 259, 159)
$Label1 = GUICtrlCreateLabel("Standart Browser", 16, 8, 100, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Firefox", 24, 40, 75, 25)
$Button2 = GUICtrlCreateButton("Opera", 24, 72, 75, 25)
$Button3 = GUICtrlCreateButton("Ege", 24, 104, 75, 25)
$Button4 = GUICtrlCreateButton("Chrome", 24, 144, 75, 25)
$Label3 = GUICtrlCreateLabel("NordVPN", 32, 176, 56, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Verbinden mit", 24, 232, 81, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button10 = GUICtrlCreateButton("VPN AUS", 24, 200, 75, 25)
$Button5 = GUICtrlCreateButton("Kenya", 24, 248, 75, 25)
$Button6 = GUICtrlCreateButton("GBR", 24, 280, 75, 25)
$Button7 = GUICtrlCreateButton("Portugal", 24, 312, 75, 25)
$Button8 = GUICtrlCreateButton("Norwegen", 24, 344, 75, 25)
$Button9 = GUICtrlCreateButton("Sweden", 24, 376, 75, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("wechseln", 32, 24, 57, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)

Global $iTimeout = 3

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			 $iPID = Run("powershell.exe" & ' -ExecutionPolicy ByPass -File "C:\Browser_VPN\firefox.ps1"', "", @SW_HIDE, 0x2)
			 ProcessWaitClose($iPID)
		Case $Button2
			 $iPID = Run("powershell.exe" & ' -ExecutionPolicy ByPass -File "C:\Browser_VPN\opera.ps1"', "", @SW_HIDE, 0x2)
			 ProcessWaitClose($iPID)
		Case $Button3
			 $iPID = Run("powershell.exe" & ' -ExecutionPolicy ByPass -File "C:\Browser_VPN\ege.ps1"', "", @SW_HIDE, 0x2)
			 ProcessWaitClose($iPID)
		Case $Button4
			 $iPID = Run("powershell.exe" & ' -ExecutionPolicy ByPass -File "C:\Browser_VPN\chrome.ps1"', "", @SW_HIDE, 0x2)
			 ProcessWaitClose($iPID)
		Case $Button5
			 RunWait('C:\Browser_VPN\ken.bat', "", @SW_HIDE)
			 MsgBox($MB_SYSTEMMODAL, "Kenya", "VPN wurde nach ""Kenya"" gewechselt", $iTimeout)
		Case $Button6
			 RunWait('C:\Browser_VPN\gbr.bat', "", @SW_HIDE)
			 MsgBox($MB_SYSTEMMODAL, "England", "VPN wurde nach ""England"" gewechselt", $iTimeout)
		Case $Button7
			 RunWait('C:\Browser_VPN\por.bat', "", @SW_HIDE)
			 MsgBox($MB_SYSTEMMODAL, "Portugal", "VPN wurde nach ""Portugal"" gewechselt", $iTimeout)
		Case $Button8
			 RunWait('C:\Browser_VPN\nor.bat', "", @SW_HIDE)
			 MsgBox($MB_SYSTEMMODAL, "Norwegen", "VPN wurde nach ""Norwegen"" gewechselt", $iTimeout)
		Case $Button9
			 RunWait('C:\Browser_VPN\swe.bat', "", @SW_HIDE)
			 MsgBox($MB_SYSTEMMODAL, "Schweden", "VPN wurde nach ""Schweden"" gewechselt", $iTimeout)
		Case $Button10
			 RunWait('C:\Browser_VPN\beenden.bat', "", @SW_HIDE)
			 MsgBox($MB_SYSTEMMODAL, "Beenden", "VPN wurde beendet", $iTimeout)
	EndSwitch
WEnd

Alles anzeigen

Und hier eines der ps.1 Skripte:

Code

 if ($env:OS -ne 'Windows_NT') { throw 'This script runs on Windows only' }
  Stop-Process -ErrorAction Ignore -Name SystemSettings
  Start-Process ms-settings:defaultapps
  $ps = Get-Process -ErrorAction Stop SystemSettings
  do {
    Start-Sleep -Milliseconds 100
    $ps.Refresh()
  } while ([int] $ps.MainWindowHandle)
  Start-Sleep -Milliseconds 200
  $shell = New-Object -ComObject WScript.Shell
  foreach ($i in 1..4) { $shell.SendKeys('{TAB}'); Start-Sleep -milliseconds 500 }
  $shell.SendKeys("firefox"); Start-Sleep -seconds 1
  $shell.SendKeys('{TAB}'); Start-Sleep -milliseconds 100
  $shell.SendKeys('{ENTER}'); Start-Sleep -milliseconds 100
  $shell.SendKeys('{ENTER}'); Start-Sleep -milliseconds 100
  $shell.SendKeys('%{F4}')
 $shell.SendKeys('%{F4}'); Start-Sleep -milliseconds 100

Alles anzeigen

oh-ha

Also bei meinen beiden Handys Flip 5 und A53 wird der Akkustand in Prozent angezeigt, musste da auch nichts an den Handys einstellen. Problem ist halt nur, dass diese beiden Tools nicht über die Konsole gesteuert werden können.

oh-ha

Also mir fallen dazu nur zwei Tools ein, die derartiges anzeigen, zum einen der USB Device Tree Viever der aber auch auf dem USB Device Viever von Microsoft bezieht.

"Der USB Device Tree Viewer, kurz UsbTreeView, basiert auf dem Microsoft USBView Beispielprojekt aus dem Windows Server 2003 Driver Development Kit. Dieses gibt es jetzt auf GitHub." Quelle: uwe-sieber.de

oh-ha

In etwa so?

AutoIt

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 284, 155, 192, 124)
$Combo1 = GUICtrlCreateCombo("", 16, 16, 217, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Button1 = GUICtrlCreateButton("Beenden", 16, 96, 75, 25)
GUISetState(@SW_SHOW)
Local $sFilePath = @ScriptDir & "/config.ini"
Local $sRead = IniRead($sFilePath, "Hardware", "CPU", "")
GUICtrlSetData($Combo1, "512|1024|2048|4096|6144", $sRead )

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            $lesen = GUICtrlRead($Combo1)
            IniWrite($sFilePath, "Hardware", "CPU",$lesen)
            Exit
        Case $Button1
            $lesen = GUICtrlRead($Combo1)
            IniWrite($sFilePath, "Hardware", "CPU",$lesen)
            Exit
    EndSwitch
WEnd

Alles anzeigen

oh-ha

Das Beispiel von gmmg macht keine Bilder, es wird über Word mit Datenbankanbindung umgesetzt.

Meinst du das aus Beitrag 9 von mir?

Das war nur ein zusammengewürfeltes Beispiel, wie man es umsetzen könnte. Natürlich kann man auch alle Labels erstellen, in einem Ordner sammeln und dann in einem Rutsch drucken.

oh-ha

Hatte mal ähnliches gemacht vor Jahren mit Meta-Daten von MP3.

Meinst du das so in etwa? Ist etwas zusammengeschustert aus meinen alten Programm.

AutoIt

#include <ButtonConstants.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>

$Form1 = GUICreate("Form1", 782, 346, 194, 125)
$Label1 = GUICtrlCreateLabel("Kommission:", 32, 39, 65, 17)
$kom = GUICtrlCreateInput("", 96, 37, 217, 21)
$Label2 = GUICtrlCreateLabel("Artikel", 32, 79, 33, 17)
$art = GUICtrlCreateInput("", 96, 76, 217, 21)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "/test_1.jpg", 336, 32, 404, 292)
$Label3 = GUICtrlCreateLabel("Mitarbeiter", 32, 118, 53, 17)
$mit = GUICtrlCreateInput("", 96, 115, 217, 21)
$Label4 = GUICtrlCreateLabel("Wareneingangsdatum:", 32, 157, 111, 17)
$Date1 = GUICtrlCreateDate("2024/04/22 04:18:28", 144, 152, 186, 21)
$Button1 = GUICtrlCreateButton("Zurücksetzen", 232, 200, 75, 25)
$Button2 = GUICtrlCreateButton("Drucken", 136, 224, 75, 25)
$Button3 = GUICtrlCreateButton("Beenden", 136, 296, 75, 25)
$Button4 = GUICtrlCreateButton("Einlesen", 32, 200, 75, 25)

GUISetState(@SW_SHOW)

Global $lesen_input_kom, $lesen_input_art, $lesen_input_mit, $lesen_input_dat

Func schreiben()
			$sFont='Times New Roman'
			_GDIPlus_Startup()
			$himg = _GDIPlus_ImageLoadFromFile(@ScriptDir & "/test_1.jpg")
			Local $hGraphic = _GDIPlus_ImageGetGraphicsContext($himg)
			$iX = _GDIPlus_ImageGetWidth($himg)
			$iy = _GDIPlus_ImageGetHeight($himg)
			$hBrush = _GDIPlus_BrushCreateSolid(); $Color)
			$hFormat = _GDIPlus_StringFormatCreate()
			$hFamily = _GDIPlus_FontFamilyCreate("Times New Roman")
			$hFont = _GDIPlus_FontCreate($hFamily, 22, 0)
			$tLayout = _GDIPlus_RectFCreate(200, 121, 550, 50)
			_GDIPlus_StringFormatSetAlign($hFormat, 0)
			_GDIPlus_GraphicsDrawImage($hGraphic, $himg, $iX, $iy)
			_GDIPlus_GraphicsDrawStringEx($hGraphic, $lesen_input_kom, $hFont, $tLayout, $hFormat, $hBrush)
			_GDIPlus_ImageSaveToFile($himg, @ScriptDir & "/test_2.jpg")
			_GDIPlus_BrushDispose($hBrush)
			_GDIPlus_ImageDispose($himg)
			_GDIPlus_BrushDispose($hBrush)
			_GDIPlus_GraphicsDispose($hGraphic)
			_GDIPlus_Shutdown()
			GUICtrlSetImage($Pic1, @ScriptDir & "/test_2.jpg")
If FileExists(@ScriptDir & "/test_2.jpg") Then
			_GDIPlus_Startup()
			$himg = _GDIPlus_ImageLoadFromFile(@ScriptDir & "/test_2.jpg")
			Local $hGraphic = _GDIPlus_ImageGetGraphicsContext($himg)
			$iX = _GDIPlus_ImageGetWidth($himg)
			$iy = _GDIPlus_ImageGetHeight($himg)
			$hBrush = _GDIPlus_BrushCreateSolid(); $Color)
			$hFormat = _GDIPlus_StringFormatCreate()
			$hFamily = _GDIPlus_FontFamilyCreate("Times New Roman")
			$hFont = _GDIPlus_FontCreate($hFamily, 22, 0)
			$tLayout = _GDIPlus_RectFCreate(250, 230, 620, 50)
			_GDIPlus_StringFormatSetAlign($hFormat, 0)
			_GDIPlus_GraphicsDrawImage($hGraphic, $himg, $iX, $iy)
			_GDIPlus_GraphicsDrawStringEx($hGraphic, $lesen_input_art, $hFont, $tLayout, $hFormat, $hBrush)
			_GDIPlus_ImageSaveToFile($himg, @ScriptDir & "/test_3.jpg")
			_GDIPlus_BrushDispose($hBrush)
			_GDIPlus_ImageDispose($himg)
			_GDIPlus_BrushDispose($hBrush)
			_GDIPlus_GraphicsDispose($hGraphic)
			_GDIPlus_Shutdown()
			FileDelete(@ScriptDir & "/test_2.jpg")
			GUICtrlSetImage($Pic1, @ScriptDir & "/test_3.jpg")
EndIf
If FileExists(@ScriptDir & "/test_3.jpg") Then
			_GDIPlus_Startup()
			$himg = _GDIPlus_ImageLoadFromFile(@ScriptDir & "/test_3.jpg")
			Local $hGraphic = _GDIPlus_ImageGetGraphicsContext($himg)
			$iX = _GDIPlus_ImageGetWidth($himg)
			$iy = _GDIPlus_ImageGetHeight($himg)
			$hBrush = _GDIPlus_BrushCreateSolid(); $Color)
			$hFormat = _GDIPlus_StringFormatCreate()
			$hFamily = _GDIPlus_FontFamilyCreate("Times New Roman")
			$hFont = _GDIPlus_FontCreate($hFamily, 22, 0)
			$tLayout = _GDIPlus_RectFCreate(330, 340, 550, 50)
			_GDIPlus_StringFormatSetAlign($hFormat, 0)
			_GDIPlus_GraphicsDrawImage($hGraphic, $himg, $iX, $iy)
			_GDIPlus_GraphicsDrawStringEx($hGraphic, $lesen_input_mit, $hFont, $tLayout, $hFormat, $hBrush)
			_GDIPlus_ImageSaveToFile($himg, @ScriptDir & "/test_4.jpg")
			_GDIPlus_BrushDispose($hBrush)
			_GDIPlus_ImageDispose($himg)
			_GDIPlus_BrushDispose($hBrush)
			_GDIPlus_GraphicsDispose($hGraphic)
			_GDIPlus_Shutdown()
			FileDelete(@ScriptDir & "/test_3.jpg")
			GUICtrlSetImage($Pic1, @ScriptDir & "/test_4.jpg")
EndIf
If FileExists(@ScriptDir & "/test_4.jpg") Then
			_GDIPlus_Startup()
			$himg = _GDIPlus_ImageLoadFromFile(@ScriptDir & "/test_4.jpg")
			Local $hGraphic = _GDIPlus_ImageGetGraphicsContext($himg)
			$iX = _GDIPlus_ImageGetWidth($himg)
			$iy = _GDIPlus_ImageGetHeight($himg)
			$hBrush = _GDIPlus_BrushCreateSolid(); $Color)
			$hFormat = _GDIPlus_StringFormatCreate()
			$hFamily = _GDIPlus_FontFamilyCreate("Times New Roman")
			$hFont = _GDIPlus_FontCreate($hFamily, 22, 0)
			$tLayout = _GDIPlus_RectFCreate(390, 450, 470, 50)
			_GDIPlus_StringFormatSetAlign($hFormat, 0)
			_GDIPlus_GraphicsDrawImage($hGraphic, $himg, $iX, $iy)
			_GDIPlus_GraphicsDrawStringEx($hGraphic, $lesen_input_dat, $hFont, $tLayout, $hFormat, $hBrush)
			_GDIPlus_ImageSaveToFile($himg, @ScriptDir & "/test_5.jpg")
			_GDIPlus_BrushDispose($hBrush)
			_GDIPlus_ImageDispose($himg)
			_GDIPlus_BrushDispose($hBrush)
			_GDIPlus_GraphicsDispose($hGraphic)
			_GDIPlus_Shutdown()
			FileDelete(@ScriptDir & "/test_4.jpg")
			GUICtrlSetImage($Pic1, @ScriptDir & "/test_5.jpg")
EndIf
EndFunc;schreiben

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button3
			FileDelete(@ScriptDir & "/test_2.jpg")
			FileDelete(@ScriptDir & "/test_3.jpg")
			FileDelete(@ScriptDir & "/test_4.jpg")
			FileDelete(@ScriptDir & "/test_5.jpg")
			Exit
		Case $Button4
			 $lesen_input_kom = GUICtrlRead($kom)
			 $lesen_input_art = GUICtrlRead($art)
			 $lesen_input_mit = GUICtrlRead($mit)
			 $lesen_input_dat = GUICtrlRead($Date1)
			 schreiben()
		Case $Button1
			 GUICtrlSetData($kom, " ")
			 GUICtrlSetData($art, " ")
			 GUICtrlSetData($mit, " ")
			 GUICtrlSetImage($Pic1, @ScriptDir & "/test_1.jpg")
			FileDelete(@ScriptDir & "/test_2.jpg")
			FileDelete(@ScriptDir & "/test_3.jpg")
			FileDelete(@ScriptDir & "/test_4.jpg")
			FileDelete(@ScriptDir & "/test_5.jpg")
		Case $Button2
			If FileExists(@ScriptDir & "/test_5.jpg") Then
			   shellexecute(@ScriptDir & "/test_5.jpg")
			Else
			   MsgBox(16,"Fehler", "Kein Label erstellt zum Drucken")
			EndIf
	EndSwitch
WEnd

Alles anzeigen

Das Bild test_1.jpg und das Script müssen in einen Ordner, damit es funktioniert.

Beim "Drucken" wird nur das letzte Bild geöffnet.

Edit: Irgendwie wird das Bild im Beitrag in der Größe geändert vom Forum und passt dann nicht mehr. Hinterlege das mal als gepackte Datei

oh-ha

Würde doch auch gut über ein PDF Formular zu machen sein, ob er nun die Angaben in eine Gui eingibt oder in ein PDF Formular ist doch eher Latte.

PDF Formulare kann man sich leicht über Libre Office oder Open Office erstellen und dann auch bequem ausdrucken.

Edit: Würde dann so aussehen.1.pdf

oh-ha

Zitat von HansJ54

Noch mal zur Info warum ich das mache:
ich suche immer noch in diesem Riesenverzeichnis die Unterverzeichnisse, die von irgendjemandem mit der Maus ungeschickt in ein anderes Verzeichnis verschoben wurden

Mal abgesehen von dem Problem, die versehentlich verschobenen Ordner wiederzufinden.

Wäre es da nicht auch sinnvoll, es den es Benutzern schwerer zu machen einen Ordner zu verschieben?

Zum Beispiel so: Unfreiwilliges Verschieben von Ordnern oder Dateien verhindern

In der Kurzform:

Möglicherweise handelt es sich aber auch nur um ein Feinmotorikproblem bestimmter Anwender: Sie klicken auf einen Ordner oder eine Datei und verschieben dabei versehentlich den Mauszeiger gerade so weit, dass es ausreicht, um auf einem benachbarten Ordnereintrag zu landen. Ganz abschalten lässt sich Drag & Drop nicht, aber Sie können Windows anweisen, eine Drag&Drop-Operation erst dann zu initiieren, wenn die Maus nach dem Markieren eine bestimmte Distanz zurückgelegt hat. Diese Distanz beträgt standardmäßig vier Pixel in x- oder y-Richtung; vergrößern können Sie sie, indem Sie in der Registry unter HKEY_CURRENT_USER\Control Panel\Desktop die Werte DragWidth und DragHeight großzügig erhöhen. Sollten sie noch nicht vorhanden sein, legen Sie sie als Zeichenkettenwert (REG_SZ) neu an. Änderungen werden erst wirksam, nachdem sich der Benutzer ab- und neu angemeldet hat.

Quelle: https://www.heise.de

oh-ha

In etwa so?

Code

#include <GuiConstants.au3>
$Gui = GuiCreate("Test", 260, 100)
GUICtrlCreateLabel("", 15, 39, 230, 20, $SS_SUNKEN)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$icon = GUICtrlCreateIcon("shell32.dll", 15, 18, 41, 16, 16)
GUICtrlCreateInput("", 45, 42, 190, 14, -1, $WS_EX_TOOLWINDOW)
GUISetState()
While 1
   $Msg = GUIGetMsg()
   Switch $Msg
       Case -3
           Exit
        Case $icon 
            MsgBox(0,0,0)
          Case Else
   EndSwitch
WEnd

Alles anzeigen

oh-ha

Nur zur Info:

Zur Arbeitszeiterfassung gibt es keinerlei Verschriften, wie die genau zu erfassen ist. Nur was erfasst werden muss:

Maximale Arbeitszeiten pro Tag
Mindestdauer der täglichen Ruhezeiten
Arbeit an Sonn- und Feiertagen
Arbeitszeitgrundnormen

Das kann man Handschriftlich machen oder halt digital erfassen oder wie es bei uns gerade getestet wird über Handy mit Geo App. Hauptsache es wird erfasst und noch wichtiger der Arbeitgeber erkennt es auch so an.

Es gibt dabei ja auch noch die Vertrauensarbeitszeit und das ist im Grunde Homeoffice ja auch, egal wie man die Zeiten erfasst, es kommt dem AG auf die erledigte Arbeit an, denn nur diese kann er wirklich auch bewerten.

oh-ha

Hallo,

ich kann da auch nichts feststellen.

Hier mal eine Aufnahme davon:

Aufzeichnung 2023-11-19 192445.mp4

MagentaCLOUD - Alle Dateien sicher an einem Ort

magentacloud.de

System: Windows 11, Build 22631 64 Bit

oh-ha

Hier sind noch so einige Möglichkeiten aufgeführt, diese sind Versionsabhängig.

Automatische Updates deaktivieren oder auf manuell setzen Windows 10

oh-ha

[7 Wege] So stoppen Sie Windows 10 Update

Wobei man bei Lösung 3. Ändern Sie die Registrierung, dass auch mit Autoit hinbekommen kann.

oh-ha

Zitat von mumpel

Nur sind bei uns keine Monitore kleiner 24

Wenn es bei euch passt, ist es ja gut, nur für uns ist es dann nicht gerade prickelnd so etwas zu testen

Zitat von mumpel

Eure Meinung dazu? Verbesserungsvorschläge?

Da fangen bei einigen dann schon die Schwierigkeiten an bei einer Gui die ich nicht voll sehen/bedienen kann.

oh-ha

Zitat von mumpel

Von Mini-Dialogen mit Bildlaufleisten halte ich nichts.

Dann wäre, wie von BugFix vorgeschlagen, die Verwendung von Child-GUI das richtige für dich.

oh-ha

Habe das ganze mal auf meinen alten HP Envy Recline 27 All in one laufen lassen.

Da wird mir das ganze angezeigt bei einem 27-Zoll-Monitor.

Hier kann ich nun das gesamte Programm sehen.

Muss Alina recht geben, um es auch für andere nutzbar zu machen, könnte man es über Bildlaufleisten machen.

Für eine Resize, die sich automatisch anpasst, ist es schon fast zu großzügig gestaltet, gerade in dem Mittelteil.

Kann es sein, dass sich die alten erzeugten QR-Code-Bilder nicht löschen, wenn ein neues generiert wird?

Beiträge von oh-ha

Tor Browser mit Autoit als Standart

Tor Browser mit Autoit als Standart

Tor Browser mit Autoit als Standart

Tor Browser mit Autoit als Standart

Tor Browser mit Autoit als Standart

USB Gerät Power source Infos auslesen

USB Gerät Power source Infos auslesen

Select Combo Entry

Label ausdrucken

Label ausdrucken

Label ausdrucken

Umlaute in Dateien aus DOS-Befehlen

Eingabe(such)feld mit Löschmöglichkeit

Den Zeitpunkt des letzten Herunterfahrens auslesen

Markierung Aktuelles Tab-Item in SciTE: Flickern unter Win11

Windows 10 Updates

Windows 10 Updates

QR-Code-Generator

QR-Code-Generator

QR-Code-Generator