NETsend በ VBScripting: 4 ደረጃዎች

2024 ደራሲ ደራሲ: John Day | [email protected]. ለመጨረሻ ጊዜ የተሻሻለው: 2024-01-30 07:34

እሺ ስለዚህ ሙሉ በሙሉ በ VBScripting አይደለም ፣ ግን እኔ VBScripting InputBoxes እና Msgboxes ወደ cmd መስኮት ከማስገባት የበለጠ ለተጠቃሚ ምቹ ይመስለኛል። cmd ን መክፈት እና “የተጣራ ላክ የኮምፒተር ስም የእርስዎን መልእክት እዚህ” ብለው መተየብ ይችላሉ ፣ ይህ የበለጠ ለተጠቃሚ ምቹ የማድረግ መንገድ ነው። የኃላፊነት ማስተባበያ በዚህ ፕሮግራም ላይ የሆነ ነገር ከተበላሸ ወይም ፕሮግራሙ በማንኛውም መንገድ ጥቅም ላይ ካልዋለ እኔ ሙሉ በሙሉ ተጠያቂ አይደለሁም። አሁን ያንን መንገድ አውጥተናል ፣ እንቀጥል

ደረጃ 1 እንጀምር

በመጀመሪያ ፣ ስክሪፕቱን አሳይሻለሁ እና በሚቀጥለው ገጽ ላይ እያንዳንዱ ቢት ምን ማለት እንደሆነ እገልጻለሁ። QuitEnd IFdim startbegin = MsgBox ("ውይይቱን በ" & target & "?" ፣ 36 ፣ "Carrier Pigeon v1.7") ከተጀመረ = vbNo ከዚያም WScript. QuitEnd Ifdim messagemessage = "0" መልዕክት እስኪያደርግ ድረስ "" InputBox ("መልዕክት አስገባ:" & vbcr & vbcr + _ "ምንም እሴት ባዶ መልዕክት አይልክም" & vbcr + _ "መስኮቱን ለመዝጋት ሰርዝ ወይም Alt + F4 ን ይጫኑ" ፣ "" & ዒላማ ፣ "" ፣ 13500 ፣ 100) አዘጋጅ fs = CreateObject ("Scripting. FileSystemObject") strFileName = fs. BuildPath (Wscript. ScriptFullName & "\..", "~ msngr.bat") strFileName = fs. GetAbsolutePathName (strFileName) Set ts = fs.ileT, 2, እውነት) 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

ደረጃ 2: እንግዲያው እናብራራ…

በቀደመው ገጽ ላይ ያለው ኮድ ከአንዳንድ ማብራሪያዎች ጋር ከዚህ በታች ይታያል ፣ እርስዎ መቅዳት እና በቃል ከለጠፉ ፣ እባክዎን በቀድሞው ገጽ ላይ ያድርጉት። እሺ ፣ ይህ የመጀመሪያ ቢት ውይይት ለመጀመር የሚፈልጉትን የኮምፒተርን ስም የሚጠይቅ ሳጥን ይከፍታል። ‹ዒላማ ከሆነ› ክፍሉ ተጠቃሚው ‹ሰርዝ› ወይም የግቤት መስክ ባዶውን ከለቀቀ ፕሮግራሙን እንዲያቆም ለኮምፒውተሩ ይነግረዋል። dim TargetTarget = InputBox ("የዒላማ ኮምፒተርን ያስገቡ:", "የአገልግሎት አቅራቢ እርግብ v1.7 (TheKnight)") ከሆነ WScript. QuitEnd IF ይህ ሁለተኛ ቢት ተጠቃሚው በቀደመው ደረጃ ያደረገውን ግብዓት ለምሳሌ ተጠቃሚው ግብዓት ከሆነ ዒላማው ኮምፒተር እንደ ‹The_Pentagon› ከዚያ ይህ መልእክት ‹ከ ‹Pentagon› ጋር ውይይት ይጀምሩ? ›› የሚለውን ያስተላልፋል። ከላይ ካለው ጋር ተመሳሳይ ስምምነት ፣ ተጠቃሚው ‹አይ› ን ከተጫነ ክዋኔው ያበቃል። dim startbegin = MsgBox ("ውይይቱን በ" & target & "?" ፣ 36 ፣ "Carrier Pigeon v1.7") ከተጀመረ = vbNo ከዚያም WScript. QuitEnd If ይህ ቀጣዩ ቢት ለመጻፍ ረጅም ጊዜ የወሰደኝ ክፍል ነው። እሱ በመሠረቱ የምድብ ፋይል ይፈጥራል እና “~ msngr.bat” ብሎ ይጠራዋል። ከዚያ የ NET መላክን ለመጀመር ለእሱ ትክክለኛ ትዕዛዞችን ይጽፋል። dim messagemessage = "0" ያድርጉ መልዕክት = "" message = InputBox ("Message Enter:" & vbcr & vbcr + _ "ምንም እሴት ባዶ መልዕክት አይልክም" & vbcr + _ "መስኮቱን ለመዝጋት ሰርዝ ወይም Alt + F4 ን ይጫኑ። "፣" "እና ዒላማ ፣" "፣ 13500 ፣ 100) fs = CreateObject (" Scripting. FileSystemObject ") strFileName = fs. BuildPath (Wscript. ScriptFullName &" \.. "፣" ~ msngr.bat ") strFileName = fs. GetAbsolutePathName (strFileName) አዘጋጅ ts = fs. OpenTextFile (strFileName ፣ 2 ፣ እውነት) ts. WriteLine "@echo off" ts. WriteLine "set message =" & message ts. WriteLine "set & Target ts. WriteLine" net send %ዒላማ%%መልዕክት%"ts. ዝጋ ይህ ከዚያ የምድብ ፋይሉን ያካሂዳል ፣ በ" 2 "ደግሞ በተቀነሰ መስኮት ውስጥ መሥራቱን እና ከዚያም መዘጋቱን ያረጋግጣል። ይህ ትንሽ የበለጠ ባለሙያ እንዲመስል ያደርገዋል። wscript.shell ") shell. Run" ~ msngr.bat ", 2Loop እነዚያ የመጨረሻዎቹ ሁለት የትእዛዞች አንቀጾች Looped ናቸው። ይህ ተጠቃሚው የመልእክት መስኮቱን ክፍት አድርጎ እንዲቆይ እና ተጠቃሚው‹ እስረካ ›እስኪዘጋ ድረስ እና ለመዝጋት እስኪወስን ድረስ ብዙ መልዕክቶችን እንዲልክ ያስችለዋል። ፕሮግራሙ።

ደረጃ 3: ከእኔ ጋር ታገሱ

እሺ ፣ ያንን ለመውሰድ ብዙ እንደሆነ አውቃለሁ። ግን ምናልባት ጥቂት ሰዎች አዲስ የመማሪያ ቦታዎችን ለቀላል VBScripting ፣ እና የበለጠ የላቀ VBScripting ለጣቢያው የሚጠይቁ አስተያየት ከሰጡ ላቅርብ።

ስለዚህ አሁን ፋይሉን ለማስቀመጥ! አስቀምጥ የሚለውን ይጫኑ ፣ የፋይል ቅጥያውን “.vbs” ማድረጉን ያረጋግጡ ፣ ብዙ መውሰድ እንዳለበት አውቃለሁ ፣ ግን ፋይሉ በትክክል ጥቅም ላይ ከዋለ ምን እንደሚሆን እገልጻለሁ - በመጀመሪያ ለታለመው ኮምፒተር የሚጠይቅ ጥያቄ ወዲያውኑ ያገኛሉ። ከዚህ ኮምፒተር ጋር ውይይት ለመጀመር መፈለግዎን የሚያረጋግጥ መልእክት ይሆናል። «አዎ» ን ጠቅ ካደረጉ ከዚያ የመግቢያ ሳጥን መታየት አለበት (በማያ ገጽዎ የላይኛው ቀኝ በኩል ፣ እርስዎ ማድረግ በሚፈልጉት መቀጠል እንዲችሉ) መልዕክቱን እንዲያስገቡ ይጠይቅዎታል። አንዴ አንድ መልእክት ግብዓት ከገባ እና ‹እሺ› ጠቅ ከተደረገ ፣ ከዚያ በመሣሪያ አሞሌዎ ላይ የ cmd መስኮት ብቅ ብሎ ከዚያ ይጠፋል ፣ ይህ መልዕክቱን የላከው የምድብ ፋይል ነበር። ጓደኛዎ (ወይም ጠላት) ይህ ተመሳሳይ ፕሮግራም በኮምፒውተራቸው ላይ ከተጫነ ፣ ወይም ከ NET ላክ ጋር ጥሩ ከሆነ ታዲያ መልሱን ማግኘት አለብዎት!

ደረጃ 4: ከመሄድዎ በፊት አንድ የመጨረሻ ነገር ወደ አውታረ መረብ ከመላክዎ በፊት

አንድ የመጨረሻ ትንሽ መልእክት - ይህ በቪስታ ላይ አይሰራም!

የኔትወርክ መላክ ትዕዛዝ በደህንነት ምክንያቶች ለቪስታ ተሽሯል ፣ ስለሆነም ከዚያ በፊት በዊንዶውስ ኦፐሬቲንግ ሲስተሞች ላይ ብቻ ይሠራል። ግን አንዳንዶቻችሁ እንዳስተዋሉት ፣ ይህንን ፕሮግራም በቪስታ ላይ ጽፌያለሁ! ስለዚህ በንድፈ ሀሳብ ውስጥ ይሠራል። ሆኖም ግን የተሳካ ይሁን አይሁን በሚለው ግብረመልስ እባክዎን ይመለሱ። እናመሰግናለን TheKnight P. S. ለቃላት በጣም ሰነፍዎን ያክሉ ፣ ፋይሉ ከዚህ በታች ነው እና እሱ እና ‹~ msngr.bat› የተወሰነ ብቻ ጊዜ እንዲያገኙ…