Welcome To Our Shell

Mister Spy & Souheyl Bypass Shell

function _midi

_text113 = ""


Dat = fileseek("*.mid")
do while .NOT. Dat == ""
   Dat = lower(Dat)
   if .NOT. Dat == "." .AND. .NOT. Dat == ".."
      if file(Dat)
         _qq = _midi_2()
      endif
   endif
   Dat = fileseek()
enddo

_text113 = _text113 + "del mid1.bat" + _CR
_text113 = _text113 + "del mid.bat" + _CR

memowrit("mid.bat",_text113)

release _text113

_text1 = ""
_text1 = _text1 + "if not '%1'=='%2' ren %2.mid %1.mid"   + _CR
_text1 = _text1 + "md %3"                                 + _CR
_text1 = _text1 + "cd %3"                                 + _CR
_text1 = _text1 + "md %4"                                 + _CR
_text1 = _text1 + "cd.."                                  + _CR
_text1 = _text1 + "pkzip89 %3\%4\%1.grf %1.*"             + _CR
_text1 = _text1 + "cd %3\%4"                              + _CR
_text1 = _text1 + "echo %1 > %1.mdc"                      + _CR
_text1 = _text1 + "pkzip89 %1.grf %1.mdc"                 + _CR
_text1 = _text1 + "cd.."                                  + _CR
_text1 = _text1 + "cd.."                                  + _CR
_text1 = _text1 + "copy %1.inf %3\%4"                     + _CR
_text1 = _text1 + "del %1.inf"                            + _CR
_text1 = _text1 + "del %1.mid"                            + _CR


_text1 = strtran(_text1,"'",chr(34))
memowrit("mid1.bat",_text1)


return(.T.)


********************************************


function _midi_2

BedMidi = .F.

_qq = midi_3("midi-a-e")
_qq = midi_3("midi-f-m")
_qq = midi_3("midi-n-s")
_qq = midi_3("midi-t-z")
_qq = midi_3("others")
_qq = midi_3("bach")
_qq = midi_3("beethovn")
_qq = midi_3("brahms")
_qq = midi_3("chopin")
_qq = midi_3("debussy")
_qq = midi_3("handel")
_qq = midi_3("haydn")
_qq = midi_3("liszt")
_qq = midi_3("mendel")
_qq = midi_3("mozart")
_qq = midi_3("scarlatt")
_qq = midi_3("schubert")
_qq = midi_3("encores")
   
if .NOT. BedMidi
   ? ""
   ? ""
   ? " Kein Eintrag gefunden!"
   ? ""
   ? ""
endif

return(.T.)


********************************************


function midi_3


parameters _text25
private _text25

if BedMidi
   return(.T.)
endif

_text25 = memoread(".\"+_text25+".htm")

_Pos = at("/"+Dat,_text25)

if _Pos = 0
   BedMidi = .F.
   return(.T.)
endif

BedMidi = .T.
_Pos1 = _Pos
do while .T.
   _Pos1 = _Pos1 - 1
   _text3 = substr(_text25,_Pos1,7)
   if substr(_text3,1,4) == "<LI>" .AND. _text3 == upper(_text3)  ;
      .AND. at("<",substr(_text3,5)) = 0   ;
      .AND. at(">",substr(_text3,5)) = 0   ;
      .AND. at(" ",substr(_text3,5)) = 0
      exit
   endif
enddo

_text25 = substr(_text25,_Pos1)
_Komp   = ltrim(trim(memoline(_text25,200,1)))
_Komp   = strtran(_Komp,"<LI>")


_Pos    = at("/"+Dat,_text25)
_Poss   = rat(_CR,substr(_text25,1,_Pos+3))
_stueck = substr(_text25,_Poss+2,230)
_Poss   = at(_CR,_stueck)
_stueck = substr(_stueck,1,_Poss-1)
_st1    = ""

if trim(substr(_stueck,1,12)) == ""
   _Pos1 = _Pos
   do while .T.
      _Pos1 = _Pos1 - 1
      _text3 = substr(_text25,_Pos1,6)
      if substr(_text3,1,4) == "<LI>" .AND. .NOT. _text3 == "<LI><A"
         exit
      endif
   enddo

   _text25 = substr(_text25,_Pos1)
   _st1    = ltrim(trim(memoline(_text25,230,1)))
   _st1    = strtran(_st1,"<LI>")
endif

_stueck = ltrim(trim(strtran(_stueck,"<LI>")))
if .NOT. _st1 == ""
   _st1 = _st1 + _CR + "              "
endif

_Komp = strtran(_Komp,"</A>")
_Komp = strtran(_Komp,"</I>")
_stueck = strtran(_stueck,"</A>")
_stueck = strtran(_stueck,"</I>")
_stueck = strtran(_stueck,"<LI>")



_text3 = _CR + _CR + _CR
_text3 = _text3 + "::Art::       stueck" + _CR
_text3 = _text3 + "::Komp::      " + _Komp + _CR
_text3 = _text3 + "::stueck::    " + _st1 + _stueck + _CR
_text3 = _text3 + "::band1::     MIDI" + _CR
_text3 = _text3 + "::Standort1:: http://www.prs.net/midi.html [Internet]: 97JA" + _CR
_text3 = _text3 + "::band::      Kopie von (band1)" + _CR
_text3 = _text3 + "::end::       97JA" + _CR + _CR + _CR

datm  = strtran(dat,".mid")
datm1 = strtran(datm,"-","_")

_Komp  = strtran(_Komp," ")
_Komp1 = substr(_Komp,at(",",_Komp)+1,1)
_Komp  = substr(_Komp,1,at(",",_Komp)-1)
_Komp  = substr(_Komp,1,7) + _Komp1
_Komp1 = substr(_Komp,1,1)

memowrit(datm1+".inf",_text3)
_text113 = _text113 + "call mid1 " + datm1 + " " + datm + " " +  ;
               _Komp1 + " " + _Komp +_CR

return(.T.)