Jump to content
Sign in to follow this  
i542

iRandomizer

Recommended Posts

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


I can do signature me.

Share this post


Link to post
Share on other sites
XxXFaNtA

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

Greetz,

FaNtA

Share this post


Link to post
Share on other sites
ConsultingJoe

what is this for?


[center]AutoIT + Finger Print Reader/Scanner = COOL STUFF -> Check Out Topic![/center][center][font=Arial Black]Check out ConsultingJoe.com[/font][/center][center]My Scripts~~~~~~~~~~~~~~Web Protocol Managing - Simple WiFi Scanner - AutoTunes - Remote PC Control V2 - Audio SpectrascopePie Chart UDF - At&t's TTS - Custom Progress Bar - Windows Media Player Embed[/center]

Share this post


Link to post
Share on other sites
i542

what is this for?

See "Yikes" topic in Chat.

I can do signature me.

Share this post


Link to post
Share on other sites
ConsultingJoe

See "Yikes" topic in Chat.

LOL, I get it.

Nice little script i105


[center]AutoIT + Finger Print Reader/Scanner = COOL STUFF -> Check Out Topic![/center][center][font=Arial Black]Check out ConsultingJoe.com[/font][/center][center]My Scripts~~~~~~~~~~~~~~Web Protocol Managing - Simple WiFi Scanner - AutoTunes - Remote PC Control V2 - Audio SpectrascopePie Chart UDF - At&t's TTS - Custom Progress Bar - Windows Media Player Embed[/center]

Share this post


Link to post
Share on other sites
NELyon

I like it i4858394857474wtflol68594!

Share this post


Link to post
Share on other sites
i542

cant change it :)

EDIT: And I am already buyed domain i542.net

Edited by i542

I can do signature me.

Share this post


Link to post
Share on other sites
jvanegmond

cant change it :)

EDIT: And I am already buyed domain i542.net

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

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites
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.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.