Möchte hier gerne mein neues Skype Tool vorstellen!
Der Sourcecode ist natürlich public!
Code:
Quote:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.Navigate("Skype:" + Textbox1.Text + "?call")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
WebBrowser1.Navigate("Skype:" + TextBox2.Text + "?add")
End Sub
Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
MsgBox("Danke dass du mein Video schaust ")
End Sub
Private Sub AxSkype1_CommandEvent(ByVal sender As System.Object, ByVal e As AxSKYPE4COMLib._ISkypeEvents_CommandEvent) Handles AxSkype1.CommandEvent
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
AxSkype1.ClearChatHistory()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Label6.Text = AxSkype1.Version
End Sub
Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click
End Sub
Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click
End Sub
Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
AxSkype1.CurrentUserProfile.MoodText = RichTextBox1.Text
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
AxSkype1.CurrentUserProfile.FullName = TextBox3.Text
End Sub
Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged