🧓🏽 🚣🏻 🖤 कलात्मक वॉलपेपर + मौसम विजेट 🅾️ 🏊 🙅🏼

कहानी

मुझे हमेशा यह जानने में दिलचस्पी थी कि मौसम क्या है, इस बीच, विभिन्न मौसम विजेट का उपयोग किया गया था, और फिर एक दिन, एक दोस्त की सलाह पर, मैं इस साइट पर आया। साइट की अपनी हाइलाइट थी, जिसमें यह तथ्य शामिल था कि मौसम की रिपोर्ट कला चित्रों की पृष्ठभूमि के खिलाफ प्रदर्शित की गई थी, जिसे मैं सभ्य गुणवत्ता की सूचना देना चाहता हूं। इन सभी आकर्षण ने मुझे उदासीन नहीं छोड़ा, और मैंने साइट को बुकमार्क किया। जैसे-जैसे समय बीतता गया, साइट बुकमार्क से सारणीबद्ध थंबनेल (स्पीड डायल) पर चली गई, जिसे समय-समय पर अद्यतन किया गया था, लेकिन अभी भी कुछ गायब था। और, अंत में, मुझे यह विचार मिला - साइट के स्क्रीनशॉट लेने और उन्हें डेस्कटॉप पर वॉलपेपर के रूप में प्रदर्शित करने के लिए।

लक्ष्य

कार्यान्वयन पर यथासंभव "संसाधनों" पर खर्च करते हुए विचार को लागू करें, नोट किए गए वॉलपेपर को बदलने के लिए एक स्क्रीनशॉट बनाने से प्रक्रिया करें।

प्रयुक्त उपकरण

PhantomJS - वेब संसाधनों से स्क्रीनशॉट लेने के लिए
NConvert - विभिन्न स्वरूपों में चित्रों को परिवर्तित करने के लिए
वॉलपेपर - विंडोज विस्टा और 7 में वॉलपेपर अपडेट करने के लिए
VBScript - सभी आवश्यक कमांड निष्पादित करने के लिए
विंडोज टास्क शेड्यूलर - नियमित रूप से वॉलपेपर अपडेट करने के लिए

कार्यान्वयन

सबसे पहले, PhantomJS , NConvert और वॉलपेपर के नवीनतम संस्करण डाउनलोड करें।
काश, फ़ाइल "wallpaper.exe" के साथ संग्रह उपलब्ध नहीं है, इसलिए इसे लेख के स्रोतों के साथ संग्रह से डाउनलोड किया जा सकता है, जिसका लिंक अंत में प्रकाशित किया जाएगा।
लेखन के समय, फैंटमजस 1.3.0 विंडोज (स्टेटिक बिल्ड) और NConvert v5.91 का उपयोग किया गया था। फिर हम "weather_wall" फ़ोल्डर बनाते हैं, इसमें हम "टूल्स" सबफ़ोल्डर बनाते हैं। हम इस सबफ़ोल्डर में जाते हैं और "PhantomJS" संग्रह की सामग्री को उसी नाम के फ़ोल्डर में अनपैक करते हैं। हमने NCONvert और wallpaper.exe को "टूल" फ़ोल्डर में रखा है। इसके बाद, आपको उदाहरण फ़ोल्डर से "rasterize.js" फ़ाइल को कॉपी करना होगा और इसे "टूल" फ़ोल्डर में रखना होगा। हम "rasterize.js" फ़ाइल को थोड़ा ठीक करेंगे ताकि आप स्क्रीनशॉट के आवश्यक विस्तार को निर्दिष्ट कर सकें।

var page = new WebPage(), address, output, size; if (phantom.args.length < 2 || phantom.args.length > 3) { console.log('Usage: rasterize.js URL filename [paperwidth*paperheight|paperformat]'); console.log(' paper (pdf output) examples: "5in*7.5in", "10cm*20cm", "A4", "Letter"'); phantom.exit(); } else { address = phantom.args[0]; output = phantom.args[1]; page.viewportSize = { width: 600, height: 600 }; if (phantom.args.length === 3 && phantom.args[1].substr(-4) === ".pdf") { size = phantom.args[2].split('*'); page.paperSize = size.length === 2 ? { width: size[0], height: size[1], border: '0px' } : { format: phantom.args[2], orientation: 'portrait', border: '1cm' }; }/* xrays add */ else if(phantom.args.length === 3){ size = phantom.args[2].split('*'); page.viewportSize = { width: size[0], height: size[1] }; };/* end */ page.open(address, function (status) { if (status !== 'success') { console.log('Unable to load the address!'); } else { window.setTimeout(function () { page.render(output); phantom.exit(); }, 200); } }); }

फिर आप VBScript लिखना शुरू कर सकते हैं। हम "टूल्स" फ़ोल्डर में "वॉलपेपर.वब्स" फ़ाइल बनाते हैं और एक शुरुआत के लिए हम इसमें आवश्यक लोगों का वर्णन करते हैं और महत्वपूर्ण चर में भरते हैं:

 Dim WshShell Set WshShell = WScript.CreateObject("Wscript.Shell") Dim url, history, logon '    url = "http://www.artmeteo.ru/4335/" '    history = 1 '     logon = 1 '      Windows

सच कहूँ, इससे पहले मैंने VBScript में कोड नहीं लिखा था। स्वचालित रूप से स्क्रीनशॉट प्राप्त करने के लिए, आपको स्क्रीन रिज़ॉल्यूशन जानने की आवश्यकता है:

 '    Dim obj, monSize Set obj = CreateObject("htmlfile") monSize = obj.parentWindow.screen.width & "*" & obj.parentWindow.screen.height

अगला:

 '    '    Dim toolsPath, path Set obj = CreateObject("Scripting.FileSystemObject") '     obj toolsPath = obj.GetParentFolderName(WScript.ScriptFullName) & "\" '      path = obj.GetParentFolderName(toolsPath) & "\" '     '        Dim phantom, bmpname phantom = toolsPath&"phantomjs\" '   phantomjs bmpname = path&"url.bmp " '   bmp  WshShell.Run phantom & "phantomjs.exe " & toolsPath & "rasterize.js " & url & " " & bmpname & monSize, 0, True '

नोट्स: अंतिम पंक्ति के अंत में, पैरामीटर 0, True का उपयोग यह सुनिश्चित करने के लिए किया जाता है कि कोड पृष्ठभूमि में चलता है और स्क्रिप्ट में वर्णित आगे की कमांड इस कोड को निष्पादित करने के लिए इंतजार कर रही है।
जैसा कि आप देख सकते हैं, स्क्रीनशॉट को bmp प्रारूप में सहेजा गया है, ऐसा इसलिए किया जाता है क्योंकि विस्टा के तहत विंडोज के संस्करण एक अलग प्रारूप में वॉलपेपर को स्वीकार नहीं करते हैं। अगला, हम ओएस संस्करण निर्धारित करते हैं:

 Dim OSType OSType = Left(Trim(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentVersion")),1) '   windows Dim convert, n, time, jpgname, wallpaper

चूंकि स्क्रिप्ट यथासंभव सार्वभौमिक होनी चाहिए, लेकिन आपको ओएस के विभिन्न संस्करणों के साथ फिर से कनेक्ट करने की आवश्यकता है, हम पहले विंडोज विस्टा और 7 के लिए कोड का वर्णन करते हैं:

 If OSType>5 Then '   Windows Vista  Windows 7 '   bmp  jpg Dim quality quality = 95 '   jpg  convert = toolsPath & "nconvert.exe -out jpeg -q " & quality & " -i -overwrite -o " n = Now '      time = Right("00" & Day(n), 2) & "-" & Right("00" & Month(n), 2) & "-" & Right("00" & Year(n), 2) & "_" & Right("00" & Hour(n), 2) & "_" & Right("00" & Minute(n), 2) & "_" & Right("00" & Second(n), 2) '   jpgname = path & time & ".jpg " '   jpg  WshShell.Run convert & jpgname & bmpname, 0, True '   bmp  jpeg '      wallpaper = WshShell.ExpandEnvironmentStrings("%APPDATA%") & "\Microsoft\Windows\Themes\TranscodedWallpaper.jpg" '    obj.CopyFile jpgname, wallpaper '  jpg   .   WshShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", wallpaper '           '   logon Dim logonname logonname = WshShell.ExpandEnvironmentStrings("%windir%") & "\System32\oobe\info\backgrounds\backgroundDefault.jpg " '   logon  If logon = 1 Then '    logon Dim logonconvert, goodlogon Set file = obj.GetFile(jpgname) '      logon If Round(file.size/1024) < 256 Then '    < 256,      goodlogon = 1 obj.CopyFile jpgname, logonname Else goodlogon = 0 quality = quality - 3 End If '     logon While goodlogon = 0 logonconvert = toolsPath & "nconvert.exe -out jpeg -q " & quality & " -i -overwrite -o " ' -canvas 1280 800 top-left WshShell.Run logonconvert & logonname & bmpname, 0, True Set file = obj.GetFile(logonname) '      logon If Round(file.size/1024) < 256 Then '   < 256 Kb,    goodlogon = 1 Else quality = quality - 3 '     End If Wend WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background\OEMBackground", 1, "REG_DWORD" Else If obj.FileExists(logonname) Then obj.DeleteFile logonname, True '  logon ,    End If End If If history = 0 Then '      ,   jpg  obj.DeleteFile jpgname, True End If WshShell.Run toolsPath & "wallpaper.exe", 0, True '  Windows

आप देख सकते हैं कि इस कोड में चित्र (लॉग स्क्रीन की तस्वीर) के लॉगऑन में बदलाव होता है, जिसमें विंडोज की आवश्यकताएं लागू होती हैं। इन आवश्यकताओं का सार यह है कि फ़ाइल 256 Kb से बड़ी नहीं हो सकती है, इसलिए, एक स्वीकार्य सीमा सीमा तक तस्वीर की गुणवत्ता को कम करने के लिए एक चक्र शुरू किया जाता है।
अब विंडोज के निचले संस्करणों के लिए कोड का वर्णन करने का समय है:

 Else '     Windows '      wallpaper = WshShell.ExpandEnvironmentStrings("%appdata%") & "\Wallpaper.bmp" '    obj.CopyFile bmpname, wallpaper '  bmp   .   WshShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", wallpaper '           '   logon Dim Background, Winlogon If logon = 1 Then '    logon Background = 1 Winlogon = 0 WshShell.RegWrite "HKEY_USERS\.DEFAULT\Control Panel\Desktop\TileWallpaper", 1, "REG_SZ" ' : (0 =  ; 1 =  ()) Else Background = 0 wallpaper = "" Winlogon = 1 End If WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background\OEMBackground", Background, "REG_DWORD" '     logon  WshShell.RegWrite "HKEY_USERS\.DEFAULT\Control Panel\Desktop\Wallpaper", wallpaper, "REG_SZ"'        logon  ' WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LogonType", Winlogon, "REG_DWORD" ' 1 -   , 0 -      If history = 1 Then '     ,      bmp  jpg (95% ) convert = toolsPath & "nconvert.exe -out jpeg -q 95 -overwrite -o " n = Now time = Right("00" & Day(n), 2) & "-" & Right("00" & Month(n), 2) & "-" & Right("00" & Year(n), 2) & "_" & Right("00" & Hour(n), 2) & "_" & Right("00" & Minute(n), 2) & "_" & Right("00" & Second(n), 2) '   jpgname = path & time & ".jpg " WshShell.Run convert & jpgname & bmpname, 0, True '  bmp  jpg End If WshShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 0, True '        End If

स्क्रिप्ट की अंतिम "घंटियाँ और सीटी":

 obj.DeleteFile bmpname, True '  bmp  Set WshShell = Nothing

यहीं से स्क्रिप्ट लिखी जाती है। स्वचालित स्क्रिप्ट निष्पादन, उदाहरण के लिए, हर 5 मिनट में, अंतर्निहित विंडोज टास्क शेड्यूलर का उपयोग किया जाएगा। ऐसा करने के लिए, एक नया कार्य बनाएं और प्रोग्राम को लॉन्च किए जाने के रूप में "wallpaper.vbs" स्क्रिप्ट के लिए पथ को इंगित करें, और यह भी दैनिक का चयन करने के लिए मत भूलना और काम के लिए ट्रिगर के लिए गुणों में हर 5 मिनट को दोहराएं।

परिणाम

स्क्रिप्ट का परीक्षण विंडोज 7 के साथ 2 कंप्यूटरों पर, विंडोज 2003 सर्वर पर एक और विंडोज एक्सपी के साथ एक पर किया गया था। Windows XP के लिए स्वागत स्क्रीन में परिवर्तन देखने के लिए, "कंट्रोल पैनल -> उपयोगकर्ता खाते -> उपयोगकर्ता लॉगिन परिवर्तन" में "वेलकम पेज" बॉक्स को अनचेक करें या स्क्रिप्ट स्रोत में 100 लाइन को अनचेक करें। स्क्रिप्ट का स्रोत कोड, सभी अतिरिक्त सॉफ़्टवेयर के साथ, यहां से लिया जा सकता है ।

अद्यतन करने

विंडोज 7 के साथ दूसरे कंप्यूटर पर स्क्रिप्ट का परीक्षण करने का अवसर था, लेकिन एक सफल लॉन्च असफल रहा। समस्या यह थी कि फ़ाइल में पथ की अनुपस्थिति के बारे में एक त्रुटि थी जिसमें स्वागत स्क्रीन की तस्वीर संग्रहीत की गई थी। व्यावहारिक रूप से, एक समाधान पाया गया था जो या तो मैन्युअल रूप से निम्न पथ "%windir%\System32\oobe\info\backgrounds\" , या उपयोगकर्ता खाता नियंत्रण (UAC) सेटिंग्स को कंप्यूटर के बाद के पुनरारंभ और स्क्रिप्ट को अद्यतन करने के साथ, निम्नतम में बदल रहा है जिसे यहां से डाउनलोड किया जा सकता है ।