Furahisha na VBS Rahisi !!!: Hatua 5

2024 Mwandishi: John Day | [email protected]. Mwisho uliobadilishwa: 2024-01-30 12:55

Mwongozo wa Kompyuta wa kufurahisha, na rahisi kufanya maandishi ya msingi ya kuona. VSB inaweza kuonekana kuwa ngumu kwa wengine, lakini kwa kweli ni rahisi sana. Windows inaweza hata kuiendesha bila mkusanyaji! Ikiwa unajua javascript, inapaswa kuwa rahisi kwako.

Hatua ya 1: Masanduku ya Ujumbe wa Msingi

Sawa basi hebu tuangalie Misingi. Je! Umewahi kuona sanduku la ujumbe kama huu ulio chini, una probaly unayo. Hizi hutumiwa kutahadharisha watumiaji wa chochote unachotaka kusema. Unaweza kuunda yako mwenyewe kwa kutumia Msgbox wa Kazi Kwa hivyo nambari kwenye kisanduku cha ujumbe kinachosema hi itaonekana kama hii, Msgbox ("hi") Vinginevyo unaweza kufanya kutokujulikana Sanduku la ujumbe kwa kufanya kitanzi rahisi kwa kutumia amri za Do, Loop Sasa kwa kuwa tumefunika masanduku ya ujumbe, hebu tuende kwenye masanduku ya ujumbe wa hali ya juu zaidi.

Hatua ya 2: Michezo na Vitu

Ikiwa unajiuliza jinsi ya kutengeneza michezo ya maandishi kuliko kutazama zaidi. Huenda nikakosea, lakini naamini kwamba walitumia vbs. Sasa maandishi mengi ya vb hutumia mkusanyaji, lakini windows haiitaji moja. Chapa tu cscript kabla ya njia ya faili, sasa ikiwa unajua jinsi ya kutengeneza faili za popo, basi unaweza kugeuza mchakato huu, lakini hatuwezi kuingia katika hii katika hii inayoweza kufundishwa. Hapa kuna mchezo mdogo nilioufanya Chaguo zilizo wazi za Jibu la Jibu huandika swaliWscript. StdOut Andika "Siku Njema sivyo?" "hapana" ThenWscript.echo ("Natumai inakuwa bora") 'kitu kingine chochoteElseWscript. Echo ("GoodDay to you")' endEnd Ifnow kimsingi ihifadhi hii kama.vbs na utumie njia kabla ya kuiendesha.

Hatua ya 3: Aina ya Kiotomatiki

Nambari hii iandike kitu tena na tena. Sijui ni muhimu vipi, lakini ikiwa utaiendesha, itabidi uiue katika orodha ya kazi shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" doshellobj.sendkeys "Y" wscript lala 200Shellobj.sendkeys "o" wscript.lala 200loop

Hatua ya 4: Matirx Ina Wewe

Umewahi kujiuliza jinsi ya kukufanya pc izungumze na wewe? Vizuri nakala hii

Chaguo wazi juu ya Kosa Endelea Ifuatayo 'tangaza vigeugeu dm wshshell, kichwa, nyundo, urefu, nafasi, tmp, kitanziA, kitanziB, mistariToWrite, safu, objUser, objSysInfo, myName, myNameLength, col1, col2, col3, col4, col5, upeo, seti ya wshshell = wscript. objUser = GetObject ("LDAP: //" & objSysInfo. UserName) '--------------------------- sub waitfor (var)' imewekwa dirisha la juu, weka kichwa, subiri ikamilishemp = falsedo hadi tmpwscript.lala 1000tmp = wshshell.appact (var) loopend ndogo ' ----- matrix ndogo (elementi) 'chapa nambari zisizobadilika ili kufanya "matrix" iangalie vitu vinaweza kugawanywa na nguzo 5 = 5col1 = truecol2 = kweli col3 = truecol4 = truecol5 = truerandomize () mistariToWrite = elementi / safu za kitanzi = 1 kwa mistari Kuandika kwa kitanziB = 1 kwa safuwima Chagua kitanzi cha KesiBCase 1Ikiwa col1 = kweli Kisha w shshell. SendKeys Int (Round (rnd ())) & "{TAB}" Else wshshell. SendKeys "{TAB}" Uchunguzi 2If col2 = true Then wshshell. SendKeys Int (Round (rnd ())) & "{TAB} "Else wshshell. SendKeys" {TAB} "Uchunguzi 3If col3 = true Kisha wshshell. SendKeys Int (Round (rnd ())) &" {TAB} "Else wshshell. SendKeys" {TAB} "Case 4If col4 = true Then wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" Else wshshell. SendKeys "{TAB}" Uchunguzi 5If col5 = true Kisha wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" Mwingine wshshell. SendKeys "{TAB}" Maliza Selectwscript.lala 5nextwscript. Echo 'Safu hizi za kugeuza kuonyesha asilimia 20 ya wakati, bila kujali kila mmoja. = Colse nyingine ya uwongo = kweli basi col4 = uongo mwingine Col4 = kweliEnd IfIf rnd () <maximum ThenIf col5 = true Then col5 = false Else col5 = kweliEnd Ifnextwscript. Echowscript. Echoend sub '--------------------------- kitufe kidogo (msg)' fanya uchapishaji wa "tumbo" ujumbe, na ufute themwscript.lala 1500length = len (msg) kwa nafasi = 1 kwa urefu wa urefu. TumaKeys katikati (msg, msimamo, 1) wscript.lala 250nextwscript.lala 3000for position = 1 to lengthwshshell. SendKeys "{BACKSPACE}" wscript. lala 75neza nyongeza '---------------------------' anza utekelezaji "kuu" hapa = "amka, Neo …" Kesi 2mystring = "tumbo ina wewe…" Kesi 3mystring = "Fuata sungura mweupe…" Kesi 4mystring = "Kubisha hodi…" Mwisho Chagua 'sasa chapisha kamba sahihi (mystring) ijayo' _ _ _ _ _ _ _ _ _ _ _ wscript.quit () ila kwa C: / temp kama matrix.vbs kuunda faili za popo au echo offcolor 0ititle matrixset / p matrix = | cscript / nologo (Badilisha hii na njia yako kwenye faili ya vbs) exitset / p matrix = Jina ambalo RabbitHole.bat. Kisha endesha !! hii ni jambo la kupendeza, lakini la hali ya juu kufanya na vbsInaiweka tu kwa sababu ni ya kushangaza

Hatua ya 5: Mwisho

Huko unaenda

Skys kikomo kwa nini unaweza kufanya