Function EmbedGoogleVideo($docid,$Title)
Dim $Source,$Nul
$Source = '<embed style='+'"'+'width:400px; height:326px;'+'"'+' id='+'"'+'VideoPlayback'+'"' + ' align='+'"'+'middle'+'" ' +
'type='+'"'+'application/x-shockwave-flash'+'"'+' src='+'"'+'http://video.google.com/googleplayer.swf?docId=' +
$docid + '"' + ' allowScriptAccess='+'"'+'sameDomain'+'"'+' quality='+'"'+'best'+'"'+' bgcolor='+'"'+'#ffffff '+'"' +
'scale='+'"'+'noScale'+'"'+' salign='+'"'+'TL'+'" ' +
'FlashVars='+'"'+'playerMode=embedded'+'"'+'> </embed>'
$Nul = WriteProfileString('.\googlevideo.ini','MOVIES',$Title,$Source)
Exit @ERROR
EndFunction