欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

您好，HD。首先，我們建議您不要嘗試使用真正的進(jìn)度欄；因為它很難計算進(jìn)度，更不要說(shuō)顯示進(jìn)度了。我們都熟悉那些所謂的進(jìn)度欄 – 唉，Microsoft 的產(chǎn)品中也包含一些，有些進(jìn)度欄會(huì )指示完成某項操作的預計時(shí)間是 3 分鐘，然后是 296 分鐘，1 分鐘，14 分鐘。我們不想為這樣的東西浪費時(shí)間。

我們建議您嘗試一個(gè)簡(jiǎn)單的小對話(huà)框（或者至少是看起來(lái)類(lèi)似于對話(huà)框的東西），它只是用來(lái)通知用戶(hù)一些操作正在進(jìn)行并請用戶(hù)耐心等待。當操作完成時(shí)，我們的示例對話(huà)框會(huì )相應地顯示一條提示消息，然后消失。它沒(méi)有什么奇特之處，但的確很實(shí)用。

代碼如下：

On Error Resume NextSet objExplorer = CreateObject _("InternetExplorer.Application")objExplorer.Navigate "about:blank"objExplorer.ToolBar = 0objExplorer.StatusBar = 0objExplorer.Width = 400objExplorer.Height = 200objExplorer.Visible = 1objExplorer.Document.Title = "Logon script in progress"objExplorer.Document.Body.InnerHTML = "Your logon script is being processed. " _& "This might take several minutes to complete."Wscript.Sleep 10000objExplorer.Document.Body.InnerHTML = "Your logon script is now complete."Wscript.Sleep 5000objExplorer.Quit

我們在此進(jìn)行的所有操作就是創(chuàng )建 Internet Explorer 的一個(gè)實(shí)例，然后使用以下這行代碼在瀏覽器窗口中打開(kāi)一個(gè)空白頁(yè)面：

objExplorer.Navigate "about:blank"

去除工具欄和狀態(tài)欄（通過(guò)將這些值設置為 0），然后將窗口大小分別設置為 400 像素和 200 像素。然后，我們將 Visible 屬性設置為 1，其在屏幕上實(shí)際顯示小的 Internet Explorer 窗口。純粹是為了進(jìn)行演示，我們使用下面這行代碼配置窗口的 Title 屬性：

objExplorer.Document.Title = "Logon script in progress"

最終結果是什么呢？結果是這個(gè)樣子：

對于其本身來(lái)說(shuō)已經(jīng)很好了，但是我們或許還可以做得更好一點(diǎn)兒：首先，我們可以在 Internet Explorer 文檔中顯示自定義消息。為此，我們應設置文檔正文的 InnerHTML 屬性：

objExplorer.Document.Body.InnerHTML = "Your logon script is being processed. " _& "This might take several minutes to complete."

這段代碼的好處是：在將值分配給 InnerHTML 屬性時(shí)，我們可以使用所有我們喜歡的 HTML 標記。例如，假設我們希望用粗體顯示此消息。在這種情況下，我們只需使用 <B> 和 </B> 標記即可：

objExplorer.Document.Body.InnerHTML = "<B>Your logon script is being processed. " _& "This might take several minutes to complete.</B>"

設置了 InnerHTML 屬性之后，我們就得到與以下類(lèi)似的 Internet Explorer 實(shí)例：

還不錯吧？在示例腳本中，我們暫停 10 秒，然后用一條新消息替代舊消息，新消息會(huì )通知用戶(hù)他們的登錄腳本已經(jīng)完成。我們再暫停 5 秒，然后消除 Internet Explorer 的實(shí)例。

如果您希望更加別致一些，您可以再進(jìn)行幾項操作。在即將展示給您的經(jīng)修訂的腳本中，我們使用 WMI 類(lèi) Win32_DesktopMonitor 來(lái)確定當前的視頻分辨率（如 1024x768）。然后，我們使用一些簡(jiǎn)單的數學(xué)方法將 IE 窗口定位在屏幕的中間。例如，如果我們的屏幕寬度為 1024 像素，則應從 1024 中減去 400（Internet Explorer 窗口的寬度）。用這個(gè)數字除以 2，就得出了窗口左側的像素位置。對顯示高度 (768) 重復此操作可以得到窗口頂部的像素位置，從而使對話(huà)框在屏幕上居中顯示。以下是用于獲取屏幕寬度和高度的代碼：

strComputer = "."Set objWMIService = GetObject("Winmgmts:\\" & strComputer & "\root\cimv2")Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor")For Each objItem in colItemsintHorizontal = objItem.ScreenWidthintVertical = objItem.ScreenHeightNext

此處還有兩行代碼，可將窗口定位在屏幕上：

objExplorer.Left = (intHorizontal - 400) / 2objExplorer.Top = (intVertical - 200) / 2

除了將 Internet Explorer 窗口居中之外，我們還將光標設置為沙漏時(shí)需來(lái)強調這樣一個(gè)事實(shí)：用戶(hù)需要等待一會(huì )兒?？墒褂靡韵逻@行代碼來(lái)執行該操作：

objExplorer.Document.Body.Style.Cursor = "wait"

在腳本中后面的部分，我們將光標設置為默認，這樣可消除沙漏，使光標重新變?yōu)闃藴实募^光標。

修改后的新腳本如下所示：

On Error Resume NextstrComputer = "."Set objWMIService = GetObject("Winmgmts:\\" & strComputer & "\root\cimv2")Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor")For Each objItem in colItemsintHorizontal = objItem.ScreenWidthintVertical = objItem.ScreenHeightNextSet objExplorer = CreateObject _("InternetExplorer.Application")objExplorer.Navigate "about:blank"objExplorer.ToolBar = 0objExplorer.StatusBar = 0objExplorer.Left = (intHorizontal - 400) / 2objExplorer.Top = (intVertical - 200) / 2objExplorer.Width = 400objExplorer.Height = 200objExplorer.Visible = 1objExplorer.Document.Body.Style.Cursor = "wait"objExplorer.Document.Title = "Logon script in progress"objExplorer.Document.Body.InnerHTML = "Your logon script is being processed. " _& "This might take several minutes to complete."Wscript.Sleep 10000objExplorer.Document.Body.InnerHTML = "Your logon script is now complete."objExplorer.Document.Body.Style.Cursor = "default"Wscript.Sleep 5000objExplorer.Quit

您還覺(jué)得不夠別致嗎？好吧，另一個(gè)增添花樣的方法就是在您的 InnerHTML 中使用 .GIF 動(dòng)畫(huà)。例如，下面這行代碼除顯示一條消息之外，還顯示一個(gè) .GIF 動(dòng)畫(huà)：

objExplorer.Document.Title = "Logon script in progress"objExplorer.Document.Body.InnerHTML = "<img src=‘file:///C:\Scripts\watch.gif‘> " & _"Your logon script is being processed. This might take several minutes to complete."

最終結果為：

這可能稱(chēng)不上藝術(shù)品，但我們認為絕對可以說(shuō)這是“在代碼執行時(shí)執行一些有趣的操作”。另外，請記住，您可以更改圖片的對齊方式，還可以更改字體的大小和顏色 -- 您可以進(jìn)行任何 HTML 允許您進(jìn)行的操作。

附注。若想在代碼執行時(shí)進(jìn)行一些真正有趣的操作，請訪(fǎng)問(wèn) Dr. Scripto’s Fun Zone（Dr. Scripto 的樂(lè )園），學(xué)習如何在您的腳本中結合使用 Microsoft 代理技術(shù)。