Skype Tool

Discussion in 'Source Code' started by Bierkules45, Jun 18, 2014.

  1. Bierkules45

    Bierkules45 Member

    Joined:
    Mar 21, 2014
    Messages:
    34
    Likes Received:
    0
    [font='verdana,geneva,sans-serif']HeHo Community,


    Hier habt ihr einen kleinen Code für ein simples Skype Tool. Der Code für den IP-Resolver ist entfernt.
    Viel Spaß damit.[/font] Damit Fragen einfach drauf los fragen, auch wenn bei dem Code keine bestehen sollten.

    Code:
    Imports SKYPE4COMLib
    
    Public Class SkypeTool
        Dim Skype As New SKYPE4COMLib.Skype
    
        Private Sub btn_chatverlauf_Click(sender As Object, e As EventArgs) Handles btn_chatverlauf.Click
            AxSkype1.ClearChatHistory()
        End Sub
    
        Private Sub btn_anrufverlauf_Click(sender As Object, e As EventArgs) Handles btn_anrufverlauf.Click
            AxSkype1.ClearCallHistory()
        End Sub
    
        Private Sub timer_einzelnachricht_Tick(sender As Object, e As EventArgs) Handles timer_einzelnachricht.Tick
            Skype.SendMessage(txtbox_einzelnachricht_name.Text, txtbox_einzelnachricht_text.Text)
        End Sub
    
        Private Sub btn_einzelnachricht_start_Click(sender As Object, e As EventArgs) Handles btn_einzelnachricht_start.Click
            timer_einzelnachricht.Interval = CInt(mskedtxtbox_einzelnachricht_interval.Text)
            timer_einzelnachricht.Start()
        End Sub
    
        Private Sub btn_einzelnachricht_stop_Click(sender As Object, e As EventArgs) Handles btn_einzelnachricht_stop.Click
            timer_einzelnachricht.Stop()
        End Sub
    
        Private Sub btn_massennachricht_senden_Click(sender As Object, e As EventArgs) Handles btn_massennachricht_senden.Click
            For Each user In Skype.Friends
                Skype.SendMessage(user.handle, txtbox_massennachricht_text.Text)
            Next
        End Sub
    
        Private Sub lbl_skypeversion_version_Paint(sender As Object, e As PaintEventArgs) Handles lbl_skypeversion_version.Paint
            lbl_skypeversion_version.Text = AxSkype1.Version
        End Sub
    End Class
    
    [font='verdana,geneva,sans-serif']Greetz,
    Bierkules45[/font]
     
  2. Skyfail

    Skyfail Administrator Staff Member Administrator Inventar

    Joined:
    Mar 21, 2013
    Messages:
    792
    Likes Received:
    1
    Sollte die Skype API nicht bald abgeschafft werden?
     
  3. Bierkules45

    Bierkules45 Member

    Joined:
    Mar 21, 2014
    Messages:
    34
    Likes Received:
    0
    Die API soll schon seit etlichen Monaten nicht mehr gehen. Das haben die damals sogar schon überall gepostet, doch sie geht immer noch und das auf der neusten Version.
     
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.