XProfan

Français

E.T.

lente était je es leid, cela qui Skype - Home - Screen toujours "länger" wird:
"Erzählen vous quoi vous justement machen" , je vois y keinen Nutzen. avant allem, weil oui "alte" Einträge pas verschwinden (avec cela pourrait je oui vivre), cette scrollen seulement toujours plus runter.

et là on oui oublieux ist musste je toujours wieder nachschlagen, wohin on quoi effacer muss. alors ist cet kleine Tool entstanden:
aucun besondere surface, simpel trop servir, merkt sich den Skype-nom dans einer Ini-Dossier im Skype - Arbeitsverzeichnis.
Funzt sur mehreren Rechnern sans Probleme, écrit pas dans qui Reg. ou bien sonstige Systemverzeichnisse.
Freeware, Verwendung sur eigene péril

!!

Aider hab je mir gespart, m.M. selbsterklärend.
Startoptionen:
* Normal
* avec Protokoll : qui voyons veux, quoi cela Programme pouvoir
* Skypename zurücksetzen : Bereinigt qui ini-Dossier et fragt Skype-nom récente ab

skypecleaner-1.0.0.1-setup.exe	704 kB

Hochgeladen:	18.05.2014

Downloadcounter:
		Download

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 citation

Absatzweise Citation Zeilenweise Citation

Georg
Teles

très gentil, funktioniert ... peux son dass il Prozess anhand des Fenstertitels killt ? Skype + FireFox étions chez mir ici offen, là qui Titel des FF "Skype Home 'aufräumen'" heisst, hat cela Tool juste FF.exe gekillt

XProfan 10
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

19.05.2014 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

E.T.

JA, mir ist sur qui schnelle aucun blödere concept gekommen, à qui PID de Skype trop venons

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 citation

Absatzweise Citation Zeilenweise Citation

Georg
Teles

Hehe allez mir aussi so, avec Find or Kill Process peut es sich mais toujours travailler (streng pris ist es ne...aucune Fakt dass Skype.exe eh bien Skype.exe ist)

Den Code donnais es ici Schonmal irgendwo, weiss pas wohin ... je Poste den quand même nochmal
Kompilieren Marque Séparation

 $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