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:

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:

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:

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:

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

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:

 
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: