Activar/Desactivar NIC

Get NIC list and index number:
wmic nic get name, index

Enable NIC with index number: (eg: 7)
wmic path win32_networkadapter where index=7 call enable

Disable NIC with index number: (eg: 7)
wmic path win32_networkadapter where index=7 call disable

fuente

Ocultar columna

DataGridView.Columns(0).Visible = False

Obtener el valor de una celda

Dim value As String = DataGridView(columna,fila).Value

Bloquear celdas especificas

DataGridView1.Rows(0).Cells(0).ReadOnly = True
DataGridView1.Rows(0).Cells(1).ReadOnly = True

Agregar una fila

DataGridView1.Rows.Add()

Eliminar nodo hijo específico en xml

 ' Cargar archivo xml
   Dim doc As New XmlDocument()
   doc.Load("archivo.xml")

 ' Seleccionar el nodo raíz
   Dim x As XmlNode = doc.SelectSingleNode("/data/variables")

' Recorrer los nodos hijos y buscar el que vamos a eliminar
  For Each y As XmlNode In x.ChildNodes
            If y.Name = "var2" Then
                x.RemoveChild(y)
            End If
  Next

doc.Save("archivo.xml")

Antes:

<variables>
<var1>integer</var1>
<var2>string</var2>
<var3>char</var3>
</variables>

Después:

<variables>
<var1>integer</var1>
<var3>char</var3>
</variables>

Agregar nodos hijos a nodo xml

 Dim doc As New XmlDocument()
 doc.Load("archivo.xml")

' Seleccionar el nodo raíz y contar sus nodos hijos
 Dim x As XmlNode = doc.SelectSingleNode("/datos/variables")
 Dim n As Integer = x.ChildNodes.Count

' Crear nodo xml
 Dim child As XmlElement = doc.CreateElement("var" & n + 1)
 child.InnerText = "comuna"

 ' Agregar nodo hijo
   x.AppendChild(child)   '---- x.InsertBefore(child, x.FirstChild)

' Guardar los cambios
 doc.Save("archivo.xml")

Antes:
<variables>
    <var1>dte</var1>
    <var2>folio</var2>
    <var3>rut</var3>
</variables>

Después:
<variables>
    <var1>dte</var1>
    <var2>folio</var2>
    <var3>rut</var3>
    <var4>comuna</var4>
</variables>

fuente

Renovar dirección ip

ipconfig /release
ipconfig /renew

Columnas de una vista sql

SELECT *
FROM sys.columns
WHERE object_id = OBJECT_ID('dbo.nombre_vista')

Seleccionar una columna específica

SELECT name
FROM sys.columns
WHERE object_id = OBJECT_ID('dbo.nombre_vista')

Remover caracter

Dim x As String = "casa-arbol"
x = x.Remove(4, 1)

x  = "casaarbol"

Obtener dato de un nodo

Dim doc As New XmlDocument
doc.Load("archivo.xml")

<?xml version="1.0" encoding="utf-8"?>
<Data>
<Conex>RTYGFFSDHTYRSDSDF</Conex>
</Data>

Dim conex As String = doc.SelectSingleNode("/Data/Conex").InnerText
conex = "RTYGFFSDHTYRSDSDF"

Código de actividad económica Acteco

sii_acteco

Escribir en un archivo los elementos de una lista

File.WriteAllLines("archivo.txt", listaTxt.ToArray, System.Text.Encoding.UTF8)

Cargar un archivo en una lista

Public dataTxt As New List(Of String)
dataTxt = File.ReadAllLines("archivo.txt").ToList()

Sqlcommand con LIKE

 Dim query As String = "SELECT * FROM tablasql WHERE DTE LIKE '%' + @dte AND Numero LIKE '%' + @folio AND cliente=@rut"

Encriptar y Desencriptar un string

Imports System.Web

Public Function Desencriptar(ByVal password As String) As String
        Return Encoding.UTF8.GetString(Convert.FromBase64String(HttpUtility.UrlDecode(password)))
    End Function

Public Function Encriptar(ByVal password As String) As String
        Return HttpUtility.UrlEncode(Convert.ToBase64String(Encoding.UTF8.GetBytes(password)))
    End Function

fuente

DWA-131

Drivers

H/W Ver.: E1
F/W Ver.: 5.02

www

Obtener día de la semana en palabras

Imports System.Globalization

Public Function getDayWord()
        Dim culture As New CultureInfo("es-CL")
        Dim diaSemana As String = culture.DateTimeFormat.GetDayName(DateTime.Today.DayOfWeek)
        diaSemana = Char.ToUpper(diaSemana(0)) & diaSemana.Substring(1)
        Return diaSemana
    End Function