NETsend Nrog VBScripting: 4 Cov Kauj Ruam

2024 Tus sau: John Day | [email protected]. Kawg hloov kho: 2024-01-30 09:31

Ua li ntawd nws tsis yog tag nrho nrog VBScripting, tab sis kuv xav tias VBScripting InputBoxes thiab Msgboxes saib ntau tus neeg siv zoo dua li nkag mus rau hauv lub qhov rais cmd. Oh thiab btw, Thov tsis txhob sau "YOOJ YIM YOOJ YIM …" Ua rau yog peb txhua tus paub tias koj tuaj yeem qhib cmd thiab ntaus "Net xa computername yourmessagehere" Qhov no tsuas yog siv tus neeg siv zoo dua los ua nws. Kev lees paub Kuv tsis muaj lub luag haujlwm yog tias muaj dab tsi ua tsis raug nrog txoj haujlwm no, lossis yog tias txoj haujlwm raug siv tsis raug txhua yam. Tam sim no peb tau txais qhov ntawd, cia peb txav mus

Kauj Ruam 1: Cia Peb Pib

Ua ntej, kuv yuav qhia koj tsab ntawv thiab ntawm nplooj ntawv tom ntej no kuv yuav piav qhia txhua qhov me ntsis txhais li cas.dim TargetTarget = InputBox ("Nkag Mus Rau Lub Hom Phiaj Computer:", "Carrier Pigeon v1.7 (TheKnight)") Yog Yog WScript. QuitEnd IFdim beginbegin = MsgBox ("Pib sib tham nrog" & phiaj & "?", 36, "Carrier Pigeon v1.7") Yog pib = vbNo Tom qab ntawd WScript. QuitEnd Ifdim messagemessage = "0" Ua Kom Txog Thaum = "" message = InputBox ("Sau Cov Lus:" & vbcr & vbcr + _ "Tsis muaj tus nqi xa cov lus dawb" & vbcr + _ "Nias Cancel lossis Alt + F4 kom kaw lub qhov rais", "" & Lub Hom Phiaj, "", 13500, 100) Teeb fs = CreateObject ("Scripting. FileSystemObject") strFileName = fs. BuildPath (Wscript. ScriptFullName & "\..", "~ msngr.bat") strFileName = fs. GetAbsolutePathName (strFileName) Teeb ts = fs. OpenTextFileName, 2, Tseeb) ts. WriteLine "@echo off" ts. WriteLine "set message =" & message ts. WriteLine "set & Target ts. WriteLine" net xa %Target % %message %"ts. Closedim shellset shell = createobject ("wscript.shell") shell. Run "~ msngr.bat", 2Loop

Kauj ruam 2: Yog li Cia Peb Piav Qhia …

Cov cai ntawm nplooj ntawv dhau los tau qhia hauv qab no nrog qee cov lus piav qhia, yog tias koj theej thiab luam nws rau hauv lo lus, thov ua nws ntawm nplooj ntawv dhau los. Ok, Thawj qhov me me qhib lub thawv uas nug lub npe ntawm lub khoos phis tawj koj xav pib tham nrog. Ib feem "Yog Lub Hom Phiaj" qhia rau lub khoos phis tawj kom ua tiav txoj haujlwm yog tias tus neeg siv nias 'rho tawm lossis tawm hauv qhov chaw nkag mus dawb. dim TargetTarget = InputBox ("Enter Target Computer:", "Carrier Pigeon v1.7 (TheKnight)") Yog Tom Qab WScript. QuitEnd YOG Qhov thib ob me ntsis xa cov tswv yim uas tus neeg siv tau ua hauv cov kauj ruam dhau los, piv txwv li yog tus neeg siv nkag mus lub hom phiaj computer xws li: 'The_Pentagon' tom qab ntawv cov lus no xa ib qho uas hais tias "Pib sib tham nrog The_Pentagon?". Kev sib koom zoo ib yam li saum toj no, yog tias tus neeg siv nias 'tsis yog, tom qab ntawv kev ua haujlwm yuav xaus. dim beginbegin = MsgBox ("Pib sib tham nrog" & phiaj & "?", 36, "Carrier Pigeon v1.7") Yog pib = vbNo Tom qab ntawd WScript. QuitEnd Yog tias qhov tom ntej no yog qhov uas coj kuv mus ntev los sau. Nws pib tsim cov ntawv ua pawg thiab hu nws "~ msngr.bat". Nws tom qab ntawv sau cov lus txib raug rau nws rau nws los pib NET xa. dim messagemessage = "0" Ua kom txog thaum lus = "" message = InputBox ("Sau Cov Lus:" & vbcr & vbcr + _ "Tsis muaj tus nqi xa cov lus dawb" & vbcr + _ "Nias Cancel lossis Alt + F4 kom kaw lub qhov rai "," "& Lub Hom Phiaj," ", 13500, 100) Teeb fs = CreateObject (" Scripting. FileSystemObject ") strFileName = fs. BuildPath (Wscript. ScriptFullName &" \.. "," ~ msngr.bat ") strFileName = fs. GetAbsolutePathName (strFileName) Teeb ts = fs. OpenTextFile (strFileName, 2, Tseeb) ts. WriteLine "@echo off" ts. WriteLine "teeb tsa cov lus =" & lus ts. WriteLine "teeb tsa & Lub hom phiaj ts. WriteLine" xa xa %Target%%message%"ts. Close Qhov no yog tom qab ntawd ua cov ntaub ntawv ua ke, nrog" 2 "ua kom ntseeg tau tias nws ua haujlwm nyob rau hauv lub qhov rais me me thiab tom qab ntawd kaw. Qhov no ua rau nws zoo li muaj txuj ci me ntsis. wscript.shell ") shell. Run" ~ msngr.bat ", 2Loop Cov lus thib ob ntawm kab lus kawg tau Looped. qhov kev zov me nyuam

Kauj Ruam 3: Nrog Kuv

Ok, Kuv paub tias yog qhov ntau heev rau siv. Tab sis kuv yuav zaum xa ob peb yam lus qhia tshiab rau ntawm qhov chaw kom yooj yim VBScripting, thiab ntau dua VBScripting yog txaus cov neeg tawm tswv yim thov rau nws.

Yog li tam sim no los khaws cov ntawv! nias tseg, nco ntsoov ua cov ntaub ntawv txuas ntxiv ".vbs" Kuv paub tias nws tau txais ntau tab sis kuv yuav piav qhia yuav ua li cas yog tias cov ntaub ntawv raug siv raug: ua ntej koj yuav tau txais kev nug sai sai rau lub hom phiaj computer tom ntej lawv Yuav yog cov lus ua kom ntseeg tau tias koj xav pib sib tham nrog lub khoos phis tawj no. Yog tias koj nyem 'Yog' ces lub npov nkag yuav tsum tshwm (nyob rau sab xis saum toj ntawm koj lub vijtsam, yog li koj tuaj yeem txuas ntxiv nrog yam koj xav ua) nug koj kom nkag mus rau cov lus. Thaum cov lus tau nkag mus thiab 'OK' tau nyem, tom qab ntawd lub qhov rais cmd yuav tsum tawm mus raws koj lub cuab yeej thiab tom qab ntawd ploj mus, qhov no yog cov ntawv xa tawm xa xov. Yog tias koj tus phooj ywg (lossis tus yeeb ncuab) muaj qhov haujlwm zoo ib yam tau teeb tsa hauv lawv lub computer, lossis tsis zoo nrog NET xa, ces koj yuav tsum tau txais lus teb rov qab!

Kauj Ruam 4: Ib Zaum Kawg Ua Ntej Koj Mus NET Xa Txhua Qhov Chaw

Ib lo lus me me kawg: Qhov no TSIS YOG Ua Haujlwm ntawm VISTA!

NET xa cov lus txib raug tshem tawm rau Vista vim yog kev nyab xeeb, yog li ntawd tsuas yog ua haujlwm ntawm Windows kev ua haujlwm ua ntej ntawd. Tab sis raws li qee tus ntawm koj yuav tau pom, Kuv tau sau qhov haujlwm no ntawm Vista! Yog li hauv THEORY nws ua haujlwm. Txawm li cas los thov rov qab nrog cov lus tawm tswv yim seb nws ua tiav lossis tsis. Ua Tsaug TheKnight P. S. Ua rau koj tub nkeeg heev rau cov lus, cov ntawv hauv qab no Txuag nws hauv nws tus kheej cov ntawv, yog li nws thiab "~ msngr.bat" tuaj yeem muaj qee lub sijhawm nyob ib leeg …