PureBasic Forums - English

Code: Select all

        ; http://msdn.microsoft.com/en-us/library/microsoft.directx_sdk.idirectsoundbuffer8.idirectsoundbuffer8.lock(v=VS.85).aspx 

Code: Select all

http://msdn.microsoft.com/en-us/library/microsoft.directx_sdk.idirectsoundbuffer8.idirectsoundbuffer8.lock%28=VS.85%29.aspx

Code: Select all

; InsertURL Plugin
;-Global
Global jaPBe_Handle
Global jaPBe_Version
#timeout=5000
;-Window-Message
#mywm_Plugin_Cancel             = #WM_USER+18
;-Window-CopyData
#WMCD_InsertText          = 2
Procedure SendDataS(ziel,Type,Message$)
  cd.COPYDATASTRUCT
  cd\dwData=Type
  cd\cbData=Len(Message$)+1
  cd\lpData=@Message$
  ProcedureReturn SendMessage_(ziel,#WM_COPYDATA,WindowID(1),cd)
EndProcedure
Procedure SendData(ziel,Type,adr,len)
  cd.COPYDATASTRUCT
  cd\dwData=Type
  cd\cbData=len + 1
  cd\lpData=adr
  ProcedureReturn SendMessage_(ziel,#WM_COPYDATA,WindowID(1),cd)
EndProcedure
;-Send
Procedure jaPBe_InsertTextS(Text$) ; Insert the Text in the current Source Code
  SendDataS(jaPBe_Handle,#WMCD_InsertText,Text$) 
EndProcedure
;
If OpenWindow(1,0,200,200,200,"jaPBe-Plugin", #PB_Window_Invisible)
  a$=ProgramParameter()
  If a$="jaPBe"
    jaPBe_Handle=Val(ProgramParameter())
    jaPBe_Version$=ProgramParameter()
    ;
    ;- plugin code start ---------------------
    ;
    Line$ = InputRequester("Insert URL", "", "")
    Line$ = ReplaceString(Line$, "(", "%28")
    Line$ = ReplaceString(Line$, ")", "%29")
    jaPBe_InsertTextS(Line$)
    SetFocus_(jaPBe_Handle)
    SetForegroundWindow_(jaPBe_Handle)
    ;
    ;- plugin code end ---------------------
    ;
    PostMessage_(jaPBe_Handle,#mywm_Plugin_Cancel,0,WindowID(1))
  Else
    MessageRequester("jaPBe Plugin","This is a jaPBe-Plugin"+Chr(10)+"You can't run it without jaPBe",0)
  EndIf
  CloseWindow(1)
Else
  MessageRequester("jaPBe Plugin","Can't open a window!",0)
EndIf
End