[Service] Taking requests

[iruleatants]

All I need is a simple description of the program, in complete sentences and proper grammar. If this is not met, I will IGNORE your post.

I program in vb.net

[Neth'zul]

I don't need a program DONE, just a code..
Im making a GC program, its like put in your gc and this program will give u 5
So my question is, how do I make the program make 5 random 25-digit numbers?

[Murdok]

for vb6

dim i as Integer
dim GameCard(4) as interger

For i = 0 to 24
GameCard(0) = Int((9 - 1 + 1) * Rnd) + 1
GameCard(1) = Int((9 - 1 + 1) * Rnd) + 1
GameCard(2) = Int((9 - 1 + 1) * Rnd) + 1
GameCard(3) = Int((9 - 1 + 1) * Rnd) + 1
GameCard(4) = Int((9 - 1 + 1) * Rnd) + 1

txtGameCard1.text = txtGameCard1.text & GameCard(0) 
txtGameCard2.text = txtGameCard2.text & GameCard(1)
txtGameCard3.text = txtGameCard3.text & GameCard(2)
txtGameCard4.text = txtGameCard4.text & GameCard(3)
txtGameCard5.text = txtGameCard5.text & GameCard(4)
Next i

[Zeroi9]

for vb6

dim i as Integer
dim GameCard(4) as interger

For i = 0 to 24
GameCard(0) = Int((9 - 1 + 1) * Rnd) + 1
GameCard(1) = Int((9 - 1 + 1) * Rnd) + 1
GameCard(2) = Int((9 - 1 + 1) * Rnd) + 1
GameCard(3) = Int((9 - 1 + 1) * Rnd) + 1
GameCard(4) = Int((9 - 1 + 1) * Rnd) + 1

txtGameCard1.txt = txtGameCard1.text & GameCard(0) 
txtGameCard2.txt = txtGameCard2.text & GameCard(0)
txtGameCard3.txt = txtGameCard3.text & GameCard(0)
txtGameCard4.txt = txtGameCard4.text & GameCard(0)
txtGameCard5.txt = txtGameCard5.text & GameCard(0)

Next i

or use getrandomizefunction? Much easier. like
Button1_click
Textbox1.text = (getrandomizefunction,1234567890,5))
this will randomize 5 numbers b etween 1234567890 in the textbox1.text

[Murdok]

Do you mean something like ?

Text1.Text = Rnd(1234567890)

[1337person]

i could also use a code if u don't mind or some help, im making a rick roll virus and i need a code that Adds it to the Reg, Note: not just my computer then

Would be appreciate if u could make this been looking for days

i use VB.net Express 2008

If u got Msn and got time for a little person like me with my small programs PM Me

[Apoc]

''' <summary>
''' Creates a registry key with the specified name and value.
''' </summary>
''' <param name="keyPath">The path to the registry key in the HKLM registry node. E.G: Software\\Microsoft\\Windows\\CurrentVersion\\Run</param>
''' <param name="name">The name of the registry key to add.</param>
''' <param name="value">The value of the key.</param>
'''<exception cref="NullReferenceException">Thrown when the key does not exist. You must handle this yourself.</exception>
Public Shared Sub SetRegKey(ByVal keyPath As String, ByVal name As String, ByVal value As Object)
    Using lm As RegistryKey = Registry.LocalMachine
        Using k As RegistryKey = lm.OpenSubKey(keyPath, True)
            If k.OpenSubKey(name) Is Nothing Then
                k.CreateSubKey(name).SetValue(name, value)
            Else
                k.OpenSubKey(name).SetValue(name, value)
            End If
        End Using
    End Using
End Sub

Might need some syntax fixing (took this straight out of one of my C# projects, and just converted it).

[Neth'zul]

Thanks man +rep