XProfan

English

E.T.

slow i was it sorrow, the the Skype - Home - Screen always "länger" becomes:
"Erzählen tappt im dunkeln what tappt im dunkeln straight machen" , I see therein none benefit. particularly, because Yes "alte" Entries not vanish (so could I Yes life), this scroll only always moreover down.

and there one Yes vergesslich is had I over ands over again take after, where one what delete must. means is this small Tool emerged:
No particular surface, simply To valet, observes itself whom Skype-name in a Ini-File in the Skype - Arbeitsverzeichnis.
working on several Rechnern without Problems, writes not The Reg. or other Systemverzeichnisse.
Freeware, usage on Own menace

!!

Help Have I me gespart, m.M. selbsterklärend.
Startoptionen:
* normal
* with log : who see wants, what the program power
* Skypename zurücksetzen : Bereinigt The ini-File and asks Skype-name new ex

skypecleaner-1.0.0.1-setup.exe	704 kB

Hochgeladen:	05/18/14

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...

05/18/14 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Georg
Teles

Very nice, functions ... can his that it Process anhand the Fenstertitels killt ? Skype + FireFox were by me here open, there the cover the FF "Skype Home 'aufräumen'" means, has the Tool same FF.exe gekillt

XProfan 10
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

05/19/14 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

E.T.

JA, i'm on The speedy no blödere idea come, on The PID of Skype To come

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...

05/19/14 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Georg
Teles

Hehe goes me too so, with Find or Kill Process can it itself but always works (severe taken is it no Fakt that Skype.exe now Skype.exe is)

whom code there were here Schonmal somewhere, knows not where ... I poste whom nevertheless again
Compile Mark Separation

 $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='./../../Function-References/XProfan/endif/'>EndIf