Mensajes

FTP Uploader:

Código (vbnet) [Seleccionar] Expandir

#Region " FTP Upload Function "

    ' [ FTP Upload Function ]
    '
    ' Examples :
    ' FTP_Upload("C:\File.txt", "ftp://127.0.0.1/File.txt", "User")
    ' MsgBox(FTP_Upload("C:\File.txt", "ftp://127.0.0.1/File.txt", "User", "Pass"))

    Public Function FTP_Upload(ByVal FilePath As String, ByVal FTP_FilePath As String, _
                    Optional ByVal User As String = Nothing, _
                    Optional ByVal Pass As String = Nothing) As Boolean

        Dim FTP_request As System.Net.FtpWebRequest
        Dim FTP_stream As System.IO.Stream
        Dim FTP_bytes() As Byte

        Try
            FTP_request = DirectCast(System.Net.WebRequest.Create(FTP_FilePath), System.Net.FtpWebRequest)
            FTP_request.Credentials = New System.Net.NetworkCredential(User, Pass)
            FTP_request.Method = System.Net.WebRequestMethods.Ftp.UploadFile
            FTP_stream = FTP_request.GetRequestStream()
            FTP_bytes = System.IO.File.ReadAllBytes(FilePath)

            With FTP_stream
                .Write(FTP_bytes, 0, FTP_bytes.Length)
                .Close()
                .Dispose()
            End With

            Return True

        Catch ex As Exception : Return False
        End Try

    End Function

#End Region

[SID]

Este fragemento de ruta:

Código [Seleccionar] Expandir

..\S-1-5-21-1957994488-1972579041-1801674531-500\.. es diferente en cada SO!, en mi pc es esa la ruta y en mi trabajo es esta por ej:

Código [Seleccionar] Expandir

..\S-1-5-21-3283865553-3909256667-1845410349-1004\..

Claro, porque eso es el identificador único de seguridad del usuario (SID).

Los cambios debes hacerlo en la rama "Hkey_Current_User" o en "HKey_Local_Machine", en la primera raíz las modificaciones que hagas son las que se aplican automáticamente a tu SID (es decir, a tu usuario), y la segunda raíz es global, es decir se aplican a todos los usuarios.

Código [Seleccionar] Expandir

[HKEY_CURRENT_USER\Environment]
"Variable"="Valor"

Saludos

[Pues imagino que no es normal]

pero aún sigo teniendo una barbaridad de procesos.

Alguna idea más? Pues imagino que no es normal.

Estás totálmente equivocado, tener alrededor de 40 procesos en una instalación sin modificar de Windows es algo complétamente normal, y más si no desactivas servicios de Microsoft, de hecho casi todos los procesos abiertos segúramente deben ser de Microsoft/Windows.

Por ponerte un ejemplo, yo tengo ahora mismo 45 procesos abiertos, contando el navegador, JD, y algunas pocas aplicaciones mías...

Lo que debes hacer, es mostrar una captura de pantalla de dichos procesos, y te diremos si hay alguno "maligno" o no, eso es mejor que cualquier lista, aunque si quieres una lista: "Google + Windows original processes list", y ahí te darás cuenta de lo que digo.

Un saludo.

[EDITO:]

Puedes setear una variable de entorno con el comando SETX:

Código [Seleccionar] Expandir

SETX Variable Valor

Pero debes tener en cuenta que, las variables de entorno agregadas desde una instancia de la CMD no se pueden reconocer en esa misma instancia.

Es decir, si haces esto:

1. Abrir la CMD
2. Setear variable de entorno
3. Cerrar La CMD
4. Reabrir la CMD
5. Comprobar la variable de entorno

Todo perfecto, pero si haces esto otro:

1. Abrir la CMD
2. Setear variable de entorno
3. Comprobar la variable de entorno

Entonces no podrás.

PD: Para lo del búcle puedes usar tanto FSUTIL como WMIC, pero me parece que este otro también necesita permisos de Admin.

EDITO: PD2: Y si no te importa utilizar aplicaciones de terceros, puedes usar PSInfo que no necesita permisos.

Saludos

El script lo colocas y lo ejecutas desde donde quieras, la ruta del archivo de texto la modificas en esta variable:

Código [Seleccionar] Expandir

Set "File=C:\Users\Administrador\Desktop\1.txt"

Y cito lo que te dije:

He usado como delimitador el caracter del espacio, quizás debas modificarlo a tus necesidades...

El error de falta un operando segúramente es debido a que no has ajustado los tokens del for con la estructura de tu archivo de texto, por lo tanto el comando SET no encuentra un número.

La estructura del archivo de texto que yo usé:

Archivo.txt:

Código [Seleccionar] Expandir

Palabra1 palabra2 NÚMERO palabra3

El código ya te lo he(mos) dado todo hecho, esfuérzate un poco para realizar las modificaciones necesarias.

Saludos!

[Búcle]

Ping -n %TIEMPO% LocalHost 1>NUL
Taskkill /?
Del /?

[/Búcle]

Ni siquiera especificas el nombre de la aplicación...

Ya lo solucionaste pero de todas formas en estos dos parámetros podrías haber puesto la resolución máxima de tu pantalla:

Código [Seleccionar] Expandir

Screen Width=720
Screen Height=520

PD: Movido a Software.

Aquí posteé una función para hacerlo: http://foro.elhacker.net/net/libreria_de_snippets_posteen_aqui_sus_snippets-t378770.0.html;msg1817291#msg1817291

Código (vbnet) [Seleccionar] Expandir

    #Region " CenterForm function "
     
       Function CenterForm(ByVal Form_to_Center As Form, ByVal Form_Location As Point) As Point
           Dim FormLocation As New Point
           FormLocation.X = (Me.Left + (Me.Width - Form_to_Center.Width) / 2) ' set the X coordinates.
           FormLocation.Y = (Me.Top + (Me.Height - Form_to_Center.Height) / 2) ' set the Y coordinates.
           Return FormLocation ' return the Location to the Form it was called from.
       End Function
     
    #End Region
     
       ' Form2 Load
       Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
           Me.Location = Form1.centerForm(Me, Me.Location)
       End Sub
     
       ' Private Sub Button_MouseHover(sender As Object, e As EventArgs) Handles Button1.MouseHover
       '     Form2.Show()
       ' End Sub
     
       ' Private Sub Button_MouseLeave(sender As Object, e As EventArgs) Handles Button1.MouseLeave
       '     Form2.Dispose()
       ' End Sub

Saludos

Si no he entendido mal, quieres comprobar si el usuario ha escrito 1 texto obligatorio + una o varias palabras + 1 texto obligatorio + una o varias palabras, y luego quieres mostrar los textos obligatorios de otra forma.





Eso puedes hacerlo con expresiones regulares o de la siguiente manera,
Copia este form y ejecútalo (No es necesario que añadas los controles), la única parte que te interesa es la que hay antes del comentario "FINAL DEL EJEMPLO":

PD: Si quieres almacenar el nombre y apellido en una variable, usa RegEX o el método Split.

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

   Dim Obligado1 As String = "Tu nombre es:", Obligado2 As String = "Tu apellido es:"
   Dim Obligado1_B = "Dijiste que tu nombre era:", Obligado2_B = "Dijiste que tu apellido era:"
   Dim Nombres As String = Nothing

   Private Sub TBox1_TextChanged(sender As Object, e As EventArgs)
       Nombres = sender.text
   End Sub

   Private Sub Button_Click(sender As Object, e As EventArgs)
       If Nombres Is Nothing Then
           MsgBox("No introduciste nada")
       ElseIf Not Nombres.Contains(Obligado1.ToLower) Or Not Nombres.Contains(Obligado2.ToLower) Then
           MsgBox("No introduciste el texto obligado")
       ElseIf Nombres.Contains(Obligado1.ToLower) And Nombres.Contains(Obligado2.ToLower) Then
           TextBox2.Text = Nombres.Replace(Obligado1.ToLower, Obligado1_B).Replace(Obligado2.ToLower, Obligado2_B)
       End If
   End Sub

   '// Final del ejemplo
   '////////////////////
   '// Final del ejemplo



   ' Controles
   Dim Button As New Button
   Dim TextBox1 As New TextBox
   Dim TextBox2 As New TextBox
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Button.Text = "Comprobar"
       Button.Location = New Point(10, 10)
       TextBox1.Size = New Size(370, 20)
       TextBox2.Size = New Size(370, 20)
       TextBox1.Location = New Point(10, 40)
       TextBox2.Location = New Point(10, 65)
       AddHandler TextBox1.TextChanged, AddressOf TBox1_TextChanged
       AddHandler Button.Click, AddressOf Button_Click
       Me.Controls.Add(Button) : Me.Controls.Add(TextBox1) : Me.Controls.Add(TextBox2)
       Me.Size = New Point(410, 130)
   End Sub

End Class

@diegoCmC
Muchísimas gracias, ni se me habría ocurrido.

Saludos!



Estoy intentando seguir el ejemplo de ese link, intento copiar un archivo de texto de pocas líneas, pero el archivo copiado siempre queda vacío (0 bytes)

¿Que estoy hciendo mal?

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

   Dim cancelled As Boolean = Nothing
   Dim input = New System.IO.FileStream("C:\1.txt", System.IO.FileMode.Open, System.IO.FileAccess.Read, System.IO.FileShare.Read)
   Dim output = New System.IO.FileStream("C:\Nueva carpeta\Nueva carpeta\Nueva carpeta\1.txt", System.IO.FileMode.CreateNew, System.IO.FileAccess.Write, System.IO.FileShare.Write)

    Public Sub CopyStream(ByVal inputStream As System.IO.Stream, ByVal outputStream As System.IO.Stream)
        'Dim buffer = System.IO.File.ReadAllBytes("C:\1.txt")

        Dim buffer = New Byte((1024) - 1) {}
        Dim bytesRead As Integer = 1

        While (inputStream.Read(buffer, 0, buffer.Length) > 0)
            outputStream.Write(buffer, 0, bytesRead)
            'bytesRead += 1

            If cancelled Then
                MsgBox("operacion cancelada")
                Return
            End If
        End While

        inputStream.Close()
        outputStream.Close()
        MsgBox("operacion terminada")

    End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       CopyStream(input, output)
   End Sub

End Class