創(chuàng)建 COM 對(duì)象引用的特定類(lèi)名.
ObjCreate ( "類(lèi)名稱(chēng)" [, "服務(wù)器名稱(chēng)" [,"用戶(hù)名",
["密碼"]]] )
類(lèi)名稱(chēng) | 對(duì)象的類(lèi)名稱(chēng), 格式如下: "程序名.對(duì)象類(lèi)型" 也可以是一個(gè)字符串表示形式的 CLSID. |
服務(wù)器名稱(chēng) | [可選參數(shù)] 遠(yuǎn)程計(jì)算機(jī)名稱(chēng). 從對(duì)象獲取. |
用戶(hù)名 | [可選參數(shù)] 登錄遠(yuǎn)程計(jì)算機(jī)時(shí)的用戶(hù)名 格式為 "計(jì)算機(jī)名稱(chēng)\用戶(hù)名", 或者 "域名\用戶(hù)碼". |
密碼 | [可選參數(shù)] 登錄遠(yuǎn)程計(jì)算機(jī)時(shí)的密碼. |
成功: | 返回一個(gè)對(duì)象. |
失敗: | 返回 0, 設(shè)置 @error 為非 0 值. |
; 示例 1
;
; 計(jì)算打開(kāi) shell(命令解釋程序) 窗口的數(shù)量
Local $oShell
= ObjCreate("shell.application")
; 獲取窗口 Shell 對(duì)象
Local $oShellWindows = $oShell.windows ; 獲取窗口 Shell 集合
If IsObj($oShellWindows) Then
Local
$string =
"" ; 用于顯示用途的字符串
For
$Window In
$oShellWindows ; 計(jì)數(shù)現(xiàn)有
Shell 窗口
$string = $string & $Window.LocationName &
@CRLF
Next
MsgBox(0, "窗口
Shell","您打開(kāi)以下 Shell
窗口:" & @CRLF & @CRLF & $string);
EndIf
Exit
; 示例 2
;
; 打開(kāi)遠(yuǎn)程計(jì)算機(jī)的 MediaPlayer
Local $oRemoteMedia
= ObjCreate("MediaPlayer.MediaPlayer.1",
"name-of-remote-computer")
If Not @error Then
MsgBox(0, "創(chuàng)建遠(yuǎn)程對(duì)象測(cè)試", "ObjCreate() 創(chuàng)建遠(yuǎn)程 MediaPlayer 對(duì)象成功 !")
$oRemoteMedia.Open(@WindowsDir & "\media\Windows XP Startup.wav") ; Play sound if file is
present
Else
MsgBox(0, "創(chuàng)建遠(yuǎn)程對(duì)象測(cè)試", "無(wú)法打開(kāi)遠(yuǎn)程對(duì)象. 錯(cuò)誤代碼: " &
Hex(@error, 8))
EndIf
provider with jb51.net (unicode) |