|
3#
楼主 |
发表于 2012-9-24 17:57:45
|
只看该作者
截图函数式封装在函数库中的,现在是被同在函数库中的testhelp函数调用
整个action中只有:
dim filename
call testhelp()
这两句。
Public Function capture()
Dim datestamp
datestamp = Now()
filename = Environment("TestName")&"_"&datestamp&".png"
filename = Replace(filename,"/","")
filename = Replace(filename,":","")
filename = "e:\"&"picture\ "&filename
Desktop.CaptureBitmap filename
End Function
能够正常的截取图片,但是不能将filename写入txt文件中。
如果在action(testhelp)中直接调用截图函数,可以得到filename。
PS:新手上路,编码风格确实烂,亟待提高!
但这个代码肯定是我写的,抄也抄不到这么差的代码。 |
|