elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Rompecabezas de Bitcoin, Medio millón USD en premios


  Mostrar Temas
Páginas: 1 2 3 4 5 6 7 8 9 [10] 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 ... 33
91  Comunicaciones / Redes / Duda configurando mis interfaces !! debian !! en: 7 Septiembre 2016, 06:06 am
Instale Debian Jessie y tengo configurada la eth0 y eth1 de la siguiente manera

eth0 (wan)
address 100.0.20.15
netmask 255.255.255.252
gateway 100.0.20.14

eth1 (lan)
address 192.168.20.8
netmask 255.255.255.0
network 192.168.20.0
broadcast 192.168.20.255

los dns son:
100.0.20.5
100.0.20.9

yo puse la misma configuracion de la wan en mi windows 7 y funciona de maravillas, no es problema de del isp, no logro resolver ningun dns si me pudieran orientar un poco..

Gracias de antemano
92  Programación / .NET (C#, VB.NET, ASP) / Wait For Application To Load en: 5 Septiembre 2016, 06:04 am
Hola,

Quería saber sobre el funcionamiento de este Snippet publicado por Elektro para esperar a que una aplicación termine de cargar..

Código
  1.  
  2. Timer_CheckCPU.Tag = "photoshop"          'Nombre del proceso a chequear
  3. Timer_CheckCPU.Enabled = True
  4. While Not Timer_CheckCPU.Tag = ""
  5.         Application.DoEvents()
  6. End While
  7.  
  8.  
  9. #Region " Wait For Application To Load "
  10.  
  11.    Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByVal lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
  12.    Private WithEvents Timer_CheckCPU As New Timer
  13.  
  14.    Dim Memory_Value_Changed As Boolean
  15.    Dim CPU_Changed As Boolean
  16.    Dim CPU_Time As Boolean
  17.    Dim Running_Time As Boolean
  18.    Private _desiredTime_ms As Integer = 1500
  19.  
  20.    Private Sub Timer_CheckCPU_Tick(sender As Object, ev As EventArgs) Handles Timer_CheckCPU.Tick
  21.        Timer_CheckCPU.Enabled = False
  22.        Dim pProcess() As Process = Process.GetProcessesByName(Timer_CheckCPU.Tag)
  23.        Dim hprocess As Process = pProcess(0)
  24.        If hprocess Is Nothing Then
  25.            Running = False
  26.            Timer_CheckCPU.Enabled = True
  27.            Return
  28.        End If
  29.        Running = True
  30.        Memory = hprocess.PrivateMemorySize64
  31.        CPUTotal = hprocess.TotalProcessorTime.TotalMilliseconds
  32.  
  33.        If AllConditionsGood() Then
  34.            If Not (_countdown.IsRunning) Then
  35.                _countdown.Reset()
  36.                _countdown.Start()
  37.            End If
  38.            Dim _elapsed As Long = _countdown.ElapsedMilliseconds
  39.            If _elapsed >= _desiredTime_ms Then
  40.                Timer_CheckCPU.Tag = ""
  41.                Return
  42.            End If
  43.        Else
  44.            _countdown.Reset()
  45.        End If
  46.        Timer_CheckCPU.Enabled = True
  47.    End Sub
  48.  
  49.    Private Function AllConditionsGood() As Boolean
  50.        If CPU_Time Then Return False
  51.        If Memory_Value_Changed Then Return False
  52.        If Running_Time Then Return False
  53.        Return True
  54.    End Function
  55.  
  56.    Private _countdown As New Stopwatch
  57.  
  58.    Private _Running As Boolean = False
  59.    Public WriteOnly Property Running() As Boolean
  60.        Set(ByVal value As Boolean)
  61.            _Running = value
  62.            If value Then
  63.                Running_Time = False
  64.            Else
  65.                Running_Time = True
  66.            End If
  67.        End Set
  68.    End Property
  69.  
  70.    Private _CPUTotal As Double
  71.    Public WriteOnly Property CPUTotal() As Double
  72.        Set(ByVal value As Double)
  73.            CPU = value - _CPUTotal 'used cputime since last check
  74.            _CPUTotal = value
  75.        End Set
  76.    End Property
  77.  
  78.    Private _CPU As Double
  79.    Public WriteOnly Property CPU() As Double
  80.        Set(ByVal value As Double)
  81.            If value = 0 Then
  82.                CPU_Time = False
  83.            Else
  84.                CPU_Time = True
  85.            End If
  86.            _CPU = value
  87.        End Set
  88.    End Property
  89.  
  90.    Private _Memory As Long
  91.    Public WriteOnly Property Memory() As Long
  92.        Set(ByVal value As Long)
  93.            MemoryDiff = Math.Abs(value - _Memory)
  94.            _Memory = value
  95.        End Set
  96.    End Property
  97.  
  98.    Private _MemoryDiff As Long
  99.    Public WriteOnly Property MemoryDiff() As Long
  100.        Set(ByVal value As Long)
  101.            If value = _MemoryDiff Then
  102.                Memory_Value_Changed = False
  103.            Else
  104.                Memory_Value_Changed = True
  105.            End If
  106.            _MemoryDiff = value
  107.        End Set
  108.    End Property
  109.  
  110. #End Region

Necesito verificar los modulos de ese proceso una vez que termine de cargar.. pero no me funciona me devuelve menos modulos de los esperados..

Gracias de antemano
93  Programación / .NET (C#, VB.NET, ASP) / Cambiando posición de un control aleatoriamente ! en: 29 Agosto 2016, 21:01 pm
Hola,

Estoy tratando de mover un Label dentro de las dimensiones de un Form, con el siguiente código pero estoy obteniendo un error de que debe ser un valor positivo en la parte de r.Next...

Código
  1.  
  2. Dim r As New Random()
  3.  
  4.            Dim x As Integer = r.Next(Me.ClientRectangle.Height - Label1.Width)
  5.            Dim y As Integer = r.Next(Me.ClientRectangle.Height - Label1.Height)
  6.            Dim p As New Point(x, y)
  7.  
  8.            Me.Label1.Location = p
  9.  
  10.        End If
  11.  
  12.  

Gracias cualquier ayuda..

Salu2
94  Informática / Electrónica / Caja decodificadora de señal digital a analogica una duda ? en: 26 Agosto 2016, 05:40 am
Holas,

Ayer estaba todo bien ya hoy cuando la enciendo se me queda la pantalla bloqueada no me muestra la hora ni responde a nada del mando...

La abri tan solo para mirar si tenia algo quemado a simple vista porque no se nada de electronica o tenia algun olor relacionado a eso y nada parece estar bien.

Mi pregunta es la misma tiene un puerto RS232 no tengo un cable a la mano pero mañana si lo conseguire, tengo pensado conectarlo a la caja y tratar de ver si dice u hace algo..

Me pueden dar un minimo tecnico de si estos aparatos tienen algun estandar a la hora de debuguearlos, comandos basicos, igual si me pudieran decir como es lo de la comunicacion por ese cable, tengo pensando hacerlo con un programa se llama Putty pero bueno nose como se trabajaria.

Gracias cualquier ayuda
95  Programación / .NET (C#, VB.NET, ASP) / Usar proyecto creado en C# en mi projecto de Vb.Net !! en: 23 Agosto 2016, 23:05 pm
Hi,

Voy a Goolear a ver que aparece de igual manera no esta tener toda la ayuda posible..

Saludos
96  Sistemas Operativos / Windows / Duda con Laptop ! ? en: 22 Agosto 2016, 17:31 pm
Hola,

Señores dejenme hacerles una pregunta.

Tengo 2 Laptop:

Dell: INSPIRON 3558

Asus: X556UA

Yo quisiera formatear la DELL porque tiene el sistema en íngles y no logro ponerle el paquete de lenguaje en español.

Me dijeron que estas laptos tienen su sistema fundido por decirlo de alguna manera que no debo formatear porque podria quedarme con ella como un lindo pisapapeles, hasta cierto punto creo que algo de esto es real porque la Dell viene con C: nada mas y cuando la particione se puso lenta insoportable tuve que eliminarla y entonces volvio a como era.

Me dicen que ellas tienen un sistema para restaurar el sistema de fabrica, como si fuese un formateo, como doy con este sistema porque no logro activarlo con ninguna tecla desde el MSDOS cuando arranca, por supuesto estoy haciendo algo mal.

Esto es cierto ??
97  Programación / .NET (C#, VB.NET, ASP) / Duda con Thread ? en: 21 Agosto 2016, 18:50 pm
Hola,

Leyendo este tema

http://foro.elhacker.net/net/iquesthacer_una_pausa_a_un_backgrounworker_en_vbnet-t405073.0.html;msg1906376

Me surge algunas dudas cuando trato de aplicarlo en mi proyecto.

Tengo un sub que verifica los procesos que estan corriendo en el Pc:

Tendría que quedar así supongo..

Código
  1. Private Sub MyWorker_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) _
  2.    Handles MyWorker.DoWork
  3.  
  4.        Do While MyWorker.CancellationPending = False
  5.  
  6.                _busy.WaitOne(5000)        'Creo un intervalo de 5 segundos para ejecutar el Sub
  7.                CheckProcess()
  8.  
  9.        Loop
  10.  
  11.        e.Cancel = True
  12.  
  13.    End Sub


Tengo otro sub que igual verifica los módulos de una aplicación que supongo tendria que hacer otro backgroundworker
98  Sistemas Operativos / Windows / Paquete de idioma Windows 10 !! en: 10 Agosto 2016, 01:11 am
Tengo un Laptop DELL con Windows 10 Home 64x en ingles, quiero ponerlo en español, tengo que bajar algun paquete especifico para el o es algo general ?

Salu2 y gracias
99  Programación / .NET (C#, VB.NET, ASP) / Socket Asincronico ! en: 8 Agosto 2016, 17:34 pm
Toy trabajando con este proyecto

http://tech.reboot.pro/showthread.php?tid=86&highlight=sockets

Y le falta la opción de que el cliente pueda enviar datos al servidor.

El desarrollador añadio esto en el cliente

Código
  1.    Private Sub Send(ByVal msg As String, ByVal clientSocket As Socket)
  2.        'get bytes to send
  3.        Dim sendBytes As Byte() = System.Text.Encoding.ASCII.GetBytes(msg)
  4.        'begin sending (notice the client is sent as an AsyncState)
  5.  
  6.        clientSocket.BeginSend(sendBytes, 0, sendBytes.Length, SocketFlags.None, New AsyncCallback(AddressOf OnSend), clientSocket)
  7.    End Sub
  8.  
  9.    Private Sub OnSend(ByVal ar As IAsyncResult)
  10.        Dim client As Socket = ar.AsyncState
  11.        client.EndSend(ar)
  12.    End Sub
  13.  

Esto al parecer funciona y digo al parecer porque aun no logro recibirlo en el servidor, el autor dice que para ello usen el mismo codigo que tiene el cliente, lo añado y sigue sin funcionar

Código
  1.    Private Sub OnAccept(ByVal ar As IAsyncResult)
  2.        clientSocket = serverSocket.EndAccept(ar)
  3.        serverSocket.BeginAccept(New AsyncCallback(AddressOf OnAccept), Nothing)
  4.        AddClient(clientSocket)
  5. 'Línea añadida para recibir dato        
  6. clientSocket.BeginReceive(byteData, 0, byteData.Length, SocketFlags.None, New AsyncCallback(AddressOf OnRecieve), clientSocket)
  7.  
  8.    End Sub
  9.  
  10.    Private Sub OnRecieve(ByVal ar As IAsyncResult)
  11.        Dim client As Socket = ar.AsyncState
  12.        client.EndReceive(ar)
  13.        Dim bytesRec As Byte() = byteData
  14.        Dim message As String = System.Text.Encoding.ASCII.GetString(bytesRec)
  15.        Read(message)
  16.        clientSocket.BeginReceive(byteData, 0, byteData.Length, SocketFlags.None, New AsyncCallback(AddressOf OnRecieve), clientSocket)
  17.    End Sub
  18.  
  19.    Delegate Sub _Read(ByVal msg As String)
  20.    Private Sub Read(ByVal msg As String)
  21.        If InvokeRequired Then
  22.            Invoke(New _Read(AddressOf Read), msg)
  23.            Exit Sub
  24.        End If
  25.        RichTextBox1.Text &= msg
  26.    End Sub
  27.  
  28.  

Depurandolo nunca entra en esos metodos unicamente cuando cierro el cliente es que el entonces entra y genera un error porque el socket esta cerrado y no puede leer nada.

Alguna idea..

Salu2
100  Programación / .NET (C#, VB.NET, ASP) / Algo curioso con las comillas en .NET ? en: 8 Agosto 2016, 15:07 pm
Estoy tratando de que un STRING que se guarda en una variable me quede así:

"Hola" "Mundo" "Mi" "Primer" "Mensaje"

La cuestión es que estoy usando el Chr(34) para crear este resultado pero cuando debugueo la aplicación me doy cuenta que para obtener este resultado el se ve así:

""Hola"" ""Mundo"" ""Mi"" ""Primer"" ""Mensaje""

Ahora esto me representa un problema y es que si quiero trabajar con ese STRING tengo que hacer malabares por las doble comillas, me di cuenta que al insertarlo en un TEXTBOX queda como en el primero, osea que tendría que crear un objeto TEXTBOX pegar el resultado y recuperar el TEXTO de él sin las doble comillas y poder continuar.

Hay alguna otra forma de hacerlo sin necesidad de ese paso ?

Saludos y gracias
Páginas: 1 2 3 4 5 6 7 8 9 [10] 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 ... 33
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines