API tools faq
paste
Advertisement
ledlight

Temporäre pfade ohne aktivem zwischenspeichern.

ledlight
Apr 25th, 2025
1,101
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VBScript 1.10 KB | Software | 0 0
raw download clone embed print report
  1. Set filesobjWindows = CreateObject("Scripting.FileSystemObject")
  2. Set objShell = WScript.CreateObject("WScript.Shell")
  3.  
  4. ' Pfad zur temporären Datei
  5. tempFile = objShell.ExpandEnvironmentStrings("%TEMP%\temp_edit.txt")
  6.  
  7. ' Datei erstellen oder überschreiben mit Beispielinhalt
  8. Set temp = filesobjWindows.CreateTextFile(tempFile, True)
  9. temp.Write "Hier ist der Standardinhalt der Datei."
  10. temp.Close
  11.  
  12. ' Paint öffnen
  13. objShell.Run "mspaint"
  14. WScript.Sleep 2000
  15.  
  16. Dim objShell
  17. Set objShell = CreateObject("WScript.Shell")
  18.  
  19. ' Startet Notepad
  20. objShell.Run "notepad", 1, False
  21. WScript.Sleep 500  ' Wartezeit, damit das Fenster erscheint
  22.  
  23. ' Notepad aktivieren
  24. objShell.AppActivate "notepad"
  25. WScript.Sleep 500   ' Wartezeit vor SendKeys
  26.  
  27. ' Maximieren mit Alt+Leertaste + X
  28. objShell.SendKeys "% "
  29. WScript.Sleep 100  
  30. objShell.SendKeys "x"
  31. WScript.Sleep 100
  32.  
  33. objShell.SendKeys "^o"  ' Strg+O für "Datei öffnen"
  34. WScript.Sleep 500
  35. objShell.SendKeys tempFile  ' Hier wird der erweiterte Pfad verwendet
  36. WScript.Sleep 500
  37. objShell.SendKeys "{ENTER}"  ' Datei laden
  38. WScript.Sleep 500
  39.  
  40. objShell.SendKeys "^a"
Tags: notepad dateinhalt markieren
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!