What's new

.NET Skype Real time editor Tool Plus Source

  • Thread starter Photo
  • Start date
  • Views 1,495
Status
Not open for further replies.
Photo

Photo

Visual Developer
Messages
1,565
Reaction score
423
Points
295
Sin$
7
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:

d987eb1099c1f49f9697cf20571668bd.png


Download:
https://www.sendspace.com/file/vwqrhn
Virus Scan:
https://www.virustotal.com/en/file/...bdfbf4d49d31e5a46d6ddce0/analysis/1441529606/

Source Code:
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/...e73cf543cea27a7afa99f939/analysis/1441530146/
 
Last edited by a moderator:
VJJ

VJJ

Thanks for everything <3
End of the Year 2015 Stickied A Milli
Messages
2,416
Reaction score
2,041
Points
540
Sin$
7
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/...bdfbf4d49d31e5a46d6ddce0/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/...e73cf543cea27a7afa99f939/analysis/1441530146/
You are supposed to have a picture :tongue: , but nice release :biggrin:
 
X

xnhunk

Newbie
Messages
2
Reaction score
0
Points
35
Sin$
7
Sorry, the file you requested is not available.
 
Status
Not open for further replies.
Top Bottom
Login
Register