Mensajes

mira este link solo usa el INET y la barra es con 2 shape.
http://www.canalvisualbasic.net/forum/forum_posts.asp?TID=20517&KW=inet

Hola miren yo necesito es:
tengo un listview q tiene 3 columnas en la primera el Nº de conexion en la segunda tiene la IP remota y enm la tercera tiene el Nº de socket. bueno cuando un socket se cierra poruqe alguien cierra su programa mi programa en el evento Winsock1_close el index q me da es un valor q esta en la la columna 3 del listview, y yo quiero q sabiendo ese valor me de el numeor de linea. alguien sabe como pueod hacerlo por favor es urgente! Muchas gracais si no entienden posteen aca.


Sancho Mazorka      

toma este hice el otro dia porque odio el otro autoclick que todos usan. 

Código [Seleccionar] Expandir

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Const DA = &H2
Const DU = &H4
Const RA = &H8
Const RU = &H10

Private Sub Form_Load()
Timer1.Interval = 0
Timer2.Interval = 1
Me.Caption = "Auto CLick  V: 1.0  [Detenido]"
End Sub

Private Sub Timer1_Timer()
On Error GoTo error:
If Text2.Text = "CI" Then
ninvertido = DA
invertido = DU
End If
If Text2.Text = "CD" Then
ninvertido = RA
invertido = RU
End If
mouse_event ninvertido Or invertido, 0&, 0&, cButt, dwEI
Exit Sub
error:
MsgBox Err.Description, vbCritical, AutoClick
End
End Sub

Private Sub Timer2_Timer()
On Error GoTo error:
If GetAsyncKeyState(121) = -32767 Then
If Timer1.Enabled = False Then
Timer1.Interval = Text1.Text
Timer1.Enabled = True
Me.Caption = "Auto CLick  V: 1.0  [En progreso]"
Else
Timer1.Interval = Text1.Text
Timer1.Enabled = False
Me.Caption = "Auto CLick  V: 1.0  [Detenido]"
End If
End If
If GetAsyncKeyState(122) = -32767 Then Me.SetFocus
Exit Sub
error:
MsgBox Err.Description, vbCritical, AutoClick
End
End Sub


esto encesita:
timer1 -> intervalo = 0; enabled= false
tiemr2 -> intervalo = 100; enabled = true
2 textbox; text1 y text2

me olvidaba en el text1 va el intervalo y en el text2 va CI si queres clkick izquierdo, y CD si queres click derecho es facil con el F10 empiezan los clicks y si lo apretas de vuelta se para, con el F11 lo pones en 1º palno para llamarlo por si esta atras de una ventana. el Exe q hice tiene un texto q explica en 4 renglones chicos por eso le pongo esto



Sancho Mazorka

mira si tenes el word apreta ALT+F11 y te va a abrir un vb y apreta al ayuda si no la tenes pone instalar y al instala sola y ahi teens toda la ayuda que necesitas con ejemploss y todo algunso no funcan poruiqe son de otra version. mira con vb es mas facil rddir "RUTA"
mddir "RUTA" creo q son para borrar y crear dir en vb. mas no me acuerdo espero que te sirva salu2


Sancho Mazorka    

hola muchachos, en la api-guide hay un ejemplo de lo que vos queres hacer y se llama Pipes como dijo Cara_Webo es exactamente lo que estas buscando, lo unico malo es que se tilda mientras lo procesa, si ejecutas esto

Código [Seleccionar] Expandir

shutdown -s
el ejemplo de vb se tilda hasta que se acaba el tiempo del shutdown que predefinido es 30 segundos. Espero que te sirva.


Sancho Mazorka   

bueno eso lo tiene a lo de hacer un filtro, pero una vez buscados los archivos lo podes hacer, yo uso el Gnucleus y hago eso, lo malo es que me tarda una eterniadad en conectarse ya qeu prueba host X host y no es que se conecta a un servidor. Agregame al mail asi me ayudas yo tambien tenia pensado algo asi. Salu2

PD: con el Gnucleus si se puede continuar un archivo que se queda a mitad de camino



Sancho Mazorka          rhcp_269@hotmail.com

man ese no es el modo de apagar la makina con dos aparte es mejor el Ironhorse poruqe el de dos se puede detener y encima esta mal el code qeu dio lord_iNtro es asi
Shell("shutdown.exe -s - t 00" ' es una s la que va para apagar la a hace otra cosa y shutdown.exe no es necesario con solo poner shutdown ya es suficiente. Espero q esto te sirva. Salu2


Sancho Mazorka    

Hola muchachos mira B@RTY proba esto en las propiedades del winsock no le pongas el remoteport ni el localport lo unico uqe tenes que hacer es en el cliente

Código [Seleccionar] Expandir

winsock1.connect "127.0.0.1",6005
y en el servidor en el form load

Código [Seleccionar] Expandir

winsock1.close
winsock1.localport 6005
winsock1.listen
y asi funciona ami antes me deci lo mismo y era por eso hasta que lo descubri. Salu2

PD: espero que haya sido eso a mi me lo soluciono eso al problema.
PD2:lo del senddata de tu ej te falta poner

Código [Seleccionar] Expandir

winsock1.senddata CARPETA ' cosa que no pusiste

Sancho Mazorka    

no te mates mira si buscaras podrias comer. en la parte de virus y troyanos hay un post q esta pegado creo que es este troyano en vb desde 0 por fulano. hay tens de todo y tenes para mandar archivos anda muy bien lo unico que le tenes que solucionar unas cosas que no interfieren en la parte de subir o enviar archivos. Salu2


Sancho Mazorca   

perdonen por postear 2 veces no se porque paso peor lo mio n es suficientemente claro para que sigan pidiendo cosas.chau


Sancho Mazorka