Orodha ya maudhui:
- Hatua ya 1: Wacha tuanze
- Hatua ya 2: Basi hebu tueleze…
- Hatua ya 3: Nivumilie
- Hatua ya 4: Jambo la Mwisho kabla ya kwenda NET Kutuma Kila mahali
Video: Tuma kwa Nambari ya VBS: 4 Hatua
2024 Mwandishi: John Day | [email protected]. Mwisho uliobadilishwa: 2024-01-30 12:55
Sawa sio kabisa na VBScripting, lakini nadhani kuwa VBScripting InputBoxes na Msgboxes zinaonekana kuwa rahisi sana kwa watumiaji kuliko kuingiza kwenye dirisha la cmd. Oh na btw, Tafadhali usiandike "NJIA RAHISI SANA …" Sababu ndiyo tunajua kwamba wote inaweza kufungua cmd na uandike "Net tuma jina la utumiaji la ujumbe wako hapa" Hii ni njia rahisi zaidi ya kuifanya. Kanusho Sinawajibika kabisa ikiwa chochote kitaenda vibaya na programu hii, au ikiwa programu hiyo inatumiwa vibaya kwa njia yoyote. Sasa tumepata hiyo njia, wacha tuendelee
Hatua ya 1: Wacha tuanze
Kwanza, nitakuonyesha hati na kwenye ukurasa unaofuata nitaelezea maana ya kila kitu kidogo. QuitEnd IFdim beginbegin = MsgBox ("Anza mazungumzo na" & target & "?", 36, "Carrier Pigeon v1.7") If begin = vbNo Then WScript. QuitEnd Ifdim messagemessage = "0" Do Mpaka message = "" message = InputBox ("Ingiza Ujumbe:" & vbcr & vbcr + _ "Hakuna Thamani inayotuma ujumbe tupu" & vbcr + _ "Bonyeza Ghairi au Alt + F4 ili kufunga dirisha", "" & Target, "", 13500, 100) Kuweka fs = CreateObject ("Scripting. FileSystemObject") strFileName = fs. BuildPath (Wscript. ScriptFullName & "\..", "~ msngr.bat") strFileName = fs. GetAbsolutePathName (strFileName) Set ts = fsame. Op, 2, Kweli) 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") ganda. Run "~ msngr.bat", 2Loop
Hatua ya 2: Basi hebu tueleze…
Nambari iliyo kwenye ukurasa uliotangulia imeonyeshwa hapa chini na ufafanuzi, ikiwa unakili na kuipandika kwa neno, tafadhali fanya kwenye ukurasa uliopita. Ok, Kidogo hiki cha kwanza kinafungua sanduku ambalo linauliza jina la kompyuta unayotaka kuanza mazungumzo nayo. Sehemu ya "Ikiwa Lengo" inaiambia kompyuta imalize programu ikiwa vyombo vya habari vya mtumiaji 'vitafuta au huacha uwanja wa pembejeo wazi. dim TargetTarget = InputBox ("Ingiza Target Target:", "Carrier Pigeon v1.7 (TheKnight)") Ikiwa Kisha WScript. QuitEnd IF Kidogo hiki cha pili kinapeleka uingizaji ambao mtumiaji alifanya katika hatua ya awali, kwa mfano ikiwa pembejeo ya mtumiaji kompyuta inayolengwa kama: 'The_Pentagon' kisha ujumbe huu unarudisha ile inayosema "Anza mazungumzo na The_Pentagon?". Mpango sawa na hapo juu, ikiwa vyombo vya habari vya mtumiaji 'hapana, basi operesheni itakoma. dim beginbegin = MsgBox ("Anza mazungumzo na" & target & "?", 36, "Carrier Pigeon v1.7") If begin = vbNa Kisha WScript. QuitEnd If this next bit is the part that took me LONG to write. Kimsingi inaunda faili ya kundi na inaiita "~ msngr.bat". Halafu inaandika amri sahihi kwake ili ianzishe kutuma kwa NET. dim messagemessage = "0" Fanya Mpaka message = "" message = InputBox ("Enter Message:" & vbcr & vbcr + _ "Hakuna Thamani inayotuma ujumbe mtupu" & vbcr + _ "Bonyeza Cancel au Alt + F4 ili kufunga dirisha "," "& Target," ", 13500, 100) Weka fs = CreateObject (" Scripting. FileSystemObject ") strFileName = fs. BuildPath (Wscript. ScriptFullName &" \.. "," ~ msngr.bat ") strFileName = fs. GetAbsolutePathName (strFileName) Weka ts = fs. OpenTextFile (strFileName, 2, True) ts. WriteLine "@echo off" ts. WriteLine "set message =" & message ts. WriteLine "set & Target ts. WriteLine" net send Lengo%% ujumbe% "ts. Close hii kisha inaendesha faili ya kundi, na" 2 "inahakikisha inaendeshwa kwenye dirisha lililopunguzwa na kisha inafungwa. Hii inafanya ionekane kuwa ya kitaalam zaidi. wscript.shell ") shell. Run" ~ msngr.bat ", 2Loop Hizi aya mbili za mwisho za amri zimefunguliwa. Hii inamruhusu mtumiaji kuweka dirisha la ujumbe wazi, na kutuma ujumbe mwingi hadi mtumiaji atakapobonyeza 'kughairi na kuamua kufunga mpango.
Hatua ya 3: Nivumilie
Sawa, najua hiyo ilikuwa mengi kuchukua. Lakini labda nitawasilisha maagizo mapya kadhaa kwa wavuti kwa VBScripting rahisi, na VBScripting ya hali ya juu ikiwa watu wa kutosha watatoa maoni wakiiuliza.
Kwa hivyo sasa kuokoa faili! bonyeza "save" nitakuwa ujumbe kuhakikisha kuwa unataka kuanza mazungumzo na kompyuta hii. Ikiwa ulibofya 'Ndio' basi kisanduku cha kuingiza kinapaswa kuonekana (kulia juu ya skrini yako, ili uweze kuendelea na kile unachotaka kufanya) kukuuliza uingize ujumbe. Mara tu ujumbe unapoingiza na 'Sawa' ukibonyezwa, basi dirisha la cmd linapaswa kutoka nje kwenye upau wa zana na kisha kutoweka, hii ilikuwa faili ya kundi inayotuma ujumbe huo. Ikiwa rafiki yako (au adui) ana programu hiyo hiyo iliyosanikishwa kwenye kompyuta yao, au ni mzuri na kutuma kwa NET, basi unapaswa kupata jibu tena!
Hatua ya 4: Jambo la Mwisho kabla ya kwenda NET Kutuma Kila mahali
Ujumbe mmoja wa mwisho: HII HAITAFANYA KAZI KWENYE VISTA!
Amri ya kutuma NET ilifutwa kwa Vista kwa sababu ya usalama, kwa hivyo itafanya kazi tu kwenye mifumo ya uendeshaji ya Windows kabla ya hapo. Lakini kama wengine wanaweza kuwa umeona, nimeandika programu hii kwenye Vista! Kwa hivyo KATIKA nadharia inafanya kazi. Walakini tafadhali rudi na maoni juu ya ikiwa imefanikiwa au la. Asante TheKnight P. S. Ongeza uvivu wako kwa maneno, faili iko chini Ihifadhi katika folda yake mwenyewe, ili na "~ msngr.bat" iweze kuwa na wakati wa peke yake…
Ilipendekeza:
Tuma Takwimu za Nambari kutoka kwa Arduino kwenda kwa Mwingine: Hatua 16
Tuma Takwimu za Nambari kutoka kwa Arduino kwenda kwa Mwingine: Utangulizi na David Palmer, CDIO Tech. Je! uliwahi haja ya kutuma nambari kadhaa kutoka Arduino hadi nyingine? Maagizo haya yanaonyesha jinsi. Unaweza kujaribu kwa urahisi inafanya kazi kwa kuandika tu safu ya nambari za kutuma kwa S
Nambari 4 ya Nambari 7 ya Kitengo Na Kitufe cha Rudisha: Hatua 5
4 Nambari ya Sehemu ya 7 ya Kitengo na Kitufe cha Rudisha: Hii inayoweza kufundishwa itakufundisha jinsi ya kuunda kipima muda cha kutumia saa 4 ya Kitambulisho cha Sehemu 7 ambazo zinaweza kuweka upya na kitufe. Pamoja na hii inayoweza kufundishwa ni vifaa vinavyohitajika, wiring sahihi, na faili inayoweza kupakuliwa ya nambari ambayo ilikuwa
Tuma Barua pepe Moja kwa Moja na Picha Kutoka kwa Faili ya Kundi Kutumia Desktop ya Kale na XP: Hatua 4
Tuma Barua pepe Moja kwa Moja na Picha Kutoka kwa Faili ya Kundi Kutumia Desktop ya Kale na XP: Nina bahati kubwa kuwa na maoni mazuri kutoka kwa dirisha la ofisi yangu ya nyumbani. Wakati niko mbali, ninataka kuona kile ninachokosa na mimi huwa mbali mara kwa mara. Nilikuwa na wavuti yangu mwenyewe na kituo cha hali ya hewa nyumbani ambacho kinapakia kupitia ftp hali ya hewa yote
Tuma Arifa kwa Simu yako Kutoka kwa ESP8266 .: 3 Hatua
Tuma Arifa kwa Simu yako Kutoka kwa ESP8266 .: Kila kukicha itakuwa muhimu kupata taarifa kwenye simu juu ya hafla katika nambari yako ya Arduino. Programu ya Kuarifu ya ESP na maktaba ya arduino inayoambatana hukuruhusu kufikia hilo kwa urahisi na inaweza kutuma arifa kutoka kwa ESP8266 yoyote
Vbs Net Tuma Mjumbe: 3 Hatua
Mtumaji wa Mtandao wa Vbs: Hapa kuna mafundisho ya jinsi ya kutengeneza Mtumaji wa Mtuma kwa kutumia Mtandao wa Visual Basic (vbs). Nilitumia vbs badala ya fungu kwa sababu sipendi kutumia kundi. Kundi ni rahisi sana. Kukujulisha tu, hii ndio mafunzo yangu ya kwanza. Natumai umeipenda!