Skype工具 [英] Skype Tool

问题描述

在学习本教程时遇到麻烦，t

Having trouble following this tutorial, t

Public Class Form1

    Inherits DevComponents.DotNetBar.Metro.MetroForm
    Dim Skype As New SKYPE4COMLib.Skype
    Public WithEvents Skype1 As New SKYPE4COMLib.Skype

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click



    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Skype.CurrentUserProfile.MoodText = TextBox1.Text

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        Skype.CurrentUserProfile.FullName = TextBox2.Text

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

        For Each user As SKYPE4COMLib.User In Skype.Friends

            Skype.SendMessage(user.Handle, TextBox3.Text)

        Next

    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

        If ComboBox1.SelectedItem = "Online" Then

            Skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusOnline

        End If

        If ComboBox1.SelectedItem = "Offline" Then

            Skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusOffline

        End If

        If ComboBox1.SelectedItem = "Away" Then

            Skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusAway

        End If

        If ComboBox1.SelectedItem = "Do Not Disturb" Then

            Skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusDoNotDisturb

        End If

        If ComboBox1.SelectedItem = "Invisible" Then

            Skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusInvisible



        End If

    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

        PictureBox1.Image = New System.Drawing.Bitmap(New IO.MemoryStream(New System.Net.WebClient().DownloadData("http://api.skype.com/users/" + TextBox4.Text + "/profile/avatar")))

    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click

        If Me.PictureBox1.Image IsNot Nothing Then

            Me.PictureBox1.Image.Save(IO.Path.Combine(My.Computer.FileSystem.SpecialDirectories.Desktop, TextBox4.Text + "avatar.jpg"))
            MessageBox.Show("Image Saved To Desktop!")

        End If

    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs)

        Dim webClient As New System.Net.WebClient
        Dim Resolve As String = webClient.DownloadString("http://APIOnly.com/skype.php?username=" + TextBox5.Text)

        TextBox6.Text = (Resolve)

    End Sub

    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click

        Dim webClient As New System.Net.WebClient
        Dim IP2Skype As String = webClient.DownloadString("http://api.predator.wtf/lookup/?arguments=" + TextBox8.Text)

        TextBox7.Text = (IP2Skype)


    End Sub

    Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click

        TextBox9.Text = Skype.CurrentUserProfile.FullName
        TextBox10.Text = Skype.CurrentUserProfile.Birthday
        TextBox11.Text = Skype.CurrentUserProfile.Country
        TextBox12.Text = Skype.CurrentUserProfile.Timezone
        TextBox13.Text = Skype.CurrentUserProfile.PhoneMobile

    End Sub

    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click

        Skype.CurrentUserProfile.FullName = TextBox9.Text

    End Sub

    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click

        Skype.CurrentUserProfile.Birthday = TextBox10.Text

    End Sub

    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click

        Skype.CurrentUserProfile.Country = TextBox11.Text

    End Sub

    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click

        Skype.CurrentUserProfile.Timezone = TextBox12.Text

    End Sub

    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click

        Skype.CurrentUserProfile.PhoneMobile = TextBox13.Text

    End Sub

    Private Sub Button17_Click(sender As Object, e As EventArgs)

        Skype.CurrentUserProfile.Sex = TextBox14.Text

    End Sub

    Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click

        Skype.CurrentUserProfile.Languages = TextBox15.Text

    End Sub

    Private Sub Button17_Click_1(sender As Object, e As EventArgs) Handles Button17.Click

        Skype.CurrentUserProfile.MoodText = TextBox16.Text

    End Sub

    Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click

        Skype.CurrentUserProfile.RichMoodText = "<blink>" + TextBox17.Text + "</blink>"

    End Sub

    Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click

        Me.BackColor = Color.FromArgb(255, 0, 0)

    End Sub

    Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click

        Me.BackColor = Color.FromArgb(0, 0, 255)

    End Sub

    Private Sub Button22_Click(sender As Object, e As EventArgs) Handles Button22.Click

        Me.BackColor = Color.FromArgb(0, 128, 0)

    End Sub

    Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click

        Me.BackColor = Color.FromArgb(TextBox18.Text, TextBox19.Text, TextBox20.Text)

    End Sub

    Private Sub Button24_Click(sender As Object, e As EventArgs) Handles Button24.Click

        Me.BackColor = Color.FromArgb(0, 255, 0)

    End Sub

    Private Sub Button25_Click(sender As Object, e As EventArgs) Handles Button25.Click

        Me.BackColor = Color.FromArgb(255, 255, 0)

    End Sub

    Private Sub Button26_Click(sender As Object, e As EventArgs) Handles Button26.Click

        Me.BackColor = Color.FromArgb(0, 255, 255)

    End Sub

    Private Sub Button27_Click(sender As Object, e As EventArgs) Handles Button27.Click

        Me.BackColor = Color.FromArgb(255, 0, 255)

    End Sub

    Private Sub Button29_Click(sender As Object, e As EventArgs) Handles Button29.Click

        Me.BackColor = Color.FromArgb(192, 192, 192)

    End Sub

    Private Sub Button30_Click(sender As Object, e As EventArgs) Handles Button30.Click

        Me.BackColor = Color.FromArgb(128, 128, 128)

    End Sub

    Private Sub Button31_Click(sender As Object, e As EventArgs) Handles Button31.Click

        Me.BackColor = Color.FromArgb(128, 0, 0)

    End Sub

    Private Sub Button32_Click(sender As Object, e As EventArgs) Handles Button32.Click

        Me.BackColor = Color.FromArgb(128, 128, 0)

    End Sub

    Private Sub Button33_Click(sender As Object, e As EventArgs) Handles Button33.Click

        Me.BackColor = Color.FromArgb(128, 0, 128)

    End Sub

    Private Sub Button34_Click(sender As Object, e As EventArgs) Handles Button34.Click

        Me.BackColor = Color.FromArgb(0, 128, 128)

    End Sub

    Private Sub Button35_Click(sender As Object, e As EventArgs) Handles Button35.Click

        Me.BackColor = Color.FromArgb(0, 0, 128)

    End Sub

    Private Sub Button36_Click(sender As Object, e As EventArgs) Handles Button36.Click

        Me.BackColor = Color.FromArgb(25, 25, 112)

    End Sub

    Private Sub Button28_Click(sender As Object, e As EventArgs) Handles Button28.Click

        System.Diagnostics.Process.Start("www.google.com")

    End Sub

    Private Sub Button37_Click(sender As Object, e As EventArgs) Handles Button37.Click

        Dim pUser As SKYPE4COMLib.User = Skype.User("username")

        pUser.BuddyStatus = SKYPE4COMLib.TBuddyStatus.budPendingAuthorization
        Skype.Friends.Add(pUser)

    End Sub

    Private Sub Button38_Click(sender As Object, e As EventArgs) Handles Button38.Click

        Timer1.Start()

    End Sub

    Private Sub Button39_Click(sender As Object, e As EventArgs) Handles Button39.Click

        Timer1.Stop()

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        Skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusOnline
        If Skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusOnline = True Then
            Skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusAway
        End If
        If Skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusAway = True Then
            Skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusDoNotDisturb
        End If
        If Skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusDoNotDisturb = True Then
            Skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusInvisible
        End If

    End Sub

    Private Sub Button40_Click(sender As Object, e As EventArgs) Handles Button40.Click

        Timer1.Interval = TextBox21.Text

    End Sub

    Private Sub Button41_Click(sender As Object, e As EventArgs) Handles Button41.Click

        Skype.ClearCallHistory()

    End Sub

    Private Sub Button42_Click(sender As Object, e As EventArgs) Handles Button42.Click

        Skype.ClearChatHistory()

    End Sub

    Private Sub Button43_Click(sender As Object, e As EventArgs) Handles Button43.Click

        Skype.ClearVoicemailHistory()

    End Sub

    Private Sub Button44_Click(sender As Object, e As EventArgs) Handles Button44.Click

        Skype.ResetCache()

    End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick

        Skype.SendMessage(TextBox22.Text, TextBox23.Text)

    End Sub

    Private Sub Button45_Click(sender As Object, e As EventArgs) Handles Button45.Click

        Timer2.Interval = TextBox24.Text
        Timer2.Start()

    End Sub

    Private Sub Button46_Click(sender As Object, e As EventArgs) Handles Button46.Click

        Timer2.Stop()

    End Sub

    Private Sub Button47_Click(sender As Object, e As EventArgs) Handles Button47.Click

        Skype.SendMessage(ListBox1.SelectedItem, TextBox25.Text)

    End Sub

    Private Sub Button48_Click(sender As Object, e As EventArgs) Handles Button48.Click

        Dim Web As New System.Net.WebClient
        Web.DownloadString("http://domain.com/send.php?key=[KEY]&host=" + TextBox26.Text + "&port=" + TextBox27.Text + "&method=" + TextBox28.Text + "&time=" + TextBox29.Text + "")

    End Sub

    Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick

        Skype.CurrentUserProfile.MoodText = TextBox30.Text

    End Sub

    Private Sub Button49_Click(sender As Object, e As EventArgs) Handles Button49.Click

        Timer3.Start()
        Button49.Enabled = False

    End Sub

    Private Sub Button50_Click(sender As Object, e As EventArgs) Handles Button50.Click

        Timer3.Stop()
        Button49.Enabled = True
        Button50.Enabled = False
        TextBox30.Text = ""

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Button50.Enabled = False
        Timer4.Start()

        Try

            Skype.Attach()
            MessageBox.Show("Successfully Connected!", "Connected", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Label3.Text = ("Connected!")
            Label1.Text = ("Welcome: " + Skype.CurrentUserProfile.FullName)

            For Each user As SKYPE4COMLib.User In Skype.Friends

                ListBox1.Items.Add(user.Handle)
                ComboBox2.Items.Add(user.Handle)

            Next

        Catch ex As Exception

            MessageBox.Show("Unable To Connect", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Label3.Text = ("Disconnected!")
            Label1.Text = ("Welcome: Unknown")

        End Try

        isAuthed()

    End Sub

    Private Sub Button51_Click(sender As Object, e As EventArgs) Handles Button51.Click

        TextBox32.Text = Skype1.User(TextBox31.Text).FullName.ToString()
        TextBox33.Text = Skype1.User(TextBox31.Text).MoodText.ToString()
        TextBox34.Text = Skype1.User(TextBox31.Text).OnlineStatus.ToString()
        TextBox35.Text = Skype1.User(TextBox31.Text).Birthday.ToString()
        TextBox36.Text = Skype1.User(TextBox31.Text).Sex.ToString()
        TextBox37.Text = Skype1.User(TextBox31.Text).Language.ToString()
        TextBox38.Text = Skype1.User(TextBox31.Text).Timezone.ToString()

    End Sub

    Private Sub Button52_Click(sender As Object, e As EventArgs) Handles Button52.Click

        Timer4.Start()

    End Sub

    Private Sub Button53_Click(sender As Object, e As EventArgs) Handles Button53.Click

        Timer4.Stop()

    End Sub

    Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick

        Dim random As New Random

        Label26.ForeColor = Color.FromArgb(random.Next(0, 255), random.Next(0, 255), random.Next(0, 255))

    End Sub

    Public Sub isAuthed()

        Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("https://www.dropbox.com/s/hapwnkaaipjxaw5/Userlist.txt?dl=1")
        Dim response As System.Net.HttpWebResponse = request.GetResponse()

        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream)
        Dim authedusers As String = sr.ReadToEnd()

        If authedusers.Contains(Skype.CurrentUserHandle) Then

            MsgBox("You are authed.")

        Else

            MsgBox("You are not authed.")
            Application.Exit()
        End If

    End Sub
End Class

Public Sub sendMessage(user As String, msg As String)

    Try

        Skype.client.OpenMessageDialog(user, msg)
        Skype.client.focus
        SendKeys.Send("{ENTER}")

    Catch

    End Try
End Sub

o修正群发消息:https://www.youtube.com/watch?v = 3mGTGTfdAMs& t = 214s

o fix the mass messaging: https://www.youtube.com/watch?v=3mGTGTfdAMs&t=214s

推荐答案

您好，

出什么问题了???我们不会观看视频，因此请解释这两个项目.

What is the problem??? We are not going to watch a video so explain these two items.

这篇关于Skype工具的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！