Hola,

Respondo a tu privado: "Sé de lo que hablas pero yo soy nuevo en .NET, todavía no he profundizado en certificados xD"

Y añado: Hay utilidades commandline de terceros (Y de Microsoft) para firmar digitalmente un ejecutable,
No recuerdo el nombre de ninguna de estas tools, tampoco sé si es exactamente lo que necesitas, pero ya tienes algo que buscar en Google jaja.

PD: En uno de los Windows SDK Tools encuentras la utilidad de Microsoft, era algo como signer.exe o sign.exe, y en una utilidad de terceros commandline, tenía un servicio online donde te generaba una key automáticamente, si no recuerod mal.

Saludos!

pero si la segunda opción es más fácil

Dim Tu_String = "Bienvenidos todos a mi nueva casa de color verde"
Dim La_String_Delimitada = Delimit_String(Tu_String , "todos", "verde")) 
 
MSGBOX(La_String_Delimitada)

Séa como séa me alegro de que te haya servido,

Saludos!

Creo que esto es lo que quiero según tus indicaciones:

        Dim STR As String = "bienvenidos todos a mi nueva casa de color verde"
        Dim Delimitador_A As String = "todos"
        Dim Delimitador_B As String = "verde"
 
        STR = Split(STR, Delimitador_A, , CompareMethod.Text)(1) '  Aquí tomo todo lo que hay a la derecha del primer delimitador
        STR = Split(STR, Delimitador_B, , CompareMethod.Text)(0) ' Aquí tomo todo lo que hay a la izquierda del segundo delimitador
 
        MsgBox(STR) ' a mi nueva casa de color

Saludos!

---

EDITO:

Te lo voy a poner más fácil:

#Region " Delimit_String Function "
 
    ' // By Elektro H@ker
    '
    ' USAGE:
    '
    ' MsgBox(Delimit_String("Bienvenidos todos a mi nueva casa de color verde", "todos")) ' a mi nueva casa de color verde
    ' MsgBox(Delimit_String("Bienvenidos todos a mi nueva casa de color verde", "todos", "verde")) ' a mi nueva casa de color
    ' MsgBox(Delimit_String("Bienvenidos todos a mi nueva casa de color verde", "ToDoS", "VeRDe", True)) ' a mi nueva casa de color
    ' MsgBox(Delimit_String("Bienvenidos todos a mi nueva casa de color verde", "ToDoS", "VeRDe", False)) ' False
    ' MsgBox(Delimit_String("Bienvenidos todos a mi nueva casa de color verde", "verde", "todos", , "Left")) ' a mi nueva casa de color
 
    Private Function Delimit_String(ByVal STR As String, ByVal Delimiter_A As String, Optional ByVal Delimiter_B As String = Nothing, Optional ByVal Ignore_Case As Boolean = False, Optional ByVal Left_Or_Right As String = "Right")
        Dim Compare_Method As Integer = 0 ' Don't ignore case
        If Ignore_Case = True Then Compare_Method = 1 ' Ignore Case
 
        If Not Left_Or_Right.ToUpper = "LEFT" And Not Left_Or_Right.ToUpper = "RIGHT" Then Return False ' Returns false if the Left_Or_Right argument is in incorrect format
 
        Try
            If Left_Or_Right.ToUpper = "RIGHT" Then STR = Split(STR, Delimiter_A, , Compare_Method)(1) _
                Else If Left_Or_Right.ToUpper = "LEFT" Then STR = Split(STR, Delimiter_A, , Compare_Method)(0)
 
            If Delimiter_B IsNot Nothing Then
                If Left_Or_Right.ToUpper = "RIGHT" Then STR = Split(STR, Delimiter_B, , Compare_Method)(0) _
                 Else If Left_Or_Right.ToUpper = "LEFT" Then STR = Split(STR, Delimiter_B, , Compare_Method)(1)
            End If
 
            Return STR ' Returns the splitted string
 
        Catch
            Return False ' Returns false if the delimiter "A" or "B" can't be found (Index is out or fange)
        End Try
    End Function
 
#End Region

Si tu IP es estática siempre puedes usar un proxy gratis, o esperar a que tu ISP te renueve la IP (A mi a los 30 días o así me la cambian xD).

http://ultrasurf.us/

Si quieres un consejo, usa esto:

    '  RegCreateKey(Registry.CurrentUser, "Software\MyProgram")
    '  RegDeleteKey(Registry.CurrentUser, "Software\MyProgram")
    '  RegDeleteValue(Registry.CurrentUser, "Software\MyProgram", "Value name")
    '  RegSetValue("HKEY_CURRENT_USER\Software\MyProgram", "Value name", "Data", RegistryValueKind.String)
    '  Dim RegValue = RegGetValue("HKEY_CURRENT_USER\Software\MyProgram", "Value name"))
 
#Region "Registry Edit"
 
    Public Sub RegCreateKey(ByVal RegRoot As Microsoft.Win32.RegistryKey, ByVal RegKey As String)
        RegRoot.CreateSubKey(RegKey)
        RegRoot.Close()
    End Sub
 
    Public Sub RegDeleteKey(ByVal RegRoot As Microsoft.Win32.RegistryKey, ByVal RegKey As String)
        RegRoot.DeleteSubKey(RegKey)
        RegRoot.Close()
    End Sub
 
    Public Sub RegDeleteValue(ByVal RegRoot As Microsoft.Win32.RegistryKey, ByVal RegKey As String, ByVal RegValue As String)
        Using key As Microsoft.Win32.RegistryKey = RegRoot.OpenSubKey(RegKey, True)
            key.DeleteValue(RegValue)
            key.Close()
        End Using
    End Sub
 
    Public Sub RegSetValue(ByVal RegKey As String, ByVal RegValue As String, ByVal RegData As String, ByVal RegDataType As RegistryValueKind)
        My.Computer.Registry.SetValue(RegKey, RegValue, RegData, RegDataType)
    End Sub
 
    Public Function RegGetValue(ByVal RegKey As String, ByVal RegValue As String)
        Return My.Computer.Registry.GetValue(RegKey, RegValue, Nothing)
    End Function
 
#End Region

Saludos

lo que quiero es que sigan un estilo de imagen específico


Si me bajo una imagen que es complétamente azul cielo, y otra que es todo verde lima, pues el contraste de los botones no cuadra, queda mal y poco profesional, a eso me refiero con seguir un patrón de colores

Creo que jamás conseguiré este tipo de imagenes xD

Saludos.

Demasiado bueno para ser cierto, leer, escribir, y sin cerrarse la CMD

Pero... ¿Hay forma de modificar el SUB OutPutDataArrival para hacerlo funcionar en un WinForm?

gracias

Cualquiera de los códigos que hayas copiado de internet.

Saludos

Son trozos de códigos reutilizables, suelen ser funciones o subrutinas que tienen un propósito en especial.

Saludos!

EDITO:


No he probado la orden (no me suena que la variable se use de esa manera en VBS), pero vaya esa es la sintaxis para las comillas dobles.