dim inet
set inet = CreateObject("InternetExplorer.Application" )
inet.Navigate ("http://forum.hardware.fr/hardwarefr/Programmation/sujet-47024-1.htm" )
inet.visible = true
Do While Not inet.ReadyState = 4
Loop
inet.Document.hop.contenu.value = "Post créé automatiquement"
inet.Document.hop.submit.click
Message édité par MagicBuzz le 27-02-2004 à 11:19:45