User talk:Bojer~enwiki

Regfile to activate NTP on Windows XP
Windows Registry Editor Version 5.00 [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W32Time\Parameters] "NtpServer"="dk.pool.ntp.org,0x1" "Type"="NTP" [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W32Time\Config] "AnnounceFlags"=dword:00000005

To sync width the server run

w32tm /resync /rediscover

Turning numlock on at login
Go to registry key HKEY_USERS\.Default\Control Panel\Keyboard

Change it to 2

Time Sheet - Excel
Sub LogIn 'Difinerer variabler Dim Dato As Date Dim LastDato As Date Dim WeekDato As Date Dim ChangeDato As Date Dim ChangeTime As Date Dim FerieDag As Boolean 'Butter info i variablerne Dato = Date FerieDag = False 'Checker om du retter en dato Sheets("Interface").Select If Range("B7") <> "" Then 'Checker om tiden også er udfyldt If Range("E7") = "" And Range("B18") = False Then MsgBox "Husk at intaste en tid", vbOKOnly GoTo EndSub End If   If Range("E7") > Date Then MsgBox "Du kan ikke rette en dag ude i fremtiden", vbOKOnly GoTo EndSub End If   ChangeDato = Range("B7") ChangeTime = Range("E7") FerieDag = Range("B18") Sheets("Data").Select GoSub ChangeTime GoTo EndSub End If   'Find første ledige feldt GoSub FreeCell 'Checker om der er mere end en dags forskel på saidste dag og i dag If ActiveCell = Date Then MsgBox "Du skal logge ud inden du klokker ind igen", vbOKOnly GoTo EndSub End If   If ActiveCell < Date Then LastDato = ActiveCell GoSub MissingDays End If   If ActiveCell > Date Then MsgBox "Someone fucked up and it wasn't me", vbOKOnly GoTo EndSub End If   ActiveCell.Offset(1, 0).Select 'Skriver datoen ActiveCell.FormulaR1C1 = Date ActiveCell.Offset(0, 1).Select 'Skriver ugedagen WeekDato = Dato GoSub Ugedag ActiveCell.Offset(0, 1).Select 'Skriver tiden ActiveCell.FormulaR1C1 = Time GoTo EndSub MissingDays: 'Skriver datoen Do Until LastDato = Dato - 1 ActiveCell.Offset(1, 0).Select LastDato = LastDato + 1 ActiveCell.FormulaR1C1 = LastDato WeekDato = LastDato ActiveCell.Offset(0, 1).Select 'Skriver ugedagen GoSub Ugedag ActiveCell.Offset(0, 1).Select 'Sætter login tiden til "00:00" ActiveCell.FormulaR1C1 = "00:00" ActiveCell.Offset(0, 1).Select 'Sætter ud tiden til "00:00" ActiveCell.FormulaR1C1 = "00:00" ActiveCell.Offset(0, 1).Select 'Sætter den normal arbejds tid GoSub NormWorkTime ActiveCell.Offset(0, 1).Select 'Tid udregning ActiveCell.FormulaR1C1 = "=SUM(RC[-2]-RC[-3]+RC[-1])" ActiveCell.Offset(0, -5).Select Loop Return 'Udregner ugedagen Ugedag: If Weekday(WeekDato) = 1 Then ActiveCell.FormulaR1C1 = "Søndag" If Weekday(WeekDato) = 2 Then ActiveCell.FormulaR1C1 = "Mandag" If Weekday(WeekDato) = 3 Then ActiveCell.FormulaR1C1 = "Tirsdag" If Weekday(WeekDato) = 4 Then ActiveCell.FormulaR1C1 = "Onsdag" If Weekday(WeekDato) = 5 Then ActiveCell.FormulaR1C1 = "Torsdag" If Weekday(WeekDato) = 6 Then ActiveCell.FormulaR1C1 = "Fredag" If Weekday(WeekDato) = 7 Then ActiveCell.FormulaR1C1 = "Lørdag" Return NormWorkTime: If Weekday(WeekDato) = 1 Then ActiveCell.FormulaR1C1 = "00:00" If Weekday(WeekDato) = 2 Then ActiveCell.FormulaR1C1 = "=-""07:30""" If Weekday(WeekDato) = 3 Then ActiveCell.FormulaR1C1 = "=-""07:30""" If Weekday(WeekDato) = 4 Then ActiveCell.FormulaR1C1 = "=-""07:30""" If Weekday(WeekDato) = 5 Then ActiveCell.FormulaR1C1 = "=-""07:30""" If Weekday(WeekDato) = 6 Then ActiveCell.FormulaR1C1 = "=-""07:00""" If Weekday(WeekDato) = 7 Then ActiveCell.FormulaR1C1 = "00:00" Return ChangeTime: 'Finder datoen GoSub FreeCell Do Until ActiveCell = ChangeDato ActiveCell.Offset(-1, 0).Select If ActiveCell.Address = "$B$2" Then MsgBox "Fejl på Data fanen, datoen du prøver at rette eksisterer ikke", vbOKOnly GoTo EndSub End If       If ActiveCell = "" And ActiveCell.Address <> "$B$2" Then MsgBox "Fejl på Data fanen", vbOKOnly GoTo EndSub End If   Loop WeekDato = ActiveCell ActiveCell.Offset(0, 2).Select ActiveCell = ChangeTime ActiveCell.Offset(0, 2).Select If FerieDag = True Then Range("B7").FormulaR1C1 = "00:00" Else GoSub NormWorkTime End If   ActiveCell.Offset(0, -1).Select If ActiveCell < ChangeTime Then MsgBox "Din login tid er efter din logud tid", vbOKOnly End If Return FreeCell: Sheets("Data").Select Range("B50000").Select Selection.End(xlUp).Select Return EndSub: Sheets("Interface").Select Range("B7").FormulaR1C1 = "" Range("E7").FormulaR1C1 = "" Range("B18").FormulaR1C1 = "False" Range("A15").Select End Sub Sub LogUd 'Difinerer variabler Dim Dato As Date Dim WeekDato As Date Dim ChangeDato As Date Dim ChangeTime As Date 'Butter info i variablerne Dato = Date 'Checker om du retter en dato Sheets("Interface").Select If Range("B7") <> "" Then 'Checker om tiden også er udfyldt If Range("E7") = "" Then MsgBox "Husk at intaste en tid", vbOKOnly GoTo EndSub End If   ChangeDato = Range("B7") ChangeTime = Range("E7") Sheets("Data").Select GoSub ChangeTime GoTo EndSub End If   'Find første ledige feldt Sheets("Data").Select Range("B50000").Select Selection.End(xlUp).Select ' Checker om du er logget ind i dag If ActiveCell <> Date Then MsgBox "Du skal logge ind før du kan logge ud", vbOKOnly GoTo EndSub End If   ActiveCell.Offset(0, 3).Select If ActiveCell <> "" Then MsgBox "Du skal logge ind før du kan logge ud", vbOKOnly GoTo EndSub End If   'Skriver tiden ActiveCell.FormulaR1C1 = Time ActiveCell.Offset(0, 1).Select 'Skriver den normal arbejdstid If Weekday(Dato) = 1 Then ActiveCell.FormulaR1C1 = "00:00" If Weekday(Dato) = 2 Then ActiveCell.FormulaR1C1 = "=-""07:30""" If Weekday(Dato) = 3 Then ActiveCell.FormulaR1C1 = "=-""07:30""" If Weekday(Dato) = 4 Then ActiveCell.FormulaR1C1 = "=-""07:30""" If Weekday(Dato) = 5 Then ActiveCell.FormulaR1C1 = "=-""07:30""" If Weekday(Dato) = 6 Then ActiveCell.FormulaR1C1 = "=-""07:00""" If Weekday(Dato) = 7 Then ActiveCell.FormulaR1C1 = "00:00" ActiveCell.Offset(0, 1).Select 'Tid udregning ActiveCell.FormulaR1C1 = "=SUM(RC[-2]-RC[-3]+RC[-1])" GoTo EndSub ChangeTime: 'Finder datoen Range("B3").Select Do Until ActiveCell = ChangeDato ActiveCell.Offset(1, 0).Select Loop WeekDato = ActiveCell ActiveCell.Offset(0, 3).Select ActiveCell = ChangeTime ActiveCell.Offset(0, 1).Select GoSub NormWorkTime ActiveCell.Offset(0, 1).Select ActiveCell.FormulaR1C1 = "=SUM(RC[-2]-RC[-3]+RC[-1])" ActiveCell.Offset(0, -3).Select If ActiveCell > ChangeTime Then MsgBox "Din logud tid er før din login tid", vbOKOnly End If   If ActiveCell = "0" Then End If Return NormWorkTime: If Weekday(WeekDato) = 1 Then ActiveCell.FormulaR1C1 = "00:00" If Weekday(WeekDato) = 2 Then ActiveCell.FormulaR1C1 = "=-""07:30""" If Weekday(WeekDato) = 3 Then ActiveCell.FormulaR1C1 = "=-""07:30""" If Weekday(WeekDato) = 4 Then ActiveCell.FormulaR1C1 = "=-""07:30""" If Weekday(WeekDato) = 5 Then ActiveCell.FormulaR1C1 = "=-""07:30""" If Weekday(WeekDato) = 6 Then ActiveCell.FormulaR1C1 = "=-""07:00""" If Weekday(WeekDato) = 7 Then ActiveCell.FormulaR1C1 = "00:00" Return EndSub: Sheets("Interface").Select Range("B7").FormulaR1C1 = "" Range("E7").FormulaR1C1 = "" Range("A15").Select End Sub

RIP Script
filename=323000 while [ $filename -lt 324410 ]; do                wget http://www.put.url.here.nu/$filename.jpg; let filename=filename+1 RANGE=60 number=$RANDOM let "number %= $RANGE" echo sleeping for $number sleep $number done
 * 1) !/bin/bash

Welcome...

Hello, Bojer, and welcome to Wikipedia! Thank you for your contributions. I hope you like the place and decide to stay. Here are some pages that you might find helpful: Introduction The five pillars of Wikipedia How to edit a page Help How to write a great article Manual of Style

Please sign your name on talk pages using four tildes ( ~ ); this will automatically produce your username and the date. If you need help, check out Questions, ask me on my talk page, or place  on your talk page and ask your question there.

Your account will be renamed
Hello,

The developer team at Wikimedia is making some changes to how accounts work, as part of our on-going efforts to provide new and better tools for our users like cross-wiki notifications. These changes will mean you have the same account name everywhere. This will let us give you new features that will help you edit and discuss better, and allow more flexible user permissions for tools. One of the side-effects of this is that user accounts will now have to be unique across all 900 Wikimedia wikis. See the announcement for more information.

Unfortunately, your account clashes with another account also called Bojer. To make sure that both of you can use all Wikimedia projects in future, we have reserved the name Bojer~enwiki that only you will have. If you like it, you don't have to do anything. If you do not like it, you can pick out a different name. If you think you might own all of the accounts with this name and this message is in error, please visit Special:MergeAccount to check and attach all of your accounts to prevent them from being renamed.

Your account will still work as before, and you will be credited for all your edits made so far, but you will have to use the new account name when you log in.

Sorry for the inconvenience.

Yours, Keegan Peterzell Community Liaison, Wikimedia Foundation 22:42, 19 March 2015 (UTC)

Renamed
 This account has been renamed as part of single-user login finalisation. If you own this account you can |log in using your previous username and password for more information. If you do not like this account's new name, you can choose your own using this form after logging in: . -- Keegan (WMF) (talk) 11:10, 22 April 2015 (UTC)