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


 


Tema destacado: [Encuesta] ¿Qué editor de código utilizas? (2014)    


  Mostrar Mensajes
Páginas: [1] 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ... 364
1  Programación / Programación Visual Basic / Re: Cambiar prioridad a un proceso en: 27 Julio 2015, 06:25
http://allapi.mentalis.org/agnet/apiguide.shtml

http://allapi.mentalis.org/apilist/OpenProcess.shtml

http://allapi.mentalis.org/apilist/FindWindow.shtml

http://allapi.mentalis.org/apilist/F307CAA2589BD8227FE5D6D4A27F5BDA.html

Intenta hacer una meza entre esos codigos y veras... no te lo dejo por que si no jamas aprederas a combinar funcionalidades :), solo ve lo que te piden y ve que API te lo retorna y asi constantemente o que datos debes ingresar desde codigo...

Dulces Lunas1¡.
2  Programación / Programación Visual Basic / Re: SFTP en VB6 alguien sabe como? en: 27 Julio 2015, 06:15
En SFTP creo que solo se agrega una capa SSH...

https://tools.ietf.org/html/draft-ietf-secsh-filexfer-02

-------

http://www.chilkatsoft.com/refdoc/xChilkatSFtpRef.html

http://www.example-code.com/vb/sftp.asp

-------

O puedes implementar el protocolo por sockets... solo busca el RFP que contiene esto...

https://wiki.filezilla-project.org/SFTP_specifications

Dulces Lunas!¡.
3  Programación / Programación Visual Basic / Re: Duda sobre strconv y conversiones byte-caracter en: 8 Julio 2015, 06:19
Usa las funciones ASC() o ASCW()...

En dado caso que quieras TODA la String a un array de bytes puedes hacer esto...

OJO Cada caracter en una string de VB6 (Widechar / Unicode) esta compuesto por 2 bytes...

En un modulo cualquiera...
Código
  1.  
  2. Option Explicit
  3.  
  4. Private Declare Sub RtlMoveMemory Lib "kernel32" (ByVal pDst As Long, ByVal pSrc As Long, ByVal ByteLen As Long)
  5.  
  6. public function str2ArryByte(ByRef str as string) as byte()
  7. dim lData() As byte
  8. dim lSize as long
  9.  
  10. LSize = LENB(sString)
  11.  
  12. if (lSize = 0) Then exit function 'No tiene caso que siga si es una cadena sin caracteres.
  13. redim lData(0 to (lSize-1))
  14.  
  15. RtlMoveMemory byval VarPtr(lData(0)) + &H3, byval StrPtr(sString), lSize
  16.  
  17. str2ArryaByte = lData
  18.  
  19. end function
  20.  
  21.  

P.D.: Llevo mucho tiempo sin tocar VB6 espero te sea de ayuda (No probé el código)...

Dulces Lunas!¡.
4  Programación / Programación Visual Basic / Re: Pequeño reto en: 7 Julio 2015, 22:16
Como demonio borro mi msg ...

Dulces Lunas!¡.
5  Programación / Programación Visual Basic / Re: Pequeño reto en: 6 Julio 2015, 22:34

¿Veis los demás como solo era ponerse?


Si gustas retos aquí tienes:

http://foro.elhacker.net/programacion_visual_basic/recopilacion_de_retos_vbclassic_por_79137913-t360748.0.html;msg1743290#msg1743290

Si puedes superar esta te ganas mi respeto :).

IsNumeric_????

Version VB6
http://foro.elhacker.net/programacion_visual_basic/reto_reemplazo_de_funcion_isnumeric-t336067.0.html;msg1652210#msg1652210
Version en C:
http://foro.elhacker.net/programacion_cc/cisnumeric_vb6_a_c-t336564.0.html;msg1652677#msg1652677

Dulces Lunas!¡.
6  Programación / Programación Visual Basic / Re: ByRef a Objecto ListBox en: 6 Julio 2015, 19:12
No creo ya que realizo la prueba basica y no me funciona, por ejemplo:

Código
  1.        Do While Not Rs.EOF And Not Rs.BOF
  2.            'Lsb.AddItem Rs.Fields(0).Value
  3.            Lsb.AddItem "1"
  4.            Rs.MoveNext
  5.        Loop

A lo que me refiero es que funciona todo correctamente, menos cuando paso or ByRef el objecto ListBox.

Castealo... por Evil cast no recuerdo que :)

Código
  1. Lsb.AddItem "" & Rs.Fields(0).Value
  2.  

Dulces Lunas!¡.
7  Programación / Programación Visual Basic / Re: Pequeño reto en: 6 Julio 2015, 18:54
Lo que hace es contar los bits encendidos de la diferencia de los bits de dos valores.

Código
  1. Function DimeQueHagoB(ByVal Valor1 As Long, ByVal Valor2 As Long, Bits As Byte) As Integer
  2. Dim lV3 As Long
  3. Dim iCount As Byte
  4.  
  5. lV3 = (Valor1 Xor Valor2)
  6.  
  7. if lV3 = 0 Then exit function
  8.        REM {
  9. No recuerdo si es 32 o 64 dejo 32...
  10. }
  11. If (Bits > 32) Then Bits = 32
  12.  
  13. For iCount = 1 to Bits
  14. REM {
  15. No recuerdo si para dividir y tener un valor entero es \ o / :(
  16. }
  17. lV3 = lV3 \ 2
  18. If (lV3 And &H1) Then
  19. DimeQueHagoB = DimeQueHagoB + 1
  20. Else If (lV3 = 0) Then
  21. Exit Function
  22. End If
  23. Next iCount
  24. End Function
  25.  

P.D.: No tengo compilador :(.

Dulces Lunas!¡.
8  Programación / Programación C/C++ / Re: [SFML] Movimientos de Texturas en: 21 Junio 2015, 20:05
Si en lugar de 1 pones fracciones de numeros?... como 0.1, claro si admite números reales.

Dulces Lunas!¡.
9  Programación / Programación Visual Basic / Re: ByRef a Objecto ListBox en: 21 Junio 2015, 07:00
Tengo este simple código sólo que ahora me la paso más en C# y no recuerdo bien como es en VB.

Tengo una función donde realizo una petición a la base de datos en SQL Server, esta ahi excelente. Pero necesito que desde esa misma función lo cargue a un ListBox, tengo lo siguiente:

Código
  1. Public Sub LoadHours(txtFecha As String, txtTarjeta As String, ByRef Lsb As ListBox)
  2. ' [SNIP]
  3.        Do While Not Rs.EOF And Not Rs.BOF
  4.            Lsb.AddItem Rs.Fields(0).Value
  5.            ' Sí lo muestro en un MsgBox se ve correctamente los datos de la DB
  6.            Rs.MoveNext
  7.        Loop
  8. ' [SNIP]
  9. End Sub

Se supone que al pasarlo como ByRef me tomaría el objecto del formulario e ingresaría los valores de la función dentro del ListBox.

Código
  1. Call LoadHours(Me.txtFecha.Text, Me.txtTarjeta.Text, Me.lsbHoras)

El caso es que me dice: No coinciden los tipos.

Debes usar las interfaces en lugar de las clases asi puedes usar ByVal sin problemas... por ejemplo en JAVA (Que es el que me da de comer actualmente) yo uso List para cualquier clase que herede de esta y no tengo problemas...

Si no mal recuerdo en .Net es List...

Ducles Lunas!¡.
10  Programación / Programación Visual Basic / Re: Estructuras dinámicas de datos" listas" en: 21 Junio 2015, 06:55
Disculpa, pero el código que pones es .Net:

http://foro.elhacker.net/net-b62.0/

Dulces Lunas!¡.
Páginas: [1] 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ... 364
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines