Mục lục:
- Bước 1: Bắt đầu
- Bước 2: Hãy giải thích…
- Bước 3: Chịu đựng với tôi
- Bước 4: Một điều cuối cùng trước khi bạn đi NET Gửi ở mọi nơi
Video: NETsend Với VBScripting: 4 bước
2024 Tác giả: John Day | [email protected]. Sửa đổi lần cuối: 2024-01-30 13:36
Ok, vì vậy nó không hoàn toàn với VBScripting, nhưng tôi nghĩ rằng VBScripting InputBoxes và Msgboxes trông thân thiện với người dùng hơn nhiều so với việc nhập vào cửa sổ cmd. Ồ và btw, Vui lòng không viết "NHIỀU CÁCH DỄ DÀNG HƠN …" Vì có, tất cả chúng tôi đều biết rằng bạn có thể mở cmd và gõ "Net send computername yourmessagehere" Đây chỉ là một cách làm thân thiện hơn với người dùng. Tuyên bố từ chối trách nhiệm Tôi hoàn toàn không chịu trách nhiệm nếu có bất kỳ sự cố nào xảy ra với chương trình này, hoặc nếu chương trình bị lạm dụng theo bất kỳ cách nào. Bây giờ chúng ta đã giải quyết được vấn đề đó, hãy tiếp tục
Bước 1: Bắt đầu
Đầu tiên, tôi sẽ cho bạn xem script và trên trang tiếp theo, tôi sẽ giải thích ý nghĩa của từng bit. Dim TargetTarget = InputBox ("Enter Target Computer:", "Carrier Pigeon v1.7 (TheKnight)") If Then WScript. QuitEnd IFdim beginbegin = MsgBox ("Bắt đầu cuộc trò chuyện với" & target & "?", 36, "Carrier Pigeon v1.7") If begin = vbNo Then WScript. QuitEnd Ifdim messagemessage = "0" Do Until message = "" message = InputBox ("Nhập tin nhắn:" & vbcr & vbcr + _ "Không có giá trị nào gửi tin nhắn trống" & vbcr + _ "Nhấn Hủy hoặc Alt + F4 để đóng cửa sổ", "" & Target, "", 13500, 100) Đặt fs = CreateObject ("Scripting. FileSystemObject") strFileName = fs. BuildPath (Wscript. ScriptFullName & "\..", "~ msngr.bat") strFileName = fs. GetAbsolutePathName (strFileName) Đặt tsFileName (strFileName) Đặt tsFileName (strFileName), 2, True) ts. WriteLine "@echo off" ts. WriteLine "set message =" & message ts. WriteLine "set & Target ts. WriteLine" net send% Target%% message% "ts. Closedim shellet shell = createobject ("wscript.shell") shell. Run "~ msngr.bat", 2Loop
Bước 2: Hãy giải thích…
Đoạn mã ở trang trước được hiển thị bên dưới với một số chú thích, nếu bạn sao chép và dán nó vào word, vui lòng thực hiện ở trang trước. Ok, Bit đầu tiên này sẽ mở ra hộp hỏi tên máy tính bạn muốn bắt đầu cuộc trò chuyện. Phần "If Target" thông báo cho máy tính kết thúc chương trình nếu người dùng nhấn 'hủy bỏ hoặc để trống trường nhập. dim TargetTarget = InputBox ("Enter Target Computer:", "Carrier Pigeon v1.7 (TheKnight)") If Then WScript. QuitEnd IF Bit thứ hai này chuyển tiếp đầu vào mà người dùng đã thực hiện ở bước trước, ví dụ: nếu người dùng nhập máy tính mục tiêu là: 'The_Pentagon' thì thông báo này chuyển tiếp một máy tính có nội dung "Bắt đầu cuộc trò chuyện với The_Pentagon?". Tương tự như trên, nếu người dùng nhấn 'không, thì thao tác sẽ kết thúc. dim beginbegin = MsgBox ("Bắt đầu cuộc trò chuyện với" & target & "?", 36, "Carrier Pigeon v1.7") If begin = vbNo Then WScript. QuitEnd If Bit tiếp theo này là phần khiến tôi mất nhiều thời gian để viết. Về cơ bản, nó tạo một tệp hàng loạt và gọi nó là "~ msngr.bat". Sau đó, nó viết các lệnh chính xác cho nó để bắt đầu gửi NET. dim messagemessage = "0" Do Until message = "" message = InputBox ("Nhập Tin nhắn:" & vbcr & vbcr + _ "Không Giá trị gửi tin nhắn trống" & vbcr + _ "Nhấn Hủy hoặc Alt + F4 để đóng cửa sổ "," "& Target," ", 13500, 100) Đặt fs = CreateObject (" Scripting. FileSystemObject ") strFileName = fs. BuildPath (Wscript. ScriptFullName &" \.. "," ~ msngr.bat ") strFileName = fs. GetAbsolutePathName (strFileName) Đặt 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 Thao tác này sau đó chạy tệp loạt, với" 2 "đảm bảo rằng nó chạy trong một cửa sổ được thu nhỏ và sau đó đóng lại. Điều này làm cho nó trông chuyên nghiệp hơn một chút. Dim shellet shell = createobject (" wscript.shell ") shell. Run" ~ msngr.bat ", 2Loop Hai đoạn lệnh cuối cùng đó được lặp lại. Điều này cho phép người dùng giữ cửa sổ tin nhắn mở và gửi nhiều tin nhắn cho đến khi người dùng nhấn 'hủy và quyết định đóng chương trình.
Bước 3: Chịu đựng với tôi
Được rồi, tôi biết điều đó rất hữu ích. Nhưng có lẽ tôi sẽ gửi một vài hướng dẫn mới cho trang web để sử dụng VBScripting đơn giản và VBScripting nâng cao hơn nếu có đủ người bình luận yêu cầu nó.
Vì vậy, bây giờ để lưu tệp! nhấn lưu, đảm bảo tạo phần mở rộng tệp ".vbs" Tôi biết rất nhiều việc phải làm nhưng tôi sẽ giải thích điều gì sẽ xảy ra nếu tệp được sử dụng đúng cách: Đầu tiên bạn sẽ nhận được lời nhắc yêu cầu máy tính đích Tiếp theo họ sẽ là một thông báo đảm bảo rằng bạn muốn bắt đầu cuộc trò chuyện với máy tính này. Nếu bạn nhấp vào 'Có' thì một hộp nhập liệu sẽ xuất hiện (ở trên cùng bên phải của màn hình, vì vậy bạn có thể tiếp tục với những gì bạn muốn làm) yêu cầu bạn nhập tin nhắn. Khi một tin nhắn được nhập và 'OK' được nhấp vào, sau đó một cửa sổ cmd sẽ xuất hiện dọc theo thanh công cụ của bạn và sau đó biến mất, đây là tệp hàng loạt gửi tin nhắn. Nếu bạn bè của bạn (hoặc kẻ thù) của bạn đã cài đặt chương trình tương tự trên máy tính của họ, hoặc tiện lợi với NET send, thì bạn sẽ nhận được phản hồi!
Bước 4: Một điều cuối cùng trước khi bạn đi NET Gửi ở mọi nơi
Một thông điệp nhỏ cuối cùng: ĐIỀU NÀY KHÔNG HOẠT ĐỘNG TRÊN VISTA!
Lệnh gửi NET đã bị bãi bỏ đối với Vista vì lý do bảo mật, do đó sẽ chỉ hoạt động trên hệ điều hành Windows trước đó. Nhưng như một số bạn có thể nhận thấy, tôi đã viết chương trình này trên Vista! Do đó TRONG LÝ THUYẾT nó hoạt động. Tuy nhiên, hãy gửi lại thông tin phản hồi về việc nó có thành công hay không. Cảm ơn TheKnight P. S. Trong trường hợp bạn quá lười biếng với các từ, tệp ở bên dưới Lưu nó vào thư mục riêng của nó, để nó và "~ msngr.bat" có thể có thời gian ở một mình…
Đề xuất:
Cách thiết lập OSMC với Hyperion trên Raspberry Pi với WS2812b Led Strip: 8 bước
Cách thiết lập OSMC với Hyperion trên Raspberry Pi Với WS2812b Led Strip: Đôi khi tôi tiếng anh rất tốt, đôi khi không … Điều đầu tiên trước tiên. Đây là tài liệu hướng dẫn đầu tiên của tôi và tiếng Anh không phải là ngôn ngữ mẹ đẻ của tôi, vì vậy xin đừng quá khắt khe với tôi. Đây sẽ không phải là về cách xây dựng khung, điều đó thật dễ dàng. Đó là về installi
Esp8266 dựa trên Boost Converter với giao diện người dùng Blynk tuyệt vời với bộ điều chỉnh phản hồi: 6 bước
Esp8266 dựa trên Boost Converter với giao diện người dùng Blynk tuyệt vời với bộ điều chỉnh phản hồi: Trong dự án này, tôi sẽ chỉ cho bạn một cách hiệu quả và phổ biến cách tăng điện áp DC. Tôi sẽ cho bạn thấy việc xây dựng một bộ chuyển đổi tăng cường có thể dễ dàng như thế nào với sự trợ giúp của Nodemcu. Hãy xây dựng nó. Nó cũng bao gồm một vôn kế trên màn hình và một phản hồi
PWM Với ESP32 - Làm mờ đèn LED với PWM trên ESP 32 Với Arduino IDE: 6 bước
PWM Với ESP32 | Làm mờ LED với PWM trên ESP 32 Với Arduino IDE: Trong hướng dẫn này, chúng ta sẽ thấy cách tạo tín hiệu PWM với ESP32 bằng Arduino IDE & PWM về cơ bản được sử dụng để tạo ra đầu ra tương tự từ bất kỳ MCU nào và đầu ra tương tự có thể là bất kỳ thứ gì trong khoảng từ 0V đến 3,3V (trong trường hợp esp32) & từ
Chỉnh sửa ảnh nhanh chóng và tuyệt vời với Picasa: 10 bước (với ảnh)
Chỉnh sửa ảnh nhanh chóng và tuyệt vời với Picasa: Với một máy ảnh kỹ thuật số tuyệt vời, trách nhiệm lớn là quản lý hàng nghìn bức ảnh. Điều này có thể là một khó khăn, đặc biệt nếu bạn muốn sử dụng chúng để ghi lại một quy trình cho Các tài liệu hướng dẫn. Tôi biết cách sử dụng Photoshop, nhưng thường xuyên hơn là tôi chuyển sang sử dụng G
Vòi rảnh tay hoặc vòi có bàn đạp hoặc vòi tiết kiệm nước: 5 bước
Vòi rảnh tay hoặc vòi có bàn đạp hoặc vòi tiết kiệm nước: Đây là một phương pháp đơn giản và rẻ để chuyển vòi thoát nước thành vòi rảnh tay (hợp vệ sinh). rửa cả hai tay cùng một lúc và tiết kiệm nước