AHK-CRL-Artikel-Preise-Copy

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn  ; Enable warnings to assist with detecting common errors.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
; --- Legal things --- Rechtliche Dinge ---
;
; --- Deutsch ---
; Dieser Code gehört Ben Gottwald und ist ohne seine erlaubniss nicht zu nutzen oder weiterzuverbreiten!
; Sollte gegen dieses "Verbot" verstoßen werden können gerichtliche schritte folgen.
; Copyright Ben Gottwald Urheberrecht © Alle Rechte vorbehalten!
; Urheber ist Ben Gottwald
;
; --- English ---
; This code belongs to Ben Gottwald and can not be used or redistributed without his permission!
; Should this "prohibition" be violated, legal action may follow.
; Copyright Ben Gottwald © All Rights Reserved!
; The author is Ben Gottwald
;
#SingleInstance, Force

;CRL Preise in Excel kopieren Script

;Warten auf Strg+V
^b::
WinWaitActive, modified eCommerce Shopssoftware v2.0.5.0 rev 12487 dated: 2019-12-13 - Google Chrome
MouseGetPos, vX, vY
Send, ^t
;Öffne CRL seite mit Artikelnummer
Send, https://www.crl.eu/de/catalogsearch/result/?q=%clipboard%{Enter}
artnr := clipboard
WinWaitNotActive, Alles rund ums Glas: Willkommen bei CRL - Google Chrome
Sleep, 1700
MouseMove, 1367, 505
InputBox, ekpreismk, Artikelpreis,,,,, 2295, 565
If ErrorLevel = 1
    ExitApp
;Komma durch punkt ersetzten
ekpreisok := StrReplace(ekpreismk, ",", ".")
;€zeichen entfernen
ekpreisoe := StrReplace(ekpreisok, "€")
;Leerzeichen entfernen
ekpreisol := StrReplace(ekpreisoe, A_Space)
Sleep, 50
WinActivate, Preisliste-Alles.xlsx - Excel
Sleep, 100
WinWaitActive, Preisliste-Alles.xlsx - Excel
Sleep, 100
Send, %artnr%{Enter}
Sleep, 50
Send, {Up}{Right}
Sleep, 100
Send, %ekpreisol%
Sleep, 100
Send, {Enter}{Left}
Sleep, 100
ie.quit
WinActivate, modified eCommerce Shopssoftware v2.0.5.0 rev 12487 dated: 2019-12-13 - Google Chrome
Sleep, 100
Send, ^{Tab}
MouseMove, 189, 660
return