XYplorer Beta Club

Code: Select all

//Expandable Drive Button -v2.4
/*This script expands the Custom Toolbar Button (CTB) to show button fixed drives to it's right.
The CTB can be collapsed manually or automatically (see settings)
How to use it:
1) Save the script as XY script file and put it in XY's script folder.
2) Make a new CTB and note it's index and change it in the script below.
3) Enter load "ExpandDriveButton.xys"; in the CTB's "On click:" field.
*/
         perm $p_ctbindex, $p_officon, $p_onicon;
         
//Settings (tagged with ###)          
//### 
//(1) CTB index: change the below "$p_ctbindex" to the index of your ctb
        $p_ctbindex="18";
        
//###
//(2) Autocollapse options: change $collapse to one of the following-
//   a) 0 = Manual collapse 
//   b) -1 = Default: Auto-collapse button when clicking on list (or catalog or addressbar) 
//   c) Any positive number = seconds to wait before collapsing button           
        $collapse=-1;                       
        
//### 
//(3) CTB icons: use either in-built XY icon (":drives")or your own (eg:"drive.ico")
        $p_officon=":drives";  //collapsed icon
        $p_onicon=":drives";  //expanded icon
         
        $curctb="ctb$p_ctbindex";
        $toolbar=toolbar();
           if (ctbstate(,$p_ctbindex) == 0) {
               sub "_PVCheck";
               perm $p_toolbar;
               $p_toolbar=$toolbar;
                   if(ctbicon(,$p_ctbindex)==""){
                      ctbicon("$p_officon",$p_ctbindex);
                      }
               ctbicon("$p_onicon",$p_ctbindex); 
               ctbstate(1,$p_ctbindex);
               $newtoolbar=replace($toolbar,"$curctb,","$curctb,{drives_fix},-,") ;              
                toolbar($newtoolbar);
                      if($collapse=="0") {
                         end(1==1);
                        }
                      elseif($collapse=="-1"){
                             run "cmd /c cd /d <xypath> & xyplorer.exe /script=""::load 'ExpandDriveButton.xys','_AutoCollapse'"" /flg=2 /hwnd=<hwnd>", , 0,0; 
                             end(1==1);
                             }
                      else{
                           run "cmd /c ping -n $collapse 127.0.0.1 >nul & cd /d <xypath> & xyplorer.exe /script=""::load 'ExpandDriveButton.xys','_WaitCollapse'"" /flg=2 /hwnd=<hwnd>", , 0,0; 
                           }                      
               }              
               
          else {
                ctbicon("$p_officon",$p_ctbindex);
                ctbstate(0,$p_ctbindex);
                $oldtoolbar=replace($toolbar,"$curctb,{drives_fix},-,","$curctb,");
                toolbar($oldtoolbar);
                unset $p_ctbindex, $p_officon, $p_onicon;
                end(1==1);
               }

"_PVCheck"
       $PV_ON=getkey("ScriptRetainPVs", "Settings");
          if($PV_ON==1){
            //nothing
             }
          else{
           $confirm= confirm ("To make this script work accross sessions, please check: <br>'Remember Permanent Variables' from <br>Tools | Configuration| Refresh, Icons, History - Scripting <br>Go to configuration now? <br>OK=Yes Cancel=No");
             if ($confirm==1){
                 #600;
                 savesettings;
                 }
              }

"_WaitCollapse"
    ctbicon("$p_officon",$p_ctbindex);
    ctbstate(0,$p_ctbindex);
    toolbar($p_toolbar);
    unset $p_ctbindex, $p_officon, $p_onicon;
    
    
"_AutoCollapse"
    focus "T";
    while("<get FocusedControl>"=="T"){
           wait(100);
           //Stay in loop if focus is on address bar
           //Break out of loop if focus on list, tree or catalog
          } 
    ctbicon("$p_officon",$p_ctbindex);
    ctbstate(0,$p_ctbindex);
    toolbar($p_toolbar);
    unset $p_ctbindex, $p_officon, $p_onicon;

Code: Select all

//Expandable Drive Button
        //Change the below "ctbindex" to the index of your ctb:
        $ctbindex="17";
        $curctb="ctb$ctbindex";
        $toolbar=toolbar();
           if (ctbstate(,$ctbindex) == 0) {
               perm $p_toolbar;
               $p_toolbar=$toolbar;
               ctbstate(1,$ctbindex);
               $newtoolbar=replace($toolbar,"$curctb","$curctb,{drives_fix},-") ; 
               toolbar($newtoolbar);
               } 
          else {
                ctbstate(0,$ctbindex);
                toolbar($p_toolbar);
               }

Code: Select all

"Schedule"
  // A unique task name.
  $tname = 'xytask';
  // The command to execute.
  $tcmd = """<xypath>\<xyexe>"" /script=""::msg 'hi!';""";

  // Escape the cmd - Experimenting since I have no idea what needs to be done.
  $tcmd = Replace($tcmd, '\', '\\');
  //$tcmd = Replace($tcmd, '/', '\/');
  $tcmd = Replace($tcmd, '''', '\''');
  $tcmd = Replace($tcmd, '"', '\"');

  // schtasks only accepts hh:nn for times and complains if the time may have already passed.
  // We could shift by 1 minute, but there's a slim chance time will rollover.
  $st = FormatDate(, 'hh:nn', 'n', 2);

  // /CREATEs a new task.
  // /SC once  = Scheduled to run one.
  // /ST $st  = Start time.
  // /F  = Force overwriting tasks of the same name.
  // /TN $tname  = Task name.
  // /TR ""$tcmd""  = Task to run.
  Run """schtasks"" /CREATE /SC once /ST $st /F /TN $tname /TR ""$tcmd""";