DERBENHD

AHK-CRL-Artikel-Preise-Copy

Feb 19th, 2020
849
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
  2. ; #Warn  ; Enable warnings to assist with detecting common errors.
  3. SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
  4. SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
  5. ; --- Legal things --- Rechtliche Dinge ---
  6. ;
  7. ; --- Deutsch ---
  8. ; Dieser Code gehört Ben Gottwald und ist ohne seine erlaubniss nicht zu nutzen oder weiterzuverbreiten!
  9. ; Sollte gegen dieses "Verbot" verstoßen werden können gerichtliche schritte folgen.
  10. ; Copyright Ben Gottwald Urheberrecht © Alle Rechte vorbehalten!
  11. ; Urheber ist Ben Gottwald
  12. ;
  13. ; --- English ---
  14. ; This code belongs to Ben Gottwald and can not be used or redistributed without his permission!
  15. ; Should this "prohibition" be violated, legal action may follow.
  16. ; Copyright Ben Gottwald © All Rights Reserved!
  17. ; The author is Ben Gottwald
  18. ;
  19. #SingleInstance, Force
  20.  
  21. ;CRL Preise in Excel kopieren Script
  22.  
  23. ;Warten auf Strg+V
  24. ^b::
  25. WinWaitActive, modified eCommerce Shopssoftware v2.0.5.0 rev 12487 dated: 2019-12-13 - Google Chrome
  26. MouseGetPos, vX, vY
  27. Send, ^t
  28. ;Öffne CRL seite mit Artikelnummer
  29. Send, https://www.crl.eu/de/catalogsearch/result/?q=%clipboard%{Enter}
  30. artnr := clipboard
  31. WinWaitNotActive, Alles rund ums Glas: Willkommen bei CRL - Google Chrome
  32. Sleep, 1700
  33. MouseMove, 1367, 505
  34. InputBox, ekpreismk, Artikelpreis,,,,, 2295, 565
  35. If ErrorLevel = 1
  36.     ExitApp
  37. ;Komma durch punkt ersetzten
  38. ekpreisok := StrReplace(ekpreismk, ",", ".")
  39. ;€zeichen entfernen
  40. ekpreisoe := StrReplace(ekpreisok, "€")
  41. ;Leerzeichen entfernen
  42. ekpreisol := StrReplace(ekpreisoe, A_Space)
  43. Sleep, 50
  44. WinActivate, Preisliste-Alles.xlsx - Excel
  45. Sleep, 100
  46. WinWaitActive, Preisliste-Alles.xlsx - Excel
  47. Sleep, 100
  48. Send, %artnr%{Enter}
  49. Sleep, 50
  50. Send, {Up}{Right}
  51. Sleep, 100
  52. Send, %ekpreisol%
  53. Sleep, 100
  54. Send, {Enter}{Left}
  55. Sleep, 100
  56. ie.quit
  57. WinActivate, modified eCommerce Shopssoftware v2.0.5.0 rev 12487 dated: 2019-12-13 - Google Chrome
  58. Sleep, 100
  59. Send, ^{Tab}
  60. MouseMove, 189, 660
  61. return
RAW Paste Data