In Outlook selbst könnte man das mit Regeln festlegen.
Beiträge von oh-ha
-
-
"Diese Option ist bei Android nicht vorhanden."
Ist bei jeder Android Version vorhanden, hat nur leider einen abhängig vom Hersteller einen anderen Namen.
Hier mal als Beispiel bei einem Samsung Phone. Da nennt es sich "mobile Daten"
Bei IOS, nennt es sich "Datensparmodus", nur da kenne ich mich nicht wirklich aus.
Mal aus der Google Android Hilfe.
- Verbinden Sie Ihr Smartphone oder Tablet mit dem WLAN.
- Öffnen Sie auf dem Gerät die Einstellungen.
- Tippen Sie auf Netzwerk & Internet [Blockierte Grafik: https://lh3.googleusercontent.com/WD3LKKej34vq3cZXwilgeahIPOiokN2uarmkDxtMqKMFg4SSys8BkOBJbn4_4R930gE=w36-h36] Internet.
- Falls Sie sie dann immer noch nicht finden können, wenden Sie sich an den Gerätehersteller.
- Tippen Sie auf das WLAN, mit dem Sie verbunden sind.
- Tippen Sie auf Netzwerknutzung [Blockierte Grafik: https://lh3.googleusercontent.com/WD3LKKej34vq3cZXwilgeahIPOiokN2uarmkDxtMqKMFg4SSys8BkOBJbn4_4R930gE=w36-h36] Wie „kostenpflichtig“ behandeln.
Verwendung von kostenpflichtigem WLAN
Wenn Ihr Netzwerk ein Datenlimit hat, können Sie Ihr WLAN als "kostenpflichtig" festlegen. Wenn Ihr Netzwerk als "kostenpflichtig" festgelegt ist, können Sie besser steuern, wie viele Daten Ihr Smartphone oder Tablet über Downloads und andere Apps verbraucht.
-
Moin, dann setzte alle anderen Netzwerke außer Starlink als getaktete Netzwerke.
Sollte dann den gewünschten Effekt haben.
-
Alina Es gibt in Deutschland fast nichts, was im Arbeitsleben nicht irgendwo geregelt ist. In diesen Fall ist das geregelt in der Arbeitsstättenverordnung (AStV) und in der ASR A3.4 Wobei sich auch die VBG darum gekümmert hat, deren PDF über die Bürobeleuchtung ist allein schon 17Mb groß.
Schnuffel Kein Mensch in Deutschland wird es schaffen in seinen Leben NICHT gegen irgendeine Verordnung zu verstoßen. Der Masse an Regelungen stehen aber nur relativ wenige gegenüber die es auch überprüfen können. Auch in einer Firma kennt nicht jeder alle Regelungen. Wenn der einzelne mit anderen Einstellungen als der Gesetzlichen Vorgaben besser zurechtkommt, dann sollte er dies auch so machen. Das ist einer der Dinge die Gesetze und Verordnungen meist nicht wirklich berücksichtigen.
-
In etwa so?
AutoIt
Alles anzeigen#cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.16.1 Author: myName Script Function: Template AutoIt script. #ce ---------------------------------------------------------------------------- ; Script Start - Add your code below here ; Variablen definieren Local $sKundenname = InputBox("WerbaPlast Projekt", "Bitte geben Sie den Kundennamen ein:") Local $sBasisPfad = "C:\Pfad\Zu\Deinen\Ordnern\" ; Ändere den Pfad entsprechend Local $sDatum = (@YEAR & "-" & @MON & "-" & @MDAY) ;wenn zaehler.ini noch nicht vorhanden ist If Not FileExists($sBasisPfad & "zaehler.ini") Then IniWrite($sBasisPfad & "zaehler.ini", "nummer", "neu", "1") ;einlesen der laufenfen nummer aus der ini Datei Local $iNummer = IniRead($sBasisPfad & "zaehler.ini", "nummer", "neu", "") ; Erstelle den neuen Ordner Local $sNeuerOrdner = $sBasisPfad & $sKundenname & "_" & $sDatum & "_" & $iNummer DirCreate($sNeuerOrdner) ; Erstelle den Unterordner "dxf" DirCreate($sNeuerOrdner & "\dxf") ;einen zähler hoch in der ini $iNummer = $iNummer+1 $iNummer2 = StringFormat("%05s", $iNummer) IniWrite($sBasisPfad & "zaehler.ini", "nummer", "neu", $iNummer2) MsgBox(0, "Ordner erstellt", "Der Ordner wurde erfolgreich erstellt: " & $sNeuerOrdner) -
Eventuell ist ja hier was für dich dabei: Dr. Web.de
-
Das geht auch heute noch zb. mit Linux basierten Receivern und Twin Tuner bei Satelit.
-
@ Andy
Solltest du auch nur im entferntestens was mit proggen zu tun haben, lass es bleiben und werde schriftsteller. Hab schon Bauchschmerzen vor Lachen, hatte aber auch ähnliches mitgemacht, nur kann ich das nicht in entferntestens so wiedergeben.
UM aus dem OT rauszukommen, benutze schon seit der DBOX 1 einen Receiver mit Linux System darauf, derzeit ein Open ATV und komme damit prima klar als zuspieler. Ist nur halt nicht jedermanns sache bei der einrichtung.
-
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'
-
Habe das ganze jetzt so umgesetzt, falls jemand ähnliches brauchen sollte.
Auch die Einbindung des Tor-Browsers als Standard funktioniert sehr gut.
C
Alles anzeigen#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 -
WOW,
dafür kann ich die gar nicht genug danken. Das ist nicht selbstverständlich, dass man sich da so reinhängt
Danke dir
-
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.
-
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
Alles anzeigen#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 WEndUnd hier eines der ps.1 Skripte:
Code
Alles anzeigenif ($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 -
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.
-
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
-
In etwa so?
AutoIt
Alles anzeigen#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 -
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.
-
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
Alles anzeigen#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 WEndDas 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
-
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
-
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
