Visual Basic

GDMFSOB wrote:

I think somekind of a dns interseptor would work but dont know how to handle traffic routing in .net.

C#:
 textBox1.Text = listBox1.Items[1].ToString().Split(new char[] { ',' })[2];
 textBox2.Text = listBox1.Items[3].ToString().Split(new char[] { ',' })[4]; 


VB:
 textBox1.Text = listBox1.Items(1).ToString().Split(New Char() {","c})(2)
 textBox2.Text = listBox1.Items(3).ToString().Split(New Char() {","c})(4)

With OpenFileDialog1
      .InitialDirectory = sDefaultDirectory
      .Filter = "Access Database (*.mdb)|*.mdb"
      .ShowDialog()
End With

If Directory.Exists(path) Then 'path contains the path of directory<br />
            Dim dir_info As New DirectoryInfo(path)<br />
            Dim file_infos() As FileInfo<br />
            file_infos = dir_info.GetFiles("*.mdb")<br />
        End If

Private Sub BlaBlaBla()
  Try
    'some code here
    Try
      'some other code here
    Catch ex as Exception
      MsgBox(ex.ToString)
      'and/or some code here
    End Try
    'and even more code here
  Catch ex as Exception
    MsgBox(ex.ToString)
    'and/or some code here
  End Try
  Try
    'and just to make sure, some other code here
  Catch ex as Exception
    MsgBox(ex.ToString)
    'and/or some code here
  End Try
  'etc, etc, etc.
End Sub

Public appLog As New System.Diagnostics.EventLog("Application", ".", appTitle)

appLog.WriteEntry(ex.ToString, EventLogEntryType.Error)

Public Sub EC(ByVal Err As Exception)
	Try
		Dim SW As New System.IO.StreamWriter("C:\error_log.txt", True)
		SW.WriteLine(Err.ToString)
		SW.Close()
	Catch ex As Exception
		appLog.WriteEntry(ex.ToString, EventLogEntryType.Error)
	End Try
End Sub

Public Shared Function ManualMail(ByVal oFrom As String, ByVal oSubject As String, ByVal oTo As String, ByVal oText As String, Optional ByVal oCC As String = "", Optional ByVal oBCC As String = "", Optional ByVal oAttachment As Object = Nothing) As Boolean
    Dim mailmsg As New System.Web.Mail.MailMessage
    With mailmsg
        .BodyFormat = MailFormat.Html
        .From = oFrom
        .To = oTo
        If Not oCC = "" Then .Cc = oCC
        If Not oBCC = "" Then .Bcc = oBCC
        .Subject = oSubject
        .Body = oText
        If Not oAttachment = Nothing Then .Attachments.Add(oAttachment)
    End With
    Try
        System.Web.Mail.SmtpMail.SmtpServer = SmtpServerAddressHere 'example: mail.domain.com
        System.Web.Mail.SmtpMail.Send(mailmsg)
        Return True
    Catch ex As Exception
        appLog.WriteEntry(ex.ToString, EventLogEntryType.Error)
        Return False
    End Try
End Function