最近参加按键精灵的开发认证,下面是其4级的3道题目,比较简单,列于此处仅供参考。
1、查找窗口标题("Internet Explorer")的句柄,并激活(激活窗口)
//查找窗口标题("Internet Explorer")的句柄,保存到数组
HwndEx = Plugin.Window.Search("Internet Explorer")
//分割获得的句柄
dim HwArray,Max
HwArray = Split(HwndEx, "|")
Max_array=UBound(HwArray)
If Max_array>=0 Then
For i = 0 To Max_array-1
//切换窗口
Call Plugin.Window.Active(Clng(HwArray(i)))
Msgbox "切换窗口:" & Clng(HwArray(i))
Delay 500
Next
End If
2、随机生成2-6个65-90之间的偶数
//随机生成2~6个
Randomize
Num_Cnt = Round(Rnd * 4, 0) + 2
While Num_Cnt>0
Num_Cnt = Num_Cnt - 1
//随机数65~90
MyNumber = Round(Rnd * 25, 0) + 65
//奇数+1后再显示,因为随机最大奇数89,所以+1后为90,在正确区间内
If MyNumber mod 2 != 0 Then MyNumber = MyNumber + 1
Msgbox MyNumber & ",【 " & Chr(MyNumber) & " 】(剩余" & Num_Cnt & "个)", 64, "CharASC"
Wend
3、随机生成2005-01-01到2012-03-31之间的日期,并显示
Dim Year_rnd,Month_rnd,Day_rnd,Date_Rnd
Randomize
//年随机
Year_rnd = Round(Rnd * 7, 0) + 2005
//2012年最大只到3月份
If Year_rnd = 2012 Then
Month_rnd = Round(Rnd * 2, 0) + 1
Else
Month_rnd = Round(Rnd * 11, 0) + 1
End If
//日随机,及判断
Select Case Month_rnd
Case 1, 3, 5, 7, 8, 10, 12
Day_rnd = Round(Rnd * 30, 0) + 1 //大月31天
Case 4, 6, 9, 11
Day_rnd = Round(Rnd * 29, 0) + 1 //小月30天
Case 2
//2月份判断,闰年29天,平年28天
If (Int(Year_rnd) Mod 4=0) And (Int(Year_rnd) Mod 100=0) Or (Int(Year_rnd) Mod 400=0) Then
Day_rnd = Round(Rnd * 28, 0) + 1
Else
Day_rnd = Round(Rnd * 27, 0) + 1
End If
End Select
//格式修正,补充0
If Month_rnd<10 then Month_rnd= "0" & Month_rnd
If Day_rnd<10 then Day_rnd= "0" & Day_rnd
Date_Rnd = Year_rnd & "-" & Month_rnd & "-" & Day_rnd
//输出日期
TracePrint Date_Rnd