Mensajes

mmm pues... no uses winsock, mejor usa la clase CSocketMaster... ya se ha hablado de esto, me parece que en el foro de troyanos- viruz hay gran parte de eso. Asi no nececitas un OCX, ni nada, porque el programa traeria su propio socket...

saludos.

Si, pero LOF es para archivos abiertos con Open "Archivo"...etc etc...

Tambien lo puedes hacer con FileLen si no mal recuerdo y sin abrir el archivo.

Claro,

Código [Seleccionar] Expandir

textbox.selstart=len(textbox.text) ... en el evento change del textbox


saludos...

No es posible, de hecho creo que en ningun lenguaje porque son operaciones de comparacion y estos caracteres tienen significados especiales para cada lenguaje...
por cierto, hay una errata (aunque asi funciona) pero para que este mejor especificado declara la funcion asi:

Function LogicaSI(Valor1 as Integer, Operacion as String, Valor2 as Integer, Resultado as Integer) as Integer

o el tipo que quieras devolver...

saludos

Supongo quieres una funcion que se definiria algo asi:

Código [Seleccionar] Expandir


Function LogicaSI(Valor1 as Integer, Operacion as String, Valor2 as Integer, Resultado as Integer)


LogicaSI(10,>,9,1)

Lo que pienso que quieres es que tome el "10" haga la operacion ">" mayor que con el segundo valor "9" y si es verdadero devuelva el valor que le pones al cuarto parametro... si es asi haz algo asi:

Código [Seleccionar] Expandir



Function LogicaSI(Valor1 as Integer, Operacion as String, Valor2 as Integer, Resultado as Integer)

   Select Case Operacion
   
      Case ">"
           
           If Valor1 > Valor 2 Then LogicaSI = Resultado
       
      Case "<"
           
           If Valor1 < Valor 2 Then LogicaSI = Resultado

      Case "="

           If Valor1 = Valor 2 Then LogicaSI = Resultado

      Case "<>"

           If Valor1 <> Valor 2 Then LogicaSI = Resultado

     'Como ves, esto da para mucho, por ejemplo:

      Case ">="

           If Valor1 >= Valor 2 Then LogicaSI = Resultado

      Case "<="

           If Valor1 <= Valor 2 Then LogicaSI = Resultado

   End Select

End Function


Y para hacer la llamada a la funcion con los valores que tienes y ponerlos en un TextBox asi:

Código [Seleccionar] Expandir



Txt.Text = CStr( LogicaSI(10, ">", 9, 1) )



El operando lo pones entre comillas y listo...

saludos

Has intentado algo asi:??

Código [Seleccionar] Expandir


Shell "cmd /k netstat", vbNormal


Creo tambien se puede con la api ShellExecute

[ListView]

Con este control no se puede, pero hay otro que si lo permite. Lo agregas en los complementos (Micosoft Windows Common Controls 6.0) se llama ListView

busca en google, incluso puedes agregar imagenes, etc... un control muy flexible y no muy complicado de usar

Espero te ayude esto:

Código [Seleccionar] Expandir



Const ERR_ESPERADO = 0

Sub Rutina()
   
   On Local Error Goto Controlar

   ' Codigo

   Exit Sub

Controlar:
   
   If Err.Number = ERR_ESPERADO then
       
         MsgBox "Mensaje personal"
         
         Resume Next
         
   End If

End Sub



Solo ajustas la constante al valor del error esperado.

saludos

Asi es, lleva una configuracion, por eso tiene puerto usb, de la pagina del fabricante baja el manual correspondiente y ahi te vas a enterar.

saludos.

hay archivos con atributos del sistema u ocultos que no se pueden, o no se dejan borrar. Lo que hay que hacer es cambiarles el atributo, algo asi:

Código [Seleccionar] Expandir

SetAttr "Ruta", vbNormal

'Y luego el kill

Kill "Ruta"

Con eso se deberia borrar, el proceso debe estar terminado para poder eliminarlo....

saludos