Code : Tout sélectionner
VERSION BUILD=6060703 RECORDER=CR
URL GOTO=http://www2.leboncoin.fr/ai/form/0#photo_principale_anchor
TAG POS=1 TYPE=INPUT:FILE FORM=ID:formular ATTR=ID:image0 CONTENT=C:\fakepath\IMG_20130903_205028.jpg
TAG POS=1 TYPE=INPUT:SUBMIT FORM=ID:formular ATTR=*
Et voila le probleme ....je crois que de tous les forum de prog...j'suis un des seuls à le savoir....Moi je s'avais même pas qu'il y avais des radiateurs dans les classes
Code : Tout sélectionner
<titre>radiateur</titre><desc>je vend un radiateur de classe dépolie</desc><prix>30</prix> ect.....Code : Tout sélectionner
VERSION BUILD=7401110 RECORDER=FX
SET !EXTRACT_TEST_POPUP NO
TAB T=1
URL GOTO=http://tonurl.tld?identite=leboncoin&annonce={{!LOOP}}
WAIT SECONDS=1
TAG POS=1 TYPE=TITRE ATTR=* EXTRACT=TXT
SET !VAR2 {{!EXTRACT}}
SET !EXTRACT ""
TAG POS=1 TYPE=DESCRIPTION ATTR=* EXTRACT=TXT
SET !VAR3 {{!EXTRACT}}
SET !EXTRACT ""
TAB OPEN
TAB T=2
URL GOTO=http://www2.leboncoin.fr/ai/form/0
TAG POS=1 TYPE=SELECT FORM=ID:formular ATTR=ID:category CONTENT=%5
TAG POS=1 TYPE=INPUT:TEXT FORM=ID:formular ATTR=ID:subject CONTENT={{!VAR2}}
TAG POS=1 TYPE=TEXTAREA FORM=ID:formular ATTR=ID:body CONTENT={{!VAR1}}
ect.....
Salut KCC, ça peut être soit l'un soit l'autre !Kwai chang caine a écrit :Bonjour CLS
Par PROXY, tu parles d'une machine physique, ou bien juste d'un code sur la même machine ?
Code : Tout sélectionner
; English forum: http://www.purebasic.fr/english/viewtopic.php?t=6642&highlight=
; Author: ricardo
; Date: 20. June 2003
; OS: Windows
; Demo: Yes
InitNetwork()
ConnectionID = OpenNetworkConnection("table.finance.yahoo.com", 80)
If ConnectionID
com$="GET http://itable.finance.yahoo.com/table.csv?s=IBM&g=d HTTP/1.1"+Chr(13)+Chr(10)
com$=com$+"Accept: */*"+Chr(13)+Chr(10)
com$=com$+"Accept: text/html"+Chr(13)+Chr(10)
com$=com$+"Host: "+host$+Chr(13)+Chr(10)
com$=com$+"User-Agent: Yahoo CVS Parser"+Chr(13)+Chr(10)
com$=com$+Chr(13)+Chr(10)
Res = SendNetworkData(ConnectionID,@com$,Len(com$))
Repeat
Delay(10)
Result = NetworkClientEvent(ConnectionID)
Select Result
Case 2
Content$ = Space(14500)
ReceiveNetworkData(ConnectionID,@Content$,14500)
Ok = 1
MessageRequester("Done!","Your Data" + Chr(13) + Chr(10) + Content$,0)
CloseNetworkConnection(ConnectionID)
EndSelect
Until Ok = 1
EndIf
; IDE Options = PureBasic v4.00 (Windows - x86)
; Folding = -