Mensajes

HOLA!!!

Que bueno acabo de leer el post de novlucker y me saco las dudas

Gracias!!!

HOLA!!!


Miren, yo se C++ y VB, prefiero el VB, por la velocidad (de programacion), con el VB tengo que escribir muchas menos lineas de codigo que con C++, aparte, si tenes un teclado no yankee, p Ej español, para hacer las llaves tenes que apretar altGraf o alt+control, que es molesto.

Bueno, y en cuanto a esa excusa que ponen de "el C es un lenguaje de alto nivel y el VB es un C camuflado para tontos" mentira, para eso programemos todos en ASM!!! si es de mayor nivel que C, sino nos mudamos a BINARIO, Por favor ¬¬'  .
Y por ultimo, cada uno programa en lo que se le da la gana, si quiero programar en ASM o C++, esta bien, y tambien si quiero programar en pauscal que es en español XD lo puedo hacer. ESTA PERFECTO.

Disculpen que moleste, se que en otro post dicenq ue programas son, pero no los logro encontrar ¿como sabes la velocidad de proceso?

GRACIAS

AHHH ME OLVIDABA

Pone el uno entre comillas y corre perfecto osea:

Código (vb) [Seleccionar] Expandir

If modReg.bGetRegValue(HKEY_LOCAL_MACHINE, SREG & "\options", "active") = "1" Then

Sorry ^XD

HOLA!!!

Como andas L93, creo que lo que buscas es un firewall.

Subi un codigo de fuente de un firewall a MU.

Te dejo el link(copialo y pegalo): www.megaupload.com/?d=NG2UK328

Espero que te sirva.

HOLA!!!

QUISIERA SABER QUE ES MAS RAPIDO:

Código (vb) [Seleccionar] Expandir


If Not (lNumb And 1) = 0 Then Exit Function

' O

If Not (lNumb Mod 2) = 0 Then Exit Function



Gracias!!!

HOLA!!!


Mira este es un ejemplo rudimentario (imaginemos que se puede mandar eso)

Esto en el server:

Código (vb) [Seleccionar] Expandir


Public i As Integer
Public PUERTO As Integer

Private Sub Form_Load()
PUERTO = 7913
End Sub

Private Sub RESPALDO_DataArrival(ByVal bytesTotal As Long)
i = i + 1
Load SOCK(i)
SOCK(i).LocalPort = PUERTO + i
RESPALDO.SendData "Port:" & (PUERTO + i)
End Sub


Esto en el cliente:

Código (vb) [Seleccionar] Expandir


Private Sub WINSOCK1_DataArrival(ByVal bytesTotal As Long)
If Mid(entrada, 1, 5) = "Port:" Then
Call CORTARCONECCION
Call CAMBIARPUERTO
End If
End Sub


[HOLA!!!]

HOLA!!!


Yo intentaria tener 2 controles sock, uno el de la matriz de controles y otro de respaldo.


Osea:

Cliente --> "quiero conectarme" ---> servidor(a la escucha por el sock de respaldo)
Servidor crea el "index1", lo configura(el puerto) y guarda la config en ej parametros
Servidor --> "desconectate de mi y reconectate a:" & parametros ---> cliente
Cliente se desconecta y se conecta al nuevo puerto que se le asigno
Cliente --> "quiero conectarme" ---> servidor(a la escucha por el array creado)
¡¡¡conexión ESTABLECIDA!!!

TERMINADO !!!

HOLA!!!!


Yo lo hice con la funcion "mod" que devuelve el resto de la division:

Código (vb) [Seleccionar] Expandir



For PASS = 1000 To 2222
If PASS Mod 11 = 0 Then 'SE FIJA QUE DIVISIONES DE PASS/11 DAN RESTO 0
If Val(Mid(PASS, 1, 1)) + Val(Mid(PASS, 2, 1)) + Val(Mid(PASS, 3, 1)) + Val(Mid(PASS, 1, 1)) = 2 Then ' SE FIJA SI LA SUMA DE LAS CIFRAS DA 2
MsgBox "LA CONTRASEÑA ES " & PASS ' DEVUELVE LA CONTRASEÑA
End If
End If
Next


HOLA!!!

No es doble Post, por que el post que figura en el foro de programacion es sobre un problema que tenia y que por suerte pude solucionar, si te fijas los codigos son diferentes.

Pido que me den una opinion ahora que esta funcional el sistema.

Y si este no es el subforo para que revisen el "CRACKER" que arme (humildemente lo digo, por que no es la gran cosa, es mas es muy rudimentario) transladen el post plz.

Pero ante todo:

^**_*^**_*^**_*^**_*^**_*GRACIAS_**^*_**^*_**^*_**^*_**^*