Talaan ng mga Nilalaman:
- Hakbang 1: Magsimula Na Tayo
- Hakbang 2: Kaya't Ipaliwanag Namin …
- Hakbang 3: Pasanin Mo
- Hakbang 4: Isang Huling Bagay Bago ka Pumunta NET Pagpapadala Kahit saan
Video: NETsend Sa VBScripting: 4 Hakbang
2024 May -akda: John Day | [email protected]. Huling binago: 2024-01-30 13:16
Ok kaya't hindi ito ganap na may VBScripting, ngunit sa palagay ko ang VBScripting InputBoxes at Msgboxes ay mukhang mas magiliw sa gumagamit kaysa sa pag-input sa isang cmd window. Oh at btw, Mangyaring huwag isulat ang "MAS DALI NG PARAAN …" Dahil oo alam namin lahat na ikaw maaaring buksan ang cmd at i-type ang "Net magpadala ng computername yourmessagehere" Ito ay isang mas madaling gamitin na paraan ng gumagamit sa paggawa nito. Pagwawaksi Hindi ako ganap na responsable kung may mali sa programang ito, o kung ang programa ay maling ginamit sa ANUMANG paraan. Ngayon ay nakalabas na natin ang paraan, magpatuloy tayo
Hakbang 1: Magsimula Na Tayo
Una, ipapakita ko sa iyo ang script at sa susunod na pahina ipapaliwanag ko kung ano ang ibig sabihin ng bawat bit.dim TargetTarget = InputBox ("Enter Target Computer:", "Carrier Pigeon v1.7 (TheKnight)") Kung Pagkatapos WScript. QuitEnd IFdim beginbegin = MsgBox ("Simulan ang pag-uusap kasama ang" & target & "?", 36, "Carrier Pigeon v1.7") Kung magsisimula = vbWala No WScript. QuitEnd Ifdim messagemessage = "0" Do Until message = "" message = InputBox ("Enter Message:" & vbcr & vbcr + _ "Walang Halaga ang nagpapadala ng isang blangkong mensahe" & vbcr + _ "Pindutin ang Kanselahin o Alt + F4 upang isara ang window", "" & Target, "", 13500, 100) Itakda fs = CreateObject ("Scripting. FileSystemObject") strFileName = fs. BuildPath (Wscript. ScriptFullName & "\..", "~ msngr.bat") strFileName = fs. GetAbsolutePathName (strFileName) Itakda ts = fs. OpenTextFile, 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
Hakbang 2: Kaya't Ipaliwanag Namin …
Ang code sa nakaraang pahina ay ipinapakita sa ibaba na may ilang mga anotasyon, kung ang iyong pagkopya at pag-paste nito sa salita, mangyaring gawin ito sa nakaraang pahina. Ok, Ang unang bit na ito ay bubukas ang kahon na humihiling para sa pangalan ng computer na nais mong simulan ang isang pag-uusap. Ang bahaging "Kung Target" ay nagsasabi sa computer na wakasan ang programa kung pipindutin ng gumagamit ang 'kanselahin o iwanang blangko ang input field. malabo TargetTarget = InputBox ("Enter Target Computer:", "Carrier Pigeon v1.7 (TheKnight)") Kung Pagkatapos WScript. QuitEnd KUNG Ang pangalawang bit na ito ay nagpapasa ng input na ginawa ng gumagamit sa nakaraang hakbang, halimbawa kung ang input ng gumagamit ang target na computer bilang: 'The_Pentagon' pagkatapos ang mensaheng ito ay nagpapasa ng isa na nagsasabing "Simulan ang pag-uusap sa The_Pentagon?". Parehong pakikitungo sa itaas, kung pipindutin ng gumagamit ang 'hindi, magwawakas ang operasyon. dim beginbegin = MsgBox ("Simulan ang pag-uusap kasama ang" & target & "?", 36, "Carrier Pigeon v1.7") Kung magsisimula = vbWala No WScript. QuitEnd Kung Ang susunod na bit na ito ay ang bahaging kinuha sa akin ng MAHABANG magsulat. Karaniwan itong lumilikha ng isang file ng batch at tinatawag itong "~ msngr.bat". Sinusulat nito pagkatapos ang tamang mga utos dito upang simulan nito ang pagpapadala ng NET. dim messagemessage = "0" Gawin Hanggang sa mensahe = "" message = InputBox ("Enter Message:" & vbcr & vbcr + _ "Walang Halaga ang nagpapadala ng isang blangkong mensahe" & vbcr + _ "Pindutin ang Kanselahin o Alt + F4 upang isara ang window "," "& Target," ", 13500, 100) Itakda ang fs = CreateObject (" Scripting. FileSystemObject ") strFileName = fs. BuildPath (Wscript. ScriptFullName &" \.. "," ~ msngr.bat ") strFileName = fs. GetAbsolutePathName (strFileName) Itakda ts = fs. OpenTextFile (strFileName, 2, True) ts. WriteLine "@echo off" ts. WriteLine "set message =" & message ts. WriteLine "set & Target ts. WriteLine" net send % Target%% mensahe% "ts. Close Ito pagkatapos ay pinapatakbo ang file ng batch, kasama ang" 2 "na tinitiyak na tumatakbo ito sa isang pinaliit na window at pagkatapos magsara. Ginagawa nitong mukhang medyo propesyonal pa. Dim shellset shell = createobject (" wscript.shell ") shell. Run" ~ msngr.bat ", 2Loop Ang huling dalawang talata ng mga utos ay Looped. Pinapayagan nito ang gumagamit na panatilihing bukas ang window ng mensahe, at magpadala ng maraming mensahe hanggang sa pindutin ng gumagamit ang 'kanselahin at magpasya na isara ang programa.
Hakbang 3: Pasanin Mo
Ok, alam ko na marami itong tatanggapin. Ngunit malamang na magsumite ako ng ilang mga bagong itinuturo sa site para sa simpleng VBScripting, at mas advanced na VBScripting kung maraming tao ang nagkomento na humihiling para rito.
Kaya ngayon upang mai-save ang file! pindutin ang i-save, siguraduhing gawin ang extension ng file na ".vbs" Alam ko na maraming gawin ngunit ipapaliwanag ko kung ano ang mangyayari kung ang file ay ginamit nang tama: Una makakakuha ka ng isang prompt na humihiling para sa target na computer Susunod na magiging isang mensahe na tinitiyak na nais mong simulan ang isang pag-uusap sa computer na ito. Kung na-click mo ang 'Oo' pagkatapos ay dapat lumitaw ang isang kahon ng pag-input (sa kanang tuktok ng iyong screen, upang maaari kang magpatuloy sa kung ano ang nais mong gawin) na hinihiling sa iyo na i-input ang mensahe. Kapag ang isang mensahe ay na-input at ang 'OK' ay na-click, pagkatapos ang isang cmd window ay dapat na lumabas kasama ang iyong toolbar at pagkatapos ay mawala, ito ang batch file na nagpapadala ng mensahe. Kung ang iyong kaibigan (o kalaban) ay naka-install sa parehong computer na ito sa kanilang computer, o mahusay sa pagpapadala ng NET, dapat kang makakuha ng isang tugon!
Hakbang 4: Isang Huling Bagay Bago ka Pumunta NET Pagpapadala Kahit saan
Isang huling maliit na mensahe: HINDI ITO gagana sa VISTA!
Ang utos ng pagpapadala ng NET ay tinanggal para sa Vista dahil sa mga kadahilanang panseguridad, samakatuwid gagana lamang sa mga operating system ng Windows bago iyon. Ngunit tulad ng napansin ng ilan sa inyo, naisulat ko ang program na ito sa Vista! Samakatuwid SA TEORYANG ito gumagana. Gayunpaman mangyaring bumalik na may puna sa kung ito ay matagumpay o hindi. Salamat TheKnight P. S. Isama ang iyong masyadong tamad para sa mga salita, ang file ay nasa ibaba I-save ito sa sarili nitong folder, upang ito at "~ msngr.bat" ay maaaring magkaroon ng ilang nag-iisa na oras …
Inirerekumendang:
Arduino Car Reverse Parking Alert System - Hakbang sa Hakbang: 4 na Hakbang
Arduino Car Reverse Parking Alert System | Hakbang sa Hakbang: Sa proyektong ito, magdidisenyo ako ng isang simpleng Arduino Car Reverse Parking Sensor Circuit gamit ang Arduino UNO at HC-SR04 Ultrasonic Sensor. Ang Arduino based Car Reverse alert system na ito ay maaaring magamit para sa isang Autonomous Navigation, Robot Ranging at iba pang range r
Hakbang sa Hakbang Pagbubuo ng PC: 9 Mga Hakbang
Hakbang sa Hakbang ng PC Building: Mga Pantustos: Hardware: MotherboardCPU & CPU coolerPSU (Power supply unit) Storage (HDD / SSD) RAMGPU (hindi kinakailangan) CaseTools: ScrewdriverESD bracelet / matsthermal paste w / applicator
Tatlong Loudspeaker Circuits -- Hakbang-hakbang na Tutorial: 3 Mga Hakbang
Tatlong Loudspeaker Circuits || Hakbang-hakbang na Tutorial: Ang Loudspeaker Circuit ay nagpapalakas ng mga audio signal na natanggap mula sa kapaligiran papunta sa MIC at ipinapadala ito sa Speaker mula sa kung saan ginawa ang pinalakas na audio. Dito, ipapakita ko sa iyo ang tatlong magkakaibang paraan upang magawa ang Loudspeaker Circuit na ito gamit ang:
Hakbang-hakbang na Edukasyon sa Robotics Na May Kit: 6 Mga Hakbang
Hakbang-hakbang na Edukasyon sa Robotics Gamit ang isang Kit: Matapos ang ilang buwan ng pagbuo ng aking sariling robot (mangyaring sumangguni sa lahat ng mga ito), at pagkatapos ng dalawang beses na pagkabigo ng mga bahagi, nagpasya akong bumalik at muling isipin ang aking diskarte at direksyon. Ang karanasan ng ilang buwan ay kung minsan ay lubos na nagbibigay-pakinabang, at
Kritikal na Hakbang sa Paghuhugas ng Kamay sa Hakbang: 5 Hakbang
Kritikal na Hakbang sa Paghuhugas ng Hakbang sa paghuhugas ng kamay: Ito ay isang makina na nagpapaalala sa gumagamit tungkol sa mga hakbang kung kailan kailangan niyang maghugas ng kanyang mga kamay. Ang layunin ng makina na ito ay matulungan ang mga tao na maunawaan kung paano hugasan nang maayos ang kanilang mga kamay sa isang mabisang paraan. Sa mga panahon ng pag-iwas sa epidemya o pandemya,