i542 Posted June 2, 2007 Share Posted June 2, 2007 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. Link to comment Share on other sites More sharing options...
XxXFaNtA Posted June 2, 2007 Share Posted June 2, 2007 Hehe..Nice, but you could use StringFormat instead of the Switch-Case-Statement :] Greetz, FaNtA /[center][/center] Link to comment Share on other sites More sharing options...
ConsultingJoe Posted June 3, 2007 Share Posted June 3, 2007 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] Link to comment Share on other sites More sharing options...
James Posted June 3, 2007 Share Posted June 3, 2007 Coming up with new names for him.. Because we all change his name. Blog - Seriously epic web hosting - Twitter - GitHub - Cachet HQ Link to comment Share on other sites More sharing options...
i542 Posted June 3, 2007 Author Share Posted June 3, 2007 what is this for?See "Yikes" topic in Chat. I can do signature me. Link to comment Share on other sites More sharing options...
ConsultingJoe Posted June 3, 2007 Share Posted June 3, 2007 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] Link to comment Share on other sites More sharing options...
NELyon Posted June 3, 2007 Share Posted June 3, 2007 I like it i4858394857474wtflol68594! Link to comment Share on other sites More sharing options...
jvanegmond Posted June 3, 2007 Share Posted June 3, 2007 i386 should be your new name. github.com/jvanegmond Link to comment Share on other sites More sharing options...
i542 Posted June 5, 2007 Author Share Posted June 5, 2007 (edited) cant change it EDIT: And I am already buyed domain i542.net Edited June 5, 2007 by i542 I can do signature me. Link to comment Share on other sites More sharing options...
jvanegmond Posted June 5, 2007 Share Posted June 5, 2007 (edited) cant change it EDIT: And I am already buyed domain i542.netToo bad you are using Php-nuke, i747. Edited June 5, 2007 by Manadar github.com/jvanegmond Link to comment Share on other sites More sharing options...
jvanegmond Posted June 5, 2007 Share Posted June 5, 2007 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 github.com/jvanegmond Link to comment Share on other sites More sharing options...
BrettF Posted June 9, 2007 Share Posted June 9, 2007 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. Vist my blog!UDFs: Opens The Default Mail Client | _LoginBox | Convert Reg to AU3 | BASS.au3 (BASS.dll) (Includes various BASS Libraries) | MultiLang.au3 (Multi-Language GUIs!)Example Scripts: Computer Info Telnet Server | "Secure" HTTP Server (Based on Manadar's Server)Software: AAMP- Advanced AutoIt Media Player | WorldCam | AYTU - Youtube Uploader Tutorials: Learning to Script with AutoIt V3Projects (Hardware + AutoIt): ArduinoUseful Links: AutoIt 1-2-3 | The AutoIt Downloads Section: | SciTE4AutoIt3 Full Version! Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now