উত্তর:
আপনার অর্থ:
Wscript.Echo "Like this?"আপনি wscript.exeযদি এটির অধীনে চালিত হন (.vbs এক্সটেনশনের জন্য ডিফল্ট হ্যান্ডলার, সুতরাং আপনি স্ক্রিপ্টে ডাবল-ক্লিক করলে আপনি কী পাবেন) এতে আপনার পাঠ্যের সাথে আপনি একটি "বার্তাবক্স" ডায়ালগ পাবেন। যদি আপনি cscript.exeএটির অধীনে চালনা করেন তবে আপনি আপনার কনসোল উইন্ডোতে আউটপুট পাবেন।
WScript.Echo আবশ্যক আপনি মাধ্যমে চালাচ্ছেন কিনা জন্য ব্যবহার করা যেতে WScriptবা CScript। অর্থাৎ সেখানে নয় একটি CScript.Echo, কেস ভবিষ্যৎ Googlers আশ্চর্যের কিছু। ( খুব খুশি msgboxes চলে গেছে [যখন দিয়ে চালানো cscript; ধন্যবাদ অবশ্য]।)
WScript.Echo। আমি মনে করি, আপনি যদি ডাব্লুএসক্রিপ্টের মধ্যে পুরোপুরি থাকতে চান তবে মেসেজবক্স বন্ধ করতে পিতামাতার কাছে "সেন্ডকিজ" করার জন্য অন্য প্রক্রিয়া চালানোর মতো ভয়ঙ্কর কিছু করতে পারেন।
popupপদ্ধতিটি পেয়েছি । এর সাথে খুব সমান echoতবে আপনাকে একটি সময়সীমা নির্দিষ্ট করার অনুমতি দেয় যার পরে এটি স্বয়ংক্রিয়ভাবে পপআপ বক্সটি বন্ধ করে দেবে। খুব সুবিধাজনক এবং ব্যবহারে সহজ: টেকনিকট.মাইক্রোসফট.ইন- ইউএস
এটি ড্রাগন-আইটি স্ক্রিপ্ট এবং কোড সংগ্রহস্থলে পাওয়া গেছে ।
আপনি নিম্নলিখিতটি দিয়ে এটি করতে পারেন এবং সিএসক্রিপ্ট / ডাব্লুএসক্রিপ্টের পার্থক্য থেকে দূরে থাকতে পারেন এবং আপনাকে একই ব্যাবস্থার ফাইলের মতো কনসোল আউটপুট পেতে দেয়। যদি আপনার ব্যাচ ফাইল থেকে ভিবিএস কল করা যায় এবং এটি নির্বিঘ্ন দেখানোর প্রয়োজন হয় তবে এটি সহায়তা করতে পারে।
Set fso = CreateObject ("Scripting.FileSystemObject")
Set stdout = fso.GetStandardStream (1)
Set stderr = fso.GetStandardStream (2)
stdout.WriteLine "This will go to standard output."
stderr.WriteLine "This will go to error output."
WScript.Echo। আসলে, পার্থক্যটি বাড়ানো হয়েছে, কারণ স্ক্রিপ্টটি আর ডাব্লুস্ক্রিপ্টের আওতায় চলবে না। এটির একটি বৈধ কৌশল যা এর ব্যবহার করে, উদাহরণস্বরূপ যদি কাউকে স্টেডিআর লিখতে হয় তবে এই উত্তরের প্রসঙ্গে এটি বিভ্রান্তিকর।
WScript.Echo: cscript //b foobar.vbs রান foobar.vbsকোনো কনসোল আউটপুট ছাড়া কিন্তু রব এর পদ্ধতি দ্বারা আপনি আউটপুট এমনকি থাকতে পারে যখন পাশ \\bকরারcscript.exe
আপনার কেবলমাত্র wscript এর পরিবর্তে cscript জোর করতে হবে। আমি সর্বদা এই টেম্পলেটটি ব্যবহার করি। ফোর্সকনসোল () ফাংশনটি আপনার ভিবিএসকে সিসক্রিপ্টে কার্যকর করবে, এছাড়াও আপনার পাঠ্য মুদ্রণ করতে এবং স্ক্যান করার জন্য সুন্দর উপনাম রয়েছে।
Set oWSH = CreateObject("WScript.Shell")
vbsInterpreter = "cscript.exe"
Call ForceConsole()
Function printf(txt)
WScript.StdOut.WriteLine txt
End Function
Function printl(txt)
WScript.StdOut.Write txt
End Function
Function scanf()
scanf = LCase(WScript.StdIn.ReadLine)
End Function
Function wait(n)
WScript.Sleep Int(n * 1000)
End Function
Function ForceConsole()
If InStr(LCase(WScript.FullName), vbsInterpreter) = 0 Then
oWSH.Run vbsInterpreter & " //NoLogo " & Chr(34) & WScript.ScriptFullName & Chr(34)
WScript.Quit
End If
End Function
Function cls()
For i = 1 To 50
printf ""
Next
End Function
printf " _____ _ _ _____ _ _____ _ _ "
printf "| _ |_| |_ ___ ___| |_ _ _ _| | | __|___ ___|_|___| |_ "
printf "| | | '_| . | | --| | | | . | |__ | _| _| | . | _|"
printf "|__|__|_|_,_|___|_|_|_____|_____|___| |_____|___|_| |_| _|_| "
printf " |_| v1.0"
printl " Enter your name:"
MyVar = scanf
cls
printf "Your name is: " & MyVar
wait(5)আমি এই পোস্টটি জুড়ে এসে কিছুক্ষণ আগে ব্যবহার করেছি এমন একটি পদ্ধতির কাছে ফিরে গিয়েছিলাম যা @ ম্যাড্যান্ট্রাক্সের মতো।
মূল পার্থক্য হ'ল এটি সিএসক্রিপ্টে স্যুইচ করতে এবং কনসোলটিতে পাঠ্য আউটপুট আউট করার জন্য সমস্ত যুক্তি মোড়ানোর জন্য একটি ভিবিএস স্ক্রিপ্ট ব্যবহারকারী-সংজ্ঞায়িত শ্রেণি ব্যবহার করে, তাই এটি মূল স্ক্রিপ্টটিকে কিছুটা ক্লিনার করে তোলে।
এটি ধরে নেয় যে আপনার উদ্দেশ্য বার্তা বাক্সগুলিতে আউটপুট না রেখে কনসোলে আউটপুট স্ট্রিম করা।
CCONSOLE ক্লাসটি নীচে। এটি ব্যবহার করতে, আপনার স্ক্রিপ্টের শেষে সম্পূর্ণ ক্লাসটি অন্তর্ভুক্ত করুন এবং তারপরে স্ক্রিপ্টের শুরুতে এটি ইনস্ট্যান্ট করুন। এখানে একটি উদাহরণ:
Option Explicit
'// Instantiate the console object, this automatically switches to CSCript if required
Dim CONS: Set CONS = New cCONSOLE
'// Now we can use the Consol object to write to and read from the console
With CONS
'// Simply write a line
.print "CSCRIPT Console demo script"
'// Arguments are passed through correctly, if present
.Print "Arg count=" & wscript.arguments.count
'// List all the arguments on the console log
dim ix
for ix = 0 to wscript.arguments.count -1
.print "Arg(" & ix & ")=" & wscript.arguments(ix)
next
'// Prompt for some text from the user
dim sMsg : sMsg = .prompt( "Enter any text:" )
'// Write out the text in a box
.Box sMsg
'// Pause with the message "Hit enter to continue"
.Pause
End With
'= =========== End of script - the cCONSOLE class code follows hereসিসনসোলে ক্লাসের কোড এখানে
CLASS cCONSOLE
'= =================================================================
'=
'= This class provides automatic switch to CScript and has methods
'= to write to and read from the CSCript console. It transparently
'= switches to CScript if the script has been started in WScript.
'=
'= =================================================================
Private oOUT
Private oIN
Private Sub Class_Initialize()
'= Run on creation of the cCONSOLE object, checks for cScript operation
'= Check to make sure we are running under CScript, if not restart
'= then run using CScript and terminate this instance.
dim oShell
set oShell = CreateObject("WScript.Shell")
If InStr( LCase( WScript.FullName ), "cscript.exe" ) = 0 Then
'= Not running under CSCRIPT
'= Get the arguments on the command line and build an argument list
dim ArgList, IX
ArgList = ""
For IX = 0 to wscript.arguments.count - 1
'= Add the argument to the list, enclosing it in quotes
argList = argList & " """ & wscript.arguments.item(IX) & """"
next
'= Now restart with CScript and terminate this instance
oShell.Run "cscript.exe //NoLogo """ & WScript.ScriptName & """ " & arglist
WScript.Quit
End If
'= Running under CScript so OK to continue
set oShell = Nothing
'= Save references to stdout and stdin for use with Print, Read and Prompt
set oOUT = WScript.StdOut
set oIN = WScript.StdIn
'= Print out the startup box
StartBox
BoxLine Wscript.ScriptName
BoxLine "Started at " & Now()
EndBox
End Sub
'= Utility methods for writing a box to the console with text in it
Public Sub StartBox()
Print " " & String(73, "_")
Print " |" & Space(73) & "|"
End Sub
Public Sub BoxLine(sText)
Print Left(" |" & Centre( sText, 74) , 75) & "|"
End Sub
Public Sub EndBox()
Print " |" & String(73, "_") & "|"
Print ""
End Sub
Public Sub Box(sMsg)
StartBox
BoxLine sMsg
EndBox
End Sub
'= END OF Box utility methods
'= Utility to center given text padded out to a certain width of text
'= assuming font is monospaced
Public Function Centre(sText, nWidth)
dim iLen
iLen = len(sText)
'= Check for overflow
if ilen > nwidth then Centre = sText : exit Function
'= Calculate padding either side
iLen = ( nWidth - iLen ) / 2
'= Generate text with padding
Centre = left( space(iLen) & sText & space(ilen), nWidth )
End Function
'= Method to write a line of text to the console
Public Sub Print( sText )
oOUT.WriteLine sText
End Sub
'= Method to prompt user input from the console with a message
Public Function Prompt( sText )
oOUT.Write sText
Prompt = Read()
End Function
'= Method to read input from the console with no prompting
Public Function Read()
Read = oIN.ReadLine
End Function
'= Method to provide wait for n seconds
Public Sub Wait(nSeconds)
WScript.Sleep nSeconds * 1000
End Sub
'= Method to pause for user to continue
Public Sub Pause
Prompt "Hit enter to continue..."
End Sub
END CLASSকনসোলে পাঠ্য আউটপুট দেওয়ার পাঁচটি উপায় রয়েছে:
Dim StdOut : Set StdOut = CreateObject("Scripting.FileSystemObject").GetStandardStream(1)
WScript.Echo "Hello"
WScript.StdOut.Write "Hello"
WScript.StdOut.WriteLine "Hello"
Stdout.WriteLine "Hello"
Stdout.Write "Hello"ডাব্লুস্ক্রিপ্ট.একো কনসোলে আউটপুট দেয় তবে কেবল স্ক্রিপ্টটি cscript.exe ব্যবহার শুরু করা হয়। Wscript.exe ব্যবহার করা শুরু করলে এটি বার্তার বাক্সগুলিতে আউটপুট আসবে।
WScript.StdOut.Write এবং WScript.StdOut.WriteLine সর্বদা কনসোল আউটপুট হবে।
StdOut.Write এবং StdOut.WriteLine সর্বদা কনসোল আউটপুট হবে। এটির জন্য অতিরিক্ত অবজেক্ট তৈরি করা প্রয়োজন তবে এটি ডাব্লুস্ক্রিপ্টের চেয়ে প্রায় 10% দ্রুত cho
MsgBox("text")বাMsgBox(object.property)কিন্তুWscript.Echoলিখতে সহজ। ধন্যবাদ।