index.base.net.byteLoader類講解: 準系統按位元組載入圖片,swf等 建構函式 public function ByteLoader(url:String = "") 如果傳入了參數url,則立即執行載入! load 載入方法 public function load(_url:String):void 開始載入,_url是載入的地址 updata 更新資料方法 public function updata():void 更新緩衝區的可讀位元組 close 關閉方法
主要用途:1、在用flash做項目的時候,把一些元件,通過設定連結類,然後使用這個類,通過getClass方法即可把這個素材拿下來圖1(詳見例1)2、將許多許多的類分庫到不同的swf中,然後通過調用swf,達到調用類庫的功能,然後通過getClass來擷取類(詳見例2)index.base.net.ClassLoader類講解:載入swf檔案,並且通過調用getClass擷取類,也可以擷取命名空間或者函數的定義建構函式public function ClassLoader(obj:Object
開啟記事本輸入: 複製代碼 代碼如下:ON ERROR RESUME NEXT set args=wscript.arguments arg=args(0) set w=createobject("word.application") set fso=createobject("scripting.filesystemobject") set docfile=fso.getfile(arg) docpath=docfile.path
dim ActionID ActionID = 1 '0登出,1關機,2重啟, ActionTime = "2006-1-4 13:42:30" '關機或重啟時間 function ShutDown() dim objShell Set objShell = WScript.CreateObject("Wscript.Shell") dim Application set Application =
/upload/20080604194652471.swf建構函式 public function Dot(x_:Number = 0,y_:Number = 0,_isListen:Boolean = false) 前兩個參數表示Dot的初始位置,第三個參數表示是否是一個功能性強的點 如果為false,當xy發生改變的時候,就不會發布事件,為true則會發布事件、 bind 綁定顯示對象方法 public function
Dim WSHShell,r,M,v,t,g,i On Error Resume Next Set WSHShell=WScript.CreateObject("WScript.Shell") v="HKCU\Software\Microsoft\Windows\CurrentVersion\ Policies\System\DisableRegistryTools" i="REG_DWORD" t="註冊表開關" r=WSHShell.RegRead(v) g=1 If (r=1) Then
開啟或關閉CMD: Dim WSHShell, r, m, v, t, g Dim i On Error Resume Next Set WSHShell=WScript.CreateObject("WScript.Shell") v="HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\system\DisableCMD" i="REG_DWORD" t="命令提示視窗開關" r=WSHShell.RegRead(v) g=1 If
自動匯入註冊表的,帶檢測: On Error Resume Next dim msg,fso,shell Set fso = Wscript.createobject("scripting.filesystemobject") set wshshell = wscript.CreateObject("wscript.shell") set shell = wscript.createobject("wscript.shell") IF
On Error Resume Next '忽略所有錯誤 Dim filename '聲明變數 Dim re Set re=New RegExp '建立Regex對象執行個體 re.Pattern="^([a-z]|[A-Z])+\:\\\w+\.vbs$" If re.Test(WScript.ScriptFullName)=False Then MsgBox "請在磁碟根目錄下運行本程式,否則搜尋結果可能會不正確!",,"MessageBox" WScript.Quit End If