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


Tema destacado: Security Series.XSS. [Cross Site Scripting]


  Mostrar Mensajes
Páginas: 1 2 3 4 5 [6] 7 8 9 10
51  Sistemas Operativos / GNU/Linux / Acceso entorno grafico Linux en: 28 Abril 2010, 12:58 pm
Buenas gente, estoy intentando acceder desde putty con windows XP a un servidor Linux mediante Xming habilitando la opción de Enable X11 forwarding, el problema es que al abrir cualquier aplicación de entorno grafico me tira bastante lento, existe alguna manera de agilizar este proceso? En el servidor Linux tengo pocos privilegios porque accedo con un usuario bastante restringido, con lo cual no tengo mucha posibilidad de instalar programas remotos o mi saber no llega a tanto ^^ . ¿ Que podría hacer para realizar una conexión cliente-Servidor que sea no muy lenta para poder trabajar? Un saludo!
52  Programación / Programación Visual Basic / Re: Threads en VB en: 15 Abril 2010, 09:14 am
Citar
Con DoEvents y/o Sleep(0) debe sobrar para que no se te laggee la interfaz... Estos has de ponerlos dentro del For...
gracias Karcrack no pensé que era tan facil... jeje ;)
53  Programación / Programación Visual Basic / Re: Conexion BBDD ADO en: 12 Abril 2010, 07:44 am

Te recomiendo realises la conexion ado y crees tus funciones aparte dejando el form limpio de este tipo de cosas... asi lo hago yo en .NET ADO.NET aun que este ado la funcion deberia seria devolverte el RecordSet, despues trabajas sobre este con la conexion cerrada y en otra funcion guardas el RecordSet pasandolo en dicha funcion!¡.


Buenas, a que te refieres con esto? yo me puedo crear una funcion que realice todo esto, pero aque te refieres con la conexion ADO?
Citar
rs.Open "UPDATE usuarios set USR_password='uiid2daa' where USR_Tipo = 'v'", con, adOpenDynamic, adLockPessimistic

Gracias ssccaann43 no sabia que se podia utilizar SQL para actualizar los campos!
54  Programación / Programación Visual Basic / Conexion BBDD ADO en: 9 Abril 2010, 14:48 pm
Gente tengo una duda, porque no se porque este codigo me salta un error... alguien podría ayudarme? es que llevo toda la vida realizando consultas y modificando sobre ellas y ahora  no puedo hacerlo porque me dice lo siguiente:

-2147467259(80004005)
Error en la actualizacion basada en consultas: no se encontro la fila para actualizar.

codigo:
Código
  1. Dim con As New ADODB.Connection
  2. Dim rs As New ADODB.Recordset
  3.  
  4. Private Sub Command1_Click()
  5.  
  6.    rs.Open "SELECT * from usuarios where USR_Tipo like 'v'", con, adOpenDynamic, adLockPessimistic
  7.    rs.MoveFirst
  8.    rs.Update
  9.    If Not rs.EOF Then
  10.    While Not rs.EOF
  11.         rs("USR_password").Value = "uiid2daa"
  12.         rs.Update
  13.         rs.MoveNext
  14.    Wend
  15.    End If
  16.  
  17.    rs.Close
  18.    con.Close
  19. End Sub
  20.  
  21. Private Sub Form_Load()
  22. connstr = "Driver={MySQL ODBC 3.51 Driver};" & _
  23.          "Server=192.168.1.1;" & _
  24.          "Port=3306;" & _
  25.          "Database=test;" & _
  26.          "User=root;" & _
  27.          "Password=pass;"
  28.          With con
  29.            .ConnectionString = connstr
  30.            .Open
  31.          End With
  32. End Sub

Me estoy volviendo loco, alguien podría ayudarme? lo unico que quiero es modificar el campo USR_Password y no lo consigo. Un saludo!
55  Programación / Programación Visual Basic / Re: Threads en VB en: 5 Abril 2010, 07:25 am
Citar
Hola, quisiera saber cual es el probelma principal, o sea el "porque" de que te tarde tanto procesar esos registros ¿podes poner el codigo de esos registros?...porque capas estas haciendo algo mal ahi...y procesar esa cantidad de registros no debe haber problemas...hay procesos que procesan mas registros y no usan thread para nada.

si quieres pongo aqui mi cogido y le hechais un vistazo, lo unico para lo que quiero los threads es por estetica, para que el formulario no se quede en modo "No Responde" al ser una operación tan grande:


Código
  1. Function AsignaOperaciones(fileName As String, ByRef matriz As totalExpedientes, PB1 As ProgressBar) As Integer
  2. Dim file As Integer
  3. Dim linea As String
  4. Dim lineaGestion As String
  5. Dim vDatos As Variant
  6. Dim indice As Long
  7. Dim gestion As Double
  8. Dim encontrado As Boolean
  9. file = FreeFile
  10. PB1.Min = 0
  11. PB1.Max = 149000
  12. Open fileName For Input As #file
  13.    Do Until EOF(file)
  14.        Line Input #file, linea
  15.        vDatos = Split(linea, "*")
  16.        gestion = 0
  17.        indice = BuscaExpediente(Val(vDatos(0)), matriz, encontrado)
  18.        lineaGestion = vDatos(2)
  19.  
  20.        If encontrado Then
  21.            If matriz.expedientes(indice).gestion <> "" Then
  22.                gestion = matriz.expedientes(indice).gestion
  23.            Else
  24.                gestion = 0
  25.            End If
  26.            matriz.expedientes(indice).TipoOperacion = vDatos(1)
  27.            matriz.expedientes(indice).gestion = gestion + CalculaSaldos(lineaGestion)
  28.            matriz.expedientes(indice).Asignacion = vDatos(3)
  29.            matriz.expedientes(indice).Defectuosa = vDatos(4)
  30.            matriz.expedientes(indice).Subsanada = vDatos(5)
  31.            matriz.expedientes(indice).Anulada = vDatos(6)
  32.         End If
  33.  
  34.  
  35.  
  36.  
  37.        If PB1.Max <> PB1.Value Then
  38.                PB1.Value = PB1.Value + 1
  39.        End If
  40.  
  41.    Loop
  42. Close #file
  43. PB1.Value = 0
  44. End Function
  45.  

 esto es una función, y la función BuscaExpediente es la siguiente:

Código
  1. Function BuscaExpediente(numExp As String, matriz As totalExpedientes, ByRef bandera As Boolean) As Long
  2. bandera = False
  3.    For i = 0 To matriz.numExpedientes - 1 Step 1
  4.        If numExp = matriz.expedientes(i).Expediente Then
  5.            bandera = True
  6.            BuscaExpediente = i
  7.            Exit Function
  8.        End If
  9.    Next
  10. BuscaExpediente = -1
  11. End Function

la estructura totalExpedientes es la siguiente

Código
  1. Type EstructuraExpediente
  2.    Expediente As String
  3.    FechaFirma As String
  4.    Procedencia As String
  5.    FechaFactura As String
  6.    Debe As String
  7.    Haber As String
  8.    Saldo As String
  9.    TipoOperacion As String
  10.    gestion As String
  11.    Defectuosa As String
  12.    Subsanada As String
  13.    Asignacion As String
  14.    Anulada As String
  15. End Type
  16. Type totalExpedientes
  17.    expedientes() As EstructuraExpediente
  18.    numExpedientes As Long
  19. End Type

En resumen, mi funcion buscaExpedientes realiza un bucle bastante grande,
y la funcion de AsignaOperaciones abre un archivo que contiene 150000 lineas con lo cual tiene que recorrer 150000 lineas y buscar en la matriz el correspondiente expediente para asignarle valores de la linea(cada linea corresponde a un expediente). Espero haberme explicado.. :)
Un saludo y Gracias!
56  Programación / Programación Visual Basic / Re: Threads en VB en: 31 Marzo 2010, 09:18 am
Citar
Aprende C++ o java

si realmente se programar en C/c++  o java, sólo que hice la aplicación en VB porque estaba orientada a BBDD de lotus y el codigo de VB es similar al de LOTUS,la proxima vez empezare el proyecto en C/C++ y todo perfecto, por cierto...odio java. ;).

Simplemente lo quiero por estética, pero si no se puede tampoco lo realizo, lo unico que quiero es que haga en 2º plano un bucle que es bastante grande, donde tiene una funcion de busqueda que tiene tambien un bucle bastante grande, entonces digamos que si quiero hacer esto:

Código
  1. sub funcion1(indice as string,max as long,BBDD as EstructuraDatos,PB1 as progressbar)
  2.  
  3. PB1.value=0
  4. for i=1 to max 'max = 150000
  5. busca(indice,BBDD) '-> esta funcion tiene un bucle for de 1 hasta 145000 tambien.
  6. PB1.value=PB1.value +1
  7. next
  8. End sub

pos lo unico que quiero es realizar la funcion1 en 2º plano, ya que el formulario se queda "Colgado" al ser una operación que lleva tanto tiempo, para que estéticamente la progressbar se vaya incrementando y el formulario no tenga el aspecto de "colgado" (No Responde)que se produce cuando un programa realiza un algoritmo muy grande, porque se queda con la ventana del form en blanco... hasta que realiza el algoritmo por completo.

Si existe solución me gustaría saberla, hasta ahora he utilizado la API de createThread y no parece funcionar muy bien en VB, o realmente no la he implementado bien, alguien podría ayudarme?
57  Programación / Programación Visual Basic / Re: Threads en VB en: 30 Marzo 2010, 09:29 am
es verdad tienes razon, al compilar.... si ejecuto el EXE me tira un error..... y no sigue ejecutando... te pongo el codigo

Código
  1. Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  2. Private Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadID As Long) As Long
  3. Private Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long
  4. Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
  5. Public hThread As Long, hThreadID As Long
  6.  
  7. Private Sub Command1_Click()
  8.    hThread = CreateThread(ByVal 0&, ByVal 0&, AddressOf AsyncThread, ByVal 0&, ByVal 0&, hThreadID)
  9.    CloseHandle hThread
  10. End Sub
  11.  
  12.  
  13.  
  14.  
  15. Private Sub Form_Unload(Cancel As Integer)
  16.    If hThread <> 0 Then TerminateThread hThread, 0
  17. End Sub
  18.  
  19. 'in a module
  20.  
  21. Public Sub AsyncThread()
  22.  
  23.   For i = 1 To 5
  24.   MsgBox i
  25.   Next
  26.   hThread = 0
  27.  
  28. End Sub
58  Programación / Programación Visual Basic / Re: Threads en VB en: 30 Marzo 2010, 08:20 am
encontre este codigo, bueno... antes de ver el post, lo unico que no funciona me salta el siguiente error

Uso invalido de Address of !!

Código
  1. Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  2. Private Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadID As Long) As Long
  3. Private Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long
  4. Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
  5. Public hThread As Long, hThreadID As Long
  6.  
  7. Private Sub Command1_Click()
  8.    'KPD-Team 1999
  9.    'URL: http://www.allapi.net/
  10.    'E-Mail: KPDTeam@Allapi.net
  11.    'After you click this button, try to move the window
  12.    'You will see that the AsyncThread-function was executed asynchronously
  13.    hThread = CreateThread(ByVal 0&, ByVal 0&, AddressOf AsyncThread, ByVal 0&, ByVal 0&, hThreadID) ' en esta linea me da el error en Address OF
  14.    CloseHandle hThread
  15. End Sub
  16.  
  17. Private Sub Form1_Unload(Cancel As Integer)
  18.  
  19.    'If the thread is still running, close it
  20.    If hThread <> 0 Then TerminateThread hThread, 0
  21.  
  22. End Sub
  23.  
  24. 'In a module
  25.  
  26.  
  27.  
  28. Function AsyncThread() As Integer
  29.  
  30.    'Let this thread sleep for 10 seconds
  31.  
  32.    Sleep 10000
  33.    hThread = 0
  34.  
  35. End Function


Que ocurre? Un saludo
59  Programación / Programación Visual Basic / Threads en VB en: 29 Marzo 2010, 14:40 pm
Buenas, estoy haciendo una pequeña aplicacion en VB pero se queda aparentemente colgada debido a que el bucle es demasiado lento, porque recorre unos 150000 registros, intento llevar un co0ntrol mediante una progress bar, y parece funcionar mas o menos bien pero la ventana del formulario se queda un poco colgada, existe alguna manera de ejecutar esta accion sin que  afecte al formulario principal? es mediante Threads? Un saludo
60  Programación / Bases de Datos / Re: Accesso Integro a BBDD LOTUS en: 19 Marzo 2010, 13:43 pm
No se porque  que es lo que realiza realmente LOTUS al acceder, tengo entendido que lo guarda en un .ini, pero de donde recoge los valores? porque luego la api t ira del archivo:
domobj.tlb localizado en la carpeta de lotus, pero de donde recoge el dato del usuario para inicializar la sesion?

prograbdo con LOTUS existe la manera de sustituir el notes.ini y puedes elegir un usuario u otro, pero con la API aunque elimines el .ini sigue funcionando cogiendo el valor del ultimo server al que se accedio. alguien sabe donde se guarda los valores de los que recoge esta api en el objeto NotesSession? Un saludo
Páginas: 1 2 3 4 5 [6] 7 8 9 10
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines