Hoe ziet die er van jullie op dit moment eruit!?
Die van mij zo dus!!
Die van mij zo dus!!
laatste aanpassing
heb ik.. en daar wil ik optimaal gebruik van maken 
lol 
heb dat samurize ff geïnstalleerd... is wel geinig voor op je desktop 
ik verander dus vaak van desktop
laatste aanpassing
welke windows instellingen heb jij? je taakbalk ziet er gruwelijk uit!
Hey misschien een heeeeele domme vraag maar hoe laat ik een foto hier zien? 
[.img]URL van je plaatje[./img]
en dan zonder de puntjes
en dan zonder de puntjes
Kun je niet in windows instellen, maar wel met het programmatje WindowBlinds
kan ik die ergens vandaan toveren? 
Ik heb em van kazaa vandaan
tnx zal er ff kijken je desktop ziet er top uit
lol @ p-kay 
hehehe
mja zoveel snelheid lever ik hiermee niet in.. en die tv shit is volop handig aangezien ik geen tv gids thuis heb hahaha
mja zoveel snelheid lever ik hiermee niet in.. en die tv shit is volop handig aangezien ik geen tv gids thuis heb
hahahaheeft iemand toevallig dat livescore scriptje voor Samurize aan de praat gekregen? het lukt me maar niet 
laatste aanpassing
Weet pas sinds kort hoe dat werkt met desktopproggies en themes / visual styles enzo
Dus daar ga ik nog ff wat aan doen
heel georganiseerd
Heb nu Sysmetrix op me Desktop draaien
monitor voor vanalles en nogwat Speelt je mp3tjes voor je af, controleerd je mail in je outlook, enz....
dit is nu de mijne thx to para voor dat proggie heb zelf ff flink lopen kutten en het is goed gelukt
Arjan de Stampkikker aka beukpad - Keine danke...!! Maah dah nieuws, is dah van FOK! !?
Maah dah nieuws, is dah van FOK! !? 
para: nee van planet.nl/news
{news.vbs}
TMP_FILE = "DutchNews.tmp" 'the name of the temp file you want to use for the script
SITE_URL = "http://www.planet.nl/news/" 'the url of the site you want to get your data from
PAGE_CHECK = "<title>Planet" 'a string to verify that you have got the right page
FIRST_CHECK = "<td class=""m"" valign=""top"" width=""30"">" 'find the line of the posttime of the headline
FIRST_CHECK2 = "<td class=""m"" valign=""top"" width=""30"">" 'the code before the posttime of the headline
END_CHECK = "</td>" 'the code after the posttime of the headline
hl_FIRST_CHECK = "<td valign=""top"" width=""100%""><a href=""/planet/show/id=" 'find the line of the headline
hl_FIRST_CHECK2 = "return true;"" onmouseout=""window.status=''; return true;"">" 'the code before the headline
hl_END_CHECK = "</a></td>" 'the code after the headline
Function GetInfo()
dim htmlResult,output,newsItem,mainFeature
htmlResult = ReturnHTML(SITE_URL)
output = NULL
startPos = instr(htmlResult, PAGE_CHECK)
if startPos > 0 then
Do While instr(startPos, htmlResult, FIRST_CHECK)>0
posOne = instr( startPos, htmlResult, FIRST_CHECK)
posOne = instr( posOne, htmlResult, FIRST_CHECK2) + Len(FIRST_CHECK2)
posTwo = instr( posOne, htmlResult, END_CHECK)
if posOne > 0 AND posTwo > posOne Then
'grab the time of the news item
newsItem = right(mid( htmlResult, posOne, posTwo-posOne ), posTwo-posOne)
end if
hl_posOne = instr( startPos, htmlResult, hl_FIRST_CHECK)
hl_posOne = instr( hl_posOne, htmlResult, hl_FIRST_CHECK2) + Len(hl_FIRST_CHECK2)
hl_posTwo = instr( hl_posOne, htmlResult, hl_END_CHECK)
if hl_posOne > 0 AND hl_posTwo > hl_posOne Then
'grab the headline of the news item
hl_newsItem = right(mid( htmlResult, hl_posOne, hl_posTwo-hl_posOne ), hl_posTwo-hl_posOne)
end if
' new start position
startPos = posTwo
'place the posttime of the headline and the headline in one line
newsline = newsItem & " " & hl_newsItem
'append the user to the list and put a newline char after it
output = output & newsline
' don't add a newline to the last item
If instr(startPos, htmlResult, FIRST_CHECK)>0 Then
output = output & (Chr(13) & Chr(10))
End If
Loop
else
output = "Could not obtain data."
end if
GetInfo = TrimHTML(output)
End Function
Function GetInfoTempFile()
set fs=CreateObject("Scripting.FileSystemObject")
set f=fs.CreateTextFile(TMP_FILE,true)
f.write(GetInfo())
f.close
set f=nothing
set fs=nothing
GetInfoTempFile = "OK!"
End Function
Private Function ReturnHTML(sURL)
Dim objXMLHTTP,HTML
Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", sURL, False
objXMLHTTP.Send
HTML = objXMLHTTP.responseBody
Set objRS = CreateObject("ADODB.Recordset")
objRS.Fields.Append "txt", 200, 45000, &H00000080
objRS.Open
objRS.AddNew
objRS.Fields("txt").AppendChunk HTML
ReturnHTML = objRS("txt").Value
objRS.Close
Set objRS = Nothing
Set objXMLHTTP = Nothing
End Function
' ******************************
' Following function by Alderaic
' ******************************
'very simple function that will remove all html tags
Private Function TrimHTML(str)
pos_deb = InStr(1, str, "<")
Do Until pos_deb = 0
pos_fin = InStr(pos_deb, str, ">")
part_d = Mid(str, 1, pos_deb - 1)
part_f = Mid(str, pos_fin + 1, Len(str) - pos_fin)
str = part_d & part_f
pos_deb = InStr(1, str, "<")
Loop
TrimHTML = str
End Function
{news.vbs}
TMP_FILE = "DutchNews.tmp" 'the name of the temp file you want to use for the script
SITE_URL = "http://www.planet.nl/news/" 'the url of the site you want to get your data from
PAGE_CHECK = "<title>Planet" 'a string to verify that you have got the right page
FIRST_CHECK = "<td class=""m"" valign=""top"" width=""30"">" 'find the line of the posttime of the headline
FIRST_CHECK2 = "<td class=""m"" valign=""top"" width=""30"">" 'the code before the posttime of the headline
END_CHECK = "</td>" 'the code after the posttime of the headline
hl_FIRST_CHECK = "<td valign=""top"" width=""100%""><a href=""/planet/show/id=" 'find the line of the headline
hl_FIRST_CHECK2 = "return true;"" onmouseout=""window.status=''; return true;"">" 'the code before the headline
hl_END_CHECK = "</a></td>" 'the code after the headline
Function GetInfo()
dim htmlResult,output,newsItem,mainFeature
htmlResult = ReturnHTML(SITE_URL)
output = NULL
startPos = instr(htmlResult, PAGE_CHECK)
if startPos > 0 then
Do While instr(startPos, htmlResult, FIRST_CHECK)>0
posOne = instr( startPos, htmlResult, FIRST_CHECK)
posOne = instr( posOne, htmlResult, FIRST_CHECK2) + Len(FIRST_CHECK2)
posTwo = instr( posOne, htmlResult, END_CHECK)
if posOne > 0 AND posTwo > posOne Then
'grab the time of the news item
newsItem = right(mid( htmlResult, posOne, posTwo-posOne ), posTwo-posOne)
end if
hl_posOne = instr( startPos, htmlResult, hl_FIRST_CHECK)
hl_posOne = instr( hl_posOne, htmlResult, hl_FIRST_CHECK2) + Len(hl_FIRST_CHECK2)
hl_posTwo = instr( hl_posOne, htmlResult, hl_END_CHECK)
if hl_posOne > 0 AND hl_posTwo > hl_posOne Then
'grab the headline of the news item
hl_newsItem = right(mid( htmlResult, hl_posOne, hl_posTwo-hl_posOne ), hl_posTwo-hl_posOne)
end if
' new start position
startPos = posTwo
'place the posttime of the headline and the headline in one line
newsline = newsItem & " " & hl_newsItem
'append the user to the list and put a newline char after it
output = output & newsline
' don't add a newline to the last item
If instr(startPos, htmlResult, FIRST_CHECK)>0 Then
output = output & (Chr(13) & Chr(10))
End If
Loop
else
output = "Could not obtain data."
end if
GetInfo = TrimHTML(output)
End Function
Function GetInfoTempFile()
set fs=CreateObject("Scripting.FileSystemObject")
set f=fs.CreateTextFile(TMP_FILE,true)
f.write(GetInfo())
f.close
set f=nothing
set fs=nothing
GetInfoTempFile = "OK!"
End Function
Private Function ReturnHTML(sURL)
Dim objXMLHTTP,HTML
Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", sURL, False
objXMLHTTP.Send
HTML = objXMLHTTP.responseBody
Set objRS = CreateObject("ADODB.Recordset")
objRS.Fields.Append "txt", 200, 45000, &H00000080
objRS.Open
objRS.AddNew
objRS.Fields("txt").AppendChunk HTML
ReturnHTML = objRS("txt").Value
objRS.Close
Set objRS = Nothing
Set objXMLHTTP = Nothing
End Function
' ******************************
' Following function by Alderaic
' ******************************
'very simple function that will remove all html tags
Private Function TrimHTML(str)
pos_deb = InStr(1, str, "<")
Do Until pos_deb = 0
pos_fin = InStr(pos_deb, str, ">")
part_d = Mid(str, 1, pos_deb - 1)
part_f = Mid(str, pos_fin + 1, Len(str) - pos_fin)
str = part_d & part_f
pos_deb = InStr(1, str, "<")
Loop
TrimHTML = str
End Function
vorige host is dood:
Hij blijft mooi!!
ff wat veranderd
laatste aanpassing
Die ziet er ook wel mooi uit, Darkness01!!
Hier nog maah is de mijne, want had de mijne perongeluk van me server afgegooid!!
Hier nog maah is de mijne, want had de mijne perongeluk van me server afgegooid!!
laatste aanpassing
Mijn nieuwe logo
(alleen nog niet helemaal af)
dat is em right now
laatste aanpassing
een grote puinhoop dus
Zo, lekker simpel maar ik hou niet van al die onzin. Hoe sneller windows werkt hoe beter.
Waarom stelt iedereen niet ff in zijn/haar post de widh van de achtergrond in???? Nu is de hele layout vergalt! :r
Waarom stelt iedereen niet ff in zijn/haar post de widh van de achtergrond in???? Nu is de hele layout vergalt! :r
laatste aanpassing
Gekkehuis - Wat schuilt er achter die rode vlekkies!?
helemaal niets, hoort bij mijn desktop theme...hehe der draaien wat proggies wat niet iedereen hoeft te zien
·:[PRIVE]:· laatste aanpassing
Dit.
Gekkehuis - PF is één grote familie, die geen geheimpies voor elkaar hebben!!
Ah k kan jullie iedergeval met 1 ding gerust stellen, het zijn geen Porn-Dialers
Gekehuis - Jah, jah... Vraag me wel af wah er onder die WinRAR icoon staat...!!
Vraag me wel af wah er onder die WinRAR icoon staat...!! ehmmm wat zal ik eens bedenken
een .rar met niet legale spullen
dat kan ik je wel zeggen
een .rar met niet legale spullen
dat kan ik je wel zeggen Het lijkt me dat het dus wel iets met PORNO of kinderPORNO ofzo te maken heeft.
Want een icoontje van FlashFXP kijkt men niet vreemd op hier.
Want een icoontje van FlashFXP kijkt men niet vreemd op hier.
t is geen porno, en ABSOLUUT GEEN KINDERPORNO 
pffff
pfffflol @ DemonSquad ... Jij ben niet goed, volgens mij!! Porno oke, maar kinderporno!?
Maar btw, we raken veels te veel offtopic!!
Porno oke, maar kinderporno!? Maar btw, we raken veels te veel offtopic!!
laatste aanpassing
idd
k zal het maar eerlijk zeggen k loop gewoon een beetje te jennen
dat .rar bestand was de no-cd crack voor Monster Garage. Onder die andere vlekken stont avant browser, een map van de save-games van Monster Garage en Traktor dj-studio 2. Rechts ondering draait eMule, winamp, quickcam en nav2004
heel wat anders dan jullie dachten hahahahaha 
k zal het maar eerlijk zeggen
k loop gewoon een beetje te jennen dat .rar bestand was de no-cd crack voor Monster Garage. Onder die andere vlekken stont avant browser, een map van de save-games van Monster Garage en Traktor dj-studio 2. Rechts ondering draait eMule, winamp, quickcam en nav2004
heel wat anders dan jullie dachten hahahahaha 
okay dan!