Sign in to follow this  
Followers 0
i542

iRandomizer

12 posts in this topic

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



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

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

what is this for?

See "Yikes" topic in Chat.

I can do signature me.

Share this post


Link to post
Share on other sites

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

I like it i4858394857474wtflol68594!

Share this post


Link to post
Share on other sites

#9 ·  Posted (edited)

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

#10 ·  Posted (edited)

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

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

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  
Followers 0