Inleiding tot VB Script: een beginnershandleiding: deel 2: werken met bestanden: 13 stappen

2024 Auteur: John Day | [email protected]. Laatst gewijzigd: 2024-01-30 11:20

Welnu, in mijn laatste VBScript-instructie heb ik besproken hoe je een script kunt maken om je internet uit te schakelen om Xbox360 te spelen. Vandaag heb ik een ander probleem. Mijn computer is op willekeurige tijden afgesloten en ik wil elke keer dat de computer opnieuw opstart een bestand loggen. Ik heb het gevoel dat het probleem de videokaart is, maar ik wil het zeker weten. Ik laat de computer altijd aan staan, maar kan hem niet 24/7 in de gaten houden, dus mijn gemakkelijkste oplossing is om elke keer dat het opnieuw wordt opgestart een tijdstempel naar een bestand te schrijven. Omdat het me elke keer een BSOD geeft, zal het moeilijk zijn om te loggen wanneer het wordt afgesloten, dus ik moet het ophalen wanneer het weer wordt ingeschakeld. Dat is het makkelijke gedeelte. Omdat dit slechts tijdelijk is totdat ik weet wat er mis is met de computer, ga ik niet naar het register schrijven of er een service van maken, zodat het bij het opstarten opstart. En om het elke keer opnieuw op te starten als het wordt afgesloten, moet ik het bios bewerken.

Stap 1: Het BIOS bewerken om het opnieuw op te starten bij stroomuitval

Ik weet niet zeker of mijn probleem te maken heeft met het falen van de voeding of met mijn videokaart of wat het is. Maar ik weet wel dat de computer af en toe opnieuw opstart. Dus om ervoor te zorgen dat het opnieuw opstart na een stroomstoring (IE: de voeding wordt bruin), wil ik het bios bewerken. Vanwege het feit dat er zoveel verschillende bios-makers zijn, zou het te moeilijk zijn om alle verschillende manieren op te sommen om dit in alle verschillende bios-schermen te doen, dus ik ga je gewoon de basis geven en je laten uitzoeken de details zelf. Om in uw bios te komen, moet u tijdens het opstarten op een knop drukken. Meestal staat er iets als "druk op Del om setup te openen" of "F2". Verschillende fabrikanten geven u verschillende manieren, maar het is meestal de "F2" of "Del" -toets. Hoe dan ook, let erop en druk op de toets die je zegt te raken. Nu kom je op een scherm dat meestal grijs of blauw is, maar nogmaals, het hangt af van je bios-merk. U zoekt naar een optie voor energie-instellingen. Het zal ofwel in een geheel eigen venster staan, zoals in de AMIBIOS-schermafbeelding (geleend van de hardwaregids van toms) of in sommige gevallen in een geavanceerd bios-functiesvenster. Hoe dan ook, u bent op zoek naar een instelling voor "herstel bij wisselstroom/stroomuitval". Het kan iets anders genoemd worden, maar het zal daar in de buurt komen. Zoek het maar op. Het heeft meestal drie opties (laatste status, aan na stroomuitval, uit na stroomuitval). U wilt het inschakelen na stroomuitval. Zorg ervoor dat u uw instellingen opslaat en de bios verlaat. Wanneer nu uw stroom uitvalt of u uw machine loskoppelt, wordt deze opnieuw opgestart zodra deze weer stroom krijgt. Jaaaaaaa!!!!!!!!!!!!!!!

Stap 2: het script schrijven Deel 1: een plan maken

Het eerste wat we willen doen is een plan maken. Wat willen we precies dat het script doet. A.) Wanneer de stroom uitvalt of de BSOD verschijnt, willen we dat het opnieuw wordt opgestart. (Behandeld in stap 1 Bewerken van de BiosB.) Zodra het opnieuw opstart, willen we de exacte datum en tijd naar een bestand schrijven waarop het opnieuw is opgestart. C.) We willen dat bestand kunnen wijzigen. Als het meer dan eens opnieuw opstart, zouden we het nooit weten. D.) We willen dat het foutcorrectie heeft, zodat het niet verpest en we zorgen ervoor dat we al onze herstarts krijgen zonder iets te missen vanwege slechte codering. E.) We willen het om een bericht weer te geven waarin staat dat het opnieuw is opgestart. F.) We willen dat het het bestand opent waarnaar we hebben geschreven, zodat we een lijst met alle herstarts kunnen zien wanneer we op ok klikken in het pop-upbericht.

Stap 3: Het script schrijven Deel 2: Uw script maken en de variabelen toewijzen

Oké eerst, maak eerst een tekstdocument en hernoem het naar any_name.vbs. Ik heb shutdown_catcher.vbs gebruikt, maar je kunt alles gebruiken. Klik nu met de rechtermuisknop op het vbs-bestand en druk op bewerken. zou moeten kijken om het te krijgen. Oké, nu willen we eerst variabelen maken. Variabelen zijn in feite slechts een plaatshouder, dus we hoeven niet een hele hoop dingen een aantal keren te schrijven. voorbeeld: we hebben een zin die zegt "de snelle bruine vos springt over de luie honden terug". maar het staat 20 keer in onze code. we kunnen de hele zin 20 keer typen of een variabele maken en de zin aan die variabele toewijzen. Dus in dit voorbeeld maken we de variabele strSentence en wijzen dan "de snelle bruine vos springt over de luie honden terug" toe aan die variabele. Nu hoeven we alleen maar strSentence te typen elke keer dat we de zin nodig hebben en het weet te typen "de snelle bruine vos springt over de luie honden terug" hoe doen we dat: als we meerdere variabelen van hetzelfde type hebben, kunnen we ze op dezelfde regel en scheid de variabelen door komma's. Om een variabele te maken, moeten we het zogenaamde dimensioneren van de variabele doen. Om dit te doen typen we Dim voor de variabele, dan plaatsen we een prefix op de variabele zodat we weten wat de variabele vertegenwoordigt. Voorbeelden zijn str voor een stringvariabele obj voor een objectvariabele const voor een constante… De lijst gaat maar door. dit zijn degenen die we in dit script zullen gebruiken, dus ik zal ze een beetje uitleggen. een string is meestal tekst als een zin. Een object is meestal iets fysieks, zoals een bestand of een programma. en een constante is iets dat altijd dezelfde betekenis heeft in het hele script. OPMERKING: ELKE TIJD DAT EEN LIJN EEN ENKELE ' VOORDAT HEEFT, WORDT DE LIJN GENEGEERD DOOR HET SCRIPT. ZE WORDEN OPMERKINGEN GENOEMD EN WORDEN DUS DOOR DE PROGRAMMEUR GEPLAATST. ZE KUNNEN HERINNEREN WAT ZE LATER HEBBEN GEDAAN BIJ HET BEKIJKEN VAN DE CODE. IK ZAL ZE GEBRUIKEN OM OPMERKINGEN TE MAKEN OVER DE CODE, ZODAT JE KUNT ZIEN WAAROM IK DINGEN HEB ZO gedaan. EN ZE ZULLEN BOVEN DE LIJN ZIJN WAAR ZE COMMENTAAR OVER MAKEN. Werkelijk gebruik:'deze regel dwingt je om alle variabelen te definiëren. Zonder dit wordt elke ongedefinieerde variabele behandeld als een objectOption Explicit'nu maken we 5 variabelen voor de mappen en bestanden die we nodig hebben'noem ze hoe je wilt, maar de conventie is preNameDim objFiSyOb, objSysFold, objShell, objFile, objTextFile'nu hebben we nodig om stringvariabelen te maken voor de directory, bestand en bestandsnaamDim strDir, strFile, strFileName'ken nu waarden toe aan de variabelen'de strDir is onze directory die we willen de map in strDir = "C:\Catcher"'de strFile is waar we willen het tekstdocument en hoe het heetstrFile = "\Shutdown_catcher.txt"'de strfile-naam is zo dat we de naam van het bestand hebben voor gebruik in pop upsstrFileName ="Shutdown_catcher.txt"'vervolgens moeten we een constante toewijzen voor toegang tot de bestand hebben we drie opties'we zullen alleen de toevoeging in deze code gebruiken, maar het is leuk om ze allemaal te kennen. Const forReading=1, forWriting = 2, ForAppending = 8'ten slotte moeten we een variabele instellen voor het bestandssysteem object zodat we het later kunnen aanroepen als we het nodig hebbenSet objFiS yOb = CreateObject("Scripting. FileSystemObject")

Stap 4: Uitleg tussendoor

Nu we onze variabelen hebben gedimensioneerd, hoeven we alleen maar die specifieke variabele elke keer weer op te roepen. Dit vermindert niet alleen de hoeveelheid typen die we doen, maar zorgt ook voor minder fouten vanwege spelfouten. Technisch gezien hoeven we nu alleen maar de volgende code te typen en we zijn klaar 'stel het bestand in voor appendingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True)'schrijf de nieuwe regel naar het bestandobjTextFile. WriteLine("Uw computer wordt afgesloten op " & datum & " om " & tijd)'sluit het bestandobjTextFile. Close'maak een pop-upWscript. Echo ("Uw computer Sluit af op " & datum & " om " & tijd)'open het bestand in IESet objShell = CreateObject("WScript. Shell")objShell.run ("Explorer" &" " & strDir & "\shutdown_catcher.txt") Het probleem is dat er geen foutcorrectie is, en elke eenvoudige fout, zoals een bestand dat niet bestaat of een variabele die al is toegewezen, zal het script laten crashen.

Stap 5: Het script schrijven Deel 3: Als dan-verklaringen als foutcorrectie

De eenvoudigste manier om foutcorrectie uit te voeren, is door if/then-statements te gebruiken. Door if/then-statements te nesten, kun je een reeks dingen creëren die moeten gebeuren. Als a en b en c gebeuren, doe dan dit anders doe dat.voorbeeld: we willen zeker weten dat het bestand waarnaar we willen schrijven er is. wil controleren of de map er is en zo niet, maak het dan en controleer dan of het bestand er is zodra we de map hebben gevonden en zo niet, maak het dan de eerste is een voorbeeld van een als dan-instructie, de tweede is een geneste als dan. Hoe we doen het: er zijn vier delen van een if-then-statement als/dan elseend als het in principe zo is als dit waar is, doe dit dan anders doe dat en beëindig het statement een correct gecodeerde if-dan-statement zou zijn: If something = something Dan doen wat je nodig hebt gedaanAnders doe iets andersEnd IfYou kunt elk argument gebruiken, zolang het waar is, zal het het toen-gedeelte volgen en het else-gedeelte negeren, maar als het onwaar is, zal het de toen overslaan en naar anders gaan Dan wanneer we het if-statement beëindigen we plaatsen "end if", maar als we geneste if-statements hebben, moeten we elk if-statement beëindigen. Het zal ze van kind naar ouder beëindigen, dus de eerste "end if" beëindigt de if-instructie in de ouder, waar de tweede de originele (ouder) if-instructie beëindigt. Om een pop-up te maken, typen we gewoon Wscript. Echo ("wat dan ook we willen in het bericht zeggen ") om er een variabelewaarde aan toe te voegen, plaatsen we deze buiten of tussen dubbele aanhalingstekens met behulp van het ampersand (&) teken als scheidingsteken zodat het script weet dat het een variabele is en geen tekst.:Wscript. Echo ("Blah blah blah " & strDir & " blah blah blah "& strFilename & " blah blah blah.") De output zou een pop-up zijn met de tekst Blah blah blah C:\Catcher blah blah blah shutdown_catcher.txt blah blah blah. Actual Usage:'if the folder C;\exist If objFiSyOb. FolderExists(strDir) Then'get folder Set objSysFold = objFiSyOb. GetFolder(strDir)'otherwiseElse'creëer de map c;\catcher Set objSysFold = obj CreateFolder(strDir)'en controleer of het bestand en de map bestaan If objFiSyOb. FileExists(strDir & strFile) Then'if het krijgt de map c:\catcher Set ob jSysFold = objFiSyOb. GetFolder(strDir)'otherwiseElse'create text document shutdown_catcher.txt Stel objFile = objFiSyOb. CreateTextFile(strDir & strFile)'en pop-up een bericht om te zeggen dat je ze beide hebt gemaakt Wscript. Echo ("We hebben een map gemaakt genaamd " & strDir & " en een bestand met de naam "& strFilename & " en plaatste het in de " & strDir & strFile & " directory.")'end genest if statementEnd If'end original if statementEnd If'now in de eerste if-statement we hebben de map al gecontroleerd en gevonden, dus nu controleren we op fileIf objFiSyOb. FileExists(strDir & strFile) Dan'if gevonden krijg map Set objSysFold = objFiSyOb. GetFolder(strDir)'anders anders'maak de tekst doc Set objFile = objFiSyOb. CreateTextFile(strDir & strFile)'maak een pop-up waarin staat dat we het tekstdocument Wscript. Echo hebben gemaakt ("We hebben een bestand gemaakt met de naam " & strFileName & " in de " & strDir & "bestandsmap.")End If

Stap 6: uitleg tussendoor

Als je goed kijkt naar de code uit de vorige stap, zie je zowel een geneste als niet-geneste if then-instructie. De eerste is een geneste instructie. Het zoekt naar de map en het bestand en als ze niet worden gevonden, worden beide gemaakt. De tweede zoekt alleen naar een bestand en als hij het niet vindt, wordt alleen het bestand gemaakt. Je zou kunnen zeggen waarom beide. Welnu, wat gebeurt er als het bestand wordt verwijderd, maar de map niet. De eerste if-instructie zou het maken van het bestand overslaan omdat het de map vond en nooit het else-gedeelte van de instructie zou activeren. Dus wanneer u naar het bestand ging schrijven, zou er een fout optreden omdat het bestand zou ontbreken. Dus door de tweede daar te hebben, lost het dit probleem op. Technisch gezien zou je de geneste verklaring eruit kunnen halen, omdat deze bijna hetzelfde is als de tweede if-then-verklaring, maar dan zou je maar één pop-up hebben en het zou niet zo persoonlijk zijn. Bovendien gaf het me de kans om je genest te laten zien in tegenstelling tot un - geneste if-statements.

Stap 7: Meer foutcorrectie

Nu we het grootste deel van de foutcorrectie hebben voltooid, willen we naar het bestand schrijven en de pop-ups weergeven. Het probleem is dat we toestemmingsfouten krijgen als we de referentie van het vorige object dat in de variabele is opgeslagen niet vrijgeven. Dus we willen een klein stukje code invoegen dat zegt: stel de variabelen in op niets. ziet er als volgt uit: set objFile = nietsset objSysFold = niets Dus voor degenen onder u die thuis volgen, zou uw code op dit punt moeten zijn (ik nam de opmerking out):Option ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C:\Catcher"strFile = "\Shutdown_catcher.txt"strFileName ="xt=1,Concatcher forW.t. ForAppending = 8Set objFiSyOb = CreateObject("Scripting. FileSystemObject")If objFiSyOb. FolderExists(strDir) Stel vervolgens objSysFold in = objFiSyOb. GetFolder(strDir)Else Stel objSysFoldy in. Set objSysFold = objFiSyOb. GetFolder(strDir)Else Set objFile = objFiSyOb. CreateTextFile(strDir & strFile) Wscript. Echo ("We hebben een map gemaakt met de naam " & strDir & " en een bestand met de naam "& strFilename & " en geplaatst in de " & strDir & strFile & " directory.")End I fEnd IfIf objFiSyOb. FileExists(strDir & strFile) Stel vervolgens objSysFold = objFiSyOb. GetFolder(strDir)Else in Stel objFile = objFiSyOb. CreateTextFile(strDir & strFile) Wscript. Echo in met de naam "&str " & strDir & "bestandsmap.")End Ifset objFile = nietsset objSysFold = niets

Stap 8: Het script schrijven Deel 4: Attributen instellen

Nu moeten we de attributen voor het bestand instellen, zodat we het kunnen wijzigen. Voorheen hebben we drie constante variabelen ingesteld: forReading=1forWriting=2 forAppending=8als u het instelt op forReading, kunt u het lezen maar niet schrijven. Als u het instelt op forWriting, overschrijft u het bestaande bestand elke keer dat u het programma uitvoert. Als u het instelt op forAppending, voegt u elke keer dat het script wordt uitgevoerd aan het document een nieuwe regel toe. Aangezien we een logboek willen van elke keer dat het opnieuw wordt opgestart, willen we dat het wordt toegevoegd en niet overschreven, dus gebruiken we forAppending. Hoe we het doen:u moet het object een naam geven waaraan u attributen wilt instellen. Omdat we het meeste werk in de vorige stappen al hebben gedaan, hoeven we op dit punt alleen nog variabelen op te roepen. Stel het dan gewoon in op true. Actual Usage:'object to set = filesystemobject.action(directory+name of file, attribuut, true of false)Set objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True)

Stap 9: Het script schrijven Deel 5: Schrijven naar bestand

Schrijven naar een bestand lijkt veel op het schrijven van een pop-up. Je plaatst gewoon:objTextFile. WriteLine("What you want to say" & Variable to pull in to write line) Het enige verschil is het eerste deel. In een pop-up zet je:Wscript.echo in een schrijfregel die je plaatst:objTextFile. WriteLineEn in een schrijfregel moet u de schrijfregel sluiten zodat deze weet dat hij moet stoppen met schrijven en daarvoor gebruikt u:objTextFile. CloseActual Usage:objTextFile. WriteLine("Uw computer wordt afgesloten op " & datum & " om " & tijd)objTextFile.close'voeg nu een pop-up toe om te zeggen dat je naar het bestand hebt geschreven, zodat de persoon weet dat het is gebeurd'en ze moeten het sluiten om het bestand te openen en Wscript. Echo te bekijken ("Je computer wordt afgesloten op " & datum & " bij " & tijd)

Stap 10: het script schrijven Deel 5: het bestand openen om te bekijken

Het script stopt op dit punt totdat iemand op de pop-up klikt. Zodra je voorbij de pop-up bent, kun je een regel erin zetten die het bestand opent. Het gebruik van wat foutcorrectie helpt om het programma goed te laten werken. Wanneer u een fout maakt in vbscript, voegt het een waarde toe aan de "err.number" variabele die een vooraf gedefinieerde variabele is in vbscript. U hoeft het niet te definiëren en kunt het net als elke andere variabele gebruiken, zolang u de regels ervan niet overtreedt. De waarde die is toegewezen aan de variabele err.number is de code voor de opgetreden fout. Nu kunt u ofwel controleren op elke foutcode die bekend is in de vbscript-database en ervoor zorgen dat deze niet is opgetreden. Of gemakkelijker, is gewoon controleren of de variabele err.number leeg is. als het leeg is, zijn er geen fouten opgetreden. Om dat te doen, controleren we gewoon of de variabele gelijk is aan vbEmpty. Dus in ons script willen we een ander if then-statement gebruiken. En controleer of er een fout is opgetreden en of het bestand niet is geopend om te bekijken, maar als dat het geval is, verschijnt er een bericht met het foutnummer erin zodat we kunnen debuggen. Als we dan allemaal klaar zijn met ons script, zullen we typ Wscript. Quit. Dit vertelt het script om zichzelf te beëindigen. Dit helpt geheugenlekken en ongewenste processen te voorkomen. Hoe het wordt gebruikt: als err.getal gelijk is aan vbEmpty, maak dan een shell en voer het programma uit vanuit de shell, anders verschijnt er een bericht dat er een fout is opgetreden als. Werkelijk gebruik: 'controleer op errorsIf err.number = vbEmpty then'if no create a shell Set objShell = CreateObject("WScript. Shell")'open vervolgens het bestand vanuit die shell met verkenner. het wordt daadwerkelijk geopend in IE, hoewel objShell.run ("Explorer" &" " & strDir & "\shutdown_catcher.txt")'anders een bericht verschijnt met het foutnummerElse WScript.echo "VBScript-fout: " & err.numberEnd If 'eind scriptWscript.quit'

Stap 11: het script laten draaien bij het opstarten

Er is een bestandsmap in het startmenu genaamd Opstarten. Alles wat in deze map wordt geplaatst, wordt opgestart zodra de computer wordt opgestart. Door het scriptbestand in de opstartmap te plaatsen, wordt het uitgevoerd elke keer dat de computer opnieuw wordt opgestart, al dan niet opzettelijk. Aangezien ik dit alleen als een diagnostisch hulpmiddel gebruik, hoeft er geen service van te worden gemaakt om te starten, en ik hoef het niet in het register te plaatsen om het te starten, dus dit komt goed. Zodra ik de computer heb gerepareerd, kan ik het bestand uit de opstartmap verwijderen en is er geen andere opschoning vereist.

Stap 12: Het programma uitvoeren

Wanneer u het vbscript-bestand uitvoert, zal het nu A.) Controleer of de map C:\Catcher bestaat en zo niet, maak het aan. B:) Controleer of het bestand Shutdown_catcher.txt bestaat en zo niet, maak het aan. C:) Als het een map of een bestand of beide heeft gemaakt, verschijnt er een bericht waarin staat dat het deze wel heeft gemaakt (Opmerking: het zou dit alleen moeten doen bij de eerste keer uitvoeren, daarna zou het er al moeten zijn tenzij het wordt verwijderd, dus u zou dat bericht maar één keer moeten zien. Het kan een goed idee zijn om dit script een keer uit te voeren onder een gecontroleerde herstart, zodat u deze pop-ups kunt omzeilen of u kunt niets naar het bestand schrijven omdat het de door het bestand gemaakte pop-ups niet zal omzeilen.) D:) Schrijf een regel in de tekstdocument Shutdown_Catcher.txt waarin staat dat de computer is afgesloten op die en die datum op die en die tijd. E:) Pop-up een bericht dat er een reboot wasF:) Open het bestand om te bekijken. Als u kijkt in de volgende stap je zult de code zien zoals geschreven. Nu hoef ik alleen maar achterover te leunen en te wachten. Elke keer dat de computer opnieuw opstart, heb ik er een record van. Dan kan ik het verslag bekijken en zien of er enige consistentie in is. Een voorbeeld kan zijn dat het elk half uur opnieuw opstart of elke keer dat er een verhoging of 45 op de klok staat opnieuw wordt opgestart. Dit is zeker niet de enige manier waarop ik de computer controleer, zodat je het weet. Ik heb ook een benchmarkprogramma lopen om de temps te controleren, zodat ik weet hoe heet het is wanneer het wordt uitgeschakeld, de spanning zodat ik weet of de stroomtoevoer uitvalt, en een paar andere nuttige dingen. Nou, ik hoop dat dit nuttig was. Ik weet dat ik ervan geniet, dus misschien anderen ook. Als je vragen hebt, stel ze gerust. Ik zal ze misschien niet onmiddellijk bereiken, maar binnen een klein beetje en ik zal u antwoorden. Hangt ervan af hoe mijn dag/week het doet.

Stap 13: De code

Dit is de code zoals geschreven zonder alle hints en opmerkingen_Option ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C:\Catcher"strFile = "\Shutdown_catcher.txt"strhutlet.txt"strhutlet.txt Const forReading=1, forWriting = 2, ForAppending = 8Set objFiSyOb = CreateObject("Scripting. FileSystemObject")If objFiSyOb. FolderExists(strDir) Stel vervolgens objSysFold in = objFiSyOb. GetFolder(strDir)Else Set objSySystr. objFiSyOb. FileExists(strDir & strFile) Stel vervolgens objSysFold = objFiSyOb. GetFolder(strDir)Else in Stel objFile = objFiSyOb. CreateTextFile(strDir & strFile) Wscript. Echo ("We hebben een map gemaakt met de naam & " en strDir "& strFilename & " en plaatste het in de map " & strDir & strFile & ".")End IfEnd IfIf objFiSyOb. FileExists(strDir & strFile) Stel vervolgens objSysFold = objFiSyOb. GetFolder(strDir)Else in Stel objSyOb. strDir & strFile) Wscript. Echo ("We hebben heeft een bestand gemaakt met de naam " & strFileName & " in de " & strDir & "bestandsmap.")End Ifset objFile = nietsset objSysFold = nietsSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True)objTextFile. YouWriteLine(" Sluit af op " & datum & " om " & tijd) objTextFile. CloseWscript. Echo ("Uw computer wordt afgesloten op " & datum & " om " & tijd) Als err.number = vbEmpty stel dan objShell = CreateObject ("WScript. Shell") objShell.run ("Explorer" &" " & strDir & "\shutdown_catcher.txt")Anders WScript.echo "VBScript-fout: " & err.numberEnd IfWScript. Quit