VB Scriptinə Giriş: Yeni Başlayanlar üçün Kılavuz: 11 Addım

2024 Müəllif: John Day | [email protected]. Son dəyişdirildi: 2024-01-30 07:49

*** ((((XƏBƏRDARLIQ: Bir çox addımlar olsa da. Bu olduqca asandır. Mən yeni başlayanlar üçün hər şeyi ətraflı izah edirəm. Kodun son addıma keçməsini istəyirsinizsə və tam tapacaqsınız) kod var.)))) *** Çox Xbox oynayıram və bant genişliyi olduğu üçün həmişə kompüterimi internetdən çıxartmalı oluram. Əsasən hər şeyi yüklədiyim və ya yüklədiyim üçün. Problem onu bağlamaq deyil, amma unutduğum şeyi yenidən açmaqdır ki, bütün yükləmə/yükləmə vaxtını itirdiyim yerə gətirirəm. Buna görə də bunu mənim üçün etmək üçün bir proqram yaratmağa qərar verdim. Vb.net -də yazacaqdım, amma bu yaxınlarda hard diskimi qovurduğum pis bir fırtına səbəbiylə əməliyyat sistemimi kompüterimdə nukle etmək və açmaq məcburiyyətində qaldım və hələ VB.net -i yenidən qurmadım, buna görə də bunu düşündüm Mənə vbscript ilə oynamaq üçün bir səbəb verin. Mən də işlədiyini bildiyim üçün arxa planda göstərmək üçün boya ilə bir şəkil hazırladım.

Addım 1: Nə etmək istədiyinizi anlayın

Həmişə etdiyim ilk şey plan qurmaqdır. Proqramın nə etməsini istəyirəm? A) Ssenarini aça bilmək istəyirəm və avtomatik olaraq əlaqəni kəsər. B) Arxa planda nəhəng bir ekran göstərilməsini istəyirəm, buna görə də internetin söndürülməsində heç bir səhv yoxdur, bu yolla yenidən açmağı unutmuram. C) Mənə onu açmaq üçün bir seçim verməsini istəyirəm. yenidən açın və sonra bir cavab gözləyin. D) Yenidən açdığımdan əmin olmaq istəyirəm, buna görə də unutmuram. və sonra fonu bağlayır. F) Hər şeydən çıxın.

Addım 2: İstifadə etdiyim, amma həqiqətən lazım olmayan şeylər

Həqiqətən ehtiyacınız olan şey notepad kimi bir mətn redaktorudur. Qalan hər şey isteğe bağlıdır. VB skriptini işləyərkən Notepad ++ istifadə edirəm, buna görə də rənglə işləyən vb.net kimi davranır və dili bilir. Səhvlərin qarşısını almağa kömək edir. Bir xəta kodu aldığınızda problemin nə olduğunu diaqnoz edə biləcəyiniz üçün xətləri də nömrələyir. Buradan notepad ++ əldə edilə bilər

Addım 3: Proqramlaşdırmaya başlayın

Yaxşı etmək istədiyiniz ilk şey bir mətn faylı yaratmaq və onu fayl uzantısı ilə adlandırmaq istədiyiniz hər hansı bir şeyə saxlamaqdır..vbsMən bunu ümumiyyətlə masaüstündə edirəm, çünki üzərində işləyərkən təxminən bir milyon dəfə açıram. İndi faylı sağ vurun və notepad ++ ilə redaktə et və ya redaktə edin.

Addım 4: Adım 1: Əmr əmri pəncərəsinin açılması

Buna görə də istədiklərimi etmək üçün yalnız kompüterdə saxlanılan proqramlardan istifadə edəcəyim işlərin çoxunu etməyə qərar verdim. Daha az kodlaşdırma və heç bir yükləmə yoxdur … Woohoo. Easiest, komanda istəyidir, buna görə bir əmr istəyi pəncərəsi açmaq istəyirik, bunun üçün bir obyekt qurmaq istəyirik: yazın shellobj = CreateObject ("WScript. Shell") Nə edir: Shelllobj nümunəsini skript qabığı obyekti yaratmaq üçün bərabər qoyun. Bu yolla etməli olduğumuz şey, hər dəfə yeni əmrə ehtiyac duyduğumuzda CreateObject ("WScript. Shell") yerinə shellobj yazmaqdır. İndi bir obyekt yaratdığımız üçün obyektə əmr istəyi pəncərəsini açmağı tapşırırıq. shellobj.run "cmd" Nə edir: Bu, başlanğıc menyusundakı qaçış qutusuna CMD yazmağın ekvivalenti olardı. Dəyişən shellobject təyin etməsəydik, yazmalı idik: CreateObject ("WScript. Shell"). "Cmd" işlədin … indi nə qədər asan olduğunu görün. Səhvlər üçün daha az yer. Faylı vurun … sonra Saxla … sonra masaüstünə gedin və işə salmalı olduğunuz vbsfaylına iki dəfə vurun Hər şey düzgün gedirsə, göstərilməli olan bir Windows əmrini almalısınız ……aaaaaaa !!! yoxlamayın kodlaşdırmanız üçün indiyə qədər sahib olmalısınız: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" Skriptinizə şərhlər əlavə edə bilərsiniz, belə ki, sonradan xəttin önünə vergül qoyaraq nə etdiyinizi xatırlayırsınız. bu: 'bu bir əmr istəyi açmaqdır. Çox vaxt kodlaşdıranda bunu edəcəyəm, buna görə baxdığımda sonra etdiklərimi xatırlayıram. Ssenari sadəcə bu xətti görməzdən gəlir və davam edir. Onları görsəniz, eyni şeyi edə bilərsiniz.

Adım 5: Adım 2: Taymerlərin qurulması

Tamam indi yeni bir pəncərəyə sahib olduğumuz üçün onu istədiyimizi edə biləcəyimiz üçün əmrlərlə doldurmalıyıq. Problem ondadır ki, bəzi kompüterlər pəncərələri açmaq üçün digərlərindən daha uzun çəkir, buna görə də skriptin bir az gözləməsini istəyirik. başlamaq üçün bir az. çox tez başlayarsa, pəncərəni açmadan əvvəl kompüter boşluğu dolduracaq və ya qismən bir əmr alacaqsınız, ya da heç birini almayacaqsınız. Buna görə bir taymer qurmalıyıq. Bunu etmək üçün yazırıq: wscript.sleep 200Nə edir: Skriptə növbəti əmri yerinə yetirməzdən əvvəl X dəfə gözləməyi bildirir. 1000 saniyəyə bərabərdir, buna görə də mənim saniyəmin beşdə birini gözləyir. Kompüterinizin daha çox və ya daha az vaxt gözləməsi lazım olduğunu görə bilərsiniz. Kompüteri seyr edirsinizsə və əmrləri düzgün yazmırsınızsa, nömrəni 2000 kimi daha yüksək bir rəqəmə dəyişmək 2 saniyə və yəqin ki, çox vaxt olacaq. İndi faylı qeyd edin, bu anda kodunuz belə olmalıdır: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200

Adım 6: Adım 3: Şəkil çəkin

Boya açdım və içərisinə "İnternet Bağlandı" yazdım və 800x600 etdi və id.bmp olaraq saxladım və kök qovluğumda saxladım, mənim vəziyyətimdə k: / ancaq sizinki c: / olacaq

Adım 7: Adım 4: Əmr göndərmək, Şəkli açmaq

Tamam, indi əmrləri gözləyən bir komanda pəncərəsi olduğumuz üçün sendkeys əmrini istifadə edərək əmrləri pəncərəyə yazmaq kifayətdir. Sendkeys əmrini istifadə edərkən yazmağa bənzəyirik, amma yazmaq istədiyimizi yazacaq. Yaza biləcəyimiz hər hansı bir şey, proqramları yerinə yetirmək üçün lazım olan giriş düymələri də daxil olmaqla göndərə bilərik. İndi düymələrin necə göndəriləcəyini bildiyimiz üçün, yeni hazırladığımız şəklimizi aça bilərik, sonra başqa bir taymerin sonrakı sözünü qoyaq ki, şəkil yüklənsin. Bunu etmək üçün yazırıq: shellobj.sendkeys "k: / id.bmp {enter}" wscript.sleep 200 Nə edir: Bu, qaçış qutusuna k: / id.bmp yazmaqla eynidir. Şəkilinizi bir bmp üçün standart şəkil izləyicisində açmalıdır … mənim vəziyyətimdə windows şəkli və faks görüntüleyicisidir, lakin əksər insanlar bunu bazar proqramlarından sonra quraşdırırlar ki, kimin sizin açacağınızı kim bilir. çalıştırın. Siz bir əmr istemi və açılacaq bir şəkil almalısınız. indiyə qədər çox yaxşı !!! kodunuz indiyə qədər olmalıdır: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp {enter}" wscript. yuxu 200

Adım 8: Adım 5: Əmr göndərmək, İnterneti bağlamaq

Bu nöqtədə hələ etməmisinizsə, sonda pdf faylını yükləyin, beləliklə, onu düzəltmək üçün yükləyə biləcəyiniz bir təlimat var. Tamam, buna görə IP ünvanımızı buraxmaq üçün ipconfig istifadə edəcəyik. IP ünvanı olmadan internet trafiki ala bilmərik, çünki marşrutlaşdırıcı onu kompüterə hara göndərəcəyini bilmir. Bunu etmək üçün yazırıq: shellobj.sendkeys "ipconfig /release {enter}" Nə edir: Bu, IPCONFIG proqramına IP ünvanını buraxmağı tapşırır. {enter} kompüterə giriş düyməsini vurduğunuzu bildirir. Bu, iş pəncərəsinə ipconfig /release yazmaq və enter düyməsini basmaq kimi olar. Adətən bunu etdikdən sonra, ipconfig proqramını işə salsanız, IP ünvanınızın 0.0.0.0 olduğunu söyləyəcək. İstədiyimiz budur. IP ünvanı olmadan marşrutlaşdırıcı bizim burada olduğumuzu bilmir və heç bir proqram belə danışa bilməz. İndi başqa bir sətir yaza bilərik: shellobj.sendkeys "exit {enter}" Ancaq yuxarıdakı sətri düzəltmək və sonuna əlavə etmək daha asan olardı: shellobj.sendkeys "ipconfig /release {enter} exit {enter} "İndi yadda saxla amma işə salma, çünki internet bağlantını kəsəcəksən. Əgər onu işə salırsınızsa və internetiniz bağlanırsa, keçidini ipconfig /release -dən ipconfig /yeniləyə dəyişin və yenidən işə salın və yenidən açılmalıdır. Və hər şey yenidən başladıqda uğursuz olarsa və yaxşı olsanız, indiyə qədər kodunuz belə olmalıdır: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp { enter} "wscript.sleep 200shellobj.sendkeys" ipconfig /release {enter} exit {enter}"

Addım 9: Adım 6: Mesaj qutusu yaratmaq və cavab gözləmək

Yaxşı, indi interneti uğurla bağladıq və komanda istəyi pəncərəsini bağladıqdan sonra, İnternetin yenidən açılmasını istədiyimizi soruşan bir mesaj qutusu açılmasını istəyirik. bəli, amma yox düyməsini bassaq, bunun getməsini istəmirik, buna görə də bunu etmək üçün bir müddət ifadəsini istifadə edəcəyik. Əvvəlcə mesaj qutusu üçün bir dəyişəni ölçməliyik ki, ona ədəd dəyişənləri təyin edək. Çaşqın göründüyünü bilirəm, amma əslində belə deyil. bunu bir dəfə xətt ilə etdik: set shellobj = CreateObject ("WScript. Shell"), bunu qurmaq hətta asandır: Dim MyVar Nə edir: İndi "bəli" aldığınızda MyVar adlı bir dəyişəni ölçdük. /yox "mesaj qutusu ekranınızda açılır və hər düyməyə dəyər verdiyi düymələri tıklayırsınız, bu halda" bəli "1 və" yox "2 -dir. Dəyişənin" yox "ilə başlamasını istəyirik Varsayılan olaraq 2 nömrəsini təyin edirik, bu şəkildə bir düymə tıklanana qədər durur Bunu etmək üçün yazırıq: myvar = 2 Nə edir: indi MyVar 2 -ə bərabərdir, bu şəkildə növbəti sətirdə dayanacaq və girişi gözləyəcək. İndi biz sadəcə orada oturub interneti yenidən açmağa hazır olana qədər gözləməyimizi istəyirik. Bunu etmək üçün yazırıq: myvar = 2 Nə edir: Bunu etməklə skriptə myvarın dəyərini dedik = 2 sonra 2 -dən başqa bir dəyər əldə etməyincə mesaj qutusunu döndərməyə davam edin, bu halda yalnız 1 ola bilər. Sonra biz həqiqətən bir mesaj qutusunu bəli/yox düymələri ilə açmaq istəyirik. bunu yazırıq: MyVar = MsgBox ("İnternet bağlantısını açın", 65, "İnternet Bağlantısını Açın") Nə edir: İndi MyVar dəyişəninə mesaj qutusunda tıklanan düyməyə nə dəyər atansa təyin ediləcək. Sitatdakı ilk hissə mesaj qutusunun əslində nə deyəcəyidir. 65 onu Bəli/Xeyr mesaj qutusu olaraq təyin edir. və quotes -in son hissəsi mesaj qutusunun ləbidir. bəli və ya yox düyməsini tıkladığınızda hansı dəyəri təyin etdiyini yoxlamaq üçün msgbox (myVar) deyən bir sətrə əlavə edə bilərsiniz və myvar -a təyin olunan hər hansı bir dəyəri çap edəcək. bir mesaj qutusu. İndi bir mesaj qutumuz var ki, while ifadəsini bağlamalıyıq. While ifadəsinin açıq və yaxın arasında olan hər şey "yox" düyməsini basdığınız zaman hər zaman işləyəcək, çünki yox düyməsini basarsanız yenə də 2 dəyərindədir və ilk hissəyə qayıdır. While ifadəsinin növünü bitirmək üçün: wendWhat it edir: Bir müddət ifadəsinə son qoyduqdan sonra, arqument artıq yerinə yetirilməyənə qədər döngə rolunu oynayacaq. Beləliklə, yox vurmağa davam etsəniz, dönər, ancaq bəli vurduqda, döngədən azad olacaq və skriptlə davam edəcək. Dosyanı saxla, ancaq növbəti addıma qədər işləməsini gözləyin. Kodunuz indiyə qədər olmalıdır: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp { enter} "wscript.sleep 200shellobj.sendkeys" ipconfig /release {enter} exit {enter} "Dim MyVarmyvar = 2 while myvar = 2MyVar = MsgBox (" İnternet bağlantısını aç ", 65," İnternet Bağlantısını Aç ")

Addım 10: Adım 7: İnternetin yenidən açılması

İndi kimsə nəhayət bəli düyməsini basdı və bu zaman ifadəsini keçdi, İnternetdə yellənməliyik. Ümumiyyətlə bir təsdiq açıram, buna görə son istifadəçi nələrin baş verdiyini bilir, ancaq sırf isteğe bağlıdır. Bir təsdiq növü açmaq üçün: msgbox ("İndi İnternet Bağlantısını yenidən açacağıq !!!") Nə edir: indi İnternet Bağlantısını yenidən açacağımızı bildirən bir mesaj qutusu göndərir !!! və düyməni basmaq üçün sizə ok düyməsini verir. İndi etməli olduğumuz tək şey interneti yenidən açmaq və hər şeyi bağlamaqdır. İnterneti yenidən açmaq üçün yalnız taymeri təyin edərək sonra ipcionfig istifadə edin. yazın: shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "ipconfig /update {enter}" Nə edir: əvvəldən söndürmə əmrini geri çevirir və IP ünvanınızı yeniləyir. IP ünvanınızı yenilədikdən sonra yenidən internet bağlantısı əldə edə bilərsiniz. İndi etməli olduğumuz şey açıq pəncərələri təmizləməkdir. Yenə də bir sendkeys əmrindən istifadə edə bilərik, ancaq təmizliyi də saxlamaq üçün son sətri əlavə edəcəyəm. Bu vəziyyətdə, şəkli göstərən proqramı öldürmək üçün taskkill proqramından istifadə edəcəyəm. Bu vəziyyətdə, Windows şəkil və faks görüntüləyicisidir və tapşırıq menecerinin proseslər sekmesinde rundll32.exe olaraq görünür, buna görə də öldürməyimiz lazımdır. Şəkil irfanview və ya acdsee kimi başqa bir proqramla açılırsa, proseslər sekmesinde getdiyi adı tapın və tapdığınız adla rundll32.exe faylını yerləşdirin. Komanda belə olardı: taskkill /F /IM rundll32.exe edir: taskkill, proqramın adıdır /F açarı onu öldürməyə məcbur edir və /IM düyməsi şəkil adını bildirir İndi biz bunu son sətrə əlavə edirik, əmri yerinə yetirmək üçün bir giriş əlavə edirik və sonra exit əmri və başqa bir giriş və belə görünür: shellobj.sendkeys "ipconfig /yeniləmə {enter} taskkill /F /IM rundll32.exe {enter} çıx {enter}" Faylınızı qeyd edin.

Addım 11: Hazır məhsul

Hər şey qaydasındadırsa, hazır məhsulunuz belə görünməlidir: shellobj = CreateObject ("WScript. Shell") qoyun shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp {enter}" wscript.sleep 200shellobj.sendkeys "ipconfig /release {enter} exit {enter}" Dim MyVarmyvar = 2 while myvar = 2MyVar = MsgBox ("İnternet bağlantısını aç", 65, "İnternet Bağlantısını Aç") wendmsgbox ("İndi İnterneti Açacağıq") Bağlantı yenidən açıldı !!! ") shellobj.run" cmd "wscript.sleep 200shellobj.sendkeys" ipconfig /update {enter} taskkill /F /IM rundll32.exe {enter} exit {enter} "_end of script_Now artıq proqramlaşdırma Proqramı işə sala bilərsiniz. Nə baş verməlidir: 1.) CMD pəncərəsini çox qısa müddətə açmalısınız, sonra bağlayın2.) İnternetiniz artıq işləməməlidir. ancaq bunu görməyəcəksən. 3) Şəkilin açılmalıdır. 4) İnternetin yenidən açılmasını istəyirsənmi deyə soruşan bir pop -up almalısan. 5.) Neçə dəfə tıklasan da heç bir mesaj qutusu zəng etməməlidir. Siz ancaq yenidən interneti yenidən açmaq istəyib -istəmədiyinizi soruşursunuz. bağlamaq lazımdır. Orada var. İnternetinizi açmaq və söndürmək üçün çox asan bir VBscript. Ümid edirəm bəyənərsən. Əslində, əmr satırı cihazı menecerinə bənzər DevCon adlı bir proqramı istifadə edərək şəbəkə adapterlərini bağlayan bu ilə demək olar ki, eyni olan başqa bir skript hazırladım. Çox yaxşı işləyir. Skript, DevCon üçün əmrləri olan ipconfig üçün əmrləri olduğu yerlər istisna olmaqla, bu ilə eynidir.