NETsend With VBScripting: 4 Langkah

2024 Pengarang: John Day | [email protected]. Diubah suai terakhir: 2024-01-30 11:13

Baiklah, ini tidak sepenuhnya dengan VBScripting, tetapi saya rasa VBScripting InputBoxes dan Msgbox kelihatan lebih mesra pengguna daripada memasukkan ke dalam tetingkap cmd. Oh dan btw, Tolong jangan tulis "JAUH LEBIH MUDAH …" Sebab ya kita semua tahu bahawa anda boleh membuka cmd dan menaip "Net send computername yourmessagehere" Ini hanyalah cara yang lebih mesra pengguna untuk melakukannya. Penafian Saya sama sekali tidak bertanggungjawab sekiranya ada yang tidak kena dengan program ini, atau jika program tersebut disalahgunakan dengan cara apa pun. Sekarang kita sudah berjaya, mari kita teruskan

Langkah 1: Mari Bermula

Pertama, saya akan menunjukkan skrip dan pada halaman seterusnya saya akan menerangkan maksud setiap bit.dim TargetTarget = InputBox ("Enter Target Computer:", "Carrier Pigeon v1.7 (TheKnight)") Jika Kemudian WScript. QuitEnd IFdim beginbegin = MsgBox ("Mulakan perbualan dengan" & target & "?", 36, "Carrier Pigeon v1.7") If begin = vbTidak Kemudian WScript. QuitEnd Ifdim messagemessage = "0" Do Sampai pesan = "" message = InputBox ("Masukkan Mesej:" & vbcr & vbcr + _ "Tidak ada Nilai yang menghantar mesej kosong" & vbcr + _ "Tekan Batal atau Alt + F4 untuk menutup tetingkap", "" & Sasaran, "", 13500, 100) Tetapkan fs = CreateObject ("Scripting. FileSystemObject") strFileName = fs. BuildPath (Wscript. ScriptFullName & "\..", "~ msngr.bat") strFileName = fs. GetAbsolutePathName (strFileName) Tetapkan ts = fs. OpenTileFame, 2, Benar) ts. WriteLine "@echo off" ts. WriteLine "set message =" & message ts. WriteLine "set & Target ts. WriteLine" net send% Target%% message% "ts. Shell shellset tertutup = createobject ("wscript.shell") shell. Jalankan "~ msngr.bat", 2Loop

Langkah 2: Jadi Mari Terangkan …

Kod pada halaman sebelumnya ditunjukkan di bawah dengan beberapa anotasi, jika anda menyalin dan menempelkannya ke dalam kata, sila lakukan di halaman sebelumnya. Ok, bit pertama ini membuka kotak yang meminta nama komputer yang anda mahu mulakan perbualan. Bahagian "Jika Sasaran" memberitahu komputer untuk menghentikan program jika pengguna menekan 'batal atau membiarkan bidang input kosong. dim TargetTarget = InputBox ("Enter Target Computer:", "Carrier Pigeon v1.7 (TheKnight)") Jika Kemudian WScript. QuitEnd JIKA bit kedua ini menyampaikan input yang dilakukan pengguna pada langkah sebelumnya, misalnya jika pengguna memasukkan komputer sasaran sebagai: 'The_Pentagon' maka mesej ini menyampaikan satu yang mengatakan "Mulakan perbualan dengan The_Pentagon?". Kesepakatan yang sama seperti di atas, jika pengguna menekan 'tidak, operasi akan dihentikan. dim beginbegin = MsgBox ("Mulakan perbualan dengan" & target & "?", 36, "Carrier Pigeon v1.7") Jika bermula = vbTidak Kemudian WScript. QuitEnd Jika Bit seterusnya ini adalah bahagian yang membawa saya PANJANG untuk menulis. Pada dasarnya ia membuat fail kumpulan dan memanggilnya "~ msngr.bat". Ia kemudian menuliskan perintah yang betul untuk memulakan penghantaran NET. dim messagemessage = "0" Do Sampai message = "" message = InputBox ("Enter Message:" & vbcr & vbcr + _ "Tidak ada Nilai yang menghantar mesej kosong" & vbcr + _ "Tekan Batal atau Alt + F4 untuk menutup tetingkap "," "& Target," ", 13500, 100) Tetapkan fs = CreateObject (" Scripting. FileSystemObject ") strFileName = fs. BuildPath (Wscript. ScriptFullName &" \.. "," ~ msngr.bat ") strFileName = fs. GetAbsolutePathName (strFileName) Tetapkan ts = fs. OpenTextFile (strFileName, 2, True) ts. WriteLine "@echo off" ts. WriteLine "set message =" & message ts. WriteLine "set & Target ts. WriteLine" hantar bersih % Target%% message% "ts. Close Ini kemudian menjalankan file batch, dengan" 2 "memastikan ia berjalan di tetingkap minimum dan kemudian ditutup. Ini menjadikannya kelihatan lebih profesional. Redup shellset shell = createobject (" wscript.shell ") shell. Jalankan" ~ msngr.bat ", 2Loop Dua perenggan terakhir perintah yang dilancarkan. Ini membolehkan pengguna untuk membiarkan tetingkap mesej terbuka, dan menghantar banyak mesej sehingga pengguna menekan 'batal dan memutuskan untuk menutup program yang.

Langkah 3: Berani Bersamaku

Baiklah, saya tahu itu banyak yang boleh diterima. Tetapi saya mungkin akan menyerahkan beberapa arahan baru ke laman web untuk membuat VBScripting yang ringkas, dan VBScripting yang lebih maju jika cukup banyak orang yang memberikan komen.

Jadi sekarang untuk menyimpan fail! tekan save, pastikan untuk membuat peluasan fail ".vbs" Saya tahu banyak yang perlu diambil tetapi saya akan menerangkan apa yang berlaku sekiranya fail tersebut digunakan dengan betul: Pertama anda akan mendapat permintaan meminta komputer sasaran Seterusnya mereka Akan menjadi mesej yang memastikan anda mahu memulakan perbualan dengan komputer ini. Sekiranya anda mengklik 'Ya' maka kotak input akan muncul (di kanan atas skrin anda, sehingga anda dapat melanjutkan dengan apa yang ingin anda lakukan) meminta anda memasukkan pesan. Setelah mesej dimasukkan dan 'OK' diklik, tetingkap cmd akan muncul di sepanjang bar alat anda dan kemudian hilang, ini adalah fail kumpulan yang menghantar mesej. Sekiranya rakan anda (atau musuh) mempunyai program yang sama ini dipasang di komputer mereka, atau baik dengan Hantaran BERSIH, anda harus mendapat balasan semula!

Langkah 4: Satu Perkara Terakhir Sebelum Anda NET Menghantar Ke Mana-mana

Satu pesanan kecil terakhir: INI TIDAK BEKERJA DI VISTA!

Perintah hantaran NET dihapuskan untuk Vista kerana alasan keselamatan, oleh itu hanya akan berfungsi pada sistem operasi Windows sebelum itu. Tetapi seperti yang anda perhatikan, saya telah menulis program ini di Vista! Oleh itu DALAM TEORI ia berfungsi. Walau bagaimanapun, sila kembali dengan maklum balas sama ada berjaya atau tidak. Terima kasih TheKnight P. S. Sekiranya anda terlalu malas untuk kata-kata, fail di bawah Simpan di dalam foldernya sendiri, sehingga fail dan "~ msngr.bat" dapat mempunyai masa sendirian …