Noobcube Posted May 1, 2009 Share Posted May 1, 2009 i want a script what will generate a 9 digit random number e.g 123456987 but i cant seem to find anything useful in help can anyone help me ? Link to comment Share on other sites More sharing options...
DCCD Posted May 1, 2009 Share Posted May 1, 2009 (edited) $Generate=InputBox("XXX", "How many?", "1000", "", 15, 15) If @error Then Exit $String="" $hnd=FileOpen("Keys.txt", 1) $i=0 Do $i=$i+1 $String="" Do $Random=Random(0, 9, 1) $String=$String&$Random Until StringLen($String) > 9 If $i=$Generate Then FileWrite($hnd, $String) Else FileWrite($hnd, $String&@CRLF) EndIf Until $i=$Generate FileClose($hnd) Edited May 1, 2009 by DCCD [u][font=Arial Black]M[/font]y Blog, AVSS Parts[/u][font=Arial Black]Else[/font][font=Arial Black]L[/font]ibya Linux Users Group Link to comment Share on other sites More sharing options...
Noobcube Posted May 1, 2009 Author Share Posted May 1, 2009 $Generate=InputBox("XXX", "How many?", "1000", "", 15, 15) If @error Then Exit $String="" $hnd=FileOpen("Keys.txt", 1) $i=0 Do $i=$i+1 $String="" Do $Random=Random(0, 9, 1) $String=$String&$Random Until StringLen($String) > 9 If $i=$Generate Then FileWrite($hnd, $String) Else FileWrite($hnd, $String&@CRLF) EndIf Until $i=$Generate FileClose($hnd) thanks alot m8 how do i get it so it will just send the numbers straight to notepad? Link to comment Share on other sites More sharing options...
Noobcube Posted May 1, 2009 Author Share Posted May 1, 2009 thanks alot m8how do i get it so it will just send the numbers straight to notepad?can anyone help with that? Link to comment Share on other sites More sharing options...
DCCD Posted May 1, 2009 Share Posted May 1, 2009 (edited) $Generate=InputBox("Key Gen", "How many keys be made?", "1000", "", 15, 15) If @error Then Exit $String="" Run("notepad.exe") $i=0 Do $i=$i+1 $String="" Do $Random=Random(0, 9, 1) $String=$String&$Random Until StringLen($String) > 9 If $i=$Generate Then WinWaitActive("Untitled -") Send($Sting) Else WinWaitActive("Untitled -") Send($String&@CRLF) EndIf Until $i=$Generate Edited May 1, 2009 by DCCD [u][font=Arial Black]M[/font]y Blog, AVSS Parts[/u][font=Arial Black]Else[/font][font=Arial Black]L[/font]ibya Linux Users Group Link to comment Share on other sites More sharing options...
andybiochem Posted May 1, 2009 Share Posted May 1, 2009 WinActivate("[CLASS:Notepad]") Send(Random(100000000,999999999,1)) - Table UDF - create simple data tables - Line Graph UDF GDI+ - quickly create simple line graphs with x and y axes (uses GDI+ with double buffer) - Line Graph UDF - quickly create simple line graphs with x and y axes (uses AI native graphic control) - Barcode Generator Code 128 B C - Create the 1/0 code for barcodes. - WebCam as BarCode Reader - use your webcam to read barcodes - Stereograms!!! - make your own stereograms in AutoIT - Ziggurat Gaussian Distribution RNG - generate random numbers based on normal/gaussian distribution - Box-Muller Gaussian Distribution RNG - generate random numbers based on normal/gaussian distribution - Elastic Radio Buttons - faux-gravity effects in AutoIT (from javascript)- Morse Code Generator - Generate morse code by tapping your spacebar! Link to comment Share on other sites More sharing options...
WideBoyDixon Posted May 1, 2009 Share Posted May 1, 2009 I see your two lines and raise you: ControlSend("[CLASS:Notepad]", "", "[CLASS:Edit; INSTANCE:1]", Random(100000000,999999999,1) & @CR) WBD [center]Wide by name, Wide by nature and Wide by girth[u]Scripts[/u]{Hot Folders} {Screen Calipers} {Screen Crosshairs} {Cross-Process Subclassing} {GDI+ Clock} {ASCII Art Signatures}{Another GDI+ Clock} {Desktop Goldfish} {Game of Life} {3D Pie Chart} {Stock Tracker}[u]UDFs[/u]{_FileReplaceText} {_ArrayCompare} {_ToBase}~ My Scripts On Google Code ~[/center] Link to comment Share on other sites More sharing options...
andybiochem Posted May 1, 2009 Share Posted May 1, 2009 I see your two lines and raise you: ControlSend("[CLASS:Notepad]", "", "[CLASS:Edit; INSTANCE:1]", Random(100000000,999999999,1) & @CR) WBD check! $a = WinActivate("[CLASS:Notepad]") + Send(Random(100000000,999999999,1)) - Table UDF - create simple data tables - Line Graph UDF GDI+ - quickly create simple line graphs with x and y axes (uses GDI+ with double buffer) - Line Graph UDF - quickly create simple line graphs with x and y axes (uses AI native graphic control) - Barcode Generator Code 128 B C - Create the 1/0 code for barcodes. - WebCam as BarCode Reader - use your webcam to read barcodes - Stereograms!!! - make your own stereograms in AutoIT - Ziggurat Gaussian Distribution RNG - generate random numbers based on normal/gaussian distribution - Box-Muller Gaussian Distribution RNG - generate random numbers based on normal/gaussian distribution - Elastic Radio Buttons - faux-gravity effects in AutoIT (from javascript)- Morse Code Generator - Generate morse code by tapping your spacebar! Link to comment Share on other sites More sharing options...
CodyBarrett Posted May 2, 2009 Share Posted May 2, 2009 i Fold... [size="1"][font="Tahoma"][COMPLETED]-----[FAILED]-----[ONGOING]VolumeControl|Binary Converter|CPU Usage| Mouse Wrap |WinHide|Word Scrammbler|LOCKER|SCREEN FREEZE|Decisions Decisions|Version UDF|Recast Desktop Mask|TCP Multiclient EXAMPLE|BTCP|LANCR|UDP serverless|AIOCR|OECR|Recast Messenger|AU3C|Tik-Tak-Toe|Snakes & Ladders|BattleShips|TRON|SNAKE_____________________[u]I love the Helpfile it is my best friend.[/u][/font][/size] 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