ማርታቲክስ ትዕይንት ከእንቅልፉ ነቅቶ Vbs: 4 ደረጃዎች

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

ጤና ይስጥልኝ ይህ የፕሮግራም ትምህርት ነው እና የኒዮ ኮምፒዩተር በተጠለፈበት እና ኮምፒዩተሩ በሚለው ማትሪክስ መጀመሪያ ላይ ትዕይንቱን እንደገና ማሻሻል እንዲችሉ ኮድ እሰጥዎታለሁ።

ደረጃ 1 ደረጃ 1 የመጀመሪያው Vbs

የማስታወሻ ደብተር ይክፈቱ እና ይህ ከአራት ፋይሎች አንዱ ነው ፣ አለበለዚያ አይሰራም።

ይህን ኮድ ያስገቡ ፦

ስብስብ ghost = wscript. CreateObject ("WScript. Shell") ghost.run "cmd" wscript.sleep 3000 ghost.sendkeys "w" wscript.sleep 100 ghost.sendkeys "a" wscript.sleep 100 ghost.sendkeys "k" wscript.እንቅልፍ 100 ghost.sendkeys "e" wscript.sleep 100 ghost.sendkeys "" wscript.sleep 100 ghost.sendkeys "u" wscript.sleep 100 ghost.sendkeys "p" 100 ghost.sendkeys "n" wscript.sleep 100 ghost.sendkeys "e" wscript.sleep 100 ghost.sendkeys "o" wscript.sleep 100 ghost.sendkeys ". wscript.sleep 100 ghost.sendkeys "." wscript.sleep 100 ghost.sendkeys "." wscript.sleep 5000 Dim objShell Set objShell = Wscript. CreateObject ("WScript. Shell")

objShell. "2.vbs" ን ያሂዱ

'Set ን መጠቀም አስገዳጅ ነው objShell = ምንም WScript. Quit

እና ይህን ፋይል አንድ matrix.vbs ያስቀምጡ

ደረጃ 2 ደረጃ 2 ሁለተኛ ፋይል

አሁን አዲስ ማስታወሻ ደብተር ይክፈቱ እና እርስዎ የሚፈልጉትን ስም ብለው ቢጠሩት አይሰራም ምክንያቱም ይህንን ፋይል 2.vbs ይደውሉ።

አሁን ይህንን ኮድ ይቅዱ እና ይለጥፉ ሁለተኛው የማስታወሻ ደብተር ፋይል ነው።

አዘጋጅ ghost = wscript. CreateObject ("WScript. Shell") ghost.run "cmd" wscript.sleep 500 ghost.sendkeys "t" wscript.sleep 500 ghost.sendkeys "h" wscript.sleep 500 ghost.sendkeys "e" wscript.እንቅልፍ 500 ghost.sendkeys "" wscript.sleep 500 ghost.sendkeys "m" wscript.sleep 500 ghost.sendkeys "a" wscript.sleep 500 ghost.sendkeys "t" wscript.sleep 500 ghost.sendkeys "r" wscript እንቅልፍ 500 ghost.sendkeys "i" wscript.sleep 500 ghost.sendkeys "x" wscript.sleep 500 ghost.sendkeys "" wscript.sleep 500 ghost. 500 ghost.sendkeys "s" wscript.sleep 500 ghost.sendkeys "" wscript.sleep 100 ghost.sendkeys "y" wscript.sleep 100 ghost.sendkeys "o" ghost.sendkeys "." wscript.sleep 40 ghost.sendkeys "." wscript.sleep 40 ghost.sendkeys "." wscript.sleep 5000 አዘጋጅ objShell = Wscript. CreateObject ("WScript. Shell")

objShell. "3.vbs" አሂድ

'Set ን መጠቀም አስገዳጅ ነው objShell = ምንም WScript. Quit

ደረጃ 3 ደረጃ 3 ሦስተኛው ቪ.ቢ

ሌላ የማስታወሻ ደብተር ፋይል ይክፈቱ እና ይህንን ፋይል 3.vbs ይደውሉ።

ይህንን ኮድ በፋይሉ ውስጥ ያስገቡ።

ስብስብ ghost = wscript. CreateObject ("WScript. Shell") ghost.run "cmd" wscript.sleep 100 ghost.sendkeys "f" wscript.sleep 100 ghost.sendkeys "o" wscript.sleep 100 ghost.sendkeys "l" wscript.እንቅልፍ 100 ghost.sendkeys "l" wscript.sleep 100 ghost.sendkeys "o" wscript.sleep 100 ghost.sendkeys "w" wscript.sleep 100 ghost.sendkeys "" ተኛ 100 ghost.sendkeys "h" wscript.sleep 100 ghost.sendkeys "e" wscript.sleep 100 ghost.sendkeys "" wscript.sleep 100 ghost. 100 ghost.sendkeys "i" wscript.sleep 100 ghost.sendkeys "t" wscript.sleep 100 ghost.sendkeys "e" ghost.sendkeys "a" wscript.sleep 100 ghost.sendkeys "b" wscript.sleep 100 ghost.sendkeys "b" wscript.sleep 100 ghost.sendkeys "i" ghost.sendkeys "." wscript.sleep 500 ghost.sendkeys "." wscript.sleep 500 ghost.sendkeys "." wscript.sleep 5000 አዘጋጅ objShell = Wscript. CreateObject ("WScript. Shell")

objShell. "4.vbs" ን ያሂዱ

'Set ን መጠቀም አስገዳጅ ነው objShell = ምንም WScript. Quit

ደረጃ 4: ደረጃ 4: የመጨረሻው የ Vbs ፋይል

አሁን የመጨረሻውን ፋይል ያደርጉ እና 4.vbs ብለው ይጠሩታል።

ይህንን ኮድ በፋይሉ ውስጥ ያስገቡ።

ስብስብ ghost = wscript. CreateObject ("WScript. Shell") ghost.run "cmd" wscript.sleep 100 ghost.sendkeys "new knock neo…"

ፋይሎቹ በዴስክቶፕ ላይ መሆን አለባቸው ምክንያቱም ያንን ካላደረጉ አይሰራም