በቀላል ቪቢኤስ መዝናናት !!!: 5 ደረጃዎች

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

የጀማሪዎች ለደስታ መመሪያ ፣ እና ምስላዊ መሰረታዊ ስክሪፕት ለማድረግ ቀላል። ቪኤስቢ ለአንዳንዶች ከባድ መስሎ ሊታይ ይችላል ፣ ግን በእውነቱ በእውነቱ ቀላል ነው። ዊንዶውስ ያለ ማጠናከሪያ እንኳን ሊያሠራው ይችላል! ጃቫስክሪፕትን የሚያውቁ ከሆነ ለእርስዎ በእውነት ቀላል መሆን አለበት።

ደረጃ 1 መሠረታዊ የመልእክት ሳጥኖች

እሺ ስለዚህ መሰረታዊ ነገሮችን እንለፍ። እርስዎ ከዚህ በታች እንደሚታየው የመልእክት ሳጥን አይተው ያውቃሉ ፣ እርስዎ ሞካሪ ነዎት። እነዚህ እርስዎ የፈለጉትን ነገር ለተጠቃሚዎች ለማስጠንቀቅ ያገለግላሉ። ተግባር Msgbox ን በመጠቀም የራስዎን መፍጠር ይችላሉ ስለዚህ ኮዱ ወደ መልእክት ሳጥን ውስጥ ሄይ እንደዚህ ይመስላል ፣ Msgbox (“hi”) በአማራጭ የማይነቃነቁ ማድረግ ይችላሉ። Do, Loop ትዕዛዞችን በመጠቀም ቀለል ያለ ሉፕ በማድረግ የመልእክት ሳጥን። አሁን የመልእክት ሳጥኖችን እንደሸፈንነው ፣ ወደ የላቁ የመልእክት ሳጥኖች ለመንቀሳቀስ ያስችለናል።

ደረጃ 2: ጨዋታዎች እና ነገሮች

ከእንግዲህ ከማየት ይልቅ የጽሑፍ ጨዋታዎችን እንዴት እንደሚሠሩ ቢገርሙዎት። እኔ ተሳስቼ ሊሆን ይችላል ፣ ግን እነሱ vbs ን እንደተጠቀሙ አምናለሁ። አሁን ብዙ የ vb ስክሪፕቶች አጠናቃሪ ይጠቀማሉ ፣ ግን መስኮቶች አንድ አያስፈልጉትም። ልክ ከፋይል ዱካ በፊት ሲስክሪፕትን ይተይቡ ፣ አሁን የሌሊት ወፍ ፋይሎችን እንዴት እንደሚሠሩ ካወቁ ፣ ይህንን ሂደት በራስ -ሰር ማድረግ ይችላሉ ፣ ግን በዚህ ትምህርት ውስጥ አንገባም። እዚህ ያደረግሁት ትንሽ ጨዋታ አለ።. "Nice Day is it is not?" Answer = Wscript. StdIn. ReadLine '' አዎ tIf answer = "yes" ብለው ቢተይቡ Wscript.echo ("በዚህ መልኩ እንደሚቀጥል ተስፋ አደርጋለሁ") 'noElseIf መልስ / "ብለው ቢተይቡ "አይ" "ከዚያ" ("የተሻለ እንደሚሆን ተስፋ አደርጋለሁ") '' ሌላ ማንኛውም ነገር ElseWscript. Echo («GoodDay to you») 'endEnd Ifnow በመሠረቱ ይህንን እንደ.vbs ያስቀምጡት እና እሱን ለማስኬድ ከዚህ በፊት ዘዴውን ይጠቀሙ።

ደረጃ 3: ራስ -ሰር ታይፐር

አንድ ነገር ደጋግሞ ለመፃፍ ይህ ኮድ ነው። እንዴት ጠቃሚ እንደሆነ አላውቅም ፣ ግን እርስዎ ካሄዱ ፣ በተግባሩ ዝርዝር shellobj = CreateObject (“WScript. Shell”) shellobj.run “cmd” doshellobj.sendkeys “Y” wscript.እንቅልፍ 200Shellobj.sendkeys "o" wscript.sleep 200loop

ደረጃ 4: ማትሪክስ አለዎት

ፒሲን እንዲያነጋግርዎት እንዴት አድርገው ያውቃሉ? ይህንን በደንብ ይቅዱ

አማራጭ በስህተት ከቆመበት ቀጥል ‹ተለዋዋጮችን ያውጁ ዲም wshshell ፣ ርዕስ ፣ ምስጢር ፣ ርዝመት ፣ አቀማመጥ ፣ tmp ፣ loopA ፣ loopB ፣ መስመሮችToWrite ፣ ዓምዶች ፣ objUser ፣ objSysInfo ፣ myName ፣ myNameLength ፣ col1 ፣ col2 ፣ col3 ፣ col4 ፣ col5 ፣ ከፍተኛ ፣ elementsset w = wscript.createobject ("wscript.shell") ርዕስ = "ማትሪክስ" wshshell. SendKeys "{ALT}"+"{ENTER}" '' የተጠቃሚ መረጃ ያግኙ ፣ ስም Setet objSysInfo = CreateObject ("ADSystemInfo") አዘጋጅ ለማግኘት objUser = GetObject ("LDAP: //" & objSysInfo. UserName) '--------------------------- ንዑስ ተጠባባቂ (var)' ስብስብ መስኮት ከፍ ፣ አርዕስት አዘጋጅ ፣ tmpwscript.sleep 1000tmp = wshshell.appactivate (var) loopend sub’---------------------- እስኪጨርስ ድረስ tmpwscript = falsedo እስኪጠናቀቅ ድረስ ይጠብቁ። ----- ንዑስ ማትሪክስ (ኤለመንቶች) ‹ማትሪክስ› እንዲመስል ለማድረግ የዘፈቀደ ቁጥሮችን ያትሙ በ ‹5columns = 5col1 = truecol2 = true col3 = truecol4 = truecol5 = realrandomize () linesToWrite = elements / columnsfor loopA = 1 ወደ መስመሮች ለመፃፍ ለ loopB = 1 ወደ ዓምዶች የጉዳይ loop ይምረጡ ቢቢሲ 1 ከሆነ col1 = እውነት ከዚያም w shshell. SendKeys Int (Round (rnd ())) & "{TAB}" Else wshshell. SendKeys "{TAB}" Case 2If col2 = true ከዚያም wshshell. SendKeys Int (Round (rnd ())) & "{TAB} "ሌላ wshshell. SendKeys" {TAB} "ጉዳይ 3If col3 = እውነት ከዚያም wshshell. SendKeys Int (Round (rnd ())) &" {TAB} "Else wshshell. SendKeys" {TAB} "Case 4If col4 = true ከዚያም wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" Else wshshell. SendKeys "{TAB}" Case 5If col5 = true ከዚያም wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" ሌላ wshshell. SendKeys "{TAB}" Select Selectwscript.sleep 5nextwscript. Echo 'ይህ Flip-flops አምዶች እርስ በእርሳቸው ሳይለያዩ 20 ጊዜ ለማሳየት። ከፍተኛ = 0.20If rnd () <ከፍተኛ ከዚያምIlf1 = እውነት ከዚያም col1 = ሐሰተኛ Else col1 = trueEnd IfIf rnd () <max ThenIf col2 = true ከዚያም col2 = false Else col2 = trueEnd IfIf rnd () <maximum thenIf col3 = true ከዚያም col3 = false Else col3 = trueEnd IfIf rnd () <maximum thenIf col4 = እውነት ከዚያም col4 = ሐሰተኛ Else col4 = trueEnd IfIf rnd () <ከፍተኛ ከዚያምIlf5 = እውነት ከዚያም col5 = ሐሰት ሌላ col5 = trueEnd Ifnextwscript. EhowhowScript. Echoend ንዑስ --------------------------- ንዑስ ቁልፍ (msg) የ «ማትሪክስ» ህትመቶችን ያድርጉ መልዕክቶችን ፣ እና themwscript.sleep 1500length = len (msg) ለቦታ = 1 ወደ ርዝመት wshshell. Kes mid (msg ፣ position ፣ 1) እንቅልፍ 75 ተጨማሪ ንዑስ ንዑስ---------------------------- 'ጀምር' 'ዋና' ማስፈጸሚያ እዚህ (ለርዕስ) ለ loopA = 1 ለ 4 የጉዳይ loop ምጣድን ይምረጡ 1 ቁ. = "ንቃ ፣ ኒዮ…" መያዣ 2mystring = "ማትሪክስ አለዎት …" መያዣ 3mystring = "ነጩን ጥንቸል ተከተሉ …" ጉዳይ 4mystring = "አንኳኳ …" _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ wscript.quit () ወደ C: / temp as matrix.vbs the የሌሊት ወፍ ፋይሎችን ይፍጠሩ@echo offcolor 0atitle the matrixset /p matrix = | cscript /nologo (ይህንን በ vbs ፋይል መንገድዎ ይተኩ) exitset /p matrix = RabbitHole.bat የሚለውን ስም ይሰይሙ። ከዚያ ያሂዱ !! ይህ አሪፍ ፣ ግን ከ vbsI ጋር የሚደረገው የላቀ ነገር ግሩም ስለሆነ ብቻ ያስገቡት

ደረጃ 5: ጨርስ

ይሄውልህ

መንሸራተቻዎቹ እርስዎ ማድረግ ለሚችሉት ወሰን