|
8092
|
Programación / Scripting / Re: Listar una cadena
|
en: 29 Septiembre 2013, 22:32 pm
|
lo que quiero es listar las particiones pero la sentencia que uso me lo da en forma de cadena c:\ d:\ f:\ Si no especificas que lenguaje estás usando no hay ayuda posible, Saludos!
|
|
|
8093
|
Seguridad Informática / Seguridad / Re: windows 7 y 8 detecta mi programa como virus.
|
en: 29 Septiembre 2013, 19:34 pm
|
Hola, No sé mucho del tema, pero quizás la firma que se toma como falso positivo pueda ser debido a los headers que genera el empaquetador que usaste?, ¿has probado a usar otro empaquetador distinto? ¿CXFreeze en caso de que hayas usado py2exe?.
¿Y Has probado a reempaquetar con el UPX después de empaquetar?
Saludos!
|
|
|
8094
|
Programación / .NET (C#, VB.NET, ASP) / Re: como puedo Evitar signos + - en texbox
|
en: 29 Septiembre 2013, 18:15 pm
|
( InStr es una función de vb6, te vuelvo a aconsejar como en otra ocasión que dejes todo eso a un lado... si empiezas a programar en VBNET como si estuvieramos en VB6, mal vamos, creo que deberías buscar ejemplos mejores en Google xD ) A ver si lo he entendido bien, ¿quieres permitir la escritura MANUAL de solo Dígitos en un textbox (solo números, sin tener en cuenta el símbolo del minus "-")? Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) _ Handles TextBox1.KeyPress e.Handled = Not ("0123456789".IndexOf(e.KeyChar) > -1 OrElse e.KeyChar = Convert.ToChar(Keys.Back)) End Sub
Si usas ese código que te acabo de mostrar, el textbox podrá seguir conteniendo cualquier tipo de caracter si seteas la propiedad Text del control, Ej: Textbox1.text = "QWERTY" ¿O quieres que de todas las maneras posibles el Textbox solo pueda contener números?, no se si me explico bien: Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) _ Handles TextBox1.TextChanged sender.text = System.Text.RegularExpressions.Regex.Replace(sender.text, "\D", "") End Sub
Si usas ese código, entonces no necesitas usar el primero que hice. Saludos!
|
|
|
8095
|
Sistemas Operativos / Windows / Re: Borrar
|
en: 29 Septiembre 2013, 16:49 pm
|
CCleaner + CCEnhancerMezcla explosiva PD1: Para eficacia extrema usando CCleaner, activar todas las opciones, incluido la de eliminar el espacio vacío, y hacer una limpieza del registro desde el programa. Tampoco estaría de más que agregases entradas específicas en la configuración avanzada. PD2: Para eficacia extrema usando CCenhancer, abrir el INI del CCEnhacer en tu editor favorito y reemplazar todas las coincidencias de "Default=False" por "Default=True". Saludos!
|
|
|
8096
|
Programación / .NET (C#, VB.NET, ASP) / Re: Como se sale de un formulario cuando este envia a ejecutar otro
|
en: 29 Septiembre 2013, 06:55 am
|
Luis, intenta seguir las indicaciones del compañero @ MCKSys Argentina, ¿Es una chapuzilla?, se podría decir que si, porque mantienes en ejecución ocupando memoria un Form que ya no necesitas, pero también hay que decir que es una chapuzilla sin importancia porque el Form del Login no te va a molestar estando oculto y tampoco te va a dar problema con la memoria consumida, pero si quieres mejorarlo un poco, aquí tienes: Public Class MainForm Private Sub Form1_Load(sender As Object, e As EventArgs) _ Handles Me.Load LoginForm.ShowDialog() ' Al usar el método "ShowDialog" tratamos al Form como un diálogo, ' esto quiere decir que se detiene la ejecución del hilo en este evento hasta que cierres el "diálogo" (devolviendo una respuesta o no), ' por lo tanto este Form no se mostrará hasta que te loguees, ya que en este punto la ventana todavía no se ha dibujado. End Sub End Class
Public Class LoginForm ' Aquí me ahorro las explicaciones, que son muchas cosas y es muy tarde (o muy temprano según se mire) ' Si no entiendes algo pregunta ' Básicamente son mejoras de código, y un añadido extra para que al presionar la tecla "Enter" en el textbox te puedas loguear. ReadOnly VerifiedPassword As String = "jose123".ToLower Private RetryResponse As DialogResult = Nothing ReadOnly Property UserPassword Get Return TextBox_Password.Text.ToLower End Get End Property Private Sub LoginForm_Load(sender As Object, e As EventArgs) _ Handles Me.Load Me.CenterToScreen() End Sub Private Sub TextBox_Password_KeyPress(sender As Object, e As KeyPressEventArgs) _ Handles TextBox_Password.KeyPress If e.KeyChar = Convert.ToChar(Keys.Enter) Then Button_Login.PerformClick() End If End Sub Private Sub Button_Login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button_Login.Click If UserPassword = VerifiedPassword Then MessageBox.Show(String.Format("Bienvenido {0} !", VerifiedPassword), _ "Login", _ MessageBoxButtons.OK, _ MessageBoxIcon.Information) MainForm.Show() Me.Dispose() Else RetryResponse = MessageBox.Show("Clave de acceso incorrecta, ¿Quieres reintentar?", _ "Login", _ MessageBoxButtons.RetryCancel, _ MessageBoxIcon.Error) Select Case RetryResponse Case DialogResult.Cancel End ' No tomes por costumbre usar esta orden, lo uso para no escribir más código y porque el Form principal no carga "nada", pero debes usar "Application.Exit" Case DialogResult.Retry TextBox_Password.Clear() TextBox_Password.Focus() End Select End If End Sub End Class
Saludos
|
|
|
8097
|
Sistemas Operativos / Windows / Re: Problema con SearchFilterHost.exe
|
en: 29 Septiembre 2013, 00:09 am
|
No se entiende muy bien lo que quieres arreglar, se supone que ya lo has solucionado desindexando los archivos del disco. El servicio de Windows Search por defecto está configurado en Automático, eso significa que Windows lo va a Iniciar cuando sea necesario, para que un servicio automático no se active por si mismo debes deshabilitarlo (no es suficiente con detenerlo). · Para deshabilitar el servicio, en consola: sc stop wsearch & sc config wsearch start=Disabled · Para eliminar el servicio, en consola: Desactivar la indización, supone una pérdida importante de tiempo al buscar archivos, si no están indexados Depende de como se mire, a menos que tengas un procesador lento, una cantidad de archivos descomunal, y te pases el día entero buscando archivos... en ese caso te beneficiaría, de lo contrario lo recomendado es desactivarlo, si quieres mi opinión personal, busco muchos archivos en un disco duro secundario que contiene más de 300.000 archivos, pero los archivos no están indexados, el servicio tampoco lo tengo activado ...me considero una persona un poco impaciente pero no echo el servicio en falta, tampoco lo necesito, las búsquedas no se demoran. Saludos.
|
|
|
8098
|
Programación / .NET (C#, VB.NET, ASP) / Re: Como podria bajar una linea cuando grabo texbox en un txt
|
en: 27 Septiembre 2013, 18:30 pm
|
yo no vivo de esto es solo pasión por la programación
Muchas gracias por tu ayuda de verdad yo diría que el 90% de los que frecuentan esta sección les apasiona la programación (el resto solo quieren que le hagan el trabajo), tampoco vivo de esto, aunque hago lo que puedo como Freelancer. Pa eso estamos, si no has entendido algo del tobo bien no dudes en preguntar, Un saludo!
|
|
|
8099
|
Programación / .NET (C#, VB.NET, ASP) / Re: Como podria bajar una linea cuando grabo texbox en un txt
|
en: 27 Septiembre 2013, 18:10 pm
|
probe tu codigo pero no se como o donde se crea el txt lo he buscado y na IO.File.WriteAllText(".\Test.txt") Fíjate en la ruta, se crea en el directorio actual de trabajo (WorkingDir), es decir, que si en tu applicación no modificas el parámetro del directorio de trabajo actual entonces el TXT se creará en la carpeta de compilación de tu aplicación, en la carpeta "...\...\Debug" o "...\...\Release". PD: No creo que fuese necesario realizar una pregunta sobre donde se escribe el archivo, ¿Porque no le pones la ruta que tu quieras y ya está? xD. Saludos.
|
|
|
8100
|
Programación / .NET (C#, VB.NET, ASP) / Re: Como podria bajar una linea cuando grabo texbox en un txt
|
en: 27 Septiembre 2013, 17:35 pm
|
Deberías reemplazar todo el código porque estás usando métodos de VB6 en VB.NET, FileOpen, Write, Fileclose. Y también podrías concatenar el texto para no estar abriendo/cerrando el archivo cada vez: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button2.Click Dim [Text] As String = String.Format("{1}{0}{2}{0}{3}{0}{4}", Environment.NewLine, _ TextBox1.Text & TextBox2.Text & TextBox3.Text, _ TextBox4.Text & TextBox5.Text & TextBox6.Text, _ TextBox7.Text & TextBox8.Text & TextBox9.Text, _ TextBox10.Text & TextBox11.Text & TextBox12.Text) MsgBox([Text]) IO. File. WriteAllText(".\Test.txt", [Text ], System. Text. Encoding. Default) End Sub
EDITO: O puedes crear propiedades si quieres manejar las filas de textboxes por separado... ReadOnly Property Text1 As String Get Return String.Format("{1}{0}{2}{0}{3}", _ Convert.ToChar(Keys.Space), _ TextBox1.Text, TextBox2.Text, TextBox3.Text) End Get End Property
MsgBox(Me.Text1)
Saludos
|
|
|
|
|
|
|