Veamos de momento tengo esto:
Para quitar el proxy:
Private Sub Command1_Click()
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 & "AutoConfigURL", "00000000", "REG_DWORD")
' notificacion
MsgBox "Ssin Proxy"
' destroy
Set oWshShell = Nothing
End
End Sub
_______________________________________________
Para poner el proxy de nuevo:
Private Sub Command2_Click()
Dim strProxyServer
' define el proxy y el puerto si es necesario
strProxyServer = "http://www.siclontec.es/proxy.pac" '(un proxy falso como podeis entender)
' 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 & "AutoConfigURL", strProxyServer, "REG_SZ")
' notificacion
MsgBox "Proxy introducido" & vbCrLf & "Servidor - " & strProxyServer
' destroy
Set oWshShell = Nothing
End
End Sub
___________________________________________________
Ahora lo siguiente q me faltaria, seria quitar la pestaña conexiones y sus accesos a dicha pestaña.
Bueno ya veis voy pillando cosas, pero... aun me falta! Uffff.
Para quitar el proxy:
Private Sub Command1_Click()
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 & "AutoConfigURL", "00000000", "REG_DWORD")
' notificacion
MsgBox "Ssin Proxy"
' destroy
Set oWshShell = Nothing
End
End Sub
_______________________________________________
Para poner el proxy de nuevo:
Private Sub Command2_Click()
Dim strProxyServer
' define el proxy y el puerto si es necesario
strProxyServer = "http://www.siclontec.es/proxy.pac" '(un proxy falso como podeis entender)
' 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 & "AutoConfigURL", strProxyServer, "REG_SZ")
' notificacion
MsgBox "Proxy introducido" & vbCrLf & "Servidor - " & strProxyServer
' destroy
Set oWshShell = Nothing
End
End Sub
___________________________________________________
Ahora lo siguiente q me faltaria, seria quitar la pestaña conexiones y sus accesos a dicha pestaña.
Bueno ya veis voy pillando cosas, pero... aun me falta! Uffff.