สารบัญ:
2025 ผู้เขียน: John Day | [email protected]. แก้ไขล่าสุด: 2025-01-13 06:58
ตกลงดังนั้นมันไม่ได้ใช้ VBScripting ทั้งหมด แต่ฉันคิดว่า VBScripting InputBoxes และ Msgboxes ดูเป็นมิตรกับผู้ใช้มากกว่าการป้อนลงในหน้าต่าง cmd โอ้และ btw โปรดอย่าเขียน "วิธีที่ง่ายกว่ามาก…" เพราะใช่เราทุกคนรู้ว่าคุณ สามารถเปิด cmd และพิมพ์ "Net send computername yourmessagehere" นี่เป็นเพียงวิธีที่เป็นมิตรกับผู้ใช้มากขึ้น ข้อจำกัดความรับผิดชอบ ฉันไม่รับผิดชอบทั้งหมดหากมีสิ่งผิดปกติเกิดขึ้นกับโปรแกรมนี้ หรือหากโปรแกรมถูกใช้ในทางที่ผิด ได้ทางออกแล้ว ไปลุยกันต่อ
ขั้นตอนที่ 1: มาเริ่มกันเลย
ประการแรก ฉันจะแสดงสคริปต์ให้คุณดู และในหน้าถัดไป ฉันจะอธิบายว่าแต่ละบิตหมายถึงอะไร.dim TargetTarget=InputBox("Enter Target Computer: ", "Carrier Pigeon v1.7 (TheKnight)")ถ้าเป็น WScript QuitEnd IFdim beginbegin=MsgBox ("เริ่มการสนทนาด้วย " & เป้าหมาย & "?", 36, "Carrier Pigeon v1.7") ถ้า start = vbNo แล้ว WScript. QuitEnd Ifdim messagemessage="0"Do Before message=""message= InputBox("ป้อนข้อความ: " & vbcr & vbcr + _"ไม่มีค่าส่งข้อความเปล่า" & vbcr + _"กดยกเลิกหรือ Alt+F4 เพื่อปิดหน้าต่าง", "" & Target, " ", 13500, 100) ตั้งค่า fs=CreateObject("Scripting. FileSystemObject") strFileName = fs. BuildPath(Wscript. ScriptFullName & "\..", "~msngr.bat") strFileName = fs. GetAbsolutePathName(strFileName) Set ts = fs. OpenTextFile(strFileName), 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("Enter Target Computer: ", "Carrier Pigeon v1.7 (TheKnight)")If Then WScript. QuitEnd IF บิตที่สองนี้ถ่ายทอดอินพุตที่ผู้ใช้ทำในขั้นตอนก่อนหน้า เช่น หากผู้ใช้ป้อนข้อมูล คอมพิวเตอร์เป้าหมายเป็น: 'The_Pentagon' จากนั้นข้อความนี้จะส่งต่อเครื่องที่ระบุว่า "เริ่มการสนทนากับ The_Pentagon หรือไม่" ข้อตกลงเดียวกันกับข้างต้น หากผู้ใช้กด ' ไม่ การดำเนินการจะยุติลง dim beginbegin=MsgBox ("เริ่มการสนทนาด้วย " & target & "?", 36, "Carrier Pigeon v1.7")If begin = vbNo แล้วก็ WScript. QuitEnd ถ้าบิตถัดไปเป็นส่วนที่ใช้เวลานานในการเขียน โดยทั่วไปจะสร้างไฟล์แบตช์และเรียกมันว่า "~msngr.bat" จากนั้นจะเขียนคำสั่งที่ถูกต้องเพื่อเริ่มต้นการส่ง NET dim messagemessage="0"Do Until message=""message=InputBox("Enter Message: " & vbcr & vbcr + _"No Value send a blank message" & vbcr + _"Press Cancel or Alt+F4 เพื่อปิดหน้าต่าง ", "" & Target, " ", 13500, 100)Set fs=CreateObject("Scripting. FileSystemObject") strFileName = fs. BuildPath(Wscript. ScriptFullName & "\..", "~msngr.bat") strFileName = fs. GetAbsolutePathName(strFileName) Set ts = fs. OpenTextFile(strFileName, 2, True) ts. WriteLine "@echo off"ts. WriteLine "set message=" & message ts. WriteLine "set & Target ts. WriteLine" net send %Target% %message%"ts. Close จากนั้นรันไฟล์แบตช์ โดยที่ "2" ทำให้แน่ใจว่ามันทำงานในหน้าต่างที่ย่อเล็กสุดแล้วปิด ซึ่งจะทำให้ดูเป็นมืออาชีพขึ้นเล็กน้อย dim shellset shell=createobject(" wscript.shell")shell. Run "~msngr.bat", 2Loop คำสั่งสองย่อหน้าสุดท้ายนั้นเป็นแบบวนซ้ำ ซึ่งช่วยให้ผู้ใช้สามารถเปิดหน้าต่างข้อความไว้ได้ และส่งข้อความหลายข้อความจนกว่าผู้ใช้จะกด ' ยกเลิกและตัดสินใจปิด โปรแกรม.
ขั้นตอนที่ 3: อดทนกับฉัน
ตกลง ฉันรู้ว่ามันต้องใช้เวลามาก แต่ฉันอาจจะส่งคำแนะนำใหม่สองสามรายการไปยังไซต์สำหรับ VBScripting อย่างง่าย และ VBScripting ขั้นสูงกว่านี้ ถ้ามีคนแสดงความคิดเห็นมากพอ
ดังนั้นตอนนี้เพื่อบันทึกไฟล์! กดบันทึก ตรวจสอบให้แน่ใจว่าได้สร้างนามสกุลไฟล์ ".vbs" ฉันรู้ว่ามันต้องใช้เวลามาก แต่ฉันจะอธิบายว่าจะเกิดอะไรขึ้นหากไฟล์ถูกใช้อย่างถูกต้อง: ประการแรกคุณจะได้รับข้อความแจ้งเพื่อขอคอมพิวเตอร์เป้าหมาย ถัดไปพวกเขา จะเป็นข้อความเพื่อให้แน่ใจว่าคุณต้องการเริ่มการสนทนากับคอมพิวเตอร์เครื่องนี้ หากคุณคลิก 'ใช่' ช่องป้อนข้อมูลควรปรากฏขึ้น (ที่ด้านบนขวาของหน้าจอ คุณจึงสามารถดำเนินการตามที่ต้องการได้) เพื่อขอให้คุณป้อนข้อความ เมื่อป้อนข้อความและคลิก 'ตกลง' แล้ว หน้าต่าง cmd ควรเด้งออกมาตามแถบเครื่องมือของคุณแล้วหายไป นี่คือแบตช์ไฟล์ที่ส่งข้อความ หากเพื่อน (หรือศัตรู) ของคุณมีโปรแกรมเดียวกันนี้ติดตั้งอยู่ในคอมพิวเตอร์ของพวกเขา หรือเหมาะกับการส่ง NET คุณควรได้รับการตอบกลับกลับมา!
ขั้นตอนที่ 4: สิ่งสุดท้ายก่อนที่คุณจะส่ง NET ไปทุกที่
ข้อความสุดท้ายเล็กน้อย: สิ่งนี้ใช้ไม่ได้กับ VISTA!
คำสั่ง NET send ถูกยกเลิกสำหรับ Vista เนื่องจากเหตุผลด้านความปลอดภัย ดังนั้นก่อนหน้านั้นจะทำงานบนระบบปฏิบัติการ Windows เท่านั้น แต่อย่างที่พวกคุณบางคนอาจสังเกตเห็น ฉันได้เขียนโปรแกรมนี้บน Vista! ดังนั้นในทางทฤษฎี มันได้ผล อย่างไรก็ตาม โปรดกลับมาพร้อมความคิดเห็นว่าประสบความสำเร็จหรือไม่ ขอบคุณ TheKnight ในกรณีที่คุณขี้เกียจเกินไปสำหรับคำ ไฟล์จะอยู่ด้านล่าง บันทึกไว้ในโฟลเดอร์ของตัวเอง เพื่อให้มันและ "~msngr.bat" สามารถมีเวลาอยู่คนเดียวได้…