Სარჩევი:

შესავალი VB Script: დამწყებთათვის გზამკვლევი: 11 ნაბიჯი
შესავალი VB Script: დამწყებთათვის გზამკვლევი: 11 ნაბიჯი

ვიდეო: შესავალი VB Script: დამწყებთათვის გზამკვლევი: 11 ნაბიჯი

ვიდეო: შესავალი VB Script: დამწყებთათვის გზამკვლევი: 11 ნაბიჯი
ვიდეო: მიხეილ თუთბერიძე, დაპროგრამება, 3(2) 2024, ნოემბერი
Anonim
შესავალი VB Script: დამწყებთათვის სახელმძღვანელო
შესავალი VB Script: დამწყებთათვის სახელმძღვანელო

*** ((((ALERT: მიუხედავად იმისა, რომ ბევრი ნაბიჯია. ეს რეალურად საკმაოდ ადვილია. მე უბრალოდ დეტალურად ავუხსენი ყველაფერი დამწყებთათვის. თუ თქვენ უბრალოდ გინდათ კოდი გადადით ბოლო საფეხურზე და ნახავთ სრულს კოდი იქ.)))) *** მე ვთამაშობ ბევრ Xbox– ს პირდაპირ და ყოველთვის მიწევს ინტერნეტის გამორთვა ჩემს კომპიუტერში, რადგან ის ზრდის სიჩქარეს. ძირითადად იმიტომ, რომ მე ყოველთვის ვტვირთავ ან ვტვირთავ საგნებს. პრობლემა არ არის მისი გათიშვა, არამედ მისი დაბრუნება, რომელიც მე მავიწყდება და მივაღწევ იქ, სადაც ვტვირთავ/გადმოვტვირთავ დროს. ამიტომ გადავწყვიტე შემექმნა პროგრამა, რომ გამეკეთებინა ჩემთვის. მე ვაპირებდი ამის დაწერას Vb.net– ში, მაგრამ სულ ახლახანს მომიწია ბირთვული ოპერაციის სისტემის დაყენება ჩემს კომპიუტერზე ცუდი ქარიშხლის გამო მყარ დისკზე და VB.net ჯერ არ დაინსტალირებული მაქვს, ასე რომ, მე უბრალოდ მივხვდი, რომ ეს იქნებოდა მომეცი მიზეზი, რომ ვითამაშო ვბსკრიპტით. მე ასევე გავაკეთე სურათი საღებავით, რომ გამოვიჩინო ფონზე, ასე რომ ვიცოდი რომ ის გაშვებული იყო.

ნაბიჯი 1: გაარკვიეთ რისი გაკეთება გსურთ

გაარკვიეთ რისი გაკეთება გსურთ
გაარკვიეთ რისი გაკეთება გსურთ

პირველი რაც მე ყოველთვის ვაკეთებ არის გეგმის შედგენა. რა მინდა რომ გააკეთოს პროგრამამ? ა) მინდა შევძლო სკრიპტის გახსნა და ის ავტომატურად გათიშავს კავშირს. ბ) მე მინდა რომ მას აჩვენოს გიგანტური ჩვენება ფონზე, ასე რომ არ არის შეცდომა, რომ ინტერნეტი გამორთულია, ამ გზით მე არ მავიწყდება მისი ჩართვა. გ) მინდა რომ მან მომცეს არჩევანის გაკეთება ჩართეთ და შემდეგ დაელოდეთ პასუხს. დ) მინდა, რომ დარწმუნებული ვიყო, რომ ისევ ჩართავს მას, ასე რომ არ დამავიწყდება. და შემდეგ ხურავს ფონს. ვ) გამოდი ყველაფრისგან.

ნაბიჯი 2: ის, რასაც მე ვიყენებ, მაგრამ ნამდვილად არ არის საჭირო

ის, რასაც მე ვიყენებ, მაგრამ ნამდვილად არ არის საჭირო
ის, რასაც მე ვიყენებ, მაგრამ ნამდვილად არ არის საჭირო

ყველაფერი რაც თქვენ ნამდვილად გჭირდებათ არის ტექსტური რედაქტორი, როგორიცაა ბლოკნოტი. ყველაფერი დანარჩენი არჩევითია. მე ვიყენებ Notepad ++ - ს, როდესაც ვაკეთებ VB სკრიპტს, რადგან მას ისე ექცევა, როგორც vb.net ფერები და იცის ენა. ეს ხელს უწყობს შეცდომების თავიდან აცილებას. ის ასევე ითვლის ხაზებს, ასე რომ თქვენ შეგიძლიათ დაადგინოთ რა პრობლემაა შეცდომის კოდის მიღებისას. აქედან შეგიძლიათ მიიღოთ რვეული ++

ნაბიჯი 3: დაიწყეთ პროგრამირება

დაიწყეთ პროგრამირება
დაიწყეთ პროგრამირება

პირველი რაც თქვენ გინდათ გააკეთოთ არის შექმნათ ტექსტური ფაილი და შეინახოთ ის რაც გინდათ რომ დაერქვას ფაილის გაფართოება..vbs მე ამას ჩვეულებრივ ვაკეთებ სამუშაო მაგიდაზე, რადგან ვხსნი მილიონჯერ, სანამ ვმუშაობ მასზე. ახლა უბრალოდ დააწკაპუნეთ ფაილზე და დააჭირეთ რედაქტირებას ან რედაქტირებას რვეულის ++ საშუალებით

ნაბიჯი 4: ნაბიჯი 1: ბრძანების სტრიქონის ფანჯრის გახსნა

ნაბიჯი 1: გახსენით ბრძანების ფანჯარა
ნაბიჯი 1: გახსენით ბრძანების ფანჯარა

ასე რომ, მე გადავწყვიტე სამუშაოს უმეტესი ნაწილი მე უბრალოდ გამოვიყენო კომპიუტერში უკვე შენახული პროგრამები, რათა გავაკეთო ის, რაც მინდა. ნაკლები კოდირება და გადმოტვირთვა … Woohoo. Easyest არის ბრძანების სტრიქონი. ასე რომ ჩვენ გვინდა გავხსნათ ბრძანების ფანჯარა ამისათვის ჩვენ გვინდა რომ ავაშენოთ ობიექტი, ასე რომ ჩვენ ვწერთ: set shellobj = CreateObject ("WScript. Shell") რას აკეთებს: დააყენეთ მაგალითი shellobj რომ იყოს ტოლი, რათა შეიქმნას ობიექტი w სკრიპტის გარსი. ამ გზით ჩვენ მხოლოდ უნდა ჩავწეროთ shellobj ნაცვლად CreateObject ("WScript. Shell") ყოველ ჯერზე, როდესაც გვჭირდება ახალი ბრძანება. ახლა, როდესაც ჩვენ შევქმენით ობიექტი, ჩვენ ვავალებთ ობიექტს გახსნას ბრძანების ფანჯარა. ამისათვის ჩვენ ვწერთ: shellobj.run "cmd" რას აკეთებს: ეს იქნება ექვივალენტი CMD აკრეფის დაწყების მენიუში გაშვებული ყუთში. ჩვენ რომ არ განვსაზღვროთ ცვლადი shellobject, ჩვენ უნდა გვქონდეს აკრეფილი: CreateObject ("WScript. Shell"). გაუშვით "cmd" … ნახეთ, რამდენად ადვილია ახლა. ნაკლები ადგილი შეცდომებისათვის. დააწკაპუნეთ ფაილზე … შემდეგ შეინახეთ… შემდეგ გადადით სამუშაო მაგიდაზე და ორჯერ დააწკაპუნეთ თქვენს მიერ გაკეთებულ vbsfile– ზე, რომ გაუშვათ თქვენი კოდირება, აქამდე თქვენ უნდა გქონდეთ: მითითებული shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" შეგიძლიათ დაამატოთ კომენტარები თქვენს სკრიპტში, ასე რომ დაიმახსოვროთ ის, რაც მოგვიანებით გააკეთეთ ხაზის წინ მძიმის დაყენებით ეს: 'ეს არის ბრძანების ხაზის გასახსნელად, როდესაც ბევრჯერ ვწერ კოდირებას, ამას გავაკეთებ, ასე რომ მახსოვს, რა გავაკეთე მოგვიანებით, როდესაც მას ვეძებ. სცენარი უბრალოდ იგნორირებას უკეთებს ამ ხაზს და მოძრაობს. თუ ხედავთ მათ, თქვენც იგივეს გააკეთებთ.

ნაბიჯი 5: ნაბიჯი 2: ტაიმერების დაყენება

ნაბიჯი 2: ტაიმერების დაყენება
ნაბიჯი 2: ტაიმერების დაყენება

კარგი, ახლა, როდესაც ჩვენ გვაქვს ახალი ფანჯარა, ჩვენ გვჭირდება მისი შევსება ბრძანებებით, რათა მივიღოთ ის რაც ჩვენ გვინდა. პრობლემა ის არის, რომ ზოგიერთ კომპიუტერს Windows– ზე მეტი დრო სჭირდება, ვიდრე ჩვენ გვინდა, რომ სკრიპტი დაველოდოთ ცოტა დაიწყება. თუ ის ძალიან მალე დაიწყება, კომპიუტერი შეავსებს ცარიელს, სანამ ფანჯარა გაიხსნება და თქვენ მიიღებთ ნაწილობრივ ბრძანებას ან საერთოდ არაფერს. ასე რომ, ჩვენ გვჭირდება ტაიმერის დაყენება. ამისათვის ჩვენ ვწერთ: wscript.sleep 200 რას აკეთებს: ის ეუბნება სკრიპტს დაელოდოს X რაოდენობას დრო შემდეგი ბრძანების შესრულებამდე. 1000 უდრის ერთ წამს, ასე რომ ჩემი ელოდება წამის მეხუთედს. შეიძლება აღმოაჩინოთ, რომ თქვენს კომპიუტერს მეტი დრო ან ნაკლები ლოდინი სჭირდება. თუ უყურებთ კომპიუტერს და ის არ აკრიფებს ბრძანებებს სწორად, შეცვალეთ რიცხვი უფრო მაღალ რიცხვზე, როგორიც 2000 იქნება 2 წამი და ალბათ ბევრი დრო. შეინახეთ ფაილი ახლა თქვენი კოდი ამ ეტაპზე უნდა იყოს: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200

ნაბიჯი 6: ნაბიჯი 3: გააკეთე სურათი

ნაბიჯი 3: გააკეთე სურათი
ნაბიჯი 3: გააკეთე სურათი

მე უბრალოდ გავხსენი საღებავი და ჩავწერე მასში "ინტერნეტი გათიშულია" და გავაკეთე 800x600 და შევინახე როგორც id.bmp და შევინახე ჩემს ძირეულ დირექტორიაში, ჩემს შემთხვევაში k: / მაგრამ შენი ალბათ იქნება c:

ნაბიჯი 7: ნაბიჯი 4: ბრძანებების გაგზავნა, სურათის გახსნა

ნაბიჯი 4: ბრძანებების გაგზავნა, სურათის გახსნა
ნაბიჯი 4: ბრძანებების გაგზავნა, სურათის გახსნა

კარგი, ახლა, როდესაც ჩვენ გვაქვს ბრძანების ფანჯარა, რომელიც ელოდება ბრძანებებს, ჩვენ მხოლოდ უნდა ჩავწეროთ ბრძანებები ფანჯარაში sendkeys ბრძანების გამოყენებით. როდესაც ჩვენ ვიყენებთ sendkeys ბრძანებას, ეს არის აკრეფა, მაგრამ ის ჩაწერს იმას, რაც ჩვენ გვსურს. ყველაფერი, რისი აკრეფაც შეგვიძლია, შეგვიძლია გამოგიგზავნოთ, მათ შორის პროგრამების შესასრულებლად საჭირო კლავიშების ჩათვლით. ახლა ჩვენ ვიცით, თუ როგორ უნდა გამოვაგზავნოთ კლავიშები და საშუალებას გვაძლევს გავხსნათ ჩვენი ნახატი, შემდეგ ჩავდოთ სხვა ტაიმერი შემდგომში, რათა სურათს ჩავტვირთოთ დრო. ამისათვის ჩვენ ვწერთ: shellobj.sendkeys "k: / id.bmp {enter}" wscript.sleep 200 რას აკეთებს: ეს იგივეა, რაც ჩაწერეთ k: / id.bmp გაშვებული ყუთში. მან უნდა გახსნას თქვენი სურათი ნაგულისხმევი სურათის მნახველში bmp– ისთვის … ჩემს შემთხვევაში ეს არის Windows სურათების და ფაქსის დამთვალიერებელი, მაგრამ ადამიანების უმეტესობა ბაზრის პროგრამების შემდეგ აყენებს ამას, ასევე ვინ იცის რაში გაიხსნება. ახლა შეინახეთ თქვენი ფაილი და გაუშვით.თქვენ უნდა მიიღოთ ბრძანების სტრიქონი და გამოჩნდება სურათი. ჯერჯერობით კარგია !!! თქვენი კოდი აქამდე უნდა იყოს: მითითებული shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp {enter}" wscript ძილი 200

ნაბიჯი 8: ნაბიჯი 5: ბრძანებების გაგზავნა, გამორთეთ ინტერნეტი

ნაბიჯი 5: ბრძანებების გაგზავნა, გამორთეთ ინტერნეტი
ნაბიჯი 5: ბრძანებების გაგზავნა, გამორთეთ ინტერნეტი

ამ ეტაპზე, თუ ეს ჯერ არ გაგიკეთებიათ, გადმოწერეთ pdf ფაილი ბოლოს, ასე რომ, თუ გააფუჭებთ, თქვენ გაქვთ ინსტრუქცია გადმოწერილი, თუ როგორ გაასწორონ ის. ახლა ეს არის ადგილი, სადაც გართობა იწყება. კარგი, ჩვენ გამოვიყენებთ ipconfig– ს ჩვენი IP მისამართის გასათავისუფლებლად. IP მისამართის გარეშე ჩვენ ვერ მივიღებთ ინტერნეტ ტრაფიკს, რადგან როუტერმა არ იცის სად გაგზავნოს იგი კომპიუტერში. ამისათვის ჩვენ ვწერთ: shellobj.sendkeys "ipconfig /release {enter}" რას აკეთებს: ეს ავალებს პროგრამას IPCONFIG გაათავისუფლოს IP მისამართი. {enter} ეუბნება კომპიუტერს, რომ თქვენ დააჭირეთ Enter ღილაკს. ეს იქნება იგივე როგორც აკრეფა ipconfig /release გაშვებული ფანჯარაში და დარტყმა enter. როგორც წესი ამის გაკეთების შემდეგ, თუ გაუშვებთ ipconfig ის გეტყვით რომ თქვენი IP მისამართი არის 0.0.0.0 ეს არის ის რაც ჩვენ გვინდა. IP მისამართის გარეშე როუტერმა არ იცის, რომ ჩვენ აქ ვართ და არცერთ პროგრამას არ შეუძლია "აკრიფოს" ასე ვთქვათ. ახლა ჩვენ წარმატებით დავამთავრეთ IP- ის გამორთვა, ჩვენ გვინდა ფანჯრის დახურვა. ახლა ჩვენ შეგვიძლია დავწეროთ სხვა სტრიქონი, სადაც ნათქვამია: {enter} "ახლა შეინახეთ, მაგრამ არ გაუშვათ, რადგან გათიშავთ ინტერნეტ კავშირს. თუ თქვენ გაუშვებთ მას და თქვენი ინტერნეტი გამორთულია, უბრალოდ შეცვალეთ გადართვა ipconfig /release– დან ipconfig /განახლებაზე და ის კვლავ გაუშვებს და ის კვლავ უნდა ჩართოს. და თუ ყველაფერი ვერ მოხდება გადატვირთვა და თქვენ კარგად უნდა იყოთ. თქვენი კოდი აქამდე უნდა იყოს: მითითებული shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp { enter} "wscript.sleep 200shellobj.sendkeys" ipconfig /release {enter} გასვლა {enter}"

ნაბიჯი 9: ნაბიჯი 6: შეტყობინებების ყუთის შექმნა და პასუხის მოლოდინი

ნაბიჯი 6: შექმენით შეტყობინებების ყუთი და დაელოდეთ პასუხს
ნაბიჯი 6: შექმენით შეტყობინებების ყუთი და დაელოდეთ პასუხს

კარგი, ახლა, როდესაც ჩვენ წარმატებით გავთიშეთ ინტერნეტი და დავხურეთ ბრძანების ფანჯარა, ჩვენ გვსურს, რომ გამოჩნდეს შეტყობინების ყუთი, გვსურს ინტერნეტის ხელახლა ჩართვა. მაგრამ აქ ის არის სახიფათო, გვსურს დაველოდოთ დიახ, მაგრამ თუ ჩვენ დააწკაპუნებთ არა, ჩვენ არ გვინდა რომ ის წავიდეს, ამიტომ ჩვენ ამას გამოვიყენებთ მე ვიცი, რომ ეს გაუგებრად ჟღერს, მაგრამ ეს ნამდვილად არ არის. ჩვენ უკვე გავაკეთეთ ეს ერთხელ ხაზით: set shellobj = CreateObject ("WScript. Shell") ეს არის კიდევ უფრო ადვილი მის დასაყენებლად ჩვენ უბრალოდ ვწერთ: Dim MyVar რას აკეთებს: ახლა ჩვენ განვსაზღვრეთ ცვლადი სახელად MyVar როდესაც მიიღებთ "დიახ" -ს /არა "შეტყობინების ყუთი გამოჩნდება თქვენს ეკრანზე და დააჭერთ ღილაკებს ის ანიჭებს მნიშვნელობას თითოეულ ღილაკს, ამ შემთხვევაში" დიახ "არის 1 და" არა "არის 2. ჩვენ გვინდა, რომ ცვლადი დაიწყოს" არა " - ით ჩვენ მას მინიჭებული გვაქვს სტანდარტულად ნომერი 2, ამ გზით ის ჩერდება სანამ ღილაკს არ დააწკაპუნებთ ამისათვის ჩვენ ვწერთ: myvar = 2 რას აკეთებს: ახლა MyVar უდრის 2 -ს, ამ გზით მომდევნო სტრიქონში ის გაჩერდება და დაელოდება შეყვანას. ახლა ჩვენ უბრალოდ გვინდა, რომ ის იჯდეს და დაელოდოს, სანამ ჩვენ მზად ვართ ინტერნეტი ჩართოთ. ამისათვის ჩვენ ვწერთ: myvar = 2 რას აკეთებს: ამით ჩვენ ვუთხარით სკრიპტს, რომ სანამ myvar = 2 მაშინ გააგრძელეთ შეტყობინებების ყუთის მარყუჟი მანამ, სანამ არ მივიღებთ სხვა მნიშვნელობას, ვიდრე 2, რაც ამ შემთხვევაში შეიძლება იყოს მხოლოდ 1 შემდეგ ჩვენ რეალურად გვინდა, რომ შეტყობინების ყუთი გამოჩნდეს დიახ/არა ღილაკებით. ამის გაკეთება ეს ჩვენ ვწერთ: MyVar = MsgBox ("ჩართეთ ინტერნეტ კავშირი", 65, "ჩართეთ ინტერნეტ კავშირი") რას აკეთებს: ახლა MyVar ცვლადს მიენიჭება ნებისმიერი მნიშვნელობა, რომელიც მინიჭებულია ღილაკზე, რომელიც დაწკაპუნებულია შეტყობინებების ყუთში. ციტატების პირველი ნაწილი არის ის, რასაც რეალურად იტყვის შეტყობინებების ყუთი. 65 ნიშნავს მას დიახ/არა შეტყობინებების ყუთში. და ციტატების ბოლო ნაწილი არის შეტყობინებების ყუთი შეტყობინების ყუთი. ახლა ჩვენ გვაქვს შეტყობინების ყუთი, ჩვენ უნდა დავხუროთ while განცხადება. ყველაფერი, რაც განცხადების ღია და დახურულს შორის არის, გაშვებული იქნება ყოველ ჯერზე, როდესაც დააწკაპუნებთ არა -ზე, რადგან თუ არა -ს დააწკაპუნებთ, ის კვლავ არის 2 მნიშვნელობის და დაუბრუნდება პირველ ნაწილს. აკეთებს: ერთხელ თქვენ დაასრულა ხოლო განცხადების ის იმოქმედებს როგორც მარყუჟის სანამ არგუმენტი აღარ შეხვდა. ასე რომ, თუ თქვენ გააგრძელებთ არა -ის დარტყმას, ის მარყუჟდება, მაგრამ მას შემდეგ რაც დააწკაპუნებთ დიახზე, ის გათავისუფლდება მარყუჟისგან და გააგრძელებს სკრიპტს. შეინახეთ ფაილი, მაგრამ დაელოდეთ მის გაშვებას შემდეგ საფეხურამდე. თქვენი კოდი აქამდე უნდა იყოს: მითითებული 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 (" ინტერნეტ კავშირის ჩართვა ", 65," ინტერნეტ კავშირის ჩართვა ") wend

ნაბიჯი 10: ნაბიჯი 7: ინტერნეტის ჩართვა

ნაბიჯი 7: ინტერნეტის ჩართვა
ნაბიჯი 7: ინტერნეტის ჩართვა
ნაბიჯი 7: ინტერნეტის ჩართვა
ნაბიჯი 7: ინტერნეტის ჩართვა
ნაბიჯი 7: ინტერნეტის ჩართვა
ნაბიჯი 7: ინტერნეტის ჩართვა

ახლა, როდესაც ვიღაცამ საბოლოოდ დააწკაპუნეს დიახზე და მან გაიარა while განაცხადი, ჩვენ გვჭირდება ინტერნეტში ჩართვა. მე ჩვეულებრივ ვამტკიცებ დადასტურებას, რათა საბოლოო მომხმარებელმა იცოდეს რა ხდება, მაგრამ ეს არჩევითია. დადასტურების ტიპის გამოსაქვეყნებლად: msgbox ("ჩვენ ახლა ისევ ჩართავთ ინტერნეტ კავშირს !!!") რას აკეთებს: ის აგზავნის შეტყობინებების ყუთს, რომელშიც ნათქვამია, რომ ჩვენ ახლა ისევ ჩართავთ ინტერნეტ კავშირს !!! და გაძლევთ ok ღილაკს დააწკაპუნეთ. ახლა ყველაფერი რაც ჩვენ უნდა გავაკეთოთ არის ინტერნეტის ჩართვა და დახურვა ყველაფერი. ინტერნეტის დასაბრუნებლად ჩვენ უბრალოდ ვხსნით ბრძანების ხაზს ტაიმერის დაყენების შემდეგ ისევ ipcionfig. ამის გაკეთება ტიპი: shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "ipconfig /განახლება {enter}" რას აკეთებს: ის უკუაგდებს წინა ბრძანებას და განაახლებს თქვენს IP მისამართს. მას შემდეგ რაც განაახლეთ თქვენი IP მისამართი, შეგიძლიათ კვლავ მიიღოთ ინტერნეტ კავშირები. ახლა ჩვენ მხოლოდ ის უნდა გავაკეთოთ, რომ გავწმინდოთ ღია ფანჯრები. ჩვენ კვლავ შეგვიძლია გამოვიყენოთ sendkeys ბრძანება, მაგრამ მე მხოლოდ ბოლო ხაზს დავამატებ გასუფთავების ჩასატარებლად. ამ შემთხვევაში მე ვაპირებ გამოვიყენო taskkill პროგრამა სურათის ჩვენების პროგრამის მოსაკლავად. ამ შემთხვევაში ეს არის Windows სურათისა და ფაქსის დამთვალიერებელი და გამოჩნდება როგორც rundll32.exe ამოცანების მენეჯერის პროცესების ჩანართში, ასე რომ ჩვენ გვჭირდება მოკვლა. თუ თქვენი სურათი იხსნება სხვა პროგრამის გამოყენებით, როგორიცაა irfanview, ან acdsee, იპოვეთ სახელი, რომელიც მიდის პროცესების ჩანართში და მოათავსეთ rundll32.exe იმ სახელით, რასაც თქვენ იპოვით. ბრძანება იქნება: taskkill /F /IM rundll32.exe რა არის ეს აკეთებს: taskkill არის პროგრამის სახელი /F გადამრთველი ეუბნება, რომ აიძულოს მოკვლა და /IM გადამრთველი ეუბნება სურათის სახელს ახლა ჩვენ ამას დავამატებთ ბოლო სტრიქონში, დავამატებთ Enter ბრძანების შესასრულებლად და შემდეგ exit ბრძანება და სხვა enter და ასე გამოიყურება: shellobj.sendkeys "ipconfig /განახლება {enter} taskkill /F /IM rundll32.exe {enter} exit {enter}" შეინახეთ თქვენი ფაილი.

ნაბიჯი 11: მზა პროდუქტი

Დასრულებული პროდუქტი
Დასრულებული პროდუქტი

თუ ყველაფერი სწორად მოხდა, თქვენი მზა პროდუქტი ასე უნდა გამოიყურებოდეს: დააყენეთ 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 ("ჩართეთ ინტერნეტ კავშირი", 65, "ჩართეთ ინტერნეტ კავშირი") wendmsgbox ("ჩვენ ახლა ინტერნეტს ჩართავთ კავშირი ისევ ჩართულია !!! ") shellobj.run" cmd "wscript.sleep 200shellobj.sendkeys" ipconfig /rinu {enter} taskkill /F /IM rundll32.exe {enter} exit {enter} "_ სკრიპტის დასასრული_ახლა რომ პროგრამირება არის გაკეთებული შეგიძლიათ პროგრამის გაშვება. რა უნდა მოხდეს: 1.) თქვენ უნდა მიიღოთ CMD ფანჯარა, რომელიც გამოჩნდება ძალიან მოკლე დროში და დახურეთ 2.) თქვენი ინტერნეტი აღარ უნდა მუშაობდეს. მაგრამ თქვენ ამას ვერ ხედავთ 3.) თქვენი სურათი უნდა გაიხსნას. თქვენ კვლავ მუშაობთ და გკითხავთ თუ არა გსურთ ინტერნეტის ჩართვა.6.) მას შემდეგ რაც დააწკაპუნებთ დიახ შეტყობინების ყუთი უნდა გაქრეს და CMD ფანჯარა უნდა გამოჩნდეს 7.) მას შემდეგ რაც IP მისამართი განახლდება CMD ფანჯარა და სურათი უნდა დაიხუროს.იქ თქვენ გაქვთ ძალიან მარტივი VBscript თქვენი ინტერნეტის ჩართვა და გამორთვა. იმედია მოგეწონებათ. მე რეალურად გავაკეთე კიდევ ერთი სკრიპტი, რომელიც თითქმის იდენტურია, რომელიც გამორთავს ქსელის გადამყვანებს პროგრამის გამოყენებით, სახელწოდებით DevCon, რომელიც ბრძანების ხაზის მოწყობილობის მენეჯერის მსგავსია. მშვენივრად მუშაობს. სკრიპტი იდენტურია, გარდა იმ შემთხვევისა, როდესაც ამ ერთში მას აქვს ბრძანებები ipconfig– ისთვის, რომელსაც აქვს ბრძანებები DevCon– ისთვის.

გირჩევთ: