.NET SkypeBOT (API, Spammer, Skype Resolver and more)

[.NET] SkypeBOT (API, Spammer, Skype Resolver and more) - Printable Version

+- Hack Forums (https://hackforums.net)
+-- Forum: Tech (https://hackforums.net/forumdisplay.php?fid=444)
+--- Forum: Coding (https://hackforums.net/forumdisplay.php?fid=151)
+---- Forum: Software Development (https://hackforums.net/forumdisplay.php?fid=118)
+---- Thread: [.NET] SkypeBOT (API, Spammer, Skype Resolver and more) (/showthread.php?tid=4424399)

SkypeBOT (API, Spammer, Skype Resolver and more) - mnjx - Aug 31, 2014

Hello Guys ✌

Source Code for :

[Image: K0v1oUu.png]

What you need :

Skype API

1x ListView (for the Skype Friends)
7x Labels(Label1 should be <Select from List> !!!)
1x BackgroundWorker
4x Buttons
5x Textboxes
1x NumericUpDown
1x ComboBox (ComboBoxItems : Online , Away , Busy , Show as Offline , Offline)

Source Code :

Form1_Load

Code 
Dim Skype As New Skype

        For Each a As SKYPE4COMLib.User In Skype.Friends

            ListView1.Items.Add(a.Handle)

        Next

ListView1_SelectedIndexChanged

Code 
Label1.Text = ListView1.SelectedItems(0).SubItems(0).Text

        If Label1.Text = "<Select from List>" Then

            ListView1.Enabled = True

        Else

            ListView1.Enabled = False

        End If

Button1(Spam)

Code 
BackgroundWorker1.RunWorkerAsync()

BackgroundWorker

Code 
Dim Skype As New Skype

        Dim textnum = NumericUpDown1.Value

        Do Until textnum = 0

            Skype.SendMessage(Label1.Text, TextBox1.Text)

            textnum -= 1

        Loop

ComboBox

Code 
Dim Skype As New Skype

        If ComboBox1.Text = "Online" Then

            Skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusOnline

        End If

        If ComboBox1.Text = "Away" Then

            Skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusAway

        End If

        If ComboBox1.Text = "Busy" Then

            Skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusDoNotDisturb

        End If

        If ComboBox1.Text = "Show as Offline" Then

            Skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusInvisible

        End If

        If ComboBox1.Text = "Offline" Then

            Skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusOffline

        End If

Button to change Name

Code 
Dim Skype As New Skype

        Skype.CurrentUserProfile.FullName = (TextBox2.Text)

Button to change Status

Code 
Dim Skype As New Skype

        Skype.CurrentUserProfile.MoodText = (TextBox3.Text)

Skype Resolver Button

Code 
Dim SkypeResolve As New WebClient

        Dim SkypeIP As String = SkypeResolve.DownloadString("http://abrasivecraft.com/api.php?cmd=10&username=" + TextBox4.Text)

        TextBox5.Text = SkypeIP

Copy and Paste

Code 
Imports System.Net

Imports SKYPE4COMLib

Public Class Form1

    Public Class Form1

        Dim Skype As New Skype

        Dim i As Integer

    End Class

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

        Dim Skype As New Skype

        For Each a As SKYPE4COMLib.User In Skype.Friends

            ListView1.Items.Add(a.Handle)

        Next

    End Sub

    Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged

        Label1.Text = ListView1.SelectedItems(0).SubItems(0).Text

        If Label1.Text = "<Select from List>" Then

            ListView1.Enabled = True

        Else

            ListView1.Enabled = False

        End If

    End Sub

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

        BackgroundWorker1.RunWorkerAsync()

    End Sub

    Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork

        Dim Skype As New Skype

        Dim textnum = NumericUpDown1.Value

        Do Until textnum = 0

            Skype.SendMessage(Label1.Text, TextBox1.Text)

            textnum -= 1

        Loop

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

        Dim Skype As New Skype

        If ComboBox1.Text = "Online" Then

            Skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusOnline

        End If

        If ComboBox1.Text = "Away" Then

            Skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusAway

        End If

        If ComboBox1.Text = "Busy" Then

            Skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusDoNotDisturb

        End If

        If ComboBox1.Text = "Show as Offline" Then

            Skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusInvisible

        End If

        If ComboBox1.Text = "Offline" Then

            Skype.CurrentUserStatus = SKYPE4COMLib.TUserStatus.cusOffline

        End If

    End Sub

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

        Dim SkypeResolve As New WebClient

        Dim SkypeIP As String = SkypeResolve.DownloadString("http://abrasivecraft.com/api.php?cmd=10&username=" + TextBox4.Text)

        TextBox5.Text = SkypeIP

    End Sub

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

        Dim Skype As New Skype

        Skype.CurrentUserProfile.MoodText = (TextBox3.Text)

    End Sub

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

        Dim Skype As New Skype

        Skype.CurrentUserProfile.FullName = (TextBox2.Text)

    End Sub

End Class

Have Fun while coding ✌

-mnjx

* - oRequiem - Aug 31, 2014

Thanks for the source code, could be useful later on.

* - mnjx - Aug 31, 2014

(Aug 31, 2014 12:18 PM)oRequiem Wrote: Thanks for the source code, could be useful later on.

No problem if you got some error just pm me i try to help ya out ✌
-mnjx

* - frawg - Aug 31, 2014

Thanks for sharing, messing around with it now.. it's all going well except a few unhappy Skype contacts lol.

* - mnjx - Aug 31, 2014

(Aug 31, 2014 01:28 PM)frawg Wrote: Thanks for sharing, messing around with it now.. it's all going well except a few unhappy Skype contacts lol.

No Problem :) Can you send me a message with your skype name because i cant reply your privat message 😭

* - trazsam - Aug 31, 2014

Hello,

I have got an error with Skype.sendmessage and Skype.friends (http://prntscr.com/4ifopv)

Can you help me ? :)

Thanks ;)

* - mnjx - Sep 1, 2014

(Aug 31, 2014 02:59 PM)trazsam Wrote: Hello,

I have got an error with Skype.sendmessage and Skype.friends (http://prntscr.com/4ifopv)

Can you help me ? :)

Thanks ;)

send me a new links the image was deleted :(

Maybe you forget Dim Skype as New Skype ?

* - Dialog - Sep 1, 2014

(Aug 31, 2014 02:59 PM)trazsam Wrote: Hello,

I have got an error with Skype.sendmessage and Skype.friends (http://prntscr.com/4ifopv)

Can you help me ? :)

Thanks ;)

You have no idea what you're doing. Define your shit inside the class.

* - shooterbret - Sep 2, 2014

Thanks, I was trying to figure out how to change your skype name.

* - StormDesign - Oct 7, 2014

Can u help me, Did everything some stupid error and i lost everything. Gone my 2/3 hours work 😭😟

Skype: roel.oosterwijk ;)

* - traczthefox - Oct 7, 2014

Thanks for posting this. I am going to take a better look at this later and learn from it. I'll then make a skype toolbox kinda like this with my resolver in it. Cheers👍