Pergunta : TSE 2008 de Windows

Minha configuração: Windows 2008 SP2, ANÚNCIO + TSE

When eu crio um usuário novo no ANÚNCIO e eu incluo o usuário no usuário que Desktop remoto do grupo eu ainda não posso abrir uma sessão do TSE. Quando eu dou direitas do administrador ao usuário que trabalha ESTÁ BEM e eu posso abrir uma sessão do TSE. o

I deve ter um wjth do problema das direitas a configuração do usuário do TSE, pode vir do fato de que meu TSE é igualmente um



da C.C. do ANÚNCIO 2 usuários em meu domínio e os preciso de ter uma C.C. do apoio em caso de) (eu tenho class= do

Resposta : TSE 2008 de Windows

Eu não sou certo como começ o funcionamento acima do código. Este é código que eu me uso para alcançar Web pages. É terceira ou quarta geração e consideravelmente robusto. Este é um módulo completo do código.

'clsInternetConnection
'
'A classe fornece functionalty para ler Web pages.
'
'Executado como um módulo da classe para o uso com algum projeto de VB ou de VBA.
'
'© Kevin 2008-2010 M. Jones

Opção explícita

Const confidencial INTERNET_OPEN_TYPE_PRECONFIG = 0
Const confidencial INTERNET_FLAG_RELOAD = &H80000000
Const confidencial INTERNET_FLAG_PRAGMA_NOCACHE = &H100
Const confidencial INTERNET_OPTION_RECEIVE_TIMEOUT como por muito tempo = 6

Const confidencial UserAgent = “VB”

mConnectionHandle confidencial como por muito tempo
mTimeoutSeconds confidenciais como por muito tempo

Confidencial declarar o liberal “wininet” de InternetCloseHandle da função (o _
     hInet de ByRef como longo o _
  ) Como por muito tempo

Confidencial declarar o liberal “wininet” aliás “InternetOpenA” de InternetOpen da função (o _
     ByVal sAgent como a corda, _
     lAccessType de ByVal como por muito tempo, _
     sProxyName de ByVal como a corda, _
     sProxyBypass de ByVal como a corda, _
     lFlags de ByVal como longo o _
  ) Como por muito tempo

Confidencial declarar o liberal “wininet” aliás “InternetOpenUrlA” de InternetOpenUrl da função (o _
     hInternetSession de ByVal como por muito tempo, _
     lpszUrl de ByVal como a corda, _
     lpszHeaders de ByVal como a corda, _
     dwHeadersLength de ByVal como por muito tempo, _
     dwFlags de ByVal como por muito tempo, _
     dwContext de ByVal como longo o _
) Como por muito tempo

Confidencial declarar o liberal “wininet” de InternetReadFile da função (o _
     ByVal hFile como por muito tempo, _
     sBuffer de ByVal como a corda, _
     lNumBytesToRead de ByVal como por muito tempo, _
     lNumberOfBytesRead como longo o _
  ) Como o inteiro
 
Confidencial declarar o liberal “wininet.dll” aliás “InternetSetOptionA” de InternetSetOption da função (o _
     hInternet de ByVal como por muito tempo, _
     dwOption de ByVal como por muito tempo, _
     lpBuffer de ByRef como alguns, _
     dwBufferLength de ByVal como longo o _
  ) Como por muito tempo

Class_Initialize secundário confidencial ()

  mConnectionHandle = InternetOpen (UserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
  Se mConnectionHandle = 0 então
     MsgBox “incapaz de abrir uma conexão a internet. A causa mais provável é punhos demais foi criada.”
  Terminar se
  mTimeoutSeconds = 30

Submarino da extremidade

Class_Terminate secundário confidencial ()

  mConnectionHandle de InternetCloseHandle
     
Submarino da extremidade

Função pública GetWebPage (_
     URL de ByVal como a corda, _
     ByVal opcional ProxyUserID como a corda, _
     ByVal opcional ProxyPassword como a corda, _
     ByVal opcional TimeoutSeconds como longo o _
  ) Como a corda

'Começ um Web page.
'
'Sintaxe
'
'GetWebPage (URL, [ProxyUserID], [ProxyPassword])
'
'URL - Um URL completo a um Web page.
'
'ProxyUserID - usuário - identificação para o proxy server, eventualmente. Opcional. Se omitido
'nenhum proxy server é supor então.
'
'ProxyPassword - a senha para o proxy server. Opcional. Ignorado se
'ProxyUserID é omitido.
'
'TimeoutSeconds - o número de segundos a esperar até cronometrar para fora. Opcional.
'Se omitido então 30 segundos são usados.

  ConnectionHandle não ofuscante como por muito tempo
  URLHandle não ofuscante como por muito tempo
  BytesRead não ofuscante como por muito tempo
  Resultado não ofuscante como bôoleano
  InputBuffer não ofuscante como a corda * 10000
  PageContent não ofuscante como a corda
  SecurityData não ofuscante como a corda
 
   Se Len (ProxyUserID) > 0 então
     SecurityData = ProxyUserID
     Se Len (ProxyPassword) > 0 então
        SecurityData = SecurityData & “: ” & ProxyPassword
     Terminar se
     SecurityData = SecurityData & “@”
     O URL = substitui (URL, “: /”, “: /” & SecurityData)
  Terminar se
 
   Se TimeoutSeconds = 0 então TimeoutSeconds = mTimeoutSeconds
 
   Se mConnectionHandle <> 0 então
     Resultado = InternetSetOption (mConnectionHandle, INTERNET_OPTION_RECEIVE_TIMEOUT, TimeoutSeconds * 1000, Len (TimeoutSeconds))
     URLHandle = InternetOpenUrl (mConnectionHandle, URL, vbNullString, 0, INTERNET_FLAG_RELOAD ou INTERNET_FLAG_PRAGMA_NOCACHE, 0)
     Se URLHandle <> 0 então
        Fazer
           InputBuffer = vbNullString
           Resultado = InternetReadFile (URLHandle, InputBuffer, Len (InputBuffer), BytesRead)
           PageContent = PageContent & sairam (InputBuffer, BytesRead)
        Dar laços quando BytesRead > 0
        InternetCloseHandle URLHandle
     Terminar se
  Terminar se
 
   GetWebPage = PageContent
 
Função do fim

A propriedade pública começ ValidInternetConnection () como bôoleana

  ValidInternetConnection = mConnectionHandle <> 0

Propriedade da extremidade

A propriedade pública começ TimeoutSeconds () como por muito tempo

  TimeoutSeconds = mTimeoutSeconds

Propriedade da extremidade

A propriedade pública deixou TimeoutSeconds (o _
     Valor de ByVal como longo o _
  )

  mTimeoutSeconds = valor

Propriedade da extremidade

Kevin
Outras soluções  
 
programming4us programming4us