Mensajes

  Googleando me encontre esto a ver si os sirve a alguno
Lo que mas interesa es que son muchisimas cosas para cambiar de windows
a traves del registro.

http://vagos.es/showthread.php?p=603313

Estoy viendo si se pueden anular las politicas
en un usuario restringido, atraves de la consola de usuarios. A ver si consigo
hacerlo con visual basic, si alguien sabe algo por favor que conteste.




Un saludo!!

Si quieres usar visual basic sobre vista... te recomiendo que busques algo sobre el vmware 6.0, es por asi decirlo un emulador de sistemas operativos.. (es mas que eso pero para que nos entendamos).

Un saludo

LeandoA Son muy buenos los ejemplos que pones en el post que me pasaste, Ahora estoy currando, esta tarde me pongo con ello aver si puedo hacer algo.

Una pregunta, que hiciste, hacer la captura cortarla y luego comprimir los cachos o hacer la captura comprimirla y luego hacer los cachos?? Hay alguna diferencia??, esta tarde lo pruebo y te cuento.

Un saludo!!!

Hola buenas, estoy trabajando en un escritorio remoto, os cuento mi idea mas o menos...
lo que hace el programa por ahora es:
-hace una captura
-la comprime en jpg
-la corta en 9 trozos
-envia estos trozos a un ftp.
-.. Aun me faltan muchas cosas..

                     mas  o menos asi:

                     I---------I---------I---------I
                     I---------I---------I---------I
                     I---------I---------I---------I
                     I---------I---------I---------I

Pero una cosa clave, es detectar si alguno de estos 9 trozos a cambiado, para asi hacer mas agil y rápido el programa, y de esta manera mandar unicamente los trozos que han cambiado en vez de mandar todos cada x tiempo.

Sabria alguien como detectar el cambio???


MUxas Gracias De antemano

Un Saludo!!!  (y feliz año) 

Me alegro que te sirva.


un saludo!

Hola aqui tengo este ejemplillo que baje por ahi hace mucho, espero que te sirva!!

www.notasucm.com/wave.rar


Un saludo cuidate

Gracias voy a probar

Un saludo!

Intentalo haciendolo con 2 sockets, uno para las capturas de pantalla y otro para el keyloger. Un saludo 

Hola buenas, me gustaria saber si existe alguna forma de navegar atraves de un Proxy con un control WebBrowser, Hasta ahora lo único que se me ha ocurrido y no da resultado es modificar el registro de windows para que el Iexplorer cambie el su proxy, y asi el WebBrowser tambien este condicionado por ese cambio. No se si usare proxys que no funcionen o yo que se.. os dejo el codigo para que lo veais. No todas las rutinas son mias.

Código [Seleccionar] Expandir


Dim i As Integer


Private Sub CambiarProxy(strProxyServer As String)

    ' ubicacion en la registry
    Dim strRegPath
   
    strRegPath = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\"
   
    Set oWshShell = CreateObject("WScript.Shell")
    ' modifica las entradas en el registro
   
    Call oWshShell.RegWrite(strRegPath & "ProxyEnable", "00000001", "REG_DWORD")
   
    Call oWshShell.RegWrite(strRegPath & "ProxyOverride", "<local>", "REG_SZ")
   
    Call oWshShell.RegWrite(strRegPath & "ProxyServer", strProxyServer, "REG_SZ")
   
    ' notificacion
   
    MsgBox "Proxy setting enabled. " & vbCrLf & "Server - " & strProxyServer
   
    ' destroy
   
    Set oWshShell = Nothing
End Sub

Private Sub QuitarProxy()
    Dim strRegPath
   
     
   
    ' ubicacion en la registry
   
    strRegPath = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\"
   
    Set oWshShell = CreateObject("WScript.Shell")
   
     
   
    ' modifica las entradas en el registro
   
    Call oWshShell.RegWrite(strRegPath & "ProxyEnable", "00000000", "REG_DWORD")
   
     
   
    ' notificacion
   
    MsgBox "Proxy setting disabled"
   
    ' destroy
   
    Set oWshShell = Nothing
End Sub

Private Sub cargar(lw As ListBox, fname As String)
    'carga una lista de servidores de un txt cada servidor en una linea y separdo del puerto por :
   
    Dim dire As String
   
    dire = App.Path + "\" + fname
   
    Open dire For Input As #1
    While Not EOF(1)
    Line Input #1, file_data$
    lw.AddItem file_data$
    Wend
    Close #1
   
   
End Sub
Private Function pinga(ip As String) As Boolean
'Funcion que hace un ping a una ip devuelve true si hace pong

   Dim conectado As Boolean
   Dim Reply As ICMP_ECHO_REPLY
   Dim lngSuccess As Long
   Dim strIPAddress As String
   
   conectado = False
   'Get the sockets ready.
   If SocketsInitialize() Then
   
    'Address to ping
    strIPAddress = ip
   
   
    'Ping the IP that is passing the address and get a reply.
    lngSuccess = ping(strIPAddress, Reply)
     
    'Display the results.
   
    If EvaluatePingResponse(lngSuccess) <> "Success!" Then
   
        conectado = False
   
    Else
       
        conectado = True
     
    End If
     
    'Clean up the sockets.
    SocketsCleanup
     
   Else
   
   'Winsock error failure, initializing the sockets.
     conectado = False
     pinga = conectado
     
   
   End If
   
    pinga = conectado
End Function

Private Sub Command1_Click()
    cargar List1, "proxys.txt"
End Sub

Private Sub Command2_Click()
    'boton que hace ping y saca el resultado con 2 shape uno verde y otro rojo
   
    Dim ip
    Dim ipbuena As String
   
    ip = Split(List1.Text, ":")
    ipbuena = ip(0)
    If pinga(ipbuena) = True Then
      rojo.Visible = False
      verde.Visible = True
    Else
     rojo.Visible = True
     verde.Visible = False
    End If

End Sub

Private Sub Command3_Click()
    'cambia el proxy desde una lista de proxys
    'utilizando el registro de windows
    CambiarProxy List1.Text
End Sub

Private Sub Command4_Click()
    WebBrowser1.Navigate txt_url.Text
End Sub

Private Sub Command5_Click()
    'boton que inutiliza el proxy en iexplorer
    QuitarProxy
End Sub

Private Sub Form_Load()
    On Error Resume Next
    i = 0
    cargar List1, "proxys.txt"
    'añade ips locales para hacer pruebas de ping
    List1.AddItem "192.168.1.1:80"
    List1.AddItem "192.168.1.4:80"
End Sub


Bueno un saludo Gracias 

Eso habia pensado yo, hacer un programa con asp, y llamarlo con vb, lo de bajar la base de datos, modificarla y luego subirla no me vale puesto que va ser multiusuario,mientras q un usuario ha modificado la base de datos y sube una version nueva puede que otro usuario suba despues una version vieja.
Alguien sabe como se podria hacer???

Muxas gracias a todos