#include "win\ddraw.bi"
#include "win\d3d.bi"

width 80,50

dim as GUID ptr GUIDS(...) = { @IID_IDirect3D, @IID_IDirect3D2, _
 @IID_IDirect3D3, @IID_IDirect3D7, @IID_IDirect3DRampDevice,  @IID_IDirect3DRGBDevice,_
 @IID_IDirect3DHALDevice, @IID_IDirect3DMMXDevice, @IID_IDirect3DRefDevice, _
 @IID_IDirect3DNullDevice, @IID_IDirect3DTnLHalDevice, @IID_IDirect3DDevice, _
 @IID_IDirect3DDevice2, @IID_IDirect3DDevice3,  @IID_IDirect3DDevice7, _
 @IID_IDirect3DTexture, @IID_IDirect3DTexture2, @IID_IDirect3DLight, _
 @IID_IDirect3DMaterial, @IID_IDirect3DMaterial2,  @IID_IDirect3DMaterial3, _
 @IID_IDirect3DExecuteBuffer, @IID_IDirect3DViewport,  @IID_IDirect3DViewport2, _
 @IID_IDirect3DViewport3, @IID_IDirect3DVertexBuffer, @IID_IDirect3DVertexBuffer7 }

for CNT as integer = 0 to ubound(GUIDS)
  'TOGUID(&h69C11C3E,&hB46B,&h11D1,&hAD,&h7A,&h00,&hC0,&h4F,&hC2,&h9B,&h4E)
  with *GUIDS(CNT)
    dim as string TMPDATA = "TOGUID(&h"+hex$(.Data1,8)+ _ 
    ",&h"+ hex$(.Data2,4)+",&h"+ hex$(.Data3,4)
    for D4 as integer = 0 to 7
      TMPDATA += ",&h"+hex$(.Data4(D4),2)
    next D4
    TMPDATA += ")"
    print TMPDATA
  end with
next CNT

sleep
'&h6C14DB80,&hA733,&h11CE,&hA5,&h21,&h00,&h20,&hAF,&h0B,&hE5,&h60