Category:

Tutorial

Duration: 9:00

102 views

0

Codes:

Generate Code:
TextBox1.Text = Int(Rnd() * 4)
Select Case TextBox1.Text
Case 0
TextBox1.Text = "KEY"
Case 1
TextBox1.Text = "1KEY"
Case 2
TextBox1.Text = "2KEY"
Case 3
TextBox1.Text = "3Key"
End Select


Link Code:
Dim DWB As WebBrowser
DWB = CreateObject("WebBrowser.Applicatio­n")
DWB.Navigate("http://#/")


Message box Code:
MessageBox.Show("message", "title")


Copy Code:
TextBox1.SelectAll()
TextBox1.Copy()


Exit Code:
end