Mensajes

Es una tarea muy complicada, ya que no solo hay que tener en cuenta que las sintaxis son muy distintas entre los lenguajes sino también las variables, en algunos lenguajes se declaran y en otros no, los tipos de variables. Ni hablar de los controles GUI...

[1000 Códigos fuentes de VB6 de las siguientes temáticas, algo que no te puede faltar si sos programador.]

1000 Códigos fuentes de VB6 de las siguientes temáticas, algo que no te puede faltar si sos programador.


VB6 and ActiveX
VB6 and ASP
VB6 and Bas Files
VB6 and CAB files
VB6 and Controls
VB6 and Conversions
VB6 and DAT Files
VB6 and Email
VB6 and Encryption
VB6 and Extraction
VB6 and Files
VB6 and Firewalls
VB6 and Forms
VB6 and Graphics
VB6 and Help
VB6 and Icons
VB6 and Images
VB6 and Information
VB6 and Internet
VB6 and Keyboard
VB6 and Make Exe
VB6 and Math
VB6 and Media
VB6 and Menus
VB6 and Mp3
VB6 and Networking
VB6 and Registry
VB6 and ScreenSavers
VB6 and Security
VB6 and Shell
VB6 and Source Codes
VB6 and SQL
VB6 and Time
VB6 and Windows





PASS: "deeo" Sin comillas

Descarga Visual Basic 6 Portable (Funciona en Windows7 y genera EXE) haciendo click en la imagen de abajo.

Con el IP y asegurándote que los módem/routers a los que se encuentran conectados los equipos posean abierto el puerto que vallan a utilizar.

[- El desarrollador no debe poder utilizar la DLL sin la licencia (Es decir si se la da a un colega que el no puede utilizar sus funciones)]

Estimados, muy buenas noches !!!!

Hace un par de días que vengo con un proyecto que no se muy bien como concluir-

Quería consultarler si alguien me puede tirar una idea, esto es lo que quiero hacer:

Estoy creando una DLL la cual estaba pensando en comercializar, la idea es poder vender esta DLL a otros desarrolladores, las condiciones serian...

- El desarrollador no debe poder utilizar la DLL sin la licencia (Es decir si se la da a un colega que el no puede utilizar sus funciones)
*Esto se podría realizar con algún algoritmo para que solo funcione en su PC, utilizar su MAC, su ID del Mother o algo asi....

- Pero que cuando el desarrollador compile su programa y se lo venda al cliente, este pueda utilizar el programa sin la licencia de la dll.

No se si se entiende la idea, mientras escribía el post, se me ocurrió que al momento de darle a la licencia al programador, que este incluya en el su codigo fuente un código (valga la redundancia) que la dll interprete que es legitimo... pero me voy a poner a chequear la viabilidad, mientras tanto espero que me tiren alguna idea...

Desde ya muchas gracias por el espacio.
Saludos !!!

Si tienes IP dinamica te recomiendo que te crees un No-IP.

[Tu codigo]

Primero, mucho codigo sin sentido ahi arriba lo optimice al máximo.

La idea es que el código sea fácil y rápidamente legible, en cuanto a "mucho codigo sin sentido", no lo comprendo, el cogido esta y cumple una función, en poner un if en una sola linea no se optimiza nada, mas que ahorrar renglones.
En cuanto a tu código, no solo le falto en End Sub, declaraste un procedimiento y le pasaste parámetros en ves de declarar una función, tampoco devuelve ningún valor, ademas faltan declarar variables. La idea estaba y funcionaba, pero el código estaba incompleto.

Tu codigo para contar lineas es erroneo, aca abajo lo corregí.
Aparte como el array empieza de 0 siempre tu codigo va a contar una linea menos por eso el +1.

Eso es correcto, no lo tuve en cuenta-

Igual me agrada que haya alguien que se anime a postear codigo, falta gente asi en este subforo.

De este foro aprendí mucho y quiero (aunque sean pequeñeces) devolver algo.

Saludos y Gracias Por leer. !!!

[ELIMINAR UNA LINEA POR SU NUMERO]

Hola extreme69, como estas ?

Aca tengo tu solución testeada  , estuve mirando el codigo de 79137913 y no me funciono   , así que le hice unas modificaciones y te agrego 2 funciones para poder contar las lineas de los TextBox o algún String


ELIMINAR UNA LINEA POR SU NUMERO

Código (vb) [Seleccionar] Expandir


   Dim Lineas() As String 'Auxiliar donde se guardan las lineas
   Dim I  As Long 'Variable del contador
   
   Lineas = Split(Texto.Text, vbNewLine)
   
   'Borro el contenido de Texto
   Texto.Text = vbNullString
   
   For I = 0 To UBound(Lineas)
       If I <> NumeroLinea Then
           'Si la linea es distinta a la que quiero eliminar la agrego, sino la omito
           Texto.Text = Texto.Text & Lineas(I) & vbCrLf
       End If
   Next
   Borrar_Linea = Texto.Text


CONTAR LINEAS EN UN STRING [FORMA ABSURDA]

Código (vb) [Seleccionar] Expandir


Private Function Contar_Lineas_A_Lo_Loco(Texto As TextBox)
   'HAGO UN FOR QUE RECORRA TODOS LOS CARACTERES DEL TEXTO
   For I = 0 To Len(Texto.Text)
       'SI EL CARACTER LEIDO ES UN SALTO DE LINEA CON RETORNO DE CARRO, CUENTO UNA LINEA.
       If Mid(Texto.Text, I, 1) = vbCrLf Then
           Contar_Lineas = Contar_Lineas + 1
       End If
   Next
End Function



CONTAR LINEAS EN UN STRING [FORMA GROSA]

Código (vb) [Seleccionar] Expandir


Private Function Contar_Lineas_A_Lo_Pro(Texto As TextBox) As Long
   Dim Lineas() As String 'Auxiliar donde se guarda los saltos de linea
   'Corto el texto por los saltos de linea....
   Lineas = Split(Texto.Text, vbNewLine)
    'Y luego cuento la dimencion de la matriz
    Contar_Lineas_A_Lo_Pro = UBound(Lineas)
End Function




Bueno, eso es todo, espero que te sea de utilidad.
Saludos

Cada pais posee un rango de IP, este rango solo se puede comparar en una base de datos. ACA te dejo algo que te puede dar una mano.

PD: Armate de paciencia.

Saludos

Estimados muy buen día !!!

Les comento que estoy arrancando con los comandos DOS (muy a full por cierto ;- ) y estoy buscando la forma de conectarme a un equipo dentro de un dominio, la idea es poder modificar por ejemplo la hora del equipo o borrar los perfiles locales de los usuarios, algo básico. Tenganse por entendido, que al acceder a un equipo es necesaria la clave y usuario administrador del dominio (que eso lo tengo), lo que quiero saber en realidad es si esto se puede realizar bajo la linea de comandos.
Estuve buscando en san Google pero no logro dar con lo que estoy buscando... Mientras espero sus respuestas sigo en la extenuante busqueda....

Pero bien dice el dicho, el que no busca no encuentra  .

Saludos y espero que me puedan dar una mano. Abrazo

Hola theluigy13etv como estas ?

Me leí todos los comentarios y lo que me pareció mas lógico fue el comentario de raul338, lo que yo haría seria lo siguiente:

Crear un array o vector de 40 posiciones luego usar la función RND que seleccione el indice del array y con un For que haga 80 vueltas y que en cada una intercambie de posición los elementos.

De esta forma te aseguras de que este totalmente desordenado, y que estén los 40 elementos iniciales.