Hi guys
this was a basic tool i made a while ago i didn't bother
updating it to look good as i thought it would be more
use to just release the source for people to add to there
Skype tools or even just to learn from this anyway
hope for anyone who uses it enjoys
Picture of tool:
https://gyazo.com/d987eb1099c1f49f9697cf20571668bd
Download:
https://www.sendspace.com/file/vwqrhn
Virus Scan:
https://www.virustotal.com/en/file/cc9058ff0f903bfb75928dd30dd25a5c4cc84316bdfbf4d49d31e5a46d6ddce0/analysis/1441529606/
Source Code:
Imports System.Net
Imports System.Threading
Public Class Form1
Public WithEvents Dev As New SKYPE4COMLib.Skype
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dev.CurrentUserProfile.FullName = TextBox1.Text
Dev.CurrentUserProfile.About = TextBox2.Text
Dev.CurrentUserProfile.MoodText = TextBox5.Text
Dev.CurrentUserProfile.Province = TextBox4.Text
Dev.CurrentUserProfile.City = TextBox6.Text
Dev.CurrentUserProfile.PhoneMobile = TextBox7.Text
Dev.CurrentUserProfile.PhoneHome = TextBox8.Text
Dev.CurrentUserProfile.PhoneOffice = TextBox9.Text
Dev.CurrentUserProfile.Homepage = TextBox10.Text
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
Button1.Enabled = False
Button2.Enabled = True
TextBox1.Enabled = True
TextBox2.Enabled = True
TextBox5.Enabled = True
TextBox4.Enabled = True
TextBox6.Enabled = True
TextBox7.Enabled = True
TextBox8.Enabled = True
TextBox9.Enabled = True
TextBox10.Enabled = True
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
Button1.Enabled = True
Button2.Enabled = False
TextBox1.Enabled = False
TextBox2.Enabled = False
TextBox5.Enabled = False
TextBox4.Enabled = False
TextBox6.Enabled = False
TextBox7.Enabled = False
TextBox8.Enabled = False
TextBox9.Enabled = False
TextBox10.Enabled = False
TextBox1.Text = ""
TextBox2.Text = ""
TextBox5.Text = ""
TextBox4.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
Dev.Attach()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Timer2.Start()
Button3.Enabled = False
Button4.Enabled = True
TextBox3.Enabled = True
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Timer2.Stop()
Button3.Enabled = True
Button4.Enabled = False
TextBox3.Enabled = False
TextBox3.Text = ""
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Dev.CurrentUserProfile.FullName = TextBox3.Text
Dev.CurrentUserProfile.About = TextBox3.Text
Dev.CurrentUserProfile.MoodText = TextBox3.Text
Dev.CurrentUserProfile.Province = TextBox3.Text
Dev.CurrentUserProfile.City = TextBox3.Text
Dev.CurrentUserProfile.PhoneMobile = TextBox3.Text
Dev.CurrentUserProfile.PhoneHome = TextBox3.Text
Dev.CurrentUserProfile.PhoneOffice = TextBox3.Text
Dev.CurrentUserProfile.Homepage = TextBox3.Text
End Sub
Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
System.Windows.Forms.Form.ActiveForm.Opacity = TrackBar1.Value / 100.0
End Sub
End Class
Source:
https://www.sendspace.com/file/h5uy4n
Virus Scan:
https://www.virustotal.com/en/file/24a618443e6a64396f2b93a3fcd93485ad71101be73cf543cea27a7afa99f939/analysis/1441530146/