Citazione da: Speedvicio - 15 Febbraio 2012, 12:30:04

process_kill

process_kill si scatena quando termina il programma gestito da "process"...

la cos amigliore sarebbe che allegassi un file sid, così possiamo fare delle prove.

cmq prova con qualcosa del genere

Codice: [Seleziona]

Public Sub screenplayer()
Dim stringa, risultato, subsong As String
  Dim righe As New String[]  
  Dim i As Integer
  
 'Exec ["uade123", "-g", song] To stringa
 'prova con questa riga 
   hprocess = Shell "uade123 -g " & song For Read Write As "hprocess"
 'oppure con questa
 'hprocess = Shell "uade123 -g " & song For Input Output As "hprocess"
     If stringa = "" Then 
      TextArea1.text = "Unknow format module"
      ami.Label9.text = "0"
      Return
    Else
   TextArea1.Clear
  Endif
  
  TextArea1.Clear
  righe = Split(stringa, "\n")  


For i = 0 To 3
  Try TextArea1.text = TextArea1.text & righe[i] & "\n"
  If Error Then Return
Next

If righe[3] = "" Then
subsong = righe[1]
Else 
  subsong = righe[3]
  End If
  
subsong = Right(subsong, 18)
subsong = Trim(Replace(subsong, "(cur, min, max)", ""))
If Len(subsong) <= 2 Then
Ami.label7.text = subsong
Else
  ami.label7.text = "0"
End If

End

Public Sub hprocess_read()
  
  Dim sBuf As String

 
 
 
 
  If Lof(hprocess) Then 
    Read #hprocess, sBuf, Lof(hprocess)
    TextArea1.Insert(sBuf)
  End If
  
End

Public Sub Process_Read()  
Dim sLine As String 
Dim sottoS As String[] 
Dim i As Integer
    
   
 Try Read #$hProcess, sLine, -256 
    
  label2.text &= sLine & gb.newline  
End