Mensajes

jaaaa!!

te veo poco futuro en el foro 

Jajaja ahora salta seba diciendo la frase clasica:

Aca ayudamos no hacemos tu trabajo xD

La verdad mire solo las primeras lineas por que ahora me tengo que ir a estudiar a simple vista yo reemplazaria

esto

Código [Seleccionar] Expandir


Private Sub Form_Load()
Dim running As Integer
running = App.PrevInstance
If running <> 0 Then
MsgBox "El Programa ya se esta ejecutando", 0 + 48, "News"
End
End If
End Sub


por esto que es lo mismo pero mas corto;

Código [Seleccionar] Expandir


Private Sub Form_Load()
If App.PrevInstance = True Then
MsgBox "El Programa ya se esta ejecutando", 0 + 48, "News"
End
End If
End Sub


Ba solo ahorras 2 lineas pero me parece innecesari crear esa variable...

Bueno ando trabajando en un proyecto para mi escuela, la idea es que hay un centro de computo con 50 PCs, la primera parte del proyecto esta enfocada a la comodidad de los alumnos.

Actualmente llegan, tienen que preguntar a la encargada si hay PCs disponibles y se anotan en un cuaderno, la idea es que haya una PC donde llegen y se muestren las PCs disponibles, hagan doble click en la que se quieren registrar, llenen un formulario. Al hacer click en Registar! se comprobará que sus apellidos y nombre coincidan con el de su N° de cuenta de ser así registra el N° de cuenta, N° de PC y hora en que se registro.

Bueno aqui pongo los codigos:

principal.frm(Form1):

Código (vb) [Seleccionar] Expandir

Public statuspc As Integer

Private Sub Form_Load()
Dim running As Integer
running = App.PrevInstance
If running <> 0 Then
MsgBox "El Programa ya se esta ejecutando", 0 + 48, "News"
End
End If
End Sub
Private Sub pc1_Click()
statuspc = 1
If Label1.Caption = "DISPONIBLE" Then
Unload principal
registro.Show
Else
MsgBox "Elige otra computadora, esta ya esta ocupada =(", vbCritical, "Error"
End If
End Sub
Private Sub pc2_Click()
statuspc = 2
If Label2.Caption = "DISPONIBLE" Then
Unload principal
registro.Show
Else
MsgBox "Elige otra computadora, esta ya esta ocupada =(", vbCritical, "Error"
End If
End Sub
Private Sub pc3_Click()
statuspc = 3
If Label3.Caption = "DISPONIBLE" Then
Unload principal
registro.Show
Else
MsgBox "Elige otra computadora, esta ya esta ocupada =(", vbCritical, "Error"
End If
End Sub
Private Sub pc4_Click()
statuspc = 4
If Label4.Caption = "DISPONIBLE" Then
Unload principal
registro.Show
Else
MsgBox "Elige otra computadora, esta ya esta ocupada =(", vbCritical, "Error"
End If
End Sub
Private Sub pc5_Click()
statuspc = 5
If Label5.Caption = "DISPONIBLE" Then
Unload principal
registro.Show
Else
MsgBox "Elige otra computadora, esta ya esta ocupada =(", vbCritical, "Error"
End If
End Sub


registro.frm(Form2):

Código (vb) [Seleccionar] Expandir

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Load()
Command1.Enabled = False
End Sub
Private Sub apellidop_Change()
If apellidop.Text <> "" And apellidom.Text <> "" And nombre.Text <> "" And cuenta.Text <> "" Then
Command1.Enabled = True
Else
Command1.Enabled = False
End If
End Sub
Private Sub apellidom_Change()
If apellidop.Text <> "" And apellidom.Text <> "" And nombre.Text <> "" And cuenta.Text <> "" Then
Command1.Enabled = True
Else
Command1.Enabled = False
End If
End Sub
Private Sub nombre_Change()
If apellidop.Text <> "" And apellidom.Text <> "" And nombre.Text <> "" And cuenta.Text <> "" Then
Command1.Enabled = True
Else
Command1.Enabled = False
End If
End Sub
Private Sub cuenta_Change()
If apellidop.Text <> "" And apellidom.Text <> "" And nombre.Text <> "" And cuenta.Text <> "" Then
Command1.Enabled = True
Else
Command1.Enabled = False
End If
End Sub
Private Sub Command1_Click()
MsgBox "Registrado. Disfruta tu estancia", vbInformation, "Registro exitoso"
Sleep 250
Call Ocuparpc
Sleep 250
'Registro BD
Sleep 250
apellidop.Text = ""
apellidom.Text = ""
nombre.Text = ""
cuenta.Text = ""
Sleep 250
Unload registro
principal.Show
End Sub
Private Sub Command2_Click()
apellidop.Text = ""
apellidom.Text = ""
nombre.Text = ""
cuenta.Text = ""
Sleep 250
Unload registro
principal.Show
End Sub


funciones.bas(module1):

Código (vb) [Seleccionar] Expandir

Function Limpiaregistro()

End Function
Function Bloquearpc()

End Function
Function Ocuparpc()
Select Case principal.statuspc
Case 1
principal.Label1.Caption = "NO DISPONIBLE"
Case 2
principal.Label2.Caption = "NO DISPONIBLE"
Case 3
principal.Label3.Caption = "NO DISPONIBLE"
Case 4
principal.Label4.Caption = "NO DISPONIBLE"
Case 5
principal.Label5.Caption = "NO DISPONIBLE"
End Select
End Function


Como se podran cuenta soy muy nuevo en visual basic , aparte aquí les dejo el source:
http://rapidshare.com/files/288825115/Centro_de_computo.rar

De ante mano, mil gracias por su ayuda y consejos!!

Yo le cambiaria alguinas cosas. pero me quedo una duda

vos sos el que publico de como cambiar a "NO DISPONIBLE" en www.forosdelweb.com por que ese cdigo es muy similar (Una parte) a la que le aonsegue a un usuario de FDW jaja

Hola comunidad! solo esa era mi consulta
estoy interesado en aprender PHP y queria saber que puedo leer webs? Libros?

Bueno eso Gracias...!

No lo necesito pero me dejaste con la duda 

estuve buscando y como dijo el amigo BlackZeroX esta aqui en el foro

http://foro.elhacker.net/programacion_vb/mostrar_lo_qe_estoy_escuchando_iquestcomo-t208594.0.html%3Bmsg991307

Te lo dejo asi no lo buscas vos tambien xD

Suerte

si JAJAA

Ese Cpacha si es manejable a mi se me ocurrio obtener varios capchas de la web de manera de poder sacar recuadros de cada numero y luego ir buscando coincidencias entre el capcha objetivo y el recuadro extraido como cada recuadro tendria el mismo largor solo habria que desplazar la busqueda Horizontalmente y hacer un algoritmo de comparacion pixel por pixel con un coeficiente de semejansa superior al 70 %   luego por las coordenadas del recuadro se podria saber la posicion del numero. lo importante es que los trozos de cada numero del capcha no invadan recuadros de numeros contiguos sino este algoritmo no tendria funcionalidad y habria que hacer algo mas complicado   .

Bueno de lo que dijiste no manejo nada; asi que mas tarde voy a empezar a estudiar lo de comparacion... Muchas Gracias...

 Saludos....  

  PD como los recuadros son muy pequeños habria que ajustar el coeficiente de semejansa superior al 85 %.

[DESDE YA MUCHAS GRACIAS!]

Hola que tal Foro!

Como anda todo?

Hoy venia con una duda en particular...
Hace unos dias habia leido que un usuario del foro qeuria que un programa en VB le leyera la imagen del captcha para autocompletarla.
Bueno

a lo que un usuario le contesto antes... cuando los captchas era mas sencillos sse podia hacer; ahora son muy complejos.

Bueno yo queria hacer un BOT que leea un captcha de una web en particular

la cual es muy muy distinguible...

Alguien tiene idea de donde puedo sacar informacion de como se hacen estos bot..
por que la verdad no encontre nada...

Estaria muy agradecido si alguien me da una mano y me dice por donde empezar mas o menos

P.D: Les dejo la URL de la web que pide el CAPTCHA http://members.000webhost.com/login.php

Si no tiene ganas de ir hasta la url aca les dejo una imagen
ese es el captcha...

DESDE YA MUCHAS GRACIAS!

y como sabes que es nt o no?

y por que decis que es mejor?

Gracias Esta mejor que el que hice yo