WOW,
dafür kann ich die gar nicht genug danken. Das ist nicht selbstverständlich, dass man sich da so reinhängt
Danke dir
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.
#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:
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
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?
#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
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.
#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
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 HansJ54Noch 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
In etwa so?
#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
Nur zur Info:
Zur Arbeitszeiterfassung gibt es keinerlei Verschriften, wie die genau zu erfassen ist. Nur was erfasst werden muss:
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.
Hallo,
ich kann da auch nichts feststellen.
Hier mal eine Aufnahme davon:
System: Windows 11, Build 22631 64 Bit
Hier sind noch so einige Möglichkeiten aufgeführt, diese sind Versionsabhängig.
Automatische Updates deaktivieren oder auf manuell setzen Windows 10
[7 Wege] So stoppen Sie Windows 10 Update
Wobei man bei Lösung 3. Ändern Sie die Registrierung, dass auch mit Autoit hinbekommen kann.
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
Eure Meinung dazu? Verbesserungsvorschläge?
Da fangen bei einigen dann schon die Schwierigkeiten an bei einer Gui die ich nicht voll sehen/bedienen kann.
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?
Optimiert für 24"-Monitore.
Hallo, benutze ein Surface 8 pro mit 13" Bildschirm und darauf ist dein Programm nicht zu benutzen und auch nur über den Taskmanager zu beenden.
Da würde ich an deiner Stelle noch nacharbeiten.
Schaut bei mir so aus: