使用Shell.Application技术之二

原创 2003年02月13日 09:45:00

 function FileSearch()
 {
  SearchAsst = new ActiveXObject("SearchAssistantOC.SearchAssistantOC");
                SearchAsst.FindFilesOrFolders();

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

 function PersonSearch()
 {
                SearchAsst = new ActiveXObject("SearchAssistantOC.SearchAssistantOC");
                SearchAsst.FindPeople();
 }

 function ShellExecuteExe()
 { 
                ShellApp = new ActiveXObject("Shell.Application");

                //var myprinterfolder = shell.NameSpace("shell:PrintersFolder");
                //var mydocsfolder = shell.NameSpace("shell:personal");
                //var mycompfolder = shell.NameSpace("shell:drivefolder");


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

                ShellApp.ShellExecute("cmd.exe");

             //ShellApp.ShellExecute("wiaacmgr.exe","/SelectDevice");
  //ShellApp.ShellExecute("rundll32.exe", "shell32.dll,Control_RunDLL sysdm.cpl,,1")
  //ShellApp.ShellExecute("rundll32.exe", "shell32.dll,Control_RunDLL netcpl.cpl,,1");
  //ShellApp.ShellExecute("rundll32.exe", "shell32.dll,Control_RunDLL sysdm.cpl,,1");

  //对于FolderItems对象可以用InvokeVerbEx Method
  //ShellApp.NameSpace("c://xxx").Items().InvokeVerbEx("delete");
  //而通过InvokeVerb(x.Items().Item(0).Verbs().Item(i).Name);可以访问某个命令
  // win = ShellApp.NameSpace("c://xxx").Items().Item(0)
  // e = win.Verbs();
  // for(i=0;i<e.Count;i++){
  // document.writeln(e.Item(i).Name);
  // }
  // win.InvokeVerb(e.Item(0).Name);
 }

 //=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~
 //
 // 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");
  */

如何使用Shell.Application技术

关于Shell.Application的使用------------------------------------------------------------------------------...
  • koolfoo
  • koolfoo
  • 2003年02月13日 09:44
  • 764

关于Shell.Application对象的一些简单尝试

Set shellapp = CreateObject("Shell.Application") '获取所有桌面的窗口:Set oWindows = shellapp.Windows '执行文件:sh...
  • blizzardlyk
  • blizzardlyk
  • 2010年09月07日 15:00
  • 4982

如何使用Shell.Application技术(转载)

http://www.zahui.com/html/7/14380.htm
  • bzjbest
  • bzjbest
  • 2004年12月15日 15:10
  • 907

提升为系统管理员权限

@echo off mkdir "%windir%\BatchGotAdmin" if '%errorlevel%' == '0' (   rmdir "%windir%\BatchGotAdm...
  • litao31415
  • litao31415
  • 2015年08月10日 17:04
  • 401

关于Shell.Application的使用

关于Shell.Application的使用------------------------------------------...
  • EndAll
  • EndAll
  • 2006年12月22日 18:31
  • 8930

[AHK]Shell.Application用法

Shell := ComObjCreate("Shell.Application") MsgBox Cascade Windows Shell.CascadeWindows() Sleep 20...
  • liuyukuan
  • liuyukuan
  • 2017年02月22日 09:54
  • 955

javascript BrowseForFolder Shell.Application 没有权限

微软msdn:  function fnGetMyPathJ()   {     var oShell = new ActiveXObject("Shell.Application");       ...
  • regon
  • regon
  • 2006年07月19日 21:08
  • 6429

载极其危险的 Wscript.Shell 和 shell.application 组件

载极其危险的 Wscript.Shell 和 shell.application 组件,这2个组件的主要作用是asp调用exe程序。  几乎所有正常的网站都用不到,而要黑服务器却几乎都需要调用这个组件...
  • EndAll
  • EndAll
  • 2006年12月22日 18:21
  • 1513

Shell.Application

1、创建 Shell 对象  var Shell = new ActiveXObject("Shell.Application");   2、使用 Shell 属性及方法  Shell.Applic...
  • lsprolove
  • lsprolove
  • 2008年06月08日 16:41
  • 337

VBScripts and UAC elevation(visa以后的系统)

这两天因为工作需要,在写一些vbs的脚本,才知道,vbs不能像其他可执行文件一样,在 需要提升访问权限时,弹出UAC窗口,那么,如何通过UAC提升vbs脚本的访问权限呢? 查了一些资料,将结果整理一下...
  • chenjintaoxp
  • chenjintaoxp
  • 2014年05月30日 21:36
  • 1643
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:使用Shell.Application技术之二
举报原因:
原因补充:

(最多只允许输入30个字)