Direkt zum Inhalt

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!