salut a tous,
je voudrait réaliser un petit programme qui me permet de pouvoir poster des news sur mon site sans passer par IE ou FF . Le script est presque opérationnelle sauf la parti ou il se connecte et celle ou il envoi les donner. (le plus gros du scripte en faite.)
voila le code de la page.
sous la forme de: http:monsite/repertoire/rediger_news.php
Code : Tout sélectionner
<h3><a href="liste_news.php">Retour à la liste des news</a></h3>
<form action="liste_news.php" method="post">
<p>Titre : <input type="text" size="30" name="titre" [color=#FF0000]value=""[/color] /></p> [color=#008000];la valeur de input Titre[/color]
<p>
Contenu :<br />
<input type="text" size="30" name="contenu" [color=#FF0000]value=""[/color] /></p> [color=#008000]; la valeur de input Texte[/color]
<br />
<input type="hidden" name="id_news" value="0" />
<input type="submit" [color=#FF0000]value="Envoyer"[/color] /> [color=#008000]; "exécute" la page[/color]
</p>
j'ai mit en rouge les donner a remplir et a envoyer
voila le code que j'ai réaliser
► Afficher le texte
Code : Tout sélectionner
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
; On charge les infos dans le fichier ini
$iniTitre = IniRead("News.ini", "news", "Titre", "") ; sa me sert si je veut rédiger une news et si je ne peut l'envoyer (pas de connection internet)
$iniTexte = IniRead("News.ini", "news", "Texte", "")
GUICreate("Ajouter news", 358, 291, 400, 190)
$Button = GUICtrlCreateButton("Se Connecter",128, 248, 75, 25, $WS_GROUP)
GUICtrlCreateLabel("titre:", 16, 88, 60, 17)
$TitreInput = GUICtrlCreateInput($iniTitre,104, 88, 153, 21)
$TexteInput = GUICtrlCreateInput($iniTexte,40, 168, 250, 71)
GUISetState(@SW_SHOW)
While 1 ; Boucle principale
$Msg = GUIGetMsg()
Switch $Msg
Case $Button ; Si on appuie sur le bouton Connexion
$Titre = GUICtrlRead($TitreInput) ; On enregistre le titre
$Texte = GUICtrlRead($TexteInput) ; On enregistre le texte
If $Titre <> "" And $Texte <> "" Then ; Si les inputs sont Différent vide on lance la fonction.
IniWrite("News.ini", "news", "Titre", $Titre) ; On enregistre le titre
IniWrite("News.ini", "news", "Texte", $Texte) ; On enregistre le texte
envoi($titre, $texte) ; On lance la fonction envoi avec les paramètre pour ce connecter
Else
MsgBox(0, "envoi", "Veuillez remplir les champs.")
EndIf
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func envoi([color=#FF0000]$titre, $texte[/color]) ; voila les donner a envoyer
EndFunc
j'ai trouver comment obtenir la page, même si j'ai pas trop comprit le code, je pense qu'il doit exister un fonction similaire pour envoyer. car j'ai pas trop trouver comment faire.
► Afficher le texte
Code : Tout sélectionner
$URL="http:monsite/repertoire/rediger_news.php"
#include "GUIConstants.au3"
; cree une GUI
GUICreate ( "Event Test", 640, 480 )
$GUIEdit=GUICtrlCreateEdit ( "HTTP Source Test:" & @CRLF, 10, 10 , 600 , 400 )
GUISetState () ; execute la GUI
;a partir de la je comprend pu rien
$httpObj = ObjCreate("winhttp.winhttprequest.5.1") ; a quoi sa sert??
$httpObj.open("GET",$URL) ; a quoi sa sert??
$httpObj.send() ; a quoi sa sert??
$HTMLSource = $httpObj.Responsetext ; ces quoi cette fonction?? $httpObj.Responsetext
GUICtrlSetData ( $GUIEdit, "The HTML source of " & $URL & " is:" & $HTMLSource , "append" ) ;la il affiche la source
; pour fermer la GUI
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
Wend
GUIDelete ()
exit
merci de me répondre
