Visual Basic

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = True
        TextBox1.Text = Format(Now, "M")
        Timer1.Interval = 60000
        Timer1.Start()

Dim PageHTMLBytes() As Byte
Dim htmlText as string = ""

PageHTMLBytes = webClient.DownloadData(url)
' Convert result from byte array to string
Dim utf8 As New UTF8Encoding()
htmlText = utf8.GetString(PageHTMLBytes)
...
-Edit of the html code-
...
miniWebBrowser.DocumentText = editedhtmlText

Dim request As HttpWebRequest = WebRequest.Create("http://www.cam4.com")

'Set cookies.
request.CookieContainer = New CookieContainer()
request.CookieContainer.Add(New Cookie("user", "usuario1", "/", url))
request.CookieContainer.Add(New Cookie("password", "password1", "/", url))

Dim response As HttpWebResponse = request.GetResponse()
Dim reader As IO.StreamReader = New IO.StreamReader(response.GetResponseStream(), True)
Dim html As String = reader.ReadToEnd()
web.DocumentText = html

Dim prc As New Process
            
With prc.StartInfo
.FileName = "e:\abc.bat" 'batchfile to execute
.UseShellExecute = False
.RedirectStandardInput = True
End With

prc.Start()
prc.StandardInput.WriteLine("{enter}")
prc.Close()

prc.StandardInput.WriteLine("{enter}")

<br />
<br />
Public Class Form1<br />
    Dim digits As Integer() = New Integer(6) {}<br />
    Dim letters As String(,) = New String(,) {{" ", " ", " "}, _<br />
       {" ", " ", " "}, {"A", "B", "C"}, {"D", "E", "F"}, _<br />
       {"G", "H", "I"}, {"J", "K", "L"}, {"M", "N", "O"}, _<br />
       {"P", "R", "S"}, {"T", "U", "V"}, {"W", "X", "Y"}}<br />
<br />
    Dim phoneNumber As Integer<br />
    Dim Number As String<br />
    Dim OutPut As String<br />
<br />
<br />
    Private Sub GenerateButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GenerateButton.Click<br />
<br />
        phoneNumber = Convert.ToInt32(Number)<br />
<br />
        For i As Integer = 6 To 0 Step -1<br />
            digits(i) = phoneNumber Mod 10<br />
            phoneNumber \= 10<br />
            '  MessageBox.Show("Number = " & Str(phoneNumber))<br />
<br />
            For loop1 As Integer = 0 To 2<br />
                For loop2 As Integer = 0 To 2<br />
                    For loop3 As Integer = 0 To 2<br />
                        For loop4 As Integer = 0 To 2<br />
                            For loop5 As Integer = 0 To 2<br />
                                For loop6 As Integer = 0 To 2<br />
                                    For loop7 As Integer = 0 To 2<br />
                                        OutPut &= String.Format("{0, -10}", _<br />
                                           letters(digits(0), loop1) & _<br />
                                           letters(digits(1), loop2) & _<br />
                                           letters(digits(2), loop3) & _<br />
                                           letters(digits(3), loop4) & _<br />
                                           letters(digits(4), loop5) & _<br />
                                           letters(digits(5), loop6) & _<br />
                                           letters(digits(6), loop7))<br />
                                    Next<br />
                                Next<br />
                            Next<br />
                        Next<br />
                    Next<br />
                Next<br />
            Next<br />
        Next<br />
<br />
    End Sub<br />
<br />
<br />
    Private Sub PhoneNumberTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PhoneNumberTextBox.TextChanged<br />
        Number = PhoneNumberTextBox.Text<br />
    End Sub<br />
<br />
    Private Sub PhoneNumberWordsListBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PhoneNumberWordsListBox.SelectedIndexChanged<br />
        OutPut = PhoneNumberWordsListBox.Text<br />
    End Sub<br />
End Class<br />