EEE PC

Vilken fantastisk liten maskin. Storleken är helt perfekt. Man kan ha med den överallt och använda den som vilken annan laptop som helst.

EEE PC
EEE PC

Värma Hus Med Döda Kroppar

Aftonbladet skriver om en idé om att använda värmen från kremeringsugnarna till att värma hus.

Jag tycker det är en bra idé, idén kanske kan låta lite sjuk först men varför skulle man inte göra det? Om jag kremeras när jag dör så får folk gärna stå och grilla korv över min döda kropp om dom vill. Det är väl bra om man kan göra lite nytta även som död, eller hur?

Och jag tror knappast den döda personen tar illa upp heller.

Feta Oprah

Oj oj! Stackars Oprah har ätit upp sig igen. Hur svårt kan det vara att låta nån laga kolhydratsnål mat när man är så rik som hon? Hon kan ju äta obegränsat med dyrt kött, ost osv utan att gå upp i vikt och hon har ju pengarna, varför inte bara anställa en vettig kock?

Lepigen

Lepigen

Jag var först tveksam till att Lepigen skulle fungera, jag trodde det skulle vara ännu en “mirakelkur” som inte fungerade. Men Lepigen bevisade motsatsen, det fungerar verkligen. Jag har använt Lepigen hela November månad och gått ner 4 kilo, utan att anstränga mig alls eller att ändra min kost.

Jag köpte mitt Lepigen här!

URLencode och URLdecode funktioner för Visual Basic

URLencode och URLdecode funktioner för Visual Basic

 

Public Function UrlEncode(ByVal s As String, Optional ByVal _
use_plus_for_space As Boolean = True) As String
Dim result As String = “”

For Each ch As String In s
Select Case Asc(ch)
Case 48 To 57, 65 To 90, 97 To 122
result &= ch
Case 32
If use_plus_for_space Then
result &= “+”
Else
result &= “%20”
End If
Case Else
result &= “%” & Hex(Asc(ch)).PadLeft(2, _
“0”c)
End Select
Next ch

Return result
End Function

Public Function UrlDecode(ByVal s As String, Optional ByVal _
use_plus_for_space As Boolean = True) As String
Dim result As String = “”

Dim i As Integer = 0
Do While i < s.Length
Dim ch As String = s.Substring(i, 1)

Select Case ch
Case “+”
If use_plus_for_space Then
result &= “+”
Else
result &= ” “
End If
i += 1
Case “%”
Dim num As Integer = _
Val(“&H” & s.Substring(i + 1, 2))
result &= Chr(num)
i += 3
Case Else
result &= ch
i += 1
End Select
Loop

Return result
End Function

Världens Bästa Barnbok

Världens bästa barnbok måste utan tvivel vara en personlig barnbok.
Beebook säljer roliga och uppskattade upplevelser för barn i form av personliga barnböcker. Att göra en egen barnbok är enkelt. Du väljer en berättelse och laddar upp en bild och namn på barnet som ska vara med i boken. En inbunden bok skickas via Posten direkt hem i brevlådan. En perfekt överraskning, present eller julklapp!

Ge barnet en alldeles egen bok med bild och eget namn från Beebook. Klicka här

Det här måste gå att tjäna pengar på!

Jag läser precis om Ipred-lagen i aftonbladet och kom på en idé!

Kanske skulle man bli artist själv? Man spelar in när man skriker och slår på en trumma. Sen kallar man sig för “Mettlica” eller något annat namn snarlikt någon annan artist/grupp.

Sedan lägger man ut en torrent på ThePireteBay som kanske heter något i stil med “Mettlica – New Album 2010”.

Nu kommer massor av folk börja ladda ner den, nu ska man sitta och samla ihop IP-adresser av de som laddar ner för att sedan stämma skiten ur dom! För dom kan ju inte försvara sig med och säga “jag trodde det var metallica buuhuu!”. Nää, ge mig mina cash! Du har lyssnat gratis på min klagosång och mina trumslag!

//Soon to be artist