Cuestión : EET 2008 de Windows

Mi configuración: Windows 2008 SP2, ANUNCIO + TSE

When creo a nuevo usuario en ANUNCIO e incluyo a usuario en el usuario de escritorio alejado del grupo que todavía no puedo abrir una sesión de la EET. Cuando doy las derechas del administrador al usuario que trabaja MUY BIEN y puedo abrir una sesión de la EET. el

I debe tener un wjth del problema de las derechas la configuración del usuario de la EET, puede venir del hecho de que mi EET es también un



de la C.C. del ANUNCIO (tengo 2 servidores en mi dominio y necesito tener una C.C. del respaldo en caso de) class= del

Respuesta : EET 2008 de Windows

No estoy seguro cómo conseguir el funcionamiento antedicho del código. Éste es código que utilizo para tener acceso a Web pages. Es tercer o de cuarta generación y bastante robusto. Esto es un módulo completo del código.

'clsInternetConnection
'
La 'clase proporciona functionalty para leer Web pages.
'
'Ejecutado como un módulo de la clase para el uso con cualquie proyecto de VB o de VBA.
'
'© Kevin 2008-2010 M. Jones

Opción explícita

Const privado INTERNET_OPEN_TYPE_PRECONFIG = 0
Const privado INTERNET_FLAG_RELOAD = &H80000000
Const privado INTERNET_FLAG_PRAGMA_NOCACHE = &H100
Const privado INTERNET_OPTION_RECEIVE_TIMEOUT como de largo = 6

Const privado UserAgent = “VB”

mConnectionHandle privado como de largo
mTimeoutSeconds privados como de largo

Privado declarar la liberación “wininet” de InternetCloseHandle de la función (el _
     hInet de ByRef como largo _
  ) Como de largo

Privado declarar la liberación “wininet” alias “InternetOpenA” de InternetOpen de la función (el _
     ByVal sAgent como secuencia, _
     lAccessType de ByVal como de largo, _
     sProxyName de ByVal como secuencia, _
     sProxyBypass de ByVal como secuencia, _
     lFlags de ByVal como largo _
  ) Como de largo

Privado declarar la liberación “wininet” alias “InternetOpenUrlA” de InternetOpenUrl de la función (el _
     hInternetSession de ByVal como de largo, _
     lpszUrl de ByVal como secuencia, _
     lpszHeaders de ByVal como secuencia, _
     dwHeadersLength de ByVal como de largo, _
     dwFlags de ByVal como de largo, _
     dwContext de ByVal como largo _
) Como de largo

Privado declarar la liberación “wininet” de InternetReadFile de la función (el _
     ByVal hFile como de largo, _
     sBuffer de ByVal como secuencia, _
     lNumBytesToRead de ByVal como de largo, _
     lNumberOfBytesRead como largo _
  ) Como número entero
 
Privado declarar la liberación “wininet.dll” alias “InternetSetOptionA” de InternetSetOption de la función (el _
     hInternet de ByVal como de largo, _
     dwOption de ByVal como de largo, _
     lpBuffer de ByRef como cualesquiera, _
     dwBufferLength de ByVal como largo _
  ) Como de largo

Class_Initialize secundario privado ()

  mConnectionHandle = InternetOpen (UserAgent, INTERNET_OPEN_TYPE_PRECONFIG, el vbNullString, el vbNullString, 0)
  Si mConnectionHandle = 0 entonces
     MsgBox “incapaz de abrir una conexión a internet. Se ha creado la causa más probable es demasiadas manijas.”
  Terminar si
  mTimeoutSeconds = 30

Submarino del extremo

Class_Terminate secundario privado ()

  mConnectionHandle de InternetCloseHandle
     
Submarino del extremo

Función pública GetWebPage (_
     URL de ByVal como secuencia, _
     ByVal opcional ProxyUserID como secuencia, _
     ByVal opcional ProxyPassword como secuencia, _
     ByVal opcional TimeoutSeconds como largo _
  ) Como secuencia

'Conseguir un Web page.
'
'Sintaxis
'
'GetWebPage (URL, [ProxyUserID], [ProxyPassword])
'
'URL - Un URL completo a un Web page.
'
'ProxyUserID - la identificación del usuario para el proxy server, eventualmente. Opcional. Si está omitido
'entonces no se asume ningún proxy server.
'
'ProxyPassword - la contraseña para el proxy server. Opcional. No hecho caso si
Se omite 'ProxyUserID.
'
'TimeoutSeconds - el número de segundos a esperar hasta medir el tiempo hacia fuera. Opcional.
'Si entonces están omitidos se utilizan 30 segundos.

  ConnectionHandle dévil como de largo
  URLHandle dévil como de largo
  BytesRead dévil como de largo
  Resultado dévil como boleano
  InputBuffer dévil como secuencia * 10000
  PageContent dévil como secuencia
  SecurityData dévil como secuencia
 
   Si Len (ProxyUserID) > 0 entonces
     SecurityData = ProxyUserID
     Si Len (ProxyPassword) > 0 entonces
        SecurityData = SecurityData y “: ” Y ProxyPassword
     Terminar si
     SecurityData = SecurityData y “@”
     El URL = substituye (URL, “: /”, “: /” y SecurityData)
  Terminar si
 
   Si TimeoutSeconds = 0 entonces TimeoutSeconds = mTimeoutSeconds
 
   Si mConnectionHandle <> 0 entonces
     Resultado = InternetSetOption (mConnectionHandle, INTERNET_OPTION_RECEIVE_TIMEOUT, TimeoutSeconds * 1000, Len (TimeoutSeconds))
     URLHandle = InternetOpenUrl (mConnectionHandle, URL, el vbNullString, 0, INTERNET_FLAG_RELOAD o INTERNET_FLAG_PRAGMA_NOCACHE, 0)
     Si URLHandle <> 0 entonces
        Hacer
           InputBuffer = vbNullString
           Resultado = InternetReadFile (URLHandle, InputBuffer, Len (InputBuffer), BytesRead)
           PageContent = PageContent y se fueron (InputBuffer, BytesRead)
        Colocar mientras que BytesRead > 0
        InternetCloseHandle URLHandle
     Terminar si
  Terminar si
 
   GetWebPage = PageContent
 
Función del final

La característica pública consigue ValidInternetConnection () como boleana

  ValidInternetConnection = mConnectionHandle <> 0

Característica del extremo

La característica pública consigue TimeoutSeconds () como de largo

  TimeoutSeconds = mTimeoutSeconds

Característica del extremo

La característica pública dejó TimeoutSeconds (el _
     Valor de ByVal como largo _
  )

  mTimeoutSeconds = valor

Característica del extremo

Kevin