Thema: KNLib Multi Applet Sample
-
03.01.2012, 11:41 #1
- Registriert seit
- 22.05.2012
- Beiträge
- 203
Thanked 21 Times in 9 PostsKNLib Multi Applet Sample
Hey,
bisher gabs dazu kein Tutorial und ich wollte hiermit euch zeigen, wie ihr für jedes Chatsystem ein eigenes Applet benutzen könnt.
PHP-Code:/*
____ __. _________ .__ __
| |/ _| / _____/ ___________|__|______/ |_
| < \_____ \_/ ___\_ __ \ \____ \ __\
| | \ / \ \___| | \/ | |_> > |
|____|__ \/_______ /\___ >__| |__| __/|__|
\/ \/ \/ |__|
KNLib Multi Applet Tutorial
© The Don of NYC - 2012
*/
using KNLib;
using System;
using System.Threading;
using System.Windows.Forms;
namespace Multi_Applet_Tutorial
{
class Program
{
static String appletPath = "Applets\\applet_{0}.jar";
static bool loadDEApplet = true;
static bool loadATApplet = true;
static bool loadCHApplet = true;
static Applet Applet_DE = null;
static Applet Applet_AT = null;
static Applet Applet_CH = null;
static void Main()
{
Console.Title = "Multi Applet Tutorial";
Console.ForegroundColor = ConsoleColor.White;
new Thread(LoadApplets).Start(); // Thread starten um die Applets zu laden
Console.WriteLine("Nickname?");
String Nickname = Console.ReadLine();
Console.WriteLine("Passwort?");
String Passwort = Console.ReadLine();
Console.WriteLine("Channel?");
String Channel = Console.ReadLine();
Console.WriteLine("Chatsystem? DE/AT/CH");
ChatSystem Chatsystem = GetChatsystem(Console.ReadLine().ToUpper());
Applet applet = GetApplet(Chatsystem);
if (applet == null)
{
MessageBox.Show("Es konnte kein Applet gefunden werden.");
Environment.Exit(0);
}
KSClient KSC = new KSClient(applet);
KSC.Connect(Chatsystem);
KSC.OnTokenReceived +=new KSClient.ReceivedHandler(KSC_OnTokenReceived);
KSC.Login(Nickname, Passwort, Channel);
}
static void KSC_OnTokenReceived(KSClient KSC, String packet)
{
if (packet.StartsWith("u\0"))
{
Console.ForegroundColor = ConsoleColor.Green;
Console.WriteLine("Erfolgreich eingeloggt!");
}
}
/// <summary>
/// Lädt die gewünschten Applets
/// </summary>
static void LoadApplets()
{
try
{
if (Applet_DE == null && loadDEApplet)
Applet_DE = new Applet(String.Format(appletPath, "DE"));
if (Applet_AT == null && loadATApplet)
Applet_AT = new Applet(String.Format(appletPath, "AT"));
if (Applet_CH == null && loadCHApplet)
Applet_CH = new Applet(String.Format(appletPath, "CH"));
}
catch (Exception ex)
{
MessageBox.Show(ex.ToString());
// Gibt sowieso einen Error zurück ohne diesen Try-Catch-Block wenn die 3 Applets nicht geladen werden können aber sicher ist sicher!
}
}
/// <summary>
/// Gibt das via Chatsystem ausgewählte Applet zurück
/// </summary>
/// <param name="Chatsystem">Chatsystem</param>
static Applet GetApplet(ChatSystem Chatsystem)
{
switch (Chatsystem)
{
case ChatSystem.DE:
return Applet_DE;
case ChatSystem.AT:
return Applet_AT;
case ChatSystem.CH:
return Applet_CH;
default: // Natürlich kann man dies für MFC, COM erweitern, ich habs jedoch auf DE, AT & CH begrenzt.
return Applet_DE;
}
}
/// <summary>
/// Gibt das via String ausgewählte Chatsystem zurück
/// </summary>
/// <param name="System">System</param>
/// <returns>Chatsystem</returns>
static ChatSystem GetChatsystem(String System)
{
switch (System)
{
case "DE":
return ChatSystem.DE;
case "AT":
return ChatSystem.AT;
case "CH":
return ChatSystem.CH;
default: // Natürlich kann man dies für MFC, COM erweitern, ich habs jedoch auf DE, AT & CH begrenzt.
return ChatSystem.DE;
}
}
}
}
Sollten eigentlich die meisten verstehen, die sich damit auseinandergesetzt haben. Ist nicht wirklich schwer.
-
15.02.2012, 16:43 #2
KNLib Multi Applet Sample
Kann jemand es nochmal in VB.NET übersetzen das man es auch benutzen kann denn über den Übersetzer kommt nichts gutes raus
-
31.03.2012, 08:58 #3
-
31.03.2012, 14:25 #4
- Registriert seit
- 30.01.2011
- Beiträge
- 17
Thanked 18 Times in 17 Posts
-
16.07.2012, 23:11 #5
- Registriert seit
- 17.07.2012
- Beiträge
- 24
Thanked 4 Times in 2 PostsKNLib Multi Applet Sample
VB.Net Version:
PHP-Code:
Imports KNLib
Imports System.Threading
Imports System.Windows.Forms
Namespace Multi_Applet_Tutorial
Class Program
Shared appletPath As [String] = "Applets\applet_{0}.jar"
Shared loadDEApplet As Boolean = True
Shared loadATApplet As Boolean = True
Shared loadCHApplet As Boolean = True
Shared Applet_DE As Applet = Nothing
Shared Applet_AT As Applet = Nothing
Shared Applet_CH As Applet = Nothing
Private Shared Sub Main()
Console.Title = "Multi Applet Tutorial"
Console.ForegroundColor = ConsoleColor.White
New Thread(AddressOf LoadApplets).Start()
' Thread starten um die Applets zu laden
Console.WriteLine("Nickname?")
Dim Nickname As [String] = Console.ReadLine()
Console.WriteLine("Passwort?")
Dim Passwort As [String] = Console.ReadLine()
Console.WriteLine("Channel?")
Dim Channel As [String] = Console.ReadLine()
Console.WriteLine("Chatsystem? DE/AT/CH")
Dim Chatsystem As ChatSystem = GetChatsystem(Console.ReadLine().ToUpper())
Dim applet As Applet = GetApplet(Chatsystem)
If applet Is Nothing Then
MessageBox.Show("Es konnte kein Applet gefunden werden.")
Environment.[Exit](0)
End If
Dim KSC As New KSClient(applet)
KSC.Connect(Chatsystem)
KSC.OnTokenReceived += New KSClient.ReceivedHandler(AddressOf KSC_OnTokenReceived)
KSC.Login(Nickname, Passwort, Channel)
End Sub
Private Shared Sub KSC_OnTokenReceived(KSC As KSClient, packet As [String])
If packet.StartsWith("u" & vbNullChar) Then
Console.ForegroundColor = ConsoleColor.Green
Console.WriteLine("Erfolgreich eingeloggt!")
End If
End Sub
''' <summary>
''' Lädt die gewünschten Applets
''' </summary>
Private Shared Sub LoadApplets()
Try
If Applet_DE Is Nothing AndAlso loadDEApplet Then
Applet_DE = New Applet([String].Format(appletPath, "DE"))
End If
If Applet_AT Is Nothing AndAlso loadATApplet Then
Applet_AT = New Applet([String].Format(appletPath, "AT"))
End If
If Applet_CH Is Nothing AndAlso loadCHApplet Then
Applet_CH = New Applet([String].Format(appletPath, "CH"))
End If
Catch ex As Exception
' Gibt sowieso einen Error zurück ohne diesen Try-Catch-Block wenn die 3 Applets nicht geladen werden können aber sicher ist sicher!
MessageBox.Show(ex.ToString())
End Try
End Sub
''' <summary>
''' Gibt das via Chatsystem ausgewählte Applet zurück
''' </summary>
''' <param name="Chatsystem">Chatsystem</param>
Private Shared Function GetApplet(Chatsystem__1 As ChatSystem) As Applet
Select Case Chatsystem__1
Case ChatSystem.DE
Return Applet_DE
Case ChatSystem.AT
Return Applet_AT
Case ChatSystem.CH
Return Applet_CH
Case Else
' Natürlich kann man dies für MFC, COM erweitern, ich habs jedoch auf DE, AT & CH begrenzt.
Return Applet_DE
End Select
End Function
''' <summary>
''' Gibt das via String ausgewählte Chatsystem zurück
''' </summary>
''' <param name="System">System</param>
''' <returns>Chatsystem</returns>
Private Shared Function GetChatsystem(System As [String]) As ChatSystem
Select Case System
Case "DE"
Return ChatSystem.DE
Case "AT"
Return ChatSystem.AT
Case "CH"
Return ChatSystem.CH
Case Else
' Natürlich kann man dies für MFC, COM erweitern, ich habs jedoch auf DE, AT & CH begrenzt.
Return ChatSystem.DE
End Select
End Function
End Class
End Namespace
-
16.08.2012, 13:29 #6
KNLib Multi Applet Sample
Könnten Sie bitte denn Link erneuern ?
Danke
Mfg
Ähnliche Themen
-
Frage Suche funktionierenden Multi Login Bot & neustes Applet
Von SphinxDOPE im Forum Knuddels BotsAntworten: 6Letzter Beitrag: 04.04.2014, 21:20 -
Wie Chat-Applet in Multi-LogIn einbinden?
Von SeCuRiTy im Forum Sonstige Knuddels Bots/SoftwareAntworten: 0Letzter Beitrag: 21.12.2013, 23:12 -
[Suche] KNLib Sample
Von AmJano im Forum Knuddels ProgrammierungAntworten: 3Letzter Beitrag: 01.11.2012, 23:41 -
VB.Net [Sample] JappyLib
Von Snees im Forum .NetAntworten: 0Letzter Beitrag: 20.03.2012, 17:54 -
[Suche]KNLib VB 2008 Sample
Von rVs14 im Forum Knuddels ProgrammierungAntworten: 0Letzter Beitrag: 14.02.2012, 21:42
Diese Seite nutzt Cookies, um das Nutzererlebnis zu verbessern. Klicken Sie hier, um das Cookie-Tracking zu deaktivieren.