//随机输出下面2个日期之间的随机日期
Function 结果()
开始时间 = "2012-01-22"
结束时间 = "2014-12-31"
时间间隔 = DateDiff("d", 开始时间, 结束时间)
Randomize
随机日期 = Int((时间间隔 * Rnd) + 0)
结果 = DateAdd("d",随机日期,开始时间)
End Function
TracePrint 结果()
//遍历IE浏览器窗口，全部改编成800x600大
Delay 5000
HwndEx = Plugin.Window.Search("Internet Explorer")
dim MyArray
MyArray = Split(HwndEx, "|")
If UBound(MyArray)>=0 Then
i=0
For UBound(MyArray)
TracePrint MyArray(i)
Call Plugin.Window.Size(MyArray(i), 800, 600)
i=i+1
Next
End If
//模仿SayString输入文本，能输出字母就可以了
Function 输出(输入的字符请加双引号)
a = 输入的字符请加双引号
For i = 1 To len(a)
Delay 20
Key = mid(a,i,1)
KeyPress Key, 1
TracePrint Key
Next
End Function
call 输出("abcdefg")