Intro kwa VB Hati: Mwongozo wa Kompyuta: Hatua 11

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

. niko hapo.))))) Ninacheza Xbox nyingi moja kwa moja na kila wakati lazima nilemaza mtandao kwenye kompyuta yangu kwa sababu inabeba kipimo data. Hasa kwa sababu ninapakua au kupakia vitu kila wakati. Shida sio kuizima lakini inawasha tena ambayo nimesahau, kuifanya kufikia mahali ninapoweka wakati wote wa kupakia / kupakua. Kwa hivyo niliamua kuunda mpango wa kunifanyia. Ningeenda kuiandika kwenye Vb.net lakini hivi majuzi ilibidi nuke na kuweka sawa mfumo wangu wa kufanya kazi kwenye kompyuta yangu kwa sababu ya dhoruba mbaya kukaranga gari langu ngumu, na sijarudisha tena VB.net kwa hivyo nimeona tu hii ingekuwa nipe sababu ya kucheza na vbscript. Niliunda pia picha kwa rangi kuonyesha nyuma na hivyo nilijua inaendesha.

Hatua ya 1: Tambua nini Unataka Kufanya

Jambo la kwanza mimi hufanya kila wakati ni kupanga mpango. Je! Nataka mpango ufanye nini? A) Nataka kuweza kufungua hati na itazima kiunganisho kiatomati. B) Nataka ionyeshe onyesho kubwa kwa nyuma kwa hivyo hakuna makosa kwamba mtandao umezimwa, kwa njia hii sisahau kuiwasha tena C) Nataka inipe fursa ya kuiwasha kurudi na kisha subiri majibu. D) Ninataka ihakikishe kuwa naiwasha tena ili nisisahau.) Halafu mara nitakaposema ndio kuiwasha tena, hati inaiwasha tena na kisha hufunga historia. F) Toka kila kitu.

Hatua ya 2: Vitu ninavyotumia lakini sihitajiki kweli

Wote unahitaji kweli ni mhariri wa maandishi kama notepad. Ninatumia Notepad ++ ninapofanya maandishi ya VB kwa sababu inachukua kama vb.net inavyofanya na rangi na inajua lugha. Inasaidia kuzuia makosa. Pia inaorodhesha mistari ili uweze kugundua shida ni nini wakati unapata nambari ya kosa.

Hatua ya 3: Anza Programu

Vema kitu cha kwanza unachotaka kufanya ni kuunda faili ya maandishi na kuihifadhi kwa chochote unachotaka kiipewe jina na kiendelezi cha faili..vbs kawaida hufanya hivi kwenye eneo-kazi kwa sababu mimi hufungua karibu mara zillion wakati ninafanya kazi. Sasa bonyeza tu faili na ubonyeze kuhariri au kuhariri na notepad ++

Hatua ya 4: Hatua ya 1: Kufungua Dirisha la Kuamuru kwa Amri

Kwa hivyo niliamua kufanya kazi nyingi nitatumia tu programu ambazo tayari zimehifadhiwa kwenye kompyuta kufanya kile ninachotaka hivyo. Coding chini na hakuna upakuaji … Woohoo. Easyest ni amri ya haraka.so tunataka kufungua dirisha la haraka la amri kufanya hivyo tunataka kujenga kitu kufanya hivyo tuandike: weka shellobj = CreateObject ("WScript. Shell") Inafanya nini Weka mfano wa shellobj kuwa sawa na kuunda kitu w shell shell. Kwa njia hii tunachohitaji kufanya ni aina ya shellobj badala ya CreateObject ("WScript. Shell") kila wakati tunahitaji amri mpya. Sasa kwa kuwa tumeunda kitu tunaamuru kitu kufungua amri ya haraka windows. Kufanya hivyo tunachapa: shellobj.run "cmd" Inachofanya: Hii itakuwa sawa na kuandika CMD kwenye sanduku la kukimbia kwenye menyu ya kuanza. Laiti tusingeweka shellobject inayobadilika tutalazimika kuandika: CreateObject ("WScript. Shell"). Kukimbia "cmd"… angalia jinsi ilivyo rahisi sasa. Chumba kidogo cha makosaBofya faili… kisha Hifadhi… kisha nenda kwenye eneo-kazi na bonyeza mara mbili faili uliyotengeneza inapaswa kuendeshwa Ikiwa kila kitu kitaenda sawa unapaswa kupata kidokezo cha amri ya windows kujitokeza…..yaaaaaa !!! ikiwa sio kuangalia usimbuaji wako, hadi sasa unapaswa kuwa na: set shellobj = CreateObject ("WScript. Shell") hii: 'hii ni kufungua mwongozo wa amri Wakati ninapoandika mara nyingi nitafanya hivyo kwa hivyo nakumbuka kile nilichofanya baadaye nilipokuwa nikikiangalia. Hati hupuuza tu mstari huo na kuendelea. Ukiwaona unaweza kufanya vivyo hivyo.

Hatua ya 5: Hatua ya 2: Kuweka Vipima muda

Ok sasa kwa kuwa tuna dirisha jipya la spiffy tunahitaji kulijaza kwa amri ili tuweze kupata kile tunachotaka. Tatizo ni kwamba kompyuta zingine huchukua muda mrefu kuliko zingine kufungua windows kwa hivyo tunataka script iangoje kidogo kidogo kuanza. ikiwa itaanza mapema sana kompyuta itajaza tupu kabla ya kufungua dirisha na utapata amri ya sehemu au hakuna kabisa. Kwa hivyo tunahitaji kuanzisha kipima muda. Ili kufanya hivyo tunaandika: wscript.sleep 200Inachofanya: Inamwambia hati isubiri muda wa X kabla ya kutekeleza amri inayofuata. 1000 ni sawa na sekunde moja kwa hivyo yangu inasubiri tano ya sekunde. Unaweza kupata kompyuta yako inahitaji kusubiri muda zaidi au chini. Ikiwa unatazama kompyuta na haiandiki amri kwa usahihi, badilisha nambari kuwa nambari kubwa kama 2000 itakuwa sekunde 2 na labda wakati mwingi. Hifadhi faili sasa nambari yako wakati huu inapaswa kuwa: weka shellobj = CreateObject ("WScript. Shell")

Hatua ya 6: Hatua ya 3: Tengeneza Picha

Nilifungua tu rangi na kuandika "Mtandao Umekataliwa" ndani yake na kuifanya 800x600 na kuihifadhi kama id.bmp na kuihifadhi kwenye saraka yangu ya mizizi, kwa upande wangu k: / lakini yako labda itakuwa c:

Hatua ya 7: Hatua ya 4: Kutuma Amri, Kufungua Picha

Ok sasa kwa kuwa tuna dirisha la amri linalosubiri amri tunachotakiwa kufanya ni kuchapa amri kwenye dirisha kwa kutumia amri ya sentkeys. Tunapotumia amri ya kutuma ni kama kuandika lakini itaandika chochote tunachotaka kiandike. Chochote tunachoweza kuchapa tunaweza kutuma ikiwa ni pamoja na vitufe vya kuingiza vinavyohitajika kutekeleza programu.sasa kwamba tunajua jinsi ya kutuma funguo inakuwezesha kufungua picha yetu tuliyotengeneza tu, kisha weka neno lingine la timer ili ipe picha wakati wa kupakia. Ili kufanya hivyo tunachapa: Inapaswa kufungua picha yako kwa mtazamaji chaguo-msingi wa bmp… kwa upande wangu ni picha ya windows na mtazamaji wa faksi lakini watu wengi hufunga baada ya programu za soko ambazo hufanya hivyo pia ili ni nani anayejua nini yako itafungua. Sasa weka faili yako na endesha. Unapaswa kupata kidokezo cha amri na picha ya kujitokeza. hadi sasa ni nzuri sana !!! nambari yako hadi sasa inapaswa kuwa: weka shellobj = CreateObject ("WScript. Shell") lala 200

Hatua ya 8: Hatua ya 5: Kutuma Amri, Zima Mtandao

Kwa wakati huu ikiwa haujafanya hivyo bado, pakua faili ya pdf mwishoni ili ukisonga upakue Upakuaji unaoweza kufundishwa juu ya jinsi ya kuurekebisha. Sasa hapa ndipo furaha inapoanza. Sawa hivyo tutatumia ipconfig kutoa anwani yetu ya IP. Bila anwani ya IP hatuwezi kupata trafiki yoyote ya mtandao kwa sababu router haijui inapeleka kwa kompyuta. Ili kufanya hivyo tunaandika: {enter} inaiambia kompyuta kwamba bonyeza kitufe cha kuingia. hii itakuwa kama kuandika ipconfig / kutolewa kwenye dirisha la kukimbia na kupiga kuingia. Kawaida baada ya kufanya hivi, ikiwa utaendesha ipconfig itakuambia anwani yako ya IP ni 0.0.0.0 Hii ndio tunataka. Bila anwani ya IP router haijui tuko hapa na hakuna mipango inayoweza "kupiga simu" kwa kusema. Sasa kwa kuwa tumefanikiwa kumaliza kuzima IP tunataka kufunga dirisha. Sasa tunaweza kuandika laini nyingine inayosema: shellobj.sendkeys "toka {ingiza" {enter} "Sasa ihifadhi lakini usiiendeshe kwa sababu utazima muunganisho wako wa mtandao. Ikiwa utaiendesha, na mtandao wako ukizima, badilisha ubadilishaji kutoka ipconfig / kutolewa hadi ipconfig / upya na uiendeshe tena na inapaswa kuiwasha tena. Na ikiwa vitu vyote vimeshindwa kuwasha tena na unapaswa kuwa sawa. Nambari yako hadi sasa inapaswa kuwa: weka shellobj = CreateObject ("WScript. Shell") ingiza} "wscript.lala 200shellobj.sendkeys" ipconfig / release {enter} exit {enter}"

Hatua ya 9: Hatua ya 6: Kuunda Sanduku la Ujumbe na Kusubiri Jibu

Sawa, kwa kuwa sasa tumefanikiwa kufunga mtandao na kufunga dirisha la haraka la amri, tunataka sanduku la ujumbe kujitokeza kuuliza ikiwa tunataka kuwasha mtandao tena. Lakini hapa ndipo inakuwa ngumu, tunataka isubiri kwa ndio lakini ikiwa tunabofya hapana hatutaki iende zake kwa hivyo tutatumia taarifa ya muda kufanya hivi. Kwanza tunahitaji kupima kutofautisha kwa sanduku la messge ili tuweze kuwapa vigezo vya nambari. Najua inasikika ikiwa ya kutatanisha lakini sio kweli. tayari tumeifanya mara moja na laini: / hapana "sanduku la ujumbe linajitokeza kwenye skrini yako ukibonyeza vifungo inapeana thamani kwa kila kitufe, katika kesi hii" ndiyo "ni 1 na" hapana "ni 2. Tunataka ubadilishaji uanze na" hapana "Kwa hivyo tunaipa nambari 2 kwa chaguo-msingi, kwa njia hii husimama hadi kitufe kinabofya Ili kufanya hivyo tunachapa: myvar = 2Inachofanya: sasa MyVar ni sawa na 2, kwa njia hii katika mstari unaofuata itasimama na kusubiri pembejeo. Sasa tunataka tu kukaa hapo na kungojea hadi tuwe tayari kugeuza mtandao tena. Kufanya hivi tunaandika: = 2 basi endelea kufungua sanduku la ujumbe hadi tupate thamani nyingine yoyote kuliko 2, ambayo katika kesi hii inaweza kuwa 1 tu Ifuatayo tunataka kutengeneza sanduku la ujumbe litokee na vifungo vya ndiyo / hapana. hii tunachapa: MyVar = MsgBox ("Washa muunganisho wa mtandao", 65, "Washa Uunganisho wa Mtandao") Inachofanya: Sasa ubadilishaji wa MyVar utapewa thamani yoyote inayopewa kitufe ambacho kimebofyewa kwenye sanduku la ujumbe. sehemu ya kwanza katika nukuu ni kile kisanduku cha ujumbe kitasema kweli. 65 inachagua kama sanduku la ujumbe wa Ndio / Hapana. na sehemu ya mwisho katika nukuu ni lable ya sanduku la ujumbe.kuangalia kuona ni thamani gani inakupa unapobofya ndiyo au hapana unaweza kuongeza kwenye laini inayosema msgbox (myVar) na itachapisha thamani yoyote iliyopewa myvar katika sanduku la ujumbe.sasa kuwa tuna sanduku la ujumbe tunahitaji kufunga taarifa ya wakati. Kila kitu ambacho kiko kati ya wazi na kufungwa kwa taarifa wakati kitatekelezwa kila unapobofya hapana, kwa sababu ukibonyeza hapana bado ni thamani ya 2 na kurudia sehemu ya kwanza. Kumaliza aina ya taarifa ya wakati: wendNi nini hufanya: Mara tu ukimaliza taarifa ya muda itafanya kitanzi hadi malumbano hayajafikiwa tena. Kwa hivyo ukiendelea kupiga hapana itazunguka lakini mara tu utakapopiga ndio, itaachana na kitanzi na kuendelea na hati. Hifadhi faili lakini subiri kuiendesha hadi hatua inayofuata. Nambari yako hadi sasa inapaswa kuwa: weka shellobj = CreateObject ("WScript. Shell") ingiza} "wscript.s 200

Hatua ya 10: Hatua ya 7: Kuwasha Mtandao tena

Sasa kwa kuwa mtu mwishowe alibofya ndio na imepita taarifa ya wakati, tunahitaji kwenda kwenye wavuti. Mara nyingi mimi huibuka uthibitisho kwa hivyo mtumiaji wa mwisho anajua kinachoendelea lakini ni hiari tu. Kuibua aina ya uthibitisho: msgbox ("Sasa Tutawasha Uunganisho wa Mtandao tena !!!") Inachofanya: inatuma sanduku la ujumbe ambalo linasema Sasa tutawasha Uunganisho wa Mtandao tena !!! na inakupa kitufe cha sawa kubofya. Sasa tunachohitajika kufanya ni kuwasha mtandao tena na kufunga kila kitu nje. kugeuza mtandao tena tunafungua kidokezo cha amri weka kipima muda kisha utumie ipcionfig tena. kufanya hivyo aina: Mara tu unaposasisha anwani yako ya IP sasa unaweza kupata muunganisho wa mtandao tena. Sasa tunachohitajika kufanya ni kusafisha windows zilizo wazi. Tena tunaweza kutumia amri ya watumaji lakini nitaongeza tu laini ya mwisho kushikilia usafishaji pia. Katika mfano huu nitatumia programu ya ujasusi kuua programu inayoonyesha picha. Katika kesi hii ni picha ya windows na mtazamaji wa faksi na inaonyesha kama rundll32.exe katika kichupo cha michakato cha msimamizi wa kazi kwa hivyo ndio tunayohitaji kuua. Ikiwa picha yako inafungua kwa kutumia programu nyingine, kama irfanview, au acdsee, pata jina linalopita kwenye kichupo cha michakato na urejeshe rundll32.exe pamoja na jina utakalopata. Amri hiyo itakuwa: taskkill / F / IM rundll32.exe hufanya: kazi ya kazi ni jina la programu swichi ya / F inaiambia ilazimishe kuua na swichi ya / IM inaiambia jina la picha Kwa hivyo sasa tunaongezea hiyo kwa laini ya mwisho, ongeza kuingia ili kutekeleza amri na kisha amri ya kutoka na ingiza nyingine na inaonekana kama hii: shellobj.sendkeys "ipconfig / upya {enter} taskkill / F / IM rundll32.exe {enter} exit {enter}" Hifadhi faili yako.

Hatua ya 11: Bidhaa iliyokamilishwa

Ikiwa kila kitu kilienda sawa bidhaa yako iliyomalizika inapaswa kuangalia kitu kama hiki: weka shellobj = CreateObject ("WScript. Shell") 200shellobj.sendkeys "ipconfig / release {enter} exit {enter}" Dim MyVarmyvar = 2wakati myvar = 2MyVar = MsgBox ("Washa muunganisho wa mtandao", 65, "Washa Uunganisho wa Mtandaoni") wendmsgbox ("Sasa Tutageuza Mtandao Uunganisho tena kwenye !!! ") umefanya unaweza kuendesha programu. Ni nini kinapaswa kutokea: 1.) Unapaswa kupata kidirisha cha CMD kujitokeza kwa muda mfupi sana kisha funga2.) Wavuti yako haipaswi kufanya kazi tena. lakini hutaona hii3.) Picha yako inapaswa kufunguliwa. 4.) Unapaswa kupata pop kukuuliza ikiwa unataka kuwasha mtandao tena. 5.) Haijalishi unabonyeza mara ngapi hakuna sanduku la ujumbe linapaswa kuangaliwa. wewe lakini unajitokeza tena ukiuliza ikiwa unataka kuwasha mtandao tena. 6. Mara tu unapobofya ndio sanduku la ujumbe linapaswa kutoweka na dirisha la CMD linapaswa kuonyeshwa tena. inapaswa kufungwa. hapo unayo. VBscript rahisi sana kuwasha na kuzima mtandao wako. Natumahi umeipenda. Kwa kweli nilitengeneza hati nyingine inayofanana kabisa na hii ambayo inazima adapta za mtandao kutumia programu inayoitwa DevCon, ambayo ni kama meneja wa kifaa cha laini ya amri. Inafanya kazi vizuri kwa. Hati inafanana na hii isipokuwa mahali ambapo ina amri ya ipconfig ambayo ina amri kwa DevCon.