mIRC Home    About    Download    Register    News    Help

Print Thread
Site search rush mirc #259457 01/12/16 03:16 PM
Joined: Aug 2012
Posts: 12
Z
zeratul Offline OP
Pikka bird
OP Offline
Pikka bird
Z
Joined: Aug 2012
Posts: 12
Hi guys! Using latest version and try to run one script:
sitesearch.mrc
Code:
;-末末末末末末末末末末末末末末末末末末末末-
; Site Search
; Version 1.2
;-末末末末末末末末末末末末末末末末末末末末-
menu * {
  SiTE SEARCH
  .Site Search :/ss_rlssearch
  .Close @Search Window :/window -c @Search
  .Close Open Tabs :/ss_close_tabs
  Settings
  ..Open settings.ini :run $scriptdir $+ settings.ini
}

menu @Search {
  Download this release : { ss_downloadrls $strip($1-) }
  Fxp this release : { ss_fxprls $strip($1-) }
}

; Search input
alias ss_rlssearch {
  var %ss_search_item $?="Please enter string to search for on sites?"
  if ( %ss_search_item == $null ) { halt }
  /ss_search %ss_search_item
}

; Search engine
alias ss_search {
  inc %ss_colour
  %ss_colour = $iif(%ss_colour > 4,1,%ss_colour)
  ;if ( $window(@Search) != $null ) { window -c @Search }
  window -kzl @Search
  var %ss_search_sites $readini($scriptdir $+ settings.ini,search,sites)
  var %ss_loop 1
  var %ss_end $numtok(%ss_search_sites,44)
  while ( %ss_loop <= %ss_end ) {
    var %ss_site $gettok([ %ss_search_sites ], [ %ss_loop ],44)
    {
      .timer $+ $r(1,999) 1 %ss_loop dll rushmirc.dll SetMircCmd /ss_echo_search | dll rushmirc.dll RushScript RushApp.FTP.RAW(' $+ %ss_site $+ ','Site search $1-',RS_LOGIN or RS_LOGOUT);
    }
    inc %ss_loop
  }
}

; Search results
alias ss_echo_search {
  window -kzl @Search
  var %ss_rlsline $2-
  var %ss_site $remove($1,$chr(40),$chr(41))
  if ( $chr(47) isin $1- ) {
    ;if ( Values displayed isin $1- ) { halt }
    ;if ((*/*/* iswm $3-) || (*/*/*/* iswm $3-)) && (*Values*displayed*after*dir*name* !iswm $1-) && (*/Sample*(*)* !iswm $1-) && (*/Cover*(*)* !iswm $1-) && (*/Subs*(*)* !iswm $1-) && (*=Empty=* !iswm $1-) && (*/Vobsubs* !iswm $1-) && (*.r* !iswm $1-) && (*.jpg !iswm $1-) && (*.sfv !iswm $1-) && (*.m3u !iswm $1-) && (*.mp3 !iswm $1-) && (*.nfo !iswm $1-) && (*.mkv* !iswm $1-) {
    if (*Values*displayed*after*dir*name* !iswm $1-) && (*/Sample*(*)* !iswm $1-) && (*/Cover*(*)* !iswm $1-) && (*/CD*(*)* !iswm $1-) && (*/DISC*(*)* !iswm $1-) && (*/Subs*(*)* !iswm $1-) && (*=Empty=* !iswm $1-) && (*/Vobsubs* !iswm $1-) && (*.r* !iswm $1-) && (*.jpg* !iswm $1-) && (*.sfv* !iswm $1-) && (*.m3u* !iswm $1-) && (*.mp3* !iswm $1-) && (*.nfo* !iswm $1-) && (*.mkv* !iswm $1-) {
      if ( 200* iswm %ss_rlsline ) { aline -h @Search $+($chr(3),$gettok(4 8 9 12,%ss_colour,32)) $+ $remove($1-,200- ) }
    }
  }
  ss_close_tabs | unset %ss_site %ss_rlsline
}

;Download from results
alias ss_downloadrls { 
  var %ss_site $1 
  var %ss_rls $2 
  var %ss_site $remove($1,$chr(41),$chr(40)) 
  if ( %ss_sdir == $null ) { set %ss_sdir c:\ } 
  set %ss_sdir $sdir([ %ss_sdir ],Where shall I download too?) 
  var %ss_rlsname $gettok([ %ss_rls ],-1,47) 
  var %ss_path $remove([ %ss_rls ],[ %ss_rlsname ]) 
  /dll rushmirc.dll RushScript RushApp.FTP.Transfer(0,' $+ %ss_site $+ ',' $+ %ss_path $+ ',' $+ %ss_rlsname $+ ','',' $+ %ss_sdir $+ ',' $+ %ss_rlsname $+ ',RS_DOWN or RS_DIRDES or RS_DIRSRC or RS_LOGIN or RS_LOGOUT, '', '', '', '', '', 0, 0, 0, 0, 0, 0, 0); 
} 

alias ss_fxprls {
  echo -a FXP $1-
  var %ss_site $1
  var %ss_rls $2
  var %ss_site $remove($1,$chr(41),$chr(40))
  var %ss_rlsname $gettok([ %ss_rls ],-1,47)
  var %ss_path $remove([ %ss_rls ],[ %ss_rlsname ])
  var %ss_tsite $?="What site shall I fxp too?"
  var %ss_tpath $?="Where shall I send too (PATH)?"
  var %ss_yn $?!="Sure you want to send %ss_rlsname to %ss_tsite in %ss_tpath "
  echo -a info %ss_yn
  if ( %ss_yn != $true ) { halt }
  /dll rushmirc.dll RushScript RushApp.FTP.Transfer(0,' $+ %ss_site $+ ',' $+ %ss_path $+ ',' $+ %ss_rlsname $+ ',' $+ %ss_tsite $+ ',' $+ %ss_tpath $+ ',' $+ %ss_rlsname $+ ',RS_LOGIN or RS_CHECKLOGIN or RS_DIRSRC or RS_DIRDES or RS_LOGOUT, 'CD1;CD2;SAMPLE;COVERS', '', '', '', '(\w*100%\w*)|(\w*FINISHED\w*)|(\w*-\sCOMPLETE(\s(\)|-)|D\))\w*)', 1, 1, 1, 'RS_SORTDES or RS_SORTDATE', 'RS_SORTDES or RS_SORTDATE', 2, 0);
}

;Close tabs when search is completed
alias ss_close_tabs {
  /dll rushmirc.dll RushScript RushApp.DeleteEmptyTabs(0,0);
}
;-末末末末末末末末末末末末末末末末末末末末-
; End of file
;-末末末末末末末末末末末末末末末末末末末末-


settings.ini
Code:
[search]
sites=Site1,Site2,Site3,Site4,Site5,etc,etc


Both are copied into roaming/mirc folder.Sites are added, rushmirc.dll is copied into folder of mirc and in roaming/mirc folder as well, but when perform a search get this error:

Code:
dll: no such routine 'SetMircCmd'

Re: Site search rush mirc [Re: zeratul] #259458 01/12/16 03:45 PM
Joined: Jul 2006
Posts: 3,531
W
Wims Offline
Hoopy frood
Offline
Hoopy frood
W
Joined: Jul 2006
Posts: 3,531
This error has nothing to do with the code itself, the routine you are trying to call simply doesn't exist, contact the author of the dll


Looking for a good help channel about mIRC? Check #mircscripting @ irc.swiftirc.net
Re: Site search rush mirc [Re: zeratul] #259459 01/12/16 07:51 PM
Joined: Aug 2012
Posts: 12
Z
zeratul Offline OP
Pikka bird
OP Offline
Pikka bird
Z
Joined: Aug 2012
Posts: 12
Is there any command available to register rushmirc.dll
i read somewhere that need to be register.