Call Plugin.File.WriteFileEx("d:\1.txt", "                <string>0#0#0#"&lenth&"#0</string>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              </PlayDuration>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <BeginTime>0001-01-01T00:00:00</BeginTime>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <EndTime>0001-01-01T00:00:00</EndTime>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <Times>-1</Times>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <BackColor>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "                <string>255#0#0#0</string>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              </BackColor>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <BackImagePath />")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <BackImageLayout>Stretch</BackImageLayout>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <Opacity>1</Opacity>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <Path>D:\广告\"&typ&"</Path>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <DispRatioType>OriginalRatio</DispRatioType>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <IsHasInEffect>true</IsHasInEffect>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <InEffectType>0</InEffectType>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <InEffectSpeed>1</InEffectSpeed>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <IsHasOutEffect>false</IsHasOutEffect>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <OutEffectType>0</OutEffectType>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <OutEffectSpeed>5</OutEffectSpeed>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <MusicPath />")
	Call Plugin.File.WriteFileEx("d:\1.txt", "            </PictureMedia>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              </Media>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <AdditionalInfo />")
	Call Plugin.File.WriteFileEx("d:\1.txt", "            </Item>")
End Sub
Sub flash()
	Call Plugin.File.WriteFileEx("d:\1.txt", "            <Item Type=""" & "Flash"">")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <Media>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "                <FlashMedia>")	
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <Name>"&typ&"</Name>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <PlayDuration>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "                <string>0#0#0#"&lenth&"#0</string>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              </PlayDuration>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <BeginTime>0001-01-01T00:00:00</BeginTime>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <EndTime>0001-01-01T00:00:00</EndTime>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <Times>-1</Times>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <BackColor>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "                <string>255#0#0#0</string>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              </BackColor>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <BackImagePath />")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <BackImageLayout>Stretch</BackImageLayout>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <Opacity>1</Opacity>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <Path>D:\广告\"&typ&"</Path>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <DispRatioType>OriginalRatio</DispRatioType>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "            </FlashMedia>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              </Media>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <AdditionalInfo />")
	Call Plugin.File.WriteFileEx("d:\1.txt", "            </Item>")
End Sub
Sub video()
	Call Plugin.File.WriteFileEx("d:\1.txt", "            <Item Type=""" & "Video"">")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <Media>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "                <VideoMedia>")	
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <Name>"&typ&"</Name>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <PlayDuration>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "                <string>0#0#0#"&lenth&"#0</string>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              </PlayDuration>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <BeginTime>0001-01-01T00:00:00</BeginTime>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <EndTime>0001-01-01T00:00:00</EndTime>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <Times>-1</Times>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <BackColor>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "                <string>255#0#0#0</string>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              </BackColor>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <BackImagePath />")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <BackImageLayout>Stretch</BackImageLayout>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <Opacity>1</Opacity>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <Path>D:\广告\"&typ&"</Path>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <DispRatioType>OriginalRatio</DispRatioType>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <VolumnPercent>100</VolumnPercent>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "            </VideoMedia>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              </Media>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "              <AdditionalInfo />")
	Call Plugin.File.WriteFileEx("d:\1.txt", "            </Item>")
End Sub
Sub xiaofang()
	Call Plugin.File.WriteFileEx("d:\1.txt", "        <TimingPointInfo>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "          <StartTime>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "            <string>0#"&xftime&"#0#0#0</string>")	
	Call Plugin.File.WriteFileEx("d:\1.txt", "          </StartTime>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "          <IsSpecificDate>false</IsSpecificDate>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "          <StartDate>2012-09-20T00:00:00+08:00</StartDate>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "          <StopDate>2012-09-20T00:00:00+08:00</StopDate>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "          <WeekDay>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "            <boolean>true</boolean>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "            <boolean>true</boolean>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "            <boolean>true</boolean>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "            <boolean>true</boolean>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "            <boolean>true</boolean>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "            <boolean>true</boolean>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "            <boolean>true</boolean>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "          </WeekDay>")
	Call Plugin.File.WriteFileEx("d:\1.txt", "        </TimingPointInfo>")
End Sub