NETsend Dengan VBScripting: 4 Langkah

2024 Pengarang: John Day | [email protected]. Terakhir diubah: 2024-01-30 09:59

Ok jadi itu tidak sepenuhnya dengan VBScripting, tapi saya pikir VBScripting InputBox dan Msgbox terlihat jauh lebih user friendly daripada memasukkan ke jendela cmd. Oh dan btw, Tolong jangan menulis "JAUH LEBIH MUDAH …" Karena ya kita semua tahu bahwa Anda dapat membuka cmd dan ketik "Net send computername yourmessagehere"Ini hanya cara yang lebih ramah pengguna untuk melakukannya. Penafian Saya sama sekali tidak bertanggung jawab jika ada yang salah dengan program ini, atau jika program disalahgunakan dengan cara APAPUN. Sekarang kita sudah mengatasinya, mari kita lanjutkan

Langkah 1: Mari Mulai

Pertama, saya akan menunjukkan script dan pada halaman berikutnya saya akan menjelaskan apa arti setiap bit.dim TargetTarget=InputBox("Masukkan Komputer Target: ", "Carrier Pigeon v1.7 (TheKnight)")Jika Kemudian WScript. QuitEnd IFdim beginbegin=MsgBox ("Mulai percakapan dengan " & target & "?", 36, "Carrier Pigeon v1.7")If begin = vbNo Kemudian WScript. QuitEnd Ifdim messagemessage="0"Lakukan Hingga message=""message= InputBox("Masukkan Pesan: " & vbcr & vbcr + _"Tidak Ada Nilai yang mengirimkan pesan kosong" & vbcr + _"Tekan Batal atau Alt+F4 untuk menutup jendela", "" & Target, " ", 13500, 100) Atur fs=CreateObject("Scripting. FileSystemObject") strFileName = fs. BuildPath(Wscript. ScriptFullName & "\..", "~msngr.bat") strFileName = fs. GetAbsolutePathName(strFileName) Atur ts = fs. OpenTextFile(strFileName, 2, True) ts. WriteLine "@echo off"ts. WriteLine "set message=" & pesan ts. WriteLine "set & Target ts. WriteLine "net send %Target% %message%"ts. Closedim shellset shell=createobject ("wscript.shell") shell. Jalankan "~msngr.bat", 2Loop

Langkah 2: Jadi Mari Jelaskan…

Kode pada halaman sebelumnya ditunjukkan di bawah ini dengan beberapa penjelasan, jika Anda menyalin dan menempelkannya ke dalam kata, silakan lakukan di halaman sebelumnya. Ok, Bit pertama ini membuka kotak yang menanyakan nama komputer yang ingin Anda gunakan untuk memulai percakapan. Bagian "Jika Target" memberitahu komputer untuk mengakhiri program jika pengguna menekan 'batal atau membiarkan kolom input kosong. dim TargetTarget=InputBox("Masukkan Komputer Target: ", "Carrier Pigeon v1.7 (TheKnight)")Jika Kemudian WScript. QuitEnd JIKA Bit kedua ini merelay input yang dilakukan pengguna pada langkah sebelumnya, misalnya jika input pengguna komputer target sebagai: 'The_Pentagon' lalu pesan ini menyampaikan pesan yang mengatakan "Mulai percakapan dengan The_Pentagon?". Kesepakatan yang sama seperti di atas, jika pengguna menekan 'tidak, maka operasi akan dihentikan. dim beginbegin=MsgBox("Mulai percakapan dengan " & target & "?", 36, "Carrier Pigeon v1.7")If begin = vbNo Kemudian WScript. QuitEnd If Ini bagian yang membuat saya PANJANG untuk menulis. Ini pada dasarnya membuat file batch dan menyebutnya "~msngr.bat". Itu kemudian menulis perintah yang benar untuk itu untuk memulai pengiriman NET. dim messagemessage="0"Lakukan Hingga message=""message=InputBox("Masukkan Pesan: " & vbcr & vbcr + _"Tidak Ada Nilai yang mengirimkan pesan kosong" & vbcr + _"Tekan Batal atau Alt+F4 untuk menutup jendela ", "" & 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=" & pesan ts. WriteLine "set & Target ts. WriteLine "net send %Target% %message%"ts. Close Ini kemudian menjalankan file batch, dengan "2" memastikan itu berjalan di jendela yang diperkecil dan kemudian ditutup. Ini membuatnya terlihat sedikit lebih profesional. dim shellset shell=createobject(" wscript.shell")shell. Run "~msngr.bat", 2Loop Dua paragraf terakhir dari perintah tersebut di-Looped. Ini memungkinkan pengguna untuk membiarkan jendela pesan tetap terbuka, dan mengirim beberapa pesan hingga pengguna menekan 'batal dan memutuskan untuk menutup program.

Langkah 3: Bersabarlah Dengan Saya

Oke, saya tahu itu banyak yang harus diterima. Tapi saya mungkin akan mengirimkan beberapa instruksi baru ke situs untuk VBScripting sederhana, dan VBScripting yang lebih maju jika cukup banyak orang berkomentar yang memintanya.

Jadi sekarang untuk menyimpan file! tekan simpan, pastikan untuk membuat ekstensi file ".vbs" Saya tahu itu banyak yang harus diambil tetapi saya akan menjelaskan apa yang terjadi jika file tersebut digunakan dengan benar: Pertama Anda akan mendapatkan prompt yang menanyakan komputer target Selanjutnya mereka ' akan menjadi pesan yang memastikan Anda ingin memulai percakapan dengan komputer ini. Jika Anda mengklik 'Ya' maka kotak input akan muncul (di kanan atas layar Anda, sehingga Anda dapat melanjutkan dengan apa yang ingin Anda lakukan) meminta Anda untuk memasukkan pesan. Setelah pesan dimasukkan dan 'OK' diklik, maka jendela cmd akan muncul di sepanjang bilah alat Anda dan kemudian menghilang, ini adalah file batch yang mengirim pesan. Jika teman Anda (atau musuh) memiliki program yang sama yang terinstal di komputer mereka, atau bagus dengan NET send, maka Anda harus mendapatkan balasan kembali!

Langkah 4: Satu Hal Terakhir Sebelum Anda Pergi NET Mengirim Ke Mana Saja

Satu pesan kecil terakhir: INI TIDAK AKAN BEKERJA PADA VISTA!

Perintah kirim NET dihapuskan untuk Vista karena alasan keamanan, oleh karena itu hanya akan bekerja pada sistem operasi Windows sebelum itu. Tetapi seperti yang mungkin telah Anda perhatikan, saya telah menulis program ini di Vista! Oleh karena itu DALAM TEORI ia bekerja. Namun silakan kembali dengan umpan balik apakah itu berhasil atau tidak. Terima kasih TheKnight P. S. Memetikan Anda terlalu malas untuk kata-kata, file di bawah Simpan di folder itu sendiri, sehingga dan "~msngr.bat" dapat memiliki waktu sendiri…