Dim str
str = "01010000cca4eb17d0b9656464640000ffff00000000485643414d2d4430312d4c533133303230303231000000000000000000000000444d363436375f323030575f4c49544500000000000000000000000000000000"
length=Len(str)
for i=1 to length
KeyPress mid(str,i,1),1
next
.png)
