SHARE
TWEET

AHK-CRL-Artikel-Preise-Copy

DERBENHD Feb 19th, 2020 (edited) 535 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
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top