PureBasic

Ce code ne fonctionne pas chez moi, et j'aurais besoin de cette possibilité, comment puis je faire?

Impossible de coller du texte dans un Input

Code : Tout sélectionner

Enumeration 1
  #OLECMDID_OPEN
  #OLECMDID_NEW
  #OLECMDID_SAVE
  #OLECMDID_SAVEAS
  #OLECMDID_SAVECOPYAS
  #OLECMDID_PRINT
  #OLECMDID_PRINTPREVIEW
  #OLECMDID_PAGESETUP
  #OLECMDID_SPELL
  #OLECMDID_PROPERTIES
  #OLECMDID_CUT
  #OLECMDID_COPY
  #OLECMDID_PASTE
  #OLECMDID_PASTESPECIAL
  #OLECMDID_UNDO
  #OLECMDID_REDO
  #OLECMDID_SELECTALL
  #OLECMDID_CLEARSELECTION
  #OLECMDID_ZOOM
  #OLECMDID_GETZOOMRANGE
  #OLECMDID_UPDATECOMMANDS
  #OLECMDID_REFRESH
  #OLECMDID_STOP
  #OLECMDID_HIDETOOLBARS
  #OLECMDID_SETPROGRESSMAX
  #OLECMDID_SETPROGRESSPOS
  #OLECMDID_SETPROGRESSTEXT
  #OLECMDID_SETTITLE
  #OLECMDID_SETDOWNLOADSTATE
  #OLECMDID_STOPDOWNLOAD
EndEnumeration

Enumeration 0
     #OLECMDEXECOPT_DODEFAULT
     #OLECMDEXECOPT_PROMPTUSER
     #OLECMDEXECOPT_DONTPROMPTUSER
     #OLECMDEXECOPT_SHOWHELP
EndEnumeration

#Paste=1002

If OpenWindow(0, 0, 0, 600, 600, "WebGadget", #PB_Window_ScreenCentered|#PB_Window_SystemMenu)

    AddKeyboardShortcut(0,#PB_Shortcut_Control | #PB_Shortcut_V, #Paste)
 
  If CreateGadgetList(WindowID(0))
    WebGadget(0, 20, 20, 560, 560, "http://purebasic.fr/french/login.php")
    WebObject.IWebBrowser2 = GetWindowLong_(GadgetID(0), #GWL_USERDATA)
     
   
  Repeat
    Event =WaitWindowEvent()
    Select Event
      Case #PB_Event_Menu
        Select EventMenu()
            Case #Paste
            SetClipboardText("PureBasic")
            WebObject\ExecWB(#OLECMDID_PASTE, #OLECMDEXECOPT_DONTPROMPTUSER, 0, 0)
        EndSelect
    EndSelect

    Until Event = #PB_Event_CloseWindow
  EndIf
EndIf

tu veut "édité" une page web ? autrement dit , il te faut récuperé les gadgets intérieur de la page web.
Comme je ne suis pas un crack des api , j'analyserai la source de la page html source , et ferais en fonction , mais n'étant pas non plus un crack en html , je ne peut t'aider plus

Non je ne veux rien éditer, je veux juste faire du copier coller dans un champ HTML comme on peut le faire dans n'importe quel navigateur en faisant un simple CTRL V.

Code : Tout sélectionner

SetClipboardText("PUREBASIC")

Il faut aller dans les options internet pour permettre les opérations du Clipboard si cela ne fonctionne pas déjà:

Onglet Sécurité-->Personnaliser le niveau-->Autoriser l'accès programmatique du presse-papiers-->cocher autoriser

Juste pour info ton code fonctionne très bien chez moi.
Je sais ça fout les boules... mais c'est peut-être qu'un réglage à faire chez toi. (Xp home sp2, mode admin)

Oui merci mais j'ai trouvé, je l'explique dans mon post précédent.

Ah, Ok, juste un temps de retard

ha oui , j'avais rien compris au problème

PureBasic

Problème pour coller du texte dans un WebGadget

Problème pour coller du texte dans un WebGadget