1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. oh-ha

Beiträge von oh-ha

  • Was ist eure Präferenz: "light mode" oder "dark mode" bei Software (egal ob Web oder Desktop)?

    • oh-ha
    • 27. März 2025 um 06:20

    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.

  • Ordner mit laufender Nummer

    • oh-ha
    • 9. Dezember 2024 um 11:22

    In etwa so?


    AutoIt
    #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)
    Alles anzeigen
  • HTML-/CSS-Optimierer

    • oh-ha
    • 1. Dezember 2024 um 05:33

    Eventuell ist ja hier was für dich dabei: Dr. Web.de

  • Smart TV Tips erbeten // erledigt

    • oh-ha
    • 15. November 2024 um 18:36

    Peter S. Taler

    Das geht auch heute noch zb. mit Linux basierten Receivern und Twin Tuner bei Satelit.

  • Smart TV Tips erbeten // erledigt

    • oh-ha
    • 1. November 2024 um 20:28

    @ 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.:rofl:

    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.

  • Tor Browser mit Autoit als Standart

    • oh-ha
    • 4. August 2024 um 16:01

    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'

  • Tor Browser mit Autoit als Standart

    • oh-ha
    • 4. August 2024 um 11:37

    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
  • Tor Browser mit Autoit als Standart

    • oh-ha
    • 6. Juli 2024 um 20:58

    WOW,

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


    Danke dir:thumbup:

  • Tor Browser mit Autoit als Standart

    • oh-ha
    • 6. Juli 2024 um 18:31

    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.

  • Tor Browser mit Autoit als Standart

    • oh-ha
    • 6. Juli 2024 um 14:48

    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
  • USB Gerät Power source Infos auslesen

    • oh-ha
    • 3. Mai 2024 um 05:55

    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.

  • USB Gerät Power source Infos auslesen

    • oh-ha
    • 2. Mai 2024 um 11:47

    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

  • Select Combo Entry

    • oh-ha
    • 29. April 2024 um 11:04

    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
  • Label ausdrucken

    • oh-ha
    • 29. April 2024 um 09:19

    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.

  • Label ausdrucken

    • oh-ha
    • 21. April 2024 um 23:40

    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

    Bilder

    • test_1.jpg
      • 74,24 kB
      • 928 × 642

    Dateien

    Label.7z 55,58 kB – 129 Downloads
  • Label ausdrucken

    • oh-ha
    • 20. April 2024 um 19:38

    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

  • Umlaute in Dateien aus DOS-Befehlen

    • oh-ha
    • 6. März 2024 um 14:51
    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

  • Eingabe(such)feld mit Löschmöglichkeit

    • oh-ha
    • 8. Januar 2024 um 11:14

    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
  • Den Zeitpunkt des letzten Herunterfahrens auslesen

    • oh-ha
    • 6. Dezember 2023 um 18:39

    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.

  • Markierung Aktuelles Tab-Item in SciTE: Flickern unter Win11

    • oh-ha
    • 19. November 2023 um 19:46

    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

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™