VBScripting ile NETsend: 4 Adım

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

Tamam, yani tamamen VBScripting ile değil, ama VBScripting InputBox'ları ve Msgbox'ların cmd penceresine girmekten çok daha kullanıcı dostu göründüğünü düşünüyorum. Oh ve btw, Lütfen "ÇOK KOLAY YOL…" yazmayın Çünkü evet hepimiz biliyoruz ki siz cmd'yi açıp "Buraya bilgisayar adını net gönder" yazabilirsiniz. Bu, bunu yapmanın daha kullanıcı dostu bir yoludur. Sorumluluk Reddi Bu programda herhangi bir sorun olursa veya program HERHANGİ bir şekilde kötüye kullanılırsa, bundan tamamen sorumlu değilim. Şimdi bunu yoldan çıkardık, hadi devam edelim

1. Adım: Başlayalım

İlk olarak size betiği göstereceğim ve sonraki sayfada her bitin ne anlama geldiğini açıklayacağım.dim TargetTarget=InputBox("Hedef Bilgisayarı Girin: ", "Carrier Pigeon v1.7 (TheKnight)")If Then WScript. QuitEnd IFdim startupbegin=MsgBox (" & target & "?", 36, "Carrier Pigeon v1.7" ile görüşmeye başlayın")If begin = vbNo Then WScript. QuitEnd Ifdim messagemessage="0"Mesajlanana Kadar Yapın=""message= InputBox("Mesajı Girin: " & vbcr & vbcr + _"Değer Yok boş bir mesaj gönderir" & vbcr + _"Pencereyi kapatmak için İptal veya Alt+F4 tuşlarına basın", "" & Hedef, " ", 13500, 100) Set fs=CreateObject("Scripting. FileSystemObject") strFileName = fs. BuildPath(Wscript. ScriptFullName & "\..", "~msngr.bat") strFileName = fs. GetAbsolutePathName(strFileName) Set ts = fs. OpenTextFile(strFileName), 2, True) ts. WriteLine "@echo off"ts. WriteLine "set message=" & message ts. WriteLine "set & Target ts. WriteLine "net send %Target% %message%"ts. Closedim shellset shell=createobject ("wscript.shell")shell. Run "~msngr.bat", 2Loop

Adım 2: Öyleyse Açıklayalım…

Bir önceki sayfadaki kod aşağıda bazı açıklamalarla birlikte gösterilmiştir, eğer kopyalayıp word'e yapıştırıyorsanız, lütfen bir önceki sayfada yapın. Tamam, Bu ilk bit, sohbet başlatmak istediğiniz bilgisayarın adını soran kutuyu açar. "Eğer Hedef" kısmı, kullanıcı "iptal" düğmesine basarsa veya giriş alanını boş bırakırsa bilgisayara programı sonlandırmasını söyler. dim TargetTarget=InputBox("Hedef Bilgisayarı Girin: ", "Carrier Pigeon v1.7 (TheKnight)")If Then WScript. QuitEnd IF Bu ikinci bit, kullanıcının önceki adımda yaptığı girişi iletir, örneğin kullanıcı girdisi hedef bilgisayar: 'The_Pentagon', ardından bu mesaj "The_Pentagon ile görüşme başlatılsın mı?" yazan bir ileti gönderir. Yukarıdakiyle aynı anlaşma, kullanıcı 'hayır'a basarsa, işlem sonlandırılır. dim startupbegin=MsgBox (" & target & "?" ile konuşmaya başla, 36, "Carrier Pigeon v1.7")If startup = vbNo Then WScript. QuitEnd If Bu sonraki bit yazmam UZUN sürdü. Temelde bir toplu iş dosyası oluşturur ve buna "~msngr.bat" adını verir. Ardından, NET göndermeyi başlatması için ona doğru komutları yazar. dim messagemessage="0"Yapılana Kadar message=""message=InputBox("Mesajı Girin: " & vbcr & vbcr + _"Değer Yok boş bir mesaj gönderir" & vbcr + _"Pencereyi kapatmak için İptal veya Alt+F4 tuşlarına basın ", "" & Target, " ", 13500, 100)Set fs=CreateObject("Scripting. FileSystemObject") strFileName = fs. BuildPath(Wscript. ScriptFullName & "\..", "~msngr.bat") strFileName = fs. GetAbsolutePathName(strFileName) Set ts = fs. OpenTextFile(strFileName, 2, True) ts. WriteLine "@echo off"ts. WriteLine "set message=" & ts. WriteLine "set & Target ts. WriteLine "net send %Target% %message%"ts. Close Bu daha sonra toplu iş dosyasını çalıştırır, "2" simge durumuna küçültülmüş bir pencerede çalıştığından emin olur ve ardından kapanır. Bu biraz daha profesyonel görünmesini sağlar. dim shellset shell=createobject(" wscript.shell")shell. Run "~msngr.bat", 2Loop Komutların bu son iki paragrafı Döngüseldir. Bu, kullanıcının mesaj penceresini açık tutmasına ve kullanıcı 'iptal'e basıp kapatmaya karar verene kadar birden fazla mesaj göndermesine izin verir. program.

Adım 3: Benimle Dayan

Tamam, bunun kabul edilmesi gereken çok şey olduğunu biliyorum. Ama muhtemelen siteye basit VBScripting için birkaç yeni talimat göndereceğim ve yeterli sayıda kişi bunu soran yorum yaparsa daha gelişmiş VBScripting yapacağım.

Şimdi dosyayı kaydetmek için! kaydet'e basın, dosya uzantısını ".vbs" yaptığınızdan emin olun. Almak için çok fazla olduğunu biliyorum ama dosya doğru kullanılırsa ne olacağını açıklayacağım: Öncelikle hedef bilgisayarı soran bir uyarı alacaksınız. Bu bilgisayarla bir konuşma başlatmak istediğinizden emin olan bir mesaj olacaktır. 'Evet'i tıkladıysanız, mesajı girmenizi isteyen bir giriş kutusu görünmelidir (ekranınızın sağ üst köşesinde, böylece yapmak istediğiniz şeye devam edebilirsiniz). Bir mesaj girildiğinde ve 'Tamam' tıklandığında, araç çubuğunuz boyunca bir cmd penceresi çıkmalı ve ardından kaybolmalıdır, bu mesajı gönderen toplu iş dosyasıdır. Arkadaşınızın (veya düşmanınızın) bilgisayarında aynı program yüklüyse veya NET gönderme konusunda şıksa, bir yanıt almalısınız!

Adım 4: NET Her Yere Göndermeden Önce Son Bir Şey

Son bir küçük mesaj: BU VISTA'DA ÇALIŞMAZ!

NET send komutu, güvenlik nedeniyle Vista için kaldırılmıştır, bu nedenle bundan önce yalnızca Windows işletim sistemlerinde çalışacaktır. Ama bazılarınızın fark etmiş olabileceği gibi, bu programı Vista'da yazdım! Bu nedenle TEORİDE çalışır. Ancak, lütfen başarılı olup olmadığı konusunda geri bildirimde bulunun. Teşekkürler TheKnight P. S. Sözcükler için çok tembelseniz, dosya aşağıdadır Kendi klasörüne kaydedin, böylece "~msngr.bat" ile biraz yalnız zaman geçirebilir…