Första försöket att sluta snusa

[Martinan]

70 timmar, tack för stödet. Jag mår ganska bra just nu men kommer nog ha grava sömnrubbningar inatt trots att jag bara sov några timmar igår natt. Och var totalt okoncentrerad på jobbet. Men den här nervösa, ofokuserade energin som bara vibrerar i mig (jag är normalt en rätt slö människa) är rätt användbar. Jag tvättar och städar och tar kontakt med folk. Och det är ju bra.

[Martinan]

82 timmar och 46 minuter.

Ungefär lika med 3 dagar och 10 timmar

Sov jättebra inatt. Jag tror dessutom att den värsta abstinensen börjat ge med sig, jag känner mig inte lika stissig, åtminstone inte nu på morgonen.

Något jag tror kan hjälpa med koncentrationen är kamomillte och annat sånt med neråttjackeffekt. Tyckte mig märka det igårkväll när jag testade. Men kan ju vara inbillning, glömde tyvärr att ta med mig till jobbet, men kanske går och köper på lunchen.

Här är en uppdatering av scriptet för att göra det litet läsligare:

dim lastSnus, minutRest, timRest

lastSnus = ”2012-02-18 22:00”

minutRest=cint(datediff(”n”,lastSnus,now)) mod 60

timRest=cint(datediff(”h”,lastSnus,now)) mod 24

msgbox(datediff(”h”,lastSnus,now) & ” timmar och ”_

& minutRest & ” minuter.” & VBCRLF & VBCRLF & _

”Ungefär lika med ” & datediff(”d”,lastSnus,now)-1 & _

” dagar och ” & timRest & ” timmar.”)

(underscore används vid varje radbrytning. Så om man tar bort radbrytningen måste man ta bort underscore)

[igra]

Laggner! Jag skrattar ihjäl mig! ”… om ett teveprogram suger stenhårt så byter jag kanal/stänger av istället för att byta snus.” Exakt så var det!

Martinan. Jag känner igen koncentrationsproblematiken, men känner mig idag mer fokuserad och pigg än någonsin. Tågpendlar en timme åt varje håll och brukade tidigare alltid slockna på eftermiddagen. Senaste veckan har jag inte märkt av någon större trötthet. Har t o m börjat läsa för att få tiden att gå!

[Ragatan]

Heja! Kul att ni räknar timmar! Fattar nada av ditt script (är själv ingen hitechdatasnille , i vilket program ska man öppna det?

[Martinan]

Funkar bara på pc tror jag. Man använder programmet ”anteckningar” för att skapa en textfil. I textfilen kopierar du in scriptet. Spara, stäng.

Sedan högerklickar man på sin textfil och väljer ”egenskaper”. Då dyker en ruta upp. Ändra filändelsen från ”.txt” till ”.vbs” Ta dig förbi varningen som brukar dyka upp och tryck ok, ja, allagånger, alltid, litar på mig själv, nicka och le eller vad du nu behöver göra så att alla rutor är stängda och din före detta textfil ligger på skrivbordet (eller var du la den). Sen dubbelklickar du på din före detta textfil och scriptet körs.

Min textfil hette till exempel snuscalc och eftersom det är en textfil så lägger windows till ”.txt” på slutet. Under egenskaper bytte jag alltså namnet på filen från snuscalc.txt till snuscalc.vbs

Det här är egentligen väldigt enkelt, bara svårt att förklara det.

[Ragatan]

Funkar inte men strunt i de. Jag kan inte ändra från txt till nåt annat. Helt omöjligt! jag kan nog räkna dagarna manuellt 😉

[Martinan]

105 timmar och 38 minuter.

Ungefär lika med 4 dagar och 9 timmar.

Abstinensen med tillhörande symptom har blivit svagare. Jag sover normalt. Har inte haft några riktigt allvarliga symptom förutom två nätter när sömnen var helt galen och jag fick näsblod av sömnbristen.

Av någon anledning har frestelsen att ta en snus varit starkare under det senaste dygnet. Mysko, kanske för att när abstinensen inte är lika otäck så känns nikotinet inte lika påtagligt motbjudande? Hursomhelst, jag har mest slutat av ekonomiska och ideologiska skäl så jag kommer alltid ha tillgång till en stark motivation att inte börja igen. Jag tror inte att jag kommer trilla dit. Lycka till alla kämpar! Mig med, det har på många sätt varit överraskande att sluta snusa och kanske överraskningarna inte är slut ännu?

[Martinan]

130 timmar och 27 minuter.

Ungefär lika med 5 dagar och 10 timmar.

Snussuget puttrar på men känns som jag är hemma och att det krävs att jag klantar mig rejält för att börja snusa igen? Jag bär som alltid med mig min snusdosa med mina sista 26 snusar i. Men jag tycker helt enkelt inte att det är värt det att ta en snus igen, att sluta snusa är svårt och inget jag vill utsätta mig för igen.

Uppdaterade scriptsnutten till att använda InputBox istället för msgbox, är liksom enda sättet att få kopierbar text i vanligt vbscript. Nu räcker det med att köra det och sedan trycka ctrl+c så har man tidsrapporten högst upp färdig att klistra in:

dim lastSnus, minutRest, timRest,text,temp

lastSnus = ”2012-02-18 22:00”

minutRest=cint(datediff(”n”,lastSnus,now)) mod 60

timRest=cint(datediff(”h”,lastSnus,now)) mod 24

text = datediff(”h”,lastSnus,now) & ” timmar och ” & minutRest & _

” minuter. ” & VBCRLF & ”Ungefär lika med ” & _

datediff(”d”,lastSnus,now)-1 & ” dagar och ” & timRest & ” timmar.”

temp=InputBox(text,”Snusräknare”,text)

[Ragatan]

Duktiga du, det går ju jättebra för dig! Och jag måste bara få skratta åt dina script, hihi, jag som fattar noll ! Fortsatt heja!

[Martinan]

Fast jag är singel, rätt stor skillnad. Min hemmiljö är mycket mer kontrollerad och enkel än din. Jag har inte en massa krav jag måste leva upp till när jag går från jobbet. Det tror jag gör en stor skillnad, mitt liv är mycket enkelt.

[Författare]

Inlägg