XProfan

Deutsch

E.T.

Langsam war ich es leid, das der Skype - Home - Screen immer "länger" wird:
"Erzählen Sie was Sie gerade machen" , ich sehe darin keinen Nutzen. Vor allem, weil ja "alte" Einträge nicht verschwinden (damit könnte ich ja leben), diesen scrollen nur immer weiter runter.

Und da man ja vergesslich ist musste ich immer wieder nachschlagen, wo man was löschen muss. Also ist dieses kleine Tool entstanden:
Keine besondere Oberfläche, simpel zu bedienen, merkt sich den Skype-Name in einer Ini-Datei im Skype - Arbeitsverzeichnis.
Funzt auf mehreren Rechnern ohne Probleme, schreibt nicht in die Reg. oder sonstige Systemverzeichnisse.
Freeware, Verwendung auf eigene Gefahr

!!

Hilfe hab ich mir gespart, m.M. selbsterklärend.
Startoptionen:
* Normal
* mit Protokoll : wer sehen will, was das Programm macht
* Skypename zurücksetzen : Bereinigt die ini-Datei und fragt Skype-Name neu ab

skypecleaner-1.0.0.1-setup.exe	704 kB

Hochgeladen:	18.05.2014

Ladeanzahl:
		Herunterladen

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 zitieren Zeilenweise zitieren

Georg
Teles

Sehr nett, funktioniert ... kann sein dass er Prozess anhand des Fenstertitels killt ? Skype + FireFox waren bei mir hier offen, da der Titel des FF "Skype Home 'aufräumen'" heisst, hat das Tool gleich FF.exe gekillt

XProfan 10
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

19.05.2014 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

E.T.

JA, mir ist auf die schnelle keine blödere Idee gekommen, an die PID von Skype zu 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 zitieren Zeilenweise zitieren

Georg
Teles

Hehe geht mir auch so, mit Find or Kill Process lässt es sich aber immer arbeiten (streng genommen ist es kein Fakt dass Skype.exe nun Skype.exe ist)

Den Code gab es hier schonmal irgendwo, weiss nicht wo ... ich poste den trotzdem nochmal
Kompilieren Markieren Separieren

 $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

EndIf