Cov txheej txheem:
- Kauj Ruam 1: Cia Peb Pib
- Kauj ruam 2: Yog li Cia Peb Piav Qhia …
- Kauj Ruam 3: Nrog Kuv
- Kauj Ruam 4: Ib Zaum Kawg Ua Ntej Koj Mus NET Xa Txhua Qhov Chaw
Video: 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 …
Pom zoo:
Hloov-Hloov Cov Khoom Ua Si: Cov Khoom Ua Si Cov Khoom Ua Si Ua Tau Zoo!: 7 Cov Kauj Ruam (nrog Duab)
Hloov-Hloov Cov Khoom Ua Si: Cov Khoom Siv Hluav Taws Xob Ua Tau Zoo!: Qho khoom ua si hloov pauv qhib txoj hauv kev tshiab thiab kev daws teeb meem kom tso cai rau menyuam yaus uas muaj lub cev muaj peev xwm txwv lossis kev xiam oos qhab kev loj hlob los cuam tshuam nrog cov khoom ua si ntawm nws tus kheej. Hauv ntau qhov xwm txheej, cov menyuam yaus uas xav tau cov khoom ua si hloov pauv tsis tuaj yeem nkag mus
Cov Khaub Ncaws Khaub Ncaws Niaj Hnub Nyoog Vintage Cov Kab Xev Nrog Cov Ntaub Ntawv MP3: 8 Kauj Ruam (nrog Duab)
Kev Sau Ntiag Tug Vintage Cassette Tapes Nrog Cov Ntaub Ntawv MP3: Nrog cov kab xev nplaum kab xev popping hauv pop-kab lis kev cai tam sim no ntau dua li yav tas los, ntau tus neeg xav tsim lawv tus kheej cov ntawv. Hauv qhov kev qhia no, kuv yuav qhia koj yuav ua li cas (yog tias koj muaj daim kab xev kaw) kaw koj tus kheej cov kab xev nrog cov thev naus laus zis niaj hnub
Cov Khaub Ncaws Khaub Ncaws Jelly Donuts - Kev Taw Qhia rau Xaws Cov Khaub Ncaws Nrog Makey Makey: 4 Cov Kauj Ruam (nrog Duab)
Cov Khaub Ncaws Khaub Ncaws Khaub Ncaws - Kev Taw Qhia rau Xaws Cov Khaub Ncaws Nrog Makey Makey: Peb pom hauv Twitter tias ntau ntawm peb Cov Khaub Ncaws thiab Makey Makey cov neeg ntxeev siab xav paub ntau ntxiv txog kev xaws khaub ncaws, yog li peb tau tsim qhov kev qhia no kom qhia rau koj sai ntawm kev xaws khaub ncaws thiab yuav ua li cas koj tuaj yeem xaws qee cov khoom sib dhos. (Qhov no yog
Cov cuab yeej cuab tam - Ceramic hauv Cov Ntsiab Lus ntawm Cov Txheej Txheem Digital thiab Analog 2015: 3 Cov Kauj Ruam (nrog Duab)
Cov cuab yeej cuab tam - Ceramic hauv Cov Ntsiab Lus ntawm Digital thiab Analog Cov Txheej Txheem 2015: Txog tam sim no, cov khoom siv hlau yog cov khoom siv tes ua uas tsis muaj kev cuam tshuam digital. Vim li no, nws zoo siab heev los ua phooj ywg nrog cov cuab yeej tshiab. Lub hauv paus pib yog daim ntawv qub thiab CNC Styrocutter.DESIGNBOOM
Tswj Cov Khoom Siv Los Ntawm Arduino Nrog Cov Neeg Siv Khoom Hloov: 8 Cov Kauj Ruam (nrog Duab)
Kev Tswj Cov Khoom Siv Los Ntawm Arduino Nrog Kev Siv Hluav Taws Xob: Lub Arduino tuaj yeem siv los tswj cov cuab yeej los ntawm kev siv cov khoom siv yooj yim hloov pauv hloov chaw