Hallo liebes Vb-Paradise.
Ich habe einen alten Code von mir ausgegraben, mit dem man den PC über internet (Skype) steuern kann.
Das ist zum Beispiel nützlich wenn:
Schritt 1: Ein Neues Projekt erstellen
Als aller erstes müsst ihr ein neues Projekt erstellen. Nehmt eine Windows-Forms anwendung,
Obwohl es eigentlich egal ist, da ich in diesem Tutorial KEINE Benutzer-Oberfläche erstelle.
Schritt 2: Hinzufügen der Dll und Imports
Zuerst müssen wir einen Verweis auf die dll legen. Dazu geht ihr auf:
Projekt--> Verweis hinzufügen --> Durchsuchen --> Skype4Com.dll
Nun müssen wir noch einen Import setzen:
Schritt 3: Functions und Subs
Damit das ganze funktioniert müssen wir nun eine Sub und eine Funktion erstellen.
Die Sub:
Erklärung der Sub
Die Funktion:
In dieser Funktion werden die Befehle angegeben auf die die Skype-Steuerung reagieren soll.
Erklärung der Funktion
Schritt 4: Sonstiger Code
Damit alles funktioniert müssen wir noch das Form1_Load Event behandeln:
Nun ist das Programm eigentlich fertig.
Schritt 5: Schlussworte
Um Mehrere Befehle hinzuzufügen ändert einfach den Code der Funktion:
Spoiler anzeigen
Mit der Skype4Com.dll kann man natürlich noch viel mehr machen, mehr dazu HIER!
Ich hoffe euch konnte euch mit diesem Tutorial helfen.
Edit:// Dll wurde hinzugefügt! Siehe Anhang.
Ich habe einen alten Code von mir ausgegraben, mit dem man den PC über internet (Skype) steuern kann.
Das ist zum Beispiel nützlich wenn:
- Man einen Server hat, man AFK ist und der Co-Admin muss den Server neu starten. (Der Server läuft auf dem PC von Admin)
Schritt 1: Ein Neues Projekt erstellen
Als aller erstes müsst ihr ein neues Projekt erstellen. Nehmt eine Windows-Forms anwendung,
Obwohl es eigentlich egal ist, da ich in diesem Tutorial KEINE Benutzer-Oberfläche erstelle.
Schritt 2: Hinzufügen der Dll und Imports
Zuerst müssen wir einen Verweis auf die dll legen. Dazu geht ihr auf:
Projekt--> Verweis hinzufügen --> Durchsuchen --> Skype4Com.dll
Nun müssen wir noch einen Import setzen:
Schritt 3: Functions und Subs
Damit das ganze funktioniert müssen wir nun eine Sub und eine Funktion erstellen.
Die Sub:
VB.NET-Quellcode
- Public Sub skype_MessageStatus(ByVal msg As ChatMessage, ByVal status As TChatMessageStatus)
- Dim Message As String
- Dim Trigger As String = "!"
- Dim BotName As String = "Server"
- Try
- If status = TChatMessageStatus.cmsReceived Then
- Message = msg.Body
- If Message.StartsWith(Trigger) Then
- Message = Message.Remove(0, 1)
- msg.Chat.SendMessage(BotName & ": " & ParseMessage(Message))
- End If
- End If
- Catch ex As Exception
- End Try
- End Sub
VB.NET-Quellcode
- Public Sub skype_MessageStatus(ByVal msg As ChatMessage, ByVal status As TChatMessageStatus)
- Dim Message As String 'Nachricht die empfangen wird
- Dim Trigger As String = "!" 'Zeichen auf dass der "Bot" reagiert.
- Dim BotName As String = "Server" 'Optional: Der Name des Bots
- Try
- If status = TChatMessageStatus.cmsReceived Then 'Wenn eine Nachricht emfangen wird dann...
- Message = msg.Body
- If Message.StartsWith(Trigger) Then 'Wenn diese NAchricht mit ! (dem Trigger) beginnt dann...
- Message = Message.Remove(0, 1) 'Das ! wird entfernt
- msg.Chat.SendMessage(BotName & ": " & ParseMessage(Message)) 'Eine Nachricht wird zurück gegeben mit dem Text: Botname (Server) & : & ParseMessage(um diese Funktion kümmern wir uns gleich)
- End If
- End If
- Catch ex As Exception
- End Try
- End Sub
Die Funktion:
In dieser Funktion werden die Befehle angegeben auf die die Skype-Steuerung reagieren soll.
VB.NET-Quellcode
- Function ParseMessage(ByVal message As String) As String
- Dim msg As String = "Kein gültiger Befehl!" 'Diese Nachricht wird zurück gegeben
- Select Case message 'Wenn der Befehl...
- Case "ip" 'Ip ist dann...
- msg = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName).AddressList.GetValue(4).ToString() 'wird die Nachricht mit der Ip zurück gegeben.
- End Select
- Return msg 'msg wird zurück gegeben
- End Function
Schritt 4: Sonstiger Code
Damit alles funktioniert müssen wir noch das Form1_Load Event behandeln:
Nun ist das Programm eigentlich fertig.
Schritt 5: Schlussworte
Um Mehrere Befehle hinzuzufügen ändert einfach den Code der Funktion:
VB.NET-Quellcode
- Function ParseMessage(ByVal message As String) As String
- Dim msg As String = "Kein gültiger Befehl!"
- Select Case message
- Case "ip"
- msg = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName).AddressList.GetValue(4).ToString()
- Case "local Ip"
- msg = "Lokale Ip"
- Case "Test"
- msg = "Skype-Steuerungstest erfolgreich!"
- End Select
- Return msg
- End Function
Mit der Skype4Com.dll kann man natürlich noch viel mehr machen, mehr dazu HIER!
Ich hoffe euch konnte euch mit diesem Tutorial helfen.
Edit:// Dll wurde hinzugefügt! Siehe Anhang.
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Gather“ ()