Creo que cambia el Proxy de IE Explorer, no se muy bien lo que hace.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
#Region "Using Proxy"
<Runtime.InteropServices.DllImport("wininet.dll", SetLastError:=True)> _
Private Shared Function InternetSetOption(ByVal hInternet As IntPtr, ByVal dwOption As Integer, ByVal lpBuffer As IntPtr, ByVal lpdwBufferLength As Integer) As Boolean
End Function
Public Structure Struct_INTERNET_PROXY_INFO
Public dwAccessType As Integer
Public proxy As IntPtr
Public proxyBypass As IntPtr
End Structure
Private Sub UseProxy(ByVal strProxy As String)
Const INTERNET_OPTION_PROXY As Integer = 38
Const INTERNET_OPEN_TYPE_PROXY As Integer = 3
Dim struct_IPI As Struct_INTERNET_PROXY_INFO
struct_IPI.dwAccessType = INTERNET_OPEN_TYPE_PROXY
struct_IPI.proxy = Marshal.StringToHGlobalAnsi(strProxy)
struct_IPI.proxyBypass = Marshal.StringToHGlobalAnsi("local")
Dim intptrStruct As IntPtr = Marshal.AllocCoTaskMem(Marshal.SizeOf(struct_IPI))
Marshal.StructureToPtr(struct_IPI, intptrStruct, True)
Dim iReturn As Boolean = InternetSetOption(IntPtr.Zero, INTERNET_OPTION_PROXY, intptrStruct, System.Runtime.InteropServices.Marshal.SizeOf(struct_IPI))
End Sub
#End Region
Cita de: EleKtro H@cker en 16 Noviembre 2011, 03:42 AM
Y si pruebas a cambiar la tarjeta de sonido de ranura en la placa ?
YO en tu situación le pasaría un limpiador de polvo, o le soplaria todo lo que pudiera , la cambiaria de ranura en la placa base...la examinaría en busca de algún circuito quemado o algo extraño... Después me bajaría el VirtualBox, instalo WinXP, y allí intentaría instalar la tarjeta, ¿Para que? Para al menos salir de dudas sobre si está muerta o no, esas cosas pasan cuando menos te lo esperas...
Y si resulta que está muerta, me compraría una SB de la gamma X-Fi, baratitas y funcionan perfectamente en W7
Eres libre de seguir los pasos xD
Saludos...