易一截屏工具1.0

易一截屏这一款软件是一个非常简单的安卓手机屏幕截图工具。没有多余功能，只能截屏，有需要的朋友可以下载研究！

易一截屏源码如下：
 
Dim savepath
savepath = GetTempDir()
TracePrint savepath
savepath = Replace(LCase(savepath), "mobileanjian", "DCIM")
TracePrint savepath
Dim MyVar
MyVar = Now()
TracePrint MyVar
Snapshot savepath & MyVar & ".png"