AutoIt3实现了产生随机数的算法，封装成函数_Random()后提供使用，通过调用该函数产生一定范围的随机数。

1. MsgBox(64, "随机数", _Random(1))  
   
2. MsgBox(64, "随机数", _Random(10))   
   
3. MsgBox(64, "随机数", _Random(100))   
   
4. MsgBox(64, "随机数", _Random(1000))   
   
5. MsgBox(64, "随机数", _Random(10000))   
   
6.    
   
7. ;;产生随机数函数  
   
8. Func _Random($nNum1 = 0, $nNum2 = 0, $iFlag = 0)  
   
9.     ; Invalid 1st parameter  
   
10.     If Not IsNumber($nNum1) Then Return SetError(1, 0, 0)   
    
11.     Switch @NumParams  
    
12.         Case 0  
    
13.             Return Random()  
    
14.         Case 1  
    
15.             If $nNum1 < 0 Then Return -Random(-$nNum1)  
    
16.             Return Random($nNum1)  
    
17.         Case Else  
    
18.             ; Invalid 2nd or 3rd parameter  
    
19.             If Not IsNumber($nNum1) Or ($iFlag <> 0 And $iFlag <> 1) Then Return SetError(2, 0, 0)   
    
20.             If $nNum1 = $nNum2 Then Return $nNum1  
    
21.             If $nNum2 > $nNum1 Then Return Random($nNum1, $nNum2, $iFlag)  
    
22.             Return Random($nNum2, $nNum1, $iFlag)  
    
23.     EndSwitch  
    
24. EndFunc  

复制代码

膜拜大神3秒钟

感谢{author}楼主

奥利给

非常感谢