iRandomizer

[i542]

Ok, I noticed beerman & Secure like to call me with randomized username every day:

MsgBox(64,"iRandomizer","iRandomizer - call i542 with another name every day. (c) i542 2007.")
#include <GUIConstants.au3>
GUICreate("iRandomizer", 197, 91, 193, 113)
GUICtrlCreateLabel("Today call i542 as:", 3, 3, 93, 17)
$randomized = GUICtrlCreateLabel("i000", 5, 21, 85, 17, $SS_SUNKEN)
_RandomizeUser()
$go = GUICtrlCreateButton("Generate new!", 5, 45, 87, 25, 0)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $go
            _RandomizeUser()
    EndSwitch
WEnd
Func _RandomizeUser()
$ran = Random(1,999,1)
Switch $ran
    Case 1 to 9
        $mynewuser = "i00" & $ran
    Case 10 to 99
        $mynewuser = "i0" & $ran
    Case 100 to 999
        $mynewuser = "i" & $ran
    Case Else
        $mynewuser = "iDiot"
EndSwitch
GUICtrlSetData($randomized, $mynewuser)
EndFunc

To call me with another name every day just run this script and you will see generated username or click "Generate new" to generate new username

i542

[XxXFaNtA]

Hehe..Nice, but you could use StringFormat instead of the Switch-Case-Statement :]

Greetz,

FaNtA

[ConsultingJoe]

what is this for?

[James]

Coming up with new names for him.. Because we all change his name.

[i542]

what is this for?

See "Yikes" topic in Chat.

[ConsultingJoe]

See "Yikes" topic in Chat.

LOL, I get it.

Nice little script i105

[NELyon]

I like it i4858394857474wtflol68594!

[jvanegmond]

i386 should be your new name.

[i542]

cant change it

EDIT: And I am already buyed domain i542.net

Edited June 5, 2007 by i542

[jvanegmond]

cant change it

EDIT: And I am already buyed domain i542.net

Too bad you are using Php-nuke, i747. Edited June 5, 2007 by Manadar

[jvanegmond]

I was bored and so I shortened this to a minimum lenght just for fun..

Anyone else has suggestions?

MsgBox(64,"iRandomizer","iRandomizer - call i542 with another name every day. © i542 2007.")
GUICreate("iRandomizer",197,91,193,113)
GUICtrlCreateLabel("Today call i542 as:",3,3,93,17)
$c=GUICtrlCreateLabel("i911",5,21,85,17,0x50001100)
$a=GUICtrlCreateButton("Generate new!",5,45,87,25)
GUISetState()
While 1
Switch GUIGetMsg()
Case -3
Exit
Case $a
$b=Random(1,999,1)
If $b>=100 Then GUICtrlSetData($c,"i"&$B)
If $b>=10 AND $b<100 Then GUICtrlSetData($c,"i0"&$B)
If $b>=1 AND $b<10 Then GUICtrlSetData($c,"i00"&$B)
EndSwitch
WEnd

[BrettF]

I was bored and so I shortened this to a minimum lenght just for fun..

Anyone else has suggestions?

I was boreder, so i did it this way. And how did i miss this thread??? Distressing.......

Dim $numbers[10] = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9]
Dim $letter1[26] = ["a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"] 
Dim $name1 = $letter1[Random (0,26)] & $numbers[Random (0,10)] & $numbers[Random (0,10)] & $numbers[Random (0,10)]
Dim $name2 = $letter1[Random (0,26)] & $numbers[Random (0,10)] & $numbers[Random (0,10)] & $numbers[Random (0,10)]
Dim $name3 = $letter1[Random (0,26)] & $numbers[Random (0,10)] & $numbers[Random (0,10)] & $numbers[Random (0,10)]
MsgBox (0, $name1&"'s New Name!", $name2&"'s New name is... " & $name3)

Could be better... could make it do the other things..... like make sure each letter and number is different.