Mensajes

Estuve buscando y con encontré nada, necesitaría pasar Argumentos o Parámetros más bien tomar desde un exe para completar por ejemplo un textbox, alguna idea?

Hace tiempo había visto que se podían crear múltiples formularios con diferentes idiomas para hacer traducciones de nuestro proyecto, pero no doy bien con su buen uso, o quizás sea algo muy beta, ya que tengo un programa que actualmente se traduce con un archivo .ini que tiene toda la información de las palabras utilizadas y quería utilizar el multilenguaje para evitar usar un archivo externo.

Creo un proyecto nuevo y agrego:

Código (vbnet) [Seleccionar] Expandir

Language = "Seleccionar.." (Idioma a Traducir) en este caso EN y ES
Localizable = True

Coloco dos botones uno que pasa al Español y otro al Ingles..

Imports System.Globalization
Imports System.ComponentModel

Código (vbnet) [Seleccionar] Expandir

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ''español
        Dim l As New CultureInfo("es", True)
        Dim resources As ComponentResourceManager = New ComponentResourceManager(Me.GetType)
        For Each c As Control In Me.Controls
            resources.ApplyResources(c, c.Name, l)
        Next c
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        ''ingles
        Dim l As New CultureInfo("en", True)
        Dim resources As ComponentResourceManager = New ComponentResourceManager(Me.GetType)
        For Each c As Control In Me.Controls
            resources.ApplyResources(c, c.Name, l)
        Next c
    End Sub
End Class

y funciona sin problemas, ahora aplico lo mismo en un formulario de un proyecto que tiene 30 formularios más y no funciona..

Alguna forma de Obtener nombre de sitio gracias a su direccion ip? ejemplo: 104.24.17.24 y obtener "elhacker.net" que no sea con:

Código (vbnet) [Seleccionar] Expandir

Dns.GetHostEntry("8.8.8.8").HostName.ToString

que da el nombre del dns y no del sitio en cuestion.

Este lo seleciona y lo reemplaza con un paste..

Código (vbnet) [Seleccionar] Expandir

   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       Dim palabra As String = ":estado:activo:"
       TextBox1.SelectionStart = InStr(TextBox1.Text, palabra) - 1
       TextBox1.SelectionLength = Len(palabra)
       TextBox1.Focus()
       'Reemplaza:
       TextBox1.Paste(":remplazo:funciona:")
   End Sub

Código (vbnet) [Seleccionar] Expandir

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim palabra As String = ":estado:activo:"
        TextBox1.SelectionStart = InStr(TextBox1.Text, palabra) - 1
        TextBox1.SelectionLength = Len(palabra)
        TextBox1.Focus()
    End Sub

con eso lo seleccionas

Supongo que tengas que usar algo como esto para seleccionar el texto:

Código (vbnet) [Seleccionar] Expandir

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' Le indicas la posicion del texto de inicio en la selección.
        TextBox1.SelectionStart = 0
        ' Le indicas la longitud de caracteres a seleccionar
        TextBox1.SelectionLength = TextBox1.TextLength
        ' le mandas el cursor al textbox, si no le mandas el cursor al textbox no se ve que este seleccionado.
        TextBox1.Focus()

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        'vb6
        'Dim palabras As String
        'palabras = Split(TextBox1.Text, "*")
        'TextBox2.Text = palabras(0)

        'O si solo quieres saber el texto que tienes seleccionado sin mandarle el cursor sería algo asi
        TextBox1.SelectionStart = 0
        TextBox1.SelectionLength = 3
        MsgBox(TextBox1.SelectedText)
        'Muestra un mensaje con los 3 primeros caracteres del texto.
    End Sub

Para buscar una palabra:

Código (vbnet) [Seleccionar] Expandir

If InStr(text1.text, "cadena de texto a buscar") then
   MsgBox("Palabra encontrada")
End if

estuve buscando por la red y encontre poco que nada para firmar digitalmente el archivo final de un proyecto, para que cuando se ejecute por ejemplo no salga:

Código [Seleccionar] Expandir

¿Esta seguro que quiere ejecutar este programa que tiene una firma desconocida?

Editor: Desconocido.

Alguna idea?

Actualmente tengo un archivo de configuraciones de un soft que voy modificando a gusto mediante un gui gráfico mediante el comando sed. La cuestión esta en que el desarrollador de dicho soft ahora lo actualizo y varias lineas de configuración no están en el archivo, pero si se agregan funcionan, entonces estoy buscando algún comando para buscar dichas palabras y si no están que directamente agregue al final del mismo la linea correspondiente a la configuración.

Para reemplazar estaba usando:

Código [Seleccionar] Expandir

sed -i 's/sys.modem.com=.*/sys.modem.com=5/g' /tmp/config.tpnn

Alguna idea?

Estoy buscando algún source de un port scanner en php similar a:

http://www.hashemian.com/tools/port-scanner.php
http://www.subnetonline.com/pages/network-tools/online-port-scanner.php
http://www.ipfingerprints.com/portscan.php

que son los que funcionan con el puerto 8292, ya que todos los codes que encontré por la red no lo dan como abierto pero dichas paginas si.. ejemplo:

Código (php) [Seleccionar] Expandir

<?php
error_reporting(0);

$ip = $_GET['ip'];
if(isset($ip)) {
for($i=1;$i<=1000;$i++) {
    $conn = @fsockopen($ip, $i);
    if ($conn) {
        echo "Port $i is open on $ip. <br />";
    fclose($conn);
    }
}
}
?>