VB Komut Dosyasına Giriş: Yeni Başlayanlar Kılavuzu: 11 Adım

2024 Yazar: John Day | [email protected]. Son düzenleme: 2024-01-30 13:22

***((((UYARI: Çok fazla adım olmasına rağmen. Aslında bu oldukça kolay. Yeni başlayanlar için her şeyi ayrıntılı olarak anlatıyorum. Sadece kodun son adıma atlanmasını istiyorsanız, tam olarak bulacaksınız. kod orada.))))***Çok fazla Xbox live oynuyorum ve bant genişliğini tükettiği için bilgisayarımda her zaman interneti devre dışı bırakmak zorunda kalıyorum. Esas olarak, her zaman bir şeyler indirdiğim veya yüklediğim için. Sorun onu kapatmak değil, unuttuğum şeyi tekrar açmak, tüm o yükleme/indirme süresini kaybettiğim yere getiriyor. Bu yüzden, bunu benim için yapacak bir program oluşturmaya karar verdim. Vb.net'te yazacaktım ama kısa bir süre önce sabit diskimi kızartan kötü bir fırtına yüzünden işletim sistemimi nükleer bombalamak ve bilgisayarıma döşemek zorunda kaldım ve henüz VB.net'i yeniden yüklemedim, bu yüzden bunun olacağını düşündüm. bana vbscript ile oynamam için bir sebep ver. Ayrıca arka planda gösterilecek bir resim yaptım, bu yüzden çalıştığını biliyordum.

Adım 1: Ne Yapmak İstediğinizi Belirleyin

Her zaman yaptığım ilk şey bir plan yapmaktır. Programın ne yapmasını istiyorum? A) Komut dosyasını açabilmek istiyorum ve otomatik olarak bağlantıyı kesecek. B) Arka planda dev bir ekran göstermesini istiyorum ki internetin kapalı olması gibi bir hata olmasın, bu şekilde tekrar açmayı unutmuyorum. C) Bana açma seçeneği sunmasını istiyorum. tekrar aç ve sonra bir cevap bekle. D) Tekrar açtığımdan emin olmak istiyorum, böylece unutmam. E) Sonra tekrar açmak için gerçekten evet dediğimde, komut dosyası tekrar açılıyor ve ardından arka planı kapatır. F) Her şeyden çıkın.

Adım 2: Kullandığım Ama Gerçekten İhtiyaç Duymadığım Şeyler

Gerçekten ihtiyacınız olan tek şey, not defteri gibi bir metin düzenleyicisidir. Diğer her şey isteğe bağlıdır. VB komut dosyası yaptığımda Notepad++ kullanıyorum, çünkü vb.net'in renklerle yaptığı gibi davranıyor ve dili biliyor. Hatalardan kaçınmaya yardımcı olur. Ayrıca satırları numaralandırır, böylece bir hata kodu aldığınızda sorunun ne olduğunu teşhis edebilirsiniz. Buradan not defteri ++ alınabilir.

Adım 3: Programlamaya Başlayın

Yapmak istediğiniz ilk şey, bir metin dosyası oluşturmak ve onu dosya uzantısıyla adlandırılmasını istediğiniz şekilde kaydetmektir.vbsExample: NetworkShutOffScriptThatShutsOffTheInternetSoIcanPlayGamesOnMyXboxAndNotGetLag.vbsExample 2: games.vbs Önemli olan dosya uzantısıyla adlandırmanızdır..vbsBunu genellikle masaüstünde yapıyorum çünkü üzerinde çalışırken milyonlarca kez açıyorum. Şimdi dosyaya sağ tıklayın ve notepad++ ile düzenle veya düzenle'ye basın

Adım 4: Adım 1: Bir Komut İstemi Penceresi Açma

Bu yüzden, işlerin çoğunu yapmaya karar verdim, istediğimi yapmak için bilgisayarda zaten depolanmış programları kullanırdım. Daha Az Kodlama ve indirme yok…Woohoo. En kolay komut istemidir. Bu nedenle, bunu yapmak için bir komut istemi penceresi açmak istiyoruz, böylece bir nesne oluşturmak istiyoruzböylece şunu yazarız:set shellobj = CreateObject("WScript. Shell")Ne yapar: Shellobj örneğini, nesne w komut dosyası kabuğu oluşturmak için eşit olacak şekilde ayarlayın. Bu şekilde tek yapmamız gereken, her yeni komuta ihtiyacımız olduğunda CreateObject("WScript. Shell") yerine shellobj yazmaktır. Artık bir nesne yarattığımıza göre, nesneye bir komut istemi penceresi açmasını söylüyoruz. Bunu yapmak için şunu yazıyoruz: shellobj.run "cmd"Ne yapar: Bu, başlat menüsündeki çalıştırma kutusuna CMD yazmanın eşdeğeri olacaktır. Shellobject değişkenini ayarlamamış olsaydık, şunu yazmamız gerekirdi: CreateObject("WScript. Shell").run "cmd"… şimdi ne kadar kolay olduğunu görün. Hatalar için daha az yer. Dosyaya tıklayın… ardından Kaydet… sonra masaüstüne gidin ve yaptığınız vbsfile'ye çift tıklayın, çalışması gerekir Her şey yolunda giderse, görünmesi için bir windows komut istemi almalısınız…..yaaaaaaa!!!eğer kontrol etmezseniz şu ana kadar sahip olmanız gerekir:set shellobj = CreateObject("WScript. Shell")shellobj.run "cmd"Betiğinize yorum ekleyebilirsiniz, böylece daha sonra satırın önüne virgül koyarak ne yaptığınızı hatırlayabilirsiniz. this:'bu, bir komut istemi açmaktır. Kodlama yaparken birçok kez bunu yapacağım, böylece daha sonra ararken ne yaptığımı hatırlayacağım. Komut dosyası bu satırı yok sayar ve devam eder. Onları görürseniz, aynısını yapabilirsiniz.

Adım 5: Adım 2: Zamanlayıcıları Ayarlama

Tamam, şimdi parlak yeni bir penceremiz var, onu komutlarla doldurmamız gerekiyor, böylece istediğimizi yaptırabiliriz. Sorun şu ki, bazı bilgisayarların pencereleri açması diğerlerinden daha uzun sürüyor, bu yüzden betiğin biraz beklemesini istiyoruz. başlamak için biraz. çok erken başlarsa, bilgisayar siz pencereyi açmadan önce boşluğu doldurur ve ya kısmi bir komut alırsınız ya da hiç almazsınız. Bu yüzden bir zamanlayıcı kurmamız gerekiyor. Bunu yapmak için şunu yazarız:wscript.sleep 200Ne yapar: Komut dosyasına bir sonraki komutu çalıştırmadan önce X kadar beklemesini söyler. 1000 bir saniyeye eşittir, bu yüzden benimki saniyenin beşte birini bekliyor. Bilgisayarınızın daha fazla veya daha az beklemesi gerektiğini görebilirsiniz. Bilgisayarı izliyorsanız ve komutları doğru yazmıyorsa, sayıyı 2000 gibi daha yüksek bir sayıya değiştirin 2 saniye ve muhtemelen bol zaman olacaktır. Dosyayı şimdi kaydedin, bu noktada kodunuz şöyle olmalıdır: set shellobj = CreateObject("WScript. Shell")shellobj.run "cmd"wscript.sleep 200

Adım 6: Adım 3: Bir Resim Yapın

Paint'i açtım ve içine "İnternet Bağlantısı Kesildi" yazdım ve 800x600 yaptım ve id.bmp olarak kaydettim ve kök dizinime kaydettim, benim durumumda k:\ ama sizinki muhtemelen c:\ olacak

Adım 7: Adım 4: Komutların Gönderilmesi, Resmin Açılması

Şimdi komutları bekleyen bir komut penceremiz olduğuna göre tek yapmamız gereken sendkeys komutunu kullanarak komutları pencereye yazmak. Sendkeys komutunu kullandığımızda, yazmak gibidir ama ne yazmasını istersek onu yazacaktır. Yazabildiğimiz her şeyi, programları çalıştırmak için gerekli olan giriş tuşları da dahil olmak üzere gönderebiliriz. Artık tuşların nasıl gönderileceğini bildiğimize göre, az önce yaptığımız resmimizi açalım, sonra başka bir zamanlayıcı ekleyelim, böylece resmin yüklenmesi için zaman verir. Bunu yapmak için şunu yazarız:shellobj.sendkeys "k:\id.bmp{enter}"wscript.sleep 200Ne yapar: Bu, çalıştırma kutusuna k:\id.bmp yazmakla aynıdır. Resminizi bir bmp için varsayılan resim görüntüleyicide açmalıdır… benim durumumda bu, Windows resim ve faks görüntüleyicidir, ancak çoğu insan bunu yapan piyasa programlarından sonra kurar, böylece sizinkinin ne açacağını kim bilebilir. şimdi dosyanızı kaydedin ve çalıştırın. Bir komut istemi ve açılacak bir resim almalısınız. şimdiye kadar çok iyi!!!kodunuz şu şekilde olmalıdır:set shellobj = CreateObject("WScript. Shell")shellobj.run "cmd"wscript.sleep 200shellobj.sendkeys "k:\id.bmp{enter}"wscript. uyku 200

Adım 8: Adım 5: Komutların Gönderilmesi, İnterneti Kapatın

Bu noktada, henüz yapmadıysanız, en sondaki pdf dosyasını indirin, böylece hata yaparsanız nasıl düzelteceğinize dair bir Talimat Tablosu indirmiş olursunuz. Şimdi eğlence burada başlıyor. Tamam, IP adresimizi serbest bırakmak için ipconfig kullanacağız. Bir IP adresi olmadan herhangi bir internet trafiği alamayız çünkü yönlendirici onu bilgisayara nereye göndereceğini bilmiyor. Bunu yapmak için şunu yazıyoruz:shellobj.sendkeys "ipconfig /release{enter}"Ne yapar: Bu, IPCONFIG programına IP adresini serbest bırakması talimatını verir. {enter}, bilgisayara enter tuşuna bastığınızı söylüyor. bu, çalıştırma penceresine ipconfig /release yazıp enter'a basmak gibidir. Genellikle bunu yaptıktan sonra ipconfig'i çalıştırırsanız size IP adresinizin 0.0.0.0 olduğunu söyleyecektir. Bir IP adresi olmadan yönlendirici burada olduğumuzu bilmez ve tabiri caizse hiçbir program "dışarı çeviremez". Artık IP'yi kapatmayı başarıyla tamamladığımıza göre pencereyi kapatmak istiyoruz. Şimdi şunu yazan başka bir satır yazabiliriz:shellobj.sendkeys "exit{enter}"Ancak yukarıdaki satırı düzenleyip sonuna eklemek daha kolay olurdu, böylece:shellobj.sendkeys "ipconfig /release{enter}exit elde edersiniz. {enter}"Şimdi kaydedin ama çalıştırmayın çünkü internet bağlantınızı kapatacaksınız. Çalıştırırsanız ve internetiniz kapanırsa, anahtarı ipconfig /release'den ipconfig /renew'e değiştirin ve tekrar çalıştırın ve tekrar açmalıdır. Ve eğer diğer her şey yeniden başlatma başarısız olursa ve iyi olmanız gerekir. Şimdiye kadarki kodunuz şöyle olmalıdır:set shellobj = CreateObject("WScript. Shell")shellobj.run "cmd"wscript.sleep 200shellobj.sendkeys "k:\id.bmp{ girin}"wscript.sleep 200shellobj.sendkeys "ipconfig /release{enter}çıkış{enter}"

Adım 9: Adım 6: Mesaj Kutusu Oluşturma ve Cevap Bekleme

Tamam, artık interneti başarıyla ve komut istemi penceresini kapattığımıza göre, interneti tekrar açmak isteyip istemediğimizi soran bir mesaj kutusunun açılmasını istiyoruz. Ama burada işin zorlaştığı yer, beklemesini istiyoruz. evet için ama hayır'ı tıklatırsak kaybolmasını istemiyoruz, bu yüzden bunu yapmak için bir while deyimi kullanacağız. İlk önce mesaj kutusu için bir değişken boyutlandırmamız gerekiyor, böylece ona sayı değişkenleri atayabiliriz. Biliyorum kafa karıştırıcı geliyor ama gerçekten değil. bunu bir kez satırla yapmıştık:set shellobj = CreateObject("WScript. Shell")bunun kurulumu daha da kolay biz sadece şunu yazıyoruz:Dim MyVarNe yapar: Şimdi MyVar adlı bir değişkeni boyutlandırdık" evet aldığınızda Ekranınızda /no" mesaj kutusu açılır ve butonlara tıklarsınız her butona bir değer atar, bu durumda "evet" 1 ve "hayır" 2'dir. Değişkenin "hayır" ile başlamasını istiyoruz. ona varsayılan olarak 2 sayısını atarız, bu şekilde bir düğme tıklanana kadar duraklarBunu yapmak için şunu yazarız:myvar=2Ne yapar: şimdi MyVar 2'ye eşittir, bu şekilde bir sonraki satırda duracak ve giriş için bekleyecektir. Şimdi sadece orada oturmasını ve interneti tekrar açmaya hazır olana kadar beklemesini istiyoruz. Bunu yapmak için şunu yazıyoruz:while myvar=2Ne yapar: Bunu yaparak script'e myvar'ın değeri kadar uzun olduğunu söyledik. =2 o zaman 2'den başka bir değer elde edene kadar mesaj kutusunu döngüye sokmaya devam edin, bu durumda sadece 1 olabilirSonraki aslında evet/hayır butonlarıyla bir mesaj kutusu açmak istiyoruz. bunu yazıyoruz:MyVar = MsgBox ("İnternet bağlantısını aç", 65, "İnternet Bağlantısını Aç")Ne yapar: Artık mesaj kutusuna tıklanan butona hangi değer atanmışsa MyVar değişkenine atanacaktır. alıntılardaki ilk kısım, mesaj kutusunun gerçekte ne söyleyeceğidir. 65, bunu bir Evet/Hayır mesaj kutusu olarak belirler. ve tırnak içindeki son kısım, evet veya hayır'ı tıkladığınızda hangi değeri atadığını kontrol etmek için mesaj kutusunun etiketidir. msgbox(myVar) yazan bir satıra ekleyebilirsiniz ve myvar'a atanan değeri yazdıracaktır. bir mesaj kutusu. artık bir mesaj kutumuz olduğuna göre while ifadesini kapatmamız gerekiyor. while ifadesinin açılması ve kapanması arasındaki her şey, hayır'ı her tıkladığınızda çalışır, çünkü hayır'ı tıklatırsanız, hala 2 değerindedir ve ilk kısma geri döner. while ifadesini sonlandırmak için tür:wendWhat o yapar: Bir süre ifadesine son verdiğinizde, argüman artık karşılanmayana kadar bir döngü gibi davranacaktır. Yani hayır'a basmaya devam ederseniz döngüye girer ama bir kez evet'e basarsanız döngüden kurtulur ve komut dosyasıyla devam eder. Dosyayı kaydedin ancak bir sonraki adıma kadar çalıştırmak için bekleyin. Şimdiye kadarki kodunuz şöyle 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=2while myvar=2MyVar = MsgBox ("İnternet bağlantısını aç", 65, "İnternet Bağlantısını Aç")wend

Adım 10: Adım 7: İnterneti Tekrar Açma

Artık birisi sonunda evet'e tıkladığına ve while ifadesini geçtiğine göre, internete girmemiz gerekiyor. Genellikle bir onay açarım, böylece son kullanıcı neler olduğunu bilir, ancak bu tamamen isteğe bağlıdır. Bir onay penceresi açmak için: msgbox("İnternet Bağlantısını Şimdi Yeniden Açacağız!!!")Ne yapar: Şimdi İnternet Bağlantısını Tekrar Açacağız!!! yazan bir mesaj kutusu gönderir. ve tıklamanız için size bir ok düğmesi verir. Şimdi tek yapmamız gereken interneti tekrar açmak ve her şeyi kapatmak. interneti tekrar açmak için bir komut istemi açıp zamanlayıcıyı ayarlayın ve ardından ipcionfig'i tekrar kullanın. type:shellobj.run "cmd"wscript.sleep 200shellobj.sendkeys "ipconfig /renew{enter}"Ne yapar: önceki kapatma komutunu tersine çevirir ve IP adresinizi yeniler. IP adresinizi yeniledikten sonra tekrar internet bağlantılarına kavuşabilirsiniz. Şimdi tek yapmamız gereken açık pencereleri temizlemek. Yine bir sendkeys komutu kullanabiliriz ama ben sadece son satırı temizlemeleri de tutacak şekilde ekleyeceğim. Bu örnekte, resmi gösteren programı öldürmek için taskkill programını kullanacağım. Bu durumda, Windows resim ve faks görüntüleyicisidir ve görev yöneticisinin işlemler sekmesinde rundll32.exe olarak görünür, bu yüzden öldürmemiz gereken şey budur. Resminiz irfanview veya acdsee gibi başka bir program kullanılarak açılırsa, işlemler sekmesinden geçtiği adı bulun ve bulduğunuz adla rundll32.exe'yi yerleştirin. Komut şöyle olacaktır:taskkill /F /IM rundll32.exeNedir? yapar: Taskkill, /F anahtarının onu bir öldürmeye zorlamasını söylediği programın adıdır ve /IM anahtarı ona görüntünün adını söyler. çıkış komutu ve başka bir giriş yapın ve şöyle görünür:shellobj.sendkeys "ipconfig /renew{enter}taskkill /F /IM rundll32.exe{enter}exit{enter}" Dosyanızı kaydedin.

Adım 11: Bitmiş Ürün

Her şey yolunda giderse, bitmiş ürününüz şöyle görünmelidir: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=2while myvar=2MyVar = MsgBox ("İnternet bağlantısını aç", 65, "İnternet Bağlantısını Aç")wendmsgbox("Şimdi İnterneti Açacağız Bağlantı yeniden açıldı!!!")shellobj.run "cmd"wscript.sleep 200shellobj.sendkeys "ipconfig /renew{enter}taskkill /F /IM rundll32.exe{enter}çıkış{enter}" _script'in sonu_Artık programlama bittiyse programı çalıştırabilirsiniz. Olması gereken: 1.) Çok kısa bir süre için CMD penceresi açılır ve ardından kapanır2.) İnternetiniz artık çalışmamalıdır. ama bunu görmeyeceksiniz3.) Resminiz açılmalı.4.) İnterneti tekrar açmak isteyip istemediğinizi soran bir pop-up görmelisiniz.5.) Ne kadar tıkladığınız önemli değil, mesaj kutusu gelmeli. ama tekrar aç ve interneti tekrar açmak isteyip istemediğini sor.6.) Evet'e tıkladıktan sonra mesaj kutusu kaybolmalı ve bir CMD penceresi tekrar görünmelidir7.) IP adresi yenilendiğinde CMD penceresi ve resim Kapatmalısın. İnternetinizi açıp kapatmak için çok kolay bir VBscript. Umarım beğenirsin. Aslında, komut satırı aygıt yöneticisi gibi DevCon adlı bir program kullanarak ağ bağdaştırıcılarını kapatan, bununla neredeyse aynı olan başka bir komut dosyası yaptım. için gerçekten iyi çalışıyor. Komut dosyası bununla aynıdır, ancak burada DevCon için komutlara sahip olan ipconfig için komutlara sahiptir.