Vieur test.

Miscellaneous Forums/General Discussion/Vieur test.

Here is some Blitz3D example code - it's really easy.
; This simple demonstration is for Blitz3D
; The demo shows adverts for a duration of 15 seconds with a 1 minute duration between ad displays.
; In the real world you'd set up for 15-20 minute gaps between ads and then only show the ad at a natural break ie.Between levels.


Graphics3D 800,600,32,2

HWND 	= GetActiveWindow()
URL$	= "7b4325302e46c619fb4C3bf7d4621bb301d1e401eeac2794e51697fbde6dbc2756cd663577e8cd9780aa159d3963178d5e9409c93b1c2aba3f55c71a35089726938aaf9c67a52d3ba3e75ff446105bcd00"
xPos	= 50			; xPosition of Advert - Upper Left (pixels)
yPos	= 50			; yPosition of Advert - Upper Left (pixels)
width	= 700			; width of advert window (pixels)
height	= 500			; height of advert window (pixels)
Ident$	= "?type=1"		; This is the string appended to the URL for tracking useage

TimeBetweenAds	= 1 	; This is minutes
DurationOfAds	= 15 	; This is seconds

AdFlipper		= 0		; For the Purposes of this test only

Vieur_Initialise(HWND, URL, xPos, yPos, width, height, TimeBetweenAds) ; Initialise DLL with details.

While Not KeyHit(1)
	If Vieur_Ready()								; Can we display an ad based on our parameters?
		AdFlipper = 1 - AdFlipper
		If AdFlipper = 1
			Vieur_Display(Ident, DurationOfAds)		; Display the advert and set duration - You must remove the advert manually
		Else
			Vieur_Destroy()							; Remove the advert from display
		EndIf	
	EndIf
Wend

Vieur_Destroy() 									; Clean up before exit