Questione : Misurazione - radice dell'albero

Sto provando a fissare la misurazione della radice - albero sui miei 6506 e. Ho fatto funzionare l'ordine: primary
but che della radice del t
spanning-tree del
conf il 1 non lo prende… ancora sta mostrando l'interruttore differente con una priorità di difetto 32768 come la radice per la misurazione del treel su 1. vlan quando seguo giù l'interruttore che ha messo radici, io cambio la priorità a 65535 e la passerà fuori ad un altro interruttore con una priorità di difetto di 32768, ma il non mio 6506.

How posso convincere i 6506 per essere radice???

thanks,
class= del

Risposta : Misurazione - radice dell'albero

Non sono sicuro come ottenere il funzionamento di cui sopra di codice. Ciò è codice che uso per accedere ai Web pagi. È terza o della quarta generazione ed abbastanza robusta. Ciò è un modulo completo di codice.

'clsInternetConnection
'
'Il codice categoria fornisce functionalty per leggere i Web pagi.
'
'D'applicazione come un modulo del codice categoria per uso con qualsiasi progetto di VBA o di VB.
'
'© Kevin 2008-2010 M. Jones

Opzione esplicita

Const riservato INTERNET_OPEN_TYPE_PRECONFIG = 0
Const riservato INTERNET_FLAG_RELOAD = &H80000000
Const riservato INTERNET_FLAG_PRAGMA_NOCACHE = &H100
Const riservato INTERNET_OPTION_RECEIVE_TIMEOUT come lungamente = 6

Const riservato UserAgent = “VB„

mConnectionHandle riservato come lungamente
mTimeoutSeconds riservati come lungamente

Riservato dichiarare il movimento di liberazione “wininet„ di InternetCloseHandle di funzione (_
     hInet di ByRef come lungo _
  ) Come lungamente

Riservato dichiarare il movimento di liberazione “il wininet„ altrimenti detto “InternetOpenA„ di InternetOpen di funzione (_
     ByVal sAgent come stringa, _
     lAccessType di ByVal come lungamente, _
     sProxyName di ByVal come stringa, _
     sProxyBypass di ByVal come stringa, _
     lFlags di ByVal come lungo _
  ) Come lungamente

Riservato dichiarare il movimento di liberazione “il wininet„ altrimenti detto “InternetOpenUrlA„ di InternetOpenUrl di funzione (_
     hInternetSession di ByVal come lungamente, _
     lpszUrl di ByVal come stringa, _
     lpszHeaders di ByVal come stringa, _
     dwHeadersLength di ByVal come lungamente, _
     dwFlags di ByVal come lungamente, _
     dwContext di ByVal come lungo _
) Come lungamente

Riservato dichiarare il movimento di liberazione “wininet„ di InternetReadFile di funzione (_
     ByVal hFile come lungamente, _
     sBuffer di ByVal come stringa, _
     lNumBytesToRead di ByVal come lungamente, _
     lNumberOfBytesRead come lungo _
  ) Come numero intero
 
Riservato dichiarare il movimento di liberazione “wininet.dll„ altrimenti detto “InternetSetOptionA„ di InternetSetOption di funzione (_
     hInternet di ByVal come lungamente, _
     dwOption di ByVal come lungamente, _
     lpBuffer di ByRef come c'è ne, _
     dwBufferLength di ByVal come lungo _
  ) Come lungamente

Class_Initialize secondario riservato ()

  mConnectionHandle = InternetOpen (UserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
  Se mConnectionHandle = 0 allora
     MsgBox “incapace di aprire un collegamento a Internet. La causa più probabile è troppe maniglie è stata generata.„
  Concluder se
  mTimeoutSeconds = 30

Sommergibile dell'estremità

Class_Terminate secondario riservato ()

  mConnectionHandle di InternetCloseHandle
     
Sommergibile dell'estremità

Funzione pubblica GetWebPage (_
     URL di ByVal come stringa, _
     ByVal facoltativo ProxyUserID come stringa, _
     ByVal facoltativo ProxyPassword come stringa, _
     ByVal facoltativo TimeoutSeconds come lungo _
  ) Come stringa

'Ottenere un Web page.
'
'Sintassi
'
'GetWebPage (URL, [ProxyUserID], [ProxyPassword])
'
'URL - Un URL completo ad un Web page.
'
'ProxyUserID - l'identificazione usuario per il proxy server, se ce n'è. Facoltativo. Se omesso
'allora nessun proxy server è presupposto.
'
'ProxyPassword - la parola d'accesso per il proxy server. Facoltativo. Ignorato se
'ProxyUserID è omesso.
'
'TimeoutSeconds - il numero dei secondi da attendere fino a cronometrare fuori. Facoltativo.
'Se allora omesso 30 secondi è usato.

  ConnectionHandle fioco come lungamente
  URLHandle fioco come lungamente
  BytesRead fioco come lungamente
  Risultato fioco come booleano
  InputBuffer fioco come stringa * 10000
  PageContent fioco come stringa
  SecurityData fioco come stringa
 
   Se Len (ProxyUserID) > 0 allora
     SecurityData = ProxyUserID
     Se Len (ProxyPassword) > 0 allora
        SecurityData = SecurityData & “: „ & ProxyPassword
     Concluder se
     SecurityData = SecurityData & “@„
     Il URL = sostituisce (URL, “: /„, “: /„ & SecurityData)
  Concluder se
 
   Se TimeoutSeconds = 0 allora TimeoutSeconds = mTimeoutSeconds
 
   Se mConnectionHandle <> 0 allora
     Risultato = InternetSetOption (mConnectionHandle, INTERNET_OPTION_RECEIVE_TIMEOUT, TimeoutSeconds * 1000, Len (TimeoutSeconds))
     URLHandle = InternetOpenUrl (mConnectionHandle, URL, vbNullString, 0, INTERNET_FLAG_RELOAD o INTERNET_FLAG_PRAGMA_NOCACHE, 0)
     Se URLHandle <> 0 allora
        Fare
           InputBuffer = vbNullString
           Risultato = InternetReadFile (URLHandle, InputBuffer, Len (InputBuffer), BytesRead)
           PageContent = PageContent & hanno andato (InputBuffer, BytesRead)
        Collegare mentre BytesRead > 0
        InternetCloseHandle URLHandle
     Concluder se
  Concluder se
 
   GetWebPage = PageContent
 
Funzione di conclusione

La proprietà pubblica ottiene ValidInternetConnection () come booleana

  ValidInternetConnection = mConnectionHandle <> 0

Proprietà dell'estremità

La proprietà pubblica ottiene TimeoutSeconds () come lungamente

  TimeoutSeconds = mTimeoutSeconds

Proprietà dell'estremità

La proprietà pubblica ha lasciato TimeoutSeconds (_
     Valore di ByVal come lungo _
  )

  mTimeoutSeconds = valore

Proprietà dell'estremità

Kevin
Altre soluzioni  
 
programming4us programming4us