my code stock.com

Snippet-Optionen

Download: Snippet als ip-new.vbs herunterladen.
Snippet kopieren: Für diese Aktion benötigst du einen kostenlosen my code stock.com Account
Embed-Code : Du findest den Embed-Code für dieses Snippet am Ende der Seite, wenn du es in eine Webseite oder einen Blog einbinden möchtest!

Imports System.Net.Mail
Public Class Form1
    Dim message As New MailMessage
    Dim smtp As New SmtpClient
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        MsgBox("Si encuentra algún problema por favor reportarlo a lexxxe@chilecomparte.cl")
        Dim husam As New System.Net.WebClient
        Dim ip As String
        ip = System.Text.Encoding.ASCII.GetString((husam.DownloadData("http://icanhazip.com/")))
        Label1.Text = ip
        If CheckBox2.Checked = True Then

            Label3.Visible = True
            NumericUpDown1.Visible = True
            Timer1.Enabled = True
        End If
        If CheckBox2.Checked = False Then
            Label3.Visible = False
            NumericUpDown1.Visible = False
            Timer1.Enabled = False
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If CheckBox1.Checked = True Then
            message.From = New MailAddress("lxe_pwn3d@live.com")
            message.To.Add(TextBox1.Text)
            message.Body = Label1.Text
            message.Subject = "IP"
            smtp.EnableSsl = True
            smtp.Port = "587"
            smtp.Host = "smtp.live.com"
            smtp.Credentials = New Net.NetworkCredential("lxe_pwn3d@live.com", "matias1994")
            smtp.Send(message)
            MsgBox("Correo enviado exitosamente")
        End If

        If CheckBox2.Checked = True Then
            Dim time2 As New Double
            time2 = NumericUpDown1.Value * 1000
            Timer1.Interval = time2
            Timer1.Enabled = True
        End If
    End Sub

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then TextBox1.ReadOnly = False
        If CheckBox1.Checked = True Then TextBox1.Text = ""
        If CheckBox1.Checked = False Then TextBox1.ReadOnly = True
        If CheckBox1.Checked = False Then TextBox1.Text = "Bloqueado"
        If CheckBox1.Checked = True Then Button1.Visible = True
        If CheckBox1.Checked = False Then Button1.Visible = False
    End Sub

    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked = True Then
            MsgBox("Al activar esta función no puede cerrar la aplicación")
            Label3.Visible = True
            NumericUpDown1.Visible = True
        End If
        If CheckBox2.Checked = False Then
            Label3.Visible = False
            NumericUpDown1.Visible = False
        End If
    End Sub
End Class

Jetzt kostenlosen my code stock.com Account anlegen

my code stok.com ist ein kostenloser Dienst zum Speichern und Verwalten von Code-Snippets jeglicher Art und Programmiersprache. Wir bieten dir viele Vorteile für die tägliche Arbeit mit Code-Snippets und der gemeinsamen Arbeit im Team, probier es aus!

Jetzt informieren und registrieren

Du kannst die Höhe des iFrame-Codes beliebig anpassen! Mehr Infos findest du in unserer Embed-Code API Referenz.