Σενάριο για αλλαγή φόντου επιφάνειας εργασίας

Θετική μέρα στη δουλειά

Πίστωση εικόνας: Brusonja/iStock/Getty Images

Οι περισσότεροι χρήστες δεν το συνειδητοποιούν, αλλά η Microsoft εγκαθιστά ένα αντίγραφο της γλώσσας σεναρίου Visual Basic σε κάθε υπολογιστή με Windows. Αυτή η απλή αλλά ισχυρή γλώσσα καθιστά δυνατή την αυτοματοποίηση σχεδόν κάθε εργασίας που χρειάζεται να εκτελέσει ένας χρήστης ή ένας διαχειριστής σε ένα σύστημα, όπως η αλλαγή του φόντου της επιφάνειας εργασίας.

Επεξεργαστής κειμένου

Η δημιουργία μιας δέσμης ενεργειών της Visual Basic είναι εύκολη: το μόνο που χρειάζεστε είναι ένα απλό πρόγραμμα επεξεργασίας κειμένου όπως το Σημειωματάριο των Windows. Ωστόσο, αντί να αποθηκεύεται το αρχείο με ένα όνομα που τελειώνει σε ".TXT", το αρχείο πρέπει να αποθηκευτεί με ένα όνομα που τελειώνει σε ".VBS".

Το βίντεο της ημέρας

Το σενάριο

Επικολλήστε τα ακόλουθα σε ένα πρόγραμμα επεξεργασίας κειμένου:

αμυδρό κέλυφος θαμπός χρήστης

Set shell = WScript. CreateObject("WScript. Shell") χρήστης = κέλυφος. ExpandEnvironmentStrings("%USERNAME%")

Ρύθμιση fso = CreateObject("Scripting. FileSystemObject")

windowsDir = fso. Ταπετσαρία GetSpecialFolder (0) = "c:\wallpaper.jpg"

κέλυφος. RegΓράψτε "HKCU\Control Panel\Desktop\Wallpaper", ταπετσαρία

κέλυφος. Εκτελέστε το "%windowsDir%\System32\RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters", 1, True

Αλλάξτε το αρχείο "c:\wallpaper.jpg" στη διαδρομή και το όνομα αρχείου του φόντου της επιφάνειας εργασίας που θέλετε να χρησιμοποιήσετε.

Πώς να τρέξετε

Για να εκτελέσετε το σενάριο, απλώς αποθηκεύστε το με την επέκταση αρχείου .VBS. Στη συνέχεια, κάντε διπλό κλικ στο εικονίδιο του στην επιφάνεια εργασίας σας με το ποντίκι σας όπως θα κάνατε για να ξεκινήσετε οποιοδήποτε άλλο πρόγραμμα.