Login Register






How to make a Skype Auto reply bot filter_list
Author
Message
How to make a Skype Auto reply bot #1
In this tutorial I will show you how to make a skype auto reply bot in vb.net. This is very easy to make if you just follow along.
For this you need the skype4com.dll and library.
Make sure to add them ^^ as a reference.

Here is the fully commented code that you should read and write to your project:

Code:
Imports SKYPE4COMLib Imports System.Windows.Forms Public Class Form1 Private skype As Skype Dim trigger As String = "msg=" 'use this as the command. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load skype = New Skype 'put's skype as a new skype skype.Attach() 'attaches our program to skype. AddHandler skype.MessageStatus, AddressOf skype_stat End Sub Public Sub skype_stat(ByVal msg As ChatMessage, ByVal status As TChatMessageStatus) If msg.Body.Contains(trigger) Then 'if it has the trigger. Dim sendme As String = msg.Body.Replace(trigger, "") 'removes the trigger from the message. for example if the message was "msg=sunlight", the it would be "sunlight" skype.SendMessage(msg.Sender.Handle, cases(sendme)) 'sends message. End If End Sub Public Function cases(ByVal sent As String) Dim result As String Select Case sent Case Is = "hello" 'if the msg received is hello result = "hey" ' then send hey. Exit Select Case Is = "help" 'if the msg received is help result = "Sorry, no help available." ' then send this. Exit Select Case Is = "who" 'if the msg received is 'who' result = "this is Your Name's auto reply bot" 'the message sent will be this. Exit Select 'add as many cases as you can, the more cases, the better. Case Else result = "Not a valid command" End Select Return result End Function End Class


When you run it you should get this thing requesting permission on skype, accept it.


[Image: 2n37M]


Here's it in action.

[Image: 2n3jy]

Reply





Messages In This Thread
How to make a Skype Auto reply bot - by Sunlight - 03-24-2013, 01:23 PM