' Microphone.dll By SCouNDReL
' This DLL Has Written With Visual Basic 6.0
' Www.TurkCoders.Com

First Of All ;

this code is loaded ;

alias record {  
  if (!$com(mic)) { .comreg microphone.dll | .comopen mic Record.Voice  }
  if ($1 == Start) {  var %i $com(mic,RecordStart,1) }
  if ($1 == Stop) { var %i $com(mic,RecordStop,1,bstr,$2-) }
  if ($comerr) { echo -a Error! } 
  .comreg -u microphone.dll 
  .comclose mic
}

you can change dll's folder on comreg command ex ; .comreg C:\mirc\microphone.dll after this command should changed like.. .comreg -u C:\mirc\microphone.dll

For Starting Record : /record start
For Stopping Record : /record stop <File.wav> eg : /record stop MyRecord.wav

Important Warning : You Must Use WAV File while saving..

Example Code ;
; Note: First Of All Load record alias. this is on top..

dialog record {
  title "Microphone.dll Example"
  size -1 -1 142 42
  option dbu
  edit "", 1, 86 5 53 10, autohs
  text "Where ll u save ? ex : trying.wav", 2, 4 6 80 8
  button ">", 3, 22 18 27 12
  button "O", 4, 58 19 27 12
  edit "", 5, 44 31 50 10, read
  button "[]", 6, 96 19 27 12
}
on *:dialog:record:*:*:{
  if ($devent == init) { did -b $dname 3 }
  if ($devent == sclick) {
    if ($did == 4) && ($did(1)) { record start | did -e $dname 6 | did -ra $dname 5 Recording.. | did -b $dname 5 | did -b $dname 1 | did -b $dname 3 }
    if ($did == 6) { record stop $did(1) | set %file $did(1) | did -e $dname 1 | did -ra $dname 5 Recorded! | did -e $dname 3 | did -b $dname 6  }
    if ($did == 3) { splay %file }
  }
}



SCouNDReL ...
