Willkommen auf meiner Seite kruegermark.de.
Du bist also damit einverstanden, dass diese Seite Daten für Statistiken, Analysen, personalisierte Inhalte und Werbung (natürlich innerhalb der Datenschutzrichtlinien), verwendet.
(¯`·.¸Programmieren: „Schreiben bedeutet, Spielen mit den Murmeln der Fantasie.” Bettina Schott¸.·´¯)
Mediawiki - Quelltext - Tastaturbelegung für den Nummernblock
#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 #include <Array.au3> #include <Date.au3> #include <WinAPI.au3> #include <WindowsConstants.au3> #include <StructureConstants.au3> #AutoIt3Wrapper_Icon=KeyboardRemapping.ico #AutoIt3Wrapper_Res_Fileversion=0.1.0.3 #AutoIt3Wrapper_Res_Fileversion_AutoIncrement=Y
...Quellcode auf Anfrage!
Func _Jahreszahl2Link($sInput) Func _wikiRefs2List($sInput) Func _wikiInternLinks2Extern($sInput) Taste 0 : marked text 2 Internal Link - Mediawiki Taste 1 : marked text 2 bold - Mediawiki Taste 2 : marked text 2 Gänsefüschen - Mediawiki Taste 3 : marked text 2 Wp-Link - Mediawiki-Link-Vorlage Taste 4 : insert text - from 2nd Clipboard Shift-4 : marked text into 2nd Clipboard Taste 5 : insert text - Taste 6 : insert text - from 3nd Clipboard Shift-6 : marked text into 3nd Clipboard Taste 7 : Taste 8 : Mediawiki Internal Links into external Links to wikipedia / !best 4 grabbed Pages Taste 9 : marked text - all 4 Digits into Internal Links...Quellcode auf Anfrage!
haiilo (ehem. coyo) · User erstellen
Benutzer per REST API erstellen - create USER - Bearer Token - by AutoIt
Melden Sie sich einfach, wenn Sie das vollständige Skript möchten. Hier einige Zeilen als Beispiel:
#include <Date.au3>
#include <file.au3> ; zukünftige USER werden per Datei importiert
#include <JSON.au3>
#include "JSON_Translate.au3"
#include <WinHttp.au3>
#include <GUIConstants.au3>
;Create GUI
Global $hMain = GUICreate(@ScriptName & " · Logging", 420, 220)
Global $edtConsole = GUICtrlCreateEdit("", 10, 10, 400, 200)
GUISetState(@SW_SHOW, $hMain)
Global $bDEBUG = True
Global $Msg = "Start: " & _NowTime()
_WinLogOut($Msg & @CRLF)
$Protokoll = 'https://'
$SubDomain = 'app.'
$Domain = 'kruegermark.de'
$DomPath = '/api/oauth/token'
$DomParameter = '?grant_type=password&username=[Benutzername]&password=[Passwort]'
Local $UserName = 'admin@kruegermark.de' ;coyo admin credentials
Local $PassWord = '78563421' ;coyo admin credentials
Local $sClientID = 'machine' ;coyo API credentials
Local $sClientSecret = '7654321-aa11-2b2b-c333-d4e5ff67g89h' ;coyo API credentials
Local $URL = _urlClear($Protokoll & '://' & $SubDomain & '.' & $Domain & '/' & $DomPath & '?' & $DomParameter)
$URL = StringReplace($URL,'[Benutzername]',$UserName)
$URL = StringReplace($URL,'[Passwort]',$PassWord)
$DomParameter = StringReplace($URL,'[Benutzername]',$UserName)
$DomParameter = StringReplace($URL,'[Passwort]',$PassWord)
;Connect by HTTP
Local $oHTTP = ObjCreate('winhttp.winhttprequest.5.1')
...
Local $sReceived = $oHTTP.ResponseText
...
$access_token = ...
...
$token_expires = json_get($object...
Dynamic Photo HDR 5 steuern
DynamicPhotoHDR5
; ******* Dynamic Photo HDR steuern
#include <Array.au3>
#include <File.au3>
#include <MsgBoxConstants.au3>
#include <Process.au3>
#Include <WinAPI.au3>
#Include <WindowsConstants.au3>
Global $bDEBUG = True
Local $appHandle
Local $var = WinList()
Local $s_PID_Buffer, $dTitle0, $dTitle1, $dTitle2, $dTitle3, $dTitle4
Local $WinTitle = 'Dynamic Photo HDR'
Global $process = "DynamicPhoto.exe" ; Anwendung
Global $picDir, $picSaveDir, $picFile
; ======== Anwendung finden ========
$arrProcesses = ProcessList($process)
;_ArrayDisplay ($arrProcesses) ; DEBUG
$sColumn = 0 ; Detect process in array
$iIndex = _ArraySearch($arrProcesses, $process, 0, 0, 0, 1, 1, $sColumn) ;https://www.autoitscript.com/autoit3/docs/libfunctions/_ArraySearch.htm
If @error Then
ConsoleWrite(@ScriptLineNumber & " Prozess '" & $process & "' wurde nicht gefunden!" & @LF)
MsgBox($MB_SYSTEMMODAL, "Anwendung wurde nicht gefunden", "Bitte '" & $WinTitle & "' vorher starten." & @LF & @LF & "Script wird beendet")
Exit
Else
$iPID = $arrProcesses[1][1]
ConsoleWrite(@ScriptLineNumber & " Prozess '" & $process & "' mit PID: " & $iPID & " gefunden!" & @LF)
EndIf
For $i = 2 To $var[0][0]
If BitAND(WinGetState($var[$i][1]), 2) Then ; is visible
if not StringInStr($s_PID_Buffer,";" & WinGetProcess($var[$i][1]) & ";") then ; show PID only once
$s_PID_Buffer &= ";" & WinGetProcess($var[$i][1]) & ";"
if $iPID = WinGetProcess($var[$i][1]) then
$appHandle = $var[$i][1]
ConsoleWrite($i & @TAB & "Title=" & $var[$i][0] & @TAB & "Handle='" & $appHandle & "'" & @LF)
EndIf
endif
EndIf
Next
;======== Verzeichnisauswahl der Bilder
$picDir = FileSelectFolder('Wählen Sie ein Verzeichnis aus...', "")
If Not @error Then
If $bDebug then
ConsoleWrite(@ScriptLineNumber & @TAB & "'" & $picDir &"' wurde ausgewählt" & @LF)
EndIf
Else
MsgBox($MB_SYSTEMMODAL, "", "Es wurde kein Verzeichnis ausgewählt - ABBRUCH!")
Exit
EndIf
If StringRight($picDir,1) <> "\" then $picDir = $picDir & "\"
Local $arrFileList = _FileListToArray($picDir, "*.jpg")
;======== Verzeichnisauswahl für Speicherung der Bilder
$picSaveDir = FileSelectFolder('und Verzeichnis für die Speicherung...', "")
If Not @error Then
If $bDebug then
ConsoleWrite(@ScriptLineNumber & @TAB & "'" & $picSaveDir &"' wurde ausgewählt" & @LF)
EndIf
Else
MsgBox($MB_SYSTEMMODAL, "", "Es wurde kein Verzeichnis ausgewählt - ABBRUCH!")
Exit
EndIf
If StringRight($picSaveDir,1) <> "\" then $picSaveDir = $picSaveDir & "\"
Local $arrMethods = StringSplit('Ultra-Contrast,Halo-Matrix,Smooth Compressor,Eye-Catching',',')
Local $arrMethButton = StringSplit('[CLASS:Button; INSTANCE:2],[CLASS:Button; INSTANCE:7],[CLASS:Button; INSTANCE:3],[CLASS:Button; INSTANCE:1]',',')
Local $arrMethKz = StringSplit('uc,hm,sc,ec',',')
; ======== Schleife für alle Bilder ========
For $f = 1 To UBound($arrFileList) -1
ConsoleWrite(@ScriptLineNumber & @TAB & "$f =" & $f)
; ======== Anwendung aktivieren ========
...Quellcode auf Anfrage!
; ======== Ladevorgang einleiten ========
...Quellcode auf Anfrage!
_wait4finished($iPID,@ScriptLineNumber) ; --- Ladevorgang abwarten ; ======== Tone Mapping durchführen ========
...Quellcode auf Anfrage!
ConsoleWrite(@ScriptLineNumber & @TAB & "$f =" & $f) Next ; ======== ======== ======== ; ======== Funktionen ========
...Quellcode auf Anfrage!