XProfan

Español

E.T.

Langsam war Yo leid, el el Skype - Home - Screen siempre "länger" se:
"Erzählen Sie qué Sie gerade machen" , Yo sehe en él no Nutzen. Vor allem, porque sí "alte" Einträge no verschwinden (así podría Yo sí leben), esta scrollen sólo siempre más runter.

Und como uno sí vergesslich es musste Yo siempre otra vez nachschlagen, wo uno qué löschen muss. Also es dieses kleine Tool entstanden:
Keine besondere Oberfläche, simpel a bedienen, merkt se el Skype-Name en uno Ini-Expediente en el Skype - Arbeitsverzeichnis.
Funzt en más Rechnern sin Problemas, schreibt no en el Reg. oder sonstige Systemverzeichnisse.
Freeware, Verwendung en propio Gefahr

!!

Ayuda tener Yo gespart, m.M. selbsterklärend.
Startoptionen:
* Normal
* con Protokoll : wer sehen voluntad, qué el Programa macht
* Skypename zurücksetzen : Bereinigt el ini-Expediente y fragt Skype-Name neu de

skypecleaner-1.0.0.1-setup.exe	704 kB

Hochgeladen:	18.05.2014

Ladeanzahl:
		Descargar

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

18.05.2014 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Georg
Teles

Sehr nett, funktioniert ... kann ser dass él Prozess anhand des Fenstertitels killt ? Skype + FireFox waren en me hier offen, como el Titel des FF "Skype Home 'aufräumen'" heisst, ha el Tool igual FF.exe gekillt

XProfan 10
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

19.05.2014 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

E.T.

JA, me es en rápido no blödere Concepto gekommen, a el PID de Skype a kommen

XProfan X2
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

19.05.2014 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Georg
Teles

Hehe va me auch así, con Find or Kill Process lässt lo aber siempre trabajo (streng genommen es kein Fakt dass Skype.exe nun Skype.exe es)

Den Code gab lo hier schonmal irgendwo, blanco no wo ... Yo poste el trotzdem otra vez
Kompilieren Marca Separación

 $H Windows.ph
Def ProcessSnapshot(2)  !"KERNEL32.DLL","CreateToolhelp32Snapshot"
Def ProcessFirst(2)     !"KERNEL32.DLL","Process32First"
Def ProcessNext(2)      !"KERNEL32.DLL","Process32Next"
Def GetLastError(0)     !"KERNEL32.DLL","GetLastError"
Def OpenProcess(3)      !"KERNEL32.DLL","OpenProcess"
Def TerminateProcess(2) !"KERNEL32.DLL","TerminateProcess"
Def CloseHandle(1)      !"KERNEL32.DLL","CloseHandle"
Struct FOKP_PROCENTR32 = dwSize&,cntUsage&,th32ProcessID&,th32DefaultHeapID&,th32ModuleID&,cntThreads&, \
th32ParentProcessID&,pcPriClassBase&,dwFlags&,szExeFile$(260)

Proc fokp

    Parameters FOKP_Process$,FOKP_Delete&
    Declare FOKP_NameLng&,FOKP_hSnapshot&,FOKP_Result&,FOKP_hProcess&,FOKP_ProcAnz&,FOKP_TermOk&,FOKP_PROCENTR#
    Dim FOKP_PROCENTR#,FOKP_PROCENTR32
    Clear FOKP_NameLng&,FOKP_hSnapshot&,FOKP_Result&,FOKP_hProcess&,FOKP_ProcAnz&,FOKP_TermOk&,FOKP_PROCENTR#
    Long FOKP_PROCENTR#,0 = SizeOf(FOKP_PROCENTR#)
    FOKP_NameLng&   = Len(FOKP_Process$)
    FOKP_Process$   = Lower$(FOKP_Process$)
    FOKP_hSnapshot& = ProcessSnapshot(2, 0)

    IfNot FOKP_hSnapshot& = -1

        FOKP_Result& = ProcessFirst(FOKP_hSnapshot&, FOKP_PROCENTR#)

        While FOKP_Result&

            If Lower$(Right$(FOKP_PROCENTR#.szExeFile$,FOKP_NameLng&)) = FOKP_Process$

                If FOKP_Delete& = 1

                    IfNot ~GetCurrentProcessID() = FOKP_PROCENTR#.th32ProcessID&

                        FOKP_hProcess& = OpenProcess(1, 0, FOKP_PROCENTR#.th32ProcessID&)
                        FOKP_TermOk& = TerminateProcess(FOKP_hProcess&,1)
                        CloseHandle(FOKP_hProcess&)
                        sleep 100

                    EndIf

                EndIf

                FOKP_ProcAnz& = FOKP_ProcAnz& + (FOKP_Delete&<>1) + FOKP_TermOk&

            EndIf

            FOKP_Result& = ProcessNext(FOKP_hSnapshot&, FOKP_PROCENTR#)

        EndWhile

    EndIf

    CloseHandle(FOKP_hSnapshot&)
    Dispose FOKP_PROCENTR#
    Return Int(FOKP_ProcAnz&)

EndProc

Declare exe_$
exe_$ = "skype.exe"

If fokp(exe_$,0) > 0

    MessageBox("Skype.exe gefunden","",0)
    fokp(exe_$,1)'0 = finden, 1= killen

4 href='./../../funktionsreferenzen/XProfan/endif/'>EndIf