VBS үйрөткүчү - Негиздери: 5 кадам

2024 Автор: John Day | [email protected]. Акыркы өзгөртүү: 2024-01-30 10:43

Макул, ошондуктан кээ бирөөлөр менден vbsимди кайдан үйрөндүм деп сурашты.. мен w3schools сыяктуу ар кандай веб -сайттардан үйрөндүм, жада калса веб сценарийи үчүн дагы деле жөнөкөй vbsтен колдоно алаарыңды билем. Менден үйрөнөм = DSo Баштайлы… VBS деген эмне? VBScript Microsoftтун скрипт тили. -_- Ошентип, Microsoft болгондуктан, алар IEде гана иштейт. Бирок веб скрипт болуу менен бирге ал ар кандай нерселер үчүн колдонулат … мисалы 2 -сүрөт) (бул экинчи сүрөт) Бул System 32 папкасынан алынган. Vbs программаларды жасоо үчүн да колдонулушу мүмкүн.. бирок бул VB. NET.. бирок ошол эле коддоонун көбүн колдонот. Окутуудан ырахат алыңыз.. жана комментарий берип, баа бериңиз. Жана мага кимдир бирөө вбс жасоо үчүн мени жеңип алган болсо, айтып бериңизчи үйрөткүч.. бирок таппай койдум cammel8ден башка vbs скрипт = P менен чынында жакшы окшойт.. бирок мен дагы эле үйрөткүчтү жасайм.

1 -кадам: Vbs негиздери

Макул, бул жерде негиздер.. сиз билишиңиз керек болгон нерселер … Сиз файлдарды төмөнкүдөй сактайсыз: something.vbsБул пакеттик файлга окшош эмес, анда сизге маалымат берген экраны жок. Бирок, ошол эле учурда, ал dime.g колдонгон варды жасоого окшош эч нерсе жок.. dim iRulenow сизде iRulenow өзгөрмөлүү чалууга ээ болмоксуз, сиз нерселерди өзүңүзгө кошо баштасаңыз болот.. сыяктуу: iRule = msgbox ("салам") бул салам кутучасын билдирүү кутусуна калкып чыгат. (pic 1) Муну менен бирге сиз билдирүү кутусуна ар кандай баскычтарды кошо аласыз.. бул жерде бардык билдирүү кутучалары жөнүндө: БУЛ жерде мен аларга кирүүдөн да уялбай турган көптөгөн үйрөткүчтөр бар. массив: dim iRule (3), бирок ал мындай болуп чыгат: (анткени 0 камтылган) iRule (0) = "var1" iRule (1) = "var2" iRule (2) = "var3" iRule (3) = "var4" Сценарийде varsдун колдонулушу.. Сизде жеңил түрдө колдоно аласыз.. сизде болушу мүмкүн: (pic 2)

dim iRuledim InstructablesiRule = "Instructables" Instructables = msgbox ("hello" & iRule) Анткени & hellip instructables 'дейт, анткени iRule мааниси көрсөтүлүүчү. SubsСиз дагы подпискага ээ боло аласыз: Sub - бул бербеген процедура кайтаруу мааниси. Sub iRule (arg1, arg2, arg3)… Script… End Sub Аргументтер 1, 2, 3 бул Аргументтер. Бул бардык негиздер жөнүндө.. алардан ырахат алыңыз.. же анча негиздер үчүн окууну улантыңыз.

2 -кадам: Vbsтин анча негизи эмес

Мен бул кадамды Функциялар менен баштайын деп жатам … анткени мен аларды дайыма тажатма деп эсептейм.. алар абдан оңой болсо да = vbsтогу функциялар оңой.. ish.. алар чаташып кетиши мүмкүн.. Оңой функциядан баштайлы: (сүрөт 1)

Function times (x, y) times = x * yEnd FunctionDim resultdim var1result = times (10, 10) var1 = msgbox (result) Бул сизге 100 түшүндүрүп берет…. Сиз муну 10дон 10го чейин айттыңыз..результ = убакыт (10, 10) бул функцияга барды timesx азыр 10 жана у азыр 10so: x * y жооп кайтаруу мааниси. For, Next, Do, Loop For For, Next цикли нерселерди кайталоо үчүн колдонулушу мүмкүн, мисалы: үчүн var = 0ден 5ке чейин msgbox (var) nextmsgbox ("Finish") Бул 0, 1, 2, 3, 4, 5 деп эсептелген билдирүү кутусуна калкып чыгат, андан кийин vbs 0де 'Finish' REMEMBER деп айтылат, дээрлик дайыма эсепке алынат! бул код бир буйрукту 6 жолу кайталайт, мисалы: var = 0ден 5ке чейин msgbox ("салам") nextmsgbox ("Finish") 'hello' билдирүүсү 6 жолу чыгат. 7 -жолу Finish деп айтылат, эгер сиз: кадамды… аягына чейин var = 0ден 5ке чейин, мисалы var = 0дон 5ке чейин 5 -кадам сайын 5 секирүүгө мажбур кылат.. бул учурда билдирүү гана эки жолу көргөзүңүз, анткени 5 чек болуп саналат. Ошондой эле сиз кете аласыз.. мисалы -5 кадамы ар бир жолу 5ке чейин кайра санайт. Do, Loopthe do цикл бир бөлүгүн кайра -кайра эктөө үчүн колдонулат. негизинен вирустар үчүн колдонулат = Бирок бирок сиз аларды жардам берүү үчүн колдонсоңуз болот.. эгер сиз кандайдыр бир вариант тандалмайынча билдирүүнү улантууну кааласаңыз. Сиз ар дайым do же цикл бөлүгүнө чейин Тоону кошо аласыз. egdo чейин var = 5, бирок коддо аны varга 1 же андан көп кошушуңуз керек.. же ал циклди улантат. Сиз дагы do дегенди колдоно аласыз: do while var = 10this болсо, буйруктарды гана аткарат 10го барабар! Мунун баары vbsтин анча эмес негиздери үчүн.

3 -кадам: If's and then's

Тезистерди алуу оңой, бирок мен кимдир бирөө эмне кылганын билбесе, аларга баракча керек деп чечтим, бирок чындыгында алар абдан оңой: мис. үйрөтүлүүчү нерселер эң жакшы экенин баарыбыз билгендей кыйын эмес. = P … азыр көп саптуу ifs ands үчүн … (коркунучтуу музыка), бирок коркунучтуу эмес, эгерде if деген сөздүн аягында жөн эле чекит кошуп койсоңуз. мис. жана "чынында эле!" аягы эгер билдирүү аны жапса.

else жана elseif Булар деле кыйын эмес.. башка нерсе бир нерсе үчүн бир вариант керек болгондо гана, калгандары үчүн.. мис. var = 1 thenmsgbox ("var 1") else msgbox ("var 1 эмес ") аягы ifso эгер var жок болсо = 1 ал дайыма" var 1 эмес, башка болсо дагы абдан окшош деп айтат … мис. var = 1 thenmsgbox ("var 1") elseif var = 2 thenmsgbox ("var is 2") else msgbox ("var 1 же 2 эмес") end ifthis муну жасайт, эгер var 1 же 2 болгондо var 1/2 дейт … бирок андай болбосо, анда var деп айтылат 1 же 2 эмес.

4 -кадам: Case

учурлар жөнөкөй жана жашооңузду бир топ жеңилдетет.. мисалы, жөнөкөй учурда:

Dim FavCol FavCol = "red" Case Case FavCol Case "Black" msgbox ("your Fav Color is Black") Case "red" msgbox ("your Fav Color is Red") Case "Yellow" msgbox ("Сиздин Сүйүктүү Түсүңүз Сары ") Case Elsemsgbox (" Эми сиздин баш аламан ") Аяктоо Бул жөнөкөй скрипт тизмеден тандоолорду тандап алат, бул учурда сизге сүйүктүү түсүңүздүн кызыл экенин айтат. Мага бир аз майда -чүйдөсүнө чейин кирип көрүңүз … сиз барыңызды аласыз: Dim var, var = "iRule" var каалаган нерсени өчүрө алат, андан кийин сиз vbsтен тизмеңизди карап чыгууңузду суранасыз … эгер ал таба албаса, анда: Case башкага өтөт. эгер ал сиздин варды тапса, ал аткарылат

5 -кадам: Vars өткөрүү

Эгерде сиз интернеттен карап көрсөңүз, анда көптөгөн адамдар VBS менен VBS партияларын VTS партиясына кантип өткөрүүнү билгиси келет … Мен сизге тапкан эң жакшы жолду көрсөтөм: Бул VBS үйрөткүчү болгондуктан мен Версти биринчи топко кантип өткөрүп берүүнү көрсөтөм… VBS TO BATCHБул vbs:

dim aa = InputBox ("Бир нерсени териңиз:", "Var") dim WshShellset WshShell = Wscript. Createobject ("Wscript.shell") wshshell.run "test.bat" & aБул сизден варды терүүнү талап кылат test.bat чалат, сиз киргизген варды өтөт. vbs: wshshell.run "test.bat" & a & b & var3 ж.б.. аларга партияны баалоону унутпаңыз: echo %1 %2 %3 ect. vbs %var %бул тестке "салам" жөнөтөт. билдирүү кутусунда салам. vbs үчүн бир нече вариант үчүн башка бирөөнү оңой кошуңуз, мисалы, партия: wscript test.vbs %var % %var2 %vbs: dim ArgObj, a, bSet fso = CreateObject ("Scripting. FileSystemObject ") ArgObj = WScript. Arguments орнотуу a = ArgObj (0) b = ArgObj (1) msgb ox (a) msgbox (b) 0 UNEMEMBER 0 countEger булар менен кандайдыр бир көйгөйлөр болсо, pm же комментарий жазыңыз.