VBS获得随机数，截图函数

'获取随机数

Public function randonum()

　　Randomize 

　　randonum = replace(10000*rnd(),".","a") & "@qq.com"

End Function

'获取指定范围内的随机数

MAX,MIN

Randomize
WScript.Echo Int((MAX-MIN+1)*Rnd)+MIN

'截图

Public function capture(part)

   Dim filename

   filename = now() & ".png"

   filename = replace(filename,"/","")

   filename = replace(filename,":","")

   filename =  "D:\capture\" & filename

part.capturebitmap filename

End Function