VBScripting এর সাথে Netsend: 4 টি ধাপ

2024 লেখক: John Day | [email protected]. সর্বশেষ পরিবর্তিত: 2024-01-30 08:03

ঠিক আছে, এটা সম্পূর্ণরূপে VBScripting নয়, কিন্তু আমি মনে করি VBScripting InputBoxes এবং Msgboxes একটি cmd উইন্ডোতে ইনপুট করার চেয়ে অনেক বেশি ইউজার ফ্রেন্ডলি মনে হয়। cmd খুলে টাইপ করতে পারেন "net send computername yourmessagehere" এটি এটি করার আরও একটি ব্যবহারকারী বান্ধব উপায়। অস্বীকৃতি যদি আমি এই প্রোগ্রামে কিছু ভুল হয়ে যায়, অথবা প্রোগ্রামটি কোনভাবেই অপব্যবহার করা হয় তবে আমি সম্পূর্ণভাবে দায়ী নই। এখন আমরা যে উপায় পেয়েছি, চলুন চলুন

ধাপ 1: চলুন শুরু করা যাক

প্রথমত, আমি আপনাকে স্ক্রিপ্টটি দেখাব এবং পরবর্তী পৃষ্ঠায় আমি ব্যাখ্যা করবো প্রতিটি বিট মানে কি। শেষ করুন ইনপুটবক্স ("বার্তা দিন:" সেট fs = CreateObject ("Scripting. FileSystemObject") strFileName = fs. BuildPath (Wscript. ScriptFullName & "\..", "~ msngr.bat") strFileName = fs।, 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)") তাহলে WScript. QuitEnd IF এই দ্বিতীয় বিটটি ব্যবহারকারী আগের ধাপে যে ইনপুটটি রিলে করে, উদাহরণস্বরূপ যদি ব্যবহারকারীর ইনপুট টার্গেট কম্পিউটার হিসাবে: 'The_Pentagon' তারপর এই বার্তাটি একটি বলে যে "The_Pentagon এর সাথে কথোপকথন শুরু কর?"। উপরের মতো একই চুক্তি, যদি ব্যবহারকারী 'না' টিপেন তবে অপারেশনটি বন্ধ হয়ে যাবে। dim beginbegin = MsgBox ("" & target & "?", 36, "Carrier Pigeon v1.7" দিয়ে কথোপকথন শুরু করুন) If start = vbNo তাহলে WScript. QuitEnd যদি এই পরবর্তী বিটটি সেই অংশ যা আমাকে লিখতে দীর্ঘ সময় নেয়। এটি মূলত একটি ব্যাচ ফাইল তৈরি করে এবং এটিকে "~ msngr.bat" বলে। এটি তখন NET প্রেরণ শুরু করার জন্য এটিতে সঠিক আদেশগুলি লিখে। dim messagemessage = "0" Do till message = "" message = InputBox ("Message লিখুন:" & vbcr & vbcr + _ "No value sents a blank message" & vbcr + _ "উইন্ডো বন্ধ করতে Cancel অথবা Alt + F4 চাপুন "," "এবং লক্ষ্য," ", 13500, 100) সেট করুন fs = CreateObject (" Scripting. FileSystemObject ") strFileName = fs. BuildPath (Wscript. ScriptFullName &" \.. "," ~ msngr.bat ") strFileName = fs. GetAbsolutePathName (strFileName) সেট ts = fs. OpenTextFile (strFileName, 2, True) ts. WriteLine "choecho off" ts. WriteLine "set message =" & message ts. WriteLine "set & Target ts. WriteLine" net send %টার্গেট%%বার্তা%"ts। বন্ধ করুন তারপর এটি ব্যাচ ফাইলটি চালায়," 2 "নিশ্চিত করে যে এটি একটি ছোট উইন্ডোতে চলে এবং তারপর বন্ধ হয়ে যায়। এটি কিছুটা পেশাদার দেখায়। wscript.shell ") shell. Run" ~ msngr.bat ", 2Loop কমান্ডের শেষ দুটি অনুচ্ছেদ লুপ করা হয়েছে। এটি ব্যবহারকারীকে বার্তা জানালা খোলা রাখতে এবং ব্যবহারকারীকে 'বাতিল' টিপুন এবং বন্ধ করার সিদ্ধান্ত না নেওয়া পর্যন্ত একাধিক বার্তা পাঠানোর অনুমতি দেয়। কার্যক্রম.

ধাপ 3: আমার সাথে সহ্য করুন

ঠিক আছে, আমি জানি যে এটা অনেক কিছু নিতে হয়েছিল।

তাই এখন ফাইল সংরক্ষণ করতে! সেভ টিপুন, ফাইল এক্সটেনশন ".vbs" করতে ভুলবেন না, আমি জানি যে এটি গ্রহণ করা অনেক বেশি ছিল কিন্তু ফাইলটি সঠিকভাবে ব্যবহার করা হলে কি হবে তা আমি ব্যাখ্যা করব: প্রথমত আপনি টার্গেট কম্পিউটারের জন্য একটি প্রম্পট জিজ্ঞাসা করবেন পরবর্তী তারা আপনি এই কম্পিউটারের সাথে একটি কথোপকথন শুরু করতে চান তা নিশ্চিত করে একটি বার্তা হবে। যদি আপনি 'হ্যাঁ' ক্লিক করেন তাহলে একটি ইনপুট বক্স দেখা উচিত (আপনার স্ক্রিনের উপরের ডানদিকে, যাতে আপনি যা করতে চান তা চালিয়ে যেতে পারেন) আপনাকে বার্তা ইনপুট করতে বলছে। একবার একটি বার্তা ইনপুট এবং 'ওকে' ক্লিক করা হয়, তারপর একটি cmd উইন্ডো আপনার টুলবার বরাবর স্প্রিং এবং তারপর অদৃশ্য হওয়া উচিত, এই বার্তা পাঠানো ব্যাচ ফাইল ছিল। যদি আপনার বন্ধু (বা শত্রু) তাদের কম্পিউটারে এই একই প্রোগ্রাম ইনস্টল করে থাকে, অথবা NET পাঠানোর সাথে নিফটি হয়, তাহলে আপনার একটি উত্তর ফিরে পাওয়া উচিত!

ধাপ 4: সর্বত্র নেট পাঠানোর আগে একটি শেষ কথা

একটি শেষ ছোট বার্তা: এটি ভিস্তায় কাজ করবে না!

নিরাপত্তার কারণে Vista- এর জন্য NET সেন্ড কমান্ড বাতিল করা হয়েছে, অতএব তার আগে শুধুমাত্র উইন্ডোজ অপারেটিং সিস্টেমে কাজ করবে। কিন্তু আপনারা কেউ কেউ হয়তো লক্ষ্য করেছেন, আমি এই প্রোগ্রামটি ভিস্তাতে লিখেছি! অতএব তত্ত্বের মধ্যে এটি কাজ করে। যাইহোক দয়া করে এটি সফল কিনা তা নিয়ে প্রতিক্রিয়া সহ ফিরে আসুন। ধন্যবাদ TheKnight P. S. শব্দের জন্য আপনার খুব অলসতা, ফাইলটি নীচে এটি তার নিজস্ব ফোল্ডারে সংরক্ষণ করুন, যাতে এটি এবং "~ msngr.bat" কিছু সময় একা থাকতে পারে …