Salve ospite, se leggi questo messaggio vuol dire che non sei registrato, cosa aspetti ? Premi qui per registrarti La registrazione è completamente gratuita e ti permetterà di usufruire di tutte le funzionalità del nostro forum. Buona navigazione.


Vendo, Compro, Scambio NosTale! Riapre il Black Market, concludi i tuoi scambi NosTale gratuitamente! Più info  -   Accedi alla sezione
Download file Server : File Retro Server NosTale
Visita la nuova sezione di BorderGame dedicata a Blade & Soul! Sezione Blade and Soul

 
Valutazione discussione:
  • 2 voti - 3.5 media
  • 1
  • 2
  • 3
  • 4
  • 5
iKillProcess(elseif);
21-09-2012 07:24 PM
Messaggio: #1
iKillProcess(elseif);
iLoader(elseif)
*

Apprendista

Messaggi : 52

Registrato dal : Sep 2012

Reputazione : 1

Stato : Offline


Premi :



Il programma tramite un impostazione definita da due file testuali non permette l'apertura di un determinato processo.

Codice:
;Process Killer
;By iLoad(elseif);
hotkeyset("{F2}","Chiusura")
hotkeyset("{F3}","Esci")
Dim $processo = fileread("Processo.txt")
Dim $risposta = fileread("Continue.txt")

if fileexists("Processo.txt") = false Then
filewrite("Processo.txt","")
Filewrite("Continue.txt","")
Msgbox(64,"Impostazioni","Nel file Processo.txt scrivi il nome del processo da chiudere." & @crlf & "Nel file Continue.txt scrivi y se vuoi che non funzioni in background e n se vuoi che vada in background.")
Msgbox(64,"iKillProcess(elseif);","Per killare il processo:" & $processo & @Crlf & "Premi ora F2 per killare il processo e per uscire premi F3")
Else
Msgbox(64,"iKillProcess(elseif);","Per killare il processo:" & $processo & @Crlf & "Premi ora F2 per killare il processo e per uscire premi F3")
Endif

Func Esci()
    Exit
EndFunc

Func Chiusura()
If $risposta = "n" Then
    While 1
    If processexists($processo) = true Then
        Processclose($processo)
    elseif processexists($processo) = false Then
        filewrite("Errore.txt","Non è stato possibile chiudere il processo: " & $processo & ".")
    EndIf
WEnd
Elseif $risposta = "y" Then
    Msgbox(64,"iKillProcess(elseif);","Ho avviato il programma non in background!")
While 1
    If processexists($processo) = true Then
        Processclose($processo)
    elseif processexists($processo) = false Then
        Msgbox(64,"Errore","Processo mancante.")
    EndIf
WEnd
EndIf
EndFunc
(Questo messaggio è stato modificato l'ultima volta il: 22-09-2012 12:47 PM da iLoader(elseif).)
Torna al primo messaggio
Email WWW Cerca Rispondi

PubblicitàLa tua pubblicità qui, clicca per informazioni e per le offerte!

Stanno visualizzando la discussione : 1 Ospite(i)

  • Versione stampabile
  • Invia ad un amico
  • Sottoscrivi questa discussione