Random Function

[Joke758 1]

I just made a function for fun with the ie.au3.

Requirements:

AutoIt3 Beta with COM support (post 3.1.1) and IE.net

Thanks to random.org.

This is a bit useless but I made this for fun and for testing ie.au3 only ^^.

expandcollapse popup

;By Joke758

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;  Use the _Random function to generate a true random number   ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#include <GUIConstants.au3>
#include <ie.au3>
$Form2 = GUICreate("Yes\No question asker", 375, 165, 251, 158)
GUISetBkColor(0x008080)
GUICtrlCreateLabel("Yes\No question asker", 80, 16, 215, 26)
GUICtrlSetFont(-1, 14, 800, 0, "Small Fonts")
GUICtrlSetColor(-1, 0x000080)
GUICtrlSetBkColor(-1, 0x008080)
$Button1 = GUICtrlCreateButton("Ask", 144, 128, 75, 25)
$Input1 = GUICtrlCreateInput("", 56, 96, 249, 21, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateLabel("Ask your question here:", 128, 72, 115, 17)
GUICtrlSetBkColor(-1, 0x008080)
GUISetState(@SW_SHOW)
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case Else
    EndSelect
;;;;;;;;;;
If $msg = $button1 and GUICTRLREAD ( $input1 ) = "" Then
    MsgBox ( 16, "Error", "Please ask a question" )
EndIf

If $msg = $button1 and GUICTRLREAD ( $input1 ) <> "" Then
    $a = _Random (1,2)
    If $a = 1 Then
    GuiCtrlSetData ( $input1, "Yes" )
    EndIf
    
    If $a = 2 Then
    GuiCtrlSetData ( $input1, "No" )
EndIf
EndIf
;;;;;;;;;;
WEnd
Exit








;===============================================================================
;
; Function Name:    _Random($value1,$value2)
; Description:      Return a true random number using www.random.org, using atmospheric noise.
; Parameter(s):     $value1         The smallest value ( -1000000000 is the minimum )
;                   $value2         The largest value ( 1000000000 is the maximum )

; Requirement(s):   AutoIt3 Beta with COM support (post 3.1.1) and IE.net
; Return Value(s):  On Success - Returns a true random number
;                   On Failure - Returns 0 and sets @ERROR = 1
; Author(s):        Joke758
;
;===============================================================================
;
Func _Random($value1,$value2)
    
    If $value1 < -1000000000 Then
        SetError( 1 )
        Return 0
    EndIf
    
    If $value2 > 1000000000 Then
        SetError( 1 )
        Return 0
    EndIf

$oIE = _IECreate("http://random.org/cgi-bin/randnum?num=1&min=" & $value1 & "&max=" & $value2 & "&col=1",0, 0)
$randomz0r = _IEBodyReadText($oIE)
Return $randomz0r
Endfunc ;==> _Random

:">

Edited June 6, 2006 by Joke758

[spyrorocks 1]

This is cool. I think it is a greate example of what the IE UDF can do and also allows for compleate randomness. That is really cool. 7/10.

[RazerM 0]

This is nice! It's very quick as well.

[w0uter 2]

_INetGetSource() should do what you need and it should take up less time then ie.au3 (or at the verry least consume less memory)

but if this was only for trying out ie.au3 id say good job