//=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~
//
// BindToSA
//
// Bind to the specified url and return the cdo object for it.
//
function BindToSA(szURL){
var adModeRead = 1;
var oDoc = new ActiveXObject("CDO.KnowledgeStartAddress")
oDoc.DataSource.Open(szURL, null, adModeRead, -1, 0, "", "")
return oDoc;
}

//=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~
//
// BindToUrl
//
// Bind to the specified url and return the cdo object for it.
//
function BindToUrl(szURL){
var adModeRead = 1;
var oDoc = new ActiveXObject("CDO.KnowledgeDocument")
oDoc.DataSource.Open(szURL, null, adModeRead, -1, 0, "", "")
return oDoc;
}

function Msg(str){
//<object id=FolderControl classid="clsid:787e8fd0-7ad6-11d3-83da-00c04f505f43" style="position: absolute; left: 0px; top: 0px; visibility: hidden;">
//var FolderControl = new ActiveXObject("Tahoe.FolderControl");
FolderControl.TraceMsg(str);
}

ShellApp = new ActiveXObject("Shell.Application");
//ShellApp.ShowBrowserBar("{C4EE31F3-4768-11D2-BE5C-00A0C9A83DA1}", true);

//ShellApp.ShellExecute("Rundll32.exe","shell32.dll,SHCreateLocalServerRunDll
{601ac3dc-786a-4eb0-bf40-ee3521e70bfb}");

//ShellApp.ShellExecute("Rundll32.exe","shdocvw.dll,OpenURL");//Internet 快捷方式
//ShellApp.ShellExecute("Rundll32.exe","msconf.dll,OpenConfLink");//SpeedDial
//ShellApp.ShellExecute("Rundll32.exe","zipfldr.dll,RouteTheCall");//压缩文件夹shdocvw.dll,OpenURL
//ShellApp.ShellExecute("Rundll32.exe","netplwiz.dll,UsersRunDll");//用户帐户
//ShellApp.ShellExecute("Rundll32.exe","shell32.dll,Options_RunDLL 0"
);//文件夹选项
//ShellApp.ShellExecute("Rundll32.exe","shell32.dll,Options_RunDLL 1"
);//显示任务栏和开始菜单

//ShellApp.ShellExecute("rundll32.exe", "shell32.dll,Control_RunDLL sysdm.cpl,,1")appwiz.cpl,NewLinkHere
//ShellApp.ShellExecute("rundll32.exe", "shell32.dll,Control_RunDLLAsUser")

//ShellUI = new ActiveXObject("Shell.UIHelper.1");
//ShellUI.AddFavorite("http://www.microsoft.com/msdn","MSDN")
//ShellUI.AddChannel("http://www.microsoft.com/")

ShellApp.ShellExecute("c:\\windows\\system32\\mshta.exe","C:\\xx.hta")

//var s = ShellApp.ShellExecute("rundll32.exe", "kernel32.dll,GetVersionExA"+","+so);

/*var p = "C:\\"
sha = new ActiveXObject("Shell.Application");
var g = sha.NameSpace(p).Items().Item("xxx");
var v = g.Verbs();
var str=null;
for(i=0;i<v.Count;i++){
str = v.item(i).Name;
if(str.search("重命名")!=-1)break;
str = null
}
if(str)
g.InvokeVerbEx(str,"c:\\xx");
else
alert('no')
//g.InvokeVerbEx("重命名","xx");
*/

上一页  [1] [2]