Salve ospite, se leggi questo messaggio vuol dire che non sei registrato, cosa aspetti ? Premi qui per registrarti La registrazione è completamente gratuita e ti permetterà di usufruire di tutte le funzionalità del nostro forum. Buona navigazione.


Vendo, Compro, Scambio NosTale! Riapre il Black Market, concludi i tuoi scambi NosTale gratuitamente! Più info  -   Accedi alla sezione
Download file Server : File Retro Server NosTale
Visita la nuova sezione di BorderGame dedicata a Blade & Soul! Sezione Blade and Soul

 
Valutazione discussione:
  • 9 voti - 2.78 media
  • 1
  • 2
  • 3
  • 4
  • 5
Creare Chat (via FTP) by »»Ñ¡¢ø£å§««
24-04-2012 10:09 PM
Messaggio: #1
Creare Chat (via FTP) by »»Ñ¡¢ø£å§««
Nico
Moderatori
Spammer
Utente Storico
Vip

Allievo del Sensei Lord Freud

Messaggi : 2,038

Registrato dal : May 2011

Reputazione : 153

Stato : Offline


Premi :



Volete creare una chat come questa ?

Login:
İmage


Chat Online:
İmage


Chat Online + Impostazioni Aperte
İmage


Chat Online + Impostazioni Aperte + Pannello Staff
İmage



Da oggi si può Big Grin (Vi dico subito, che ho seguito un tutorial tedesco, quindi i nomi saranno in tedesco e dovrete rinominare i bottoni, le textbox ecc come lo rinomino io)

Attenzione! Prima di incominciare, create tre file di estensione .txt, e uppateli sul vostro server.
I file sono:

- "Chat.txt"
- "Benutzer.txt"
- "Kick.txt"


Importate 2 timer, e chiamateli rispettivamente "Downloader" e "Userlist".
A downloader date un tempo di circa 2.000 millisecondi, mentre a Userlist dategli 5.000 millisecondi.

Importate poi un ColorDialog.

Serviranno 10 Bottoni.
2 RichTextBox
1 ListBox
1 Textbox
1 TrackBar


Passiamo al codice:

Sotto a Public Class Form 1, inserite:
Spoiler:
Dim wc As New Net.WebClient
Dim passwort As String = "inserite la password del vostro ftp"
Dim benutzername As String = "inserite il nome utente del vostro ftp"
Dim userliste As New RichTextBox

Rinominate ora il bottone che servirà per inviare il messaggio (e non il testo, ma il nome di progettazione dovete rinominare!") in "Senden".
Fate la stessa cosa con il bottone delle impostazioni e rinominatelo in "Einstellungen".

Codice Bottone invia messaggio:
Spoiler:
wc.Credentials = New Net.NetworkCredential(benutzername, passwort)
wc.UploadString("Ftp://linkvostrositoftp/Chat.txt", Anzeigefeld.Text & vbCrLf & Form2.TextBox1.Text & ": " & Eingabefeld.Text)
Eingabefeld.Text = ""

Se vi da errore, non preoccupatevi è xk dobbiamo ancora rinominare delle altre cose.


Ora rinominate, la richtextbox che servirà per visualizzare i messaggi degli altri, in "Anzeigefeld".
Fate lo stesso, con la richtextbox che servirà per scrivere il vostro messaggio e rinominatela in "Eingabefeld".

Passiamo ora al timer "Downloader". Inserite questo codice:
Spoiler:
wc.Credentials = New Net.NetworkCredential(benutzername, passwort)
Anzeigefeld.Text = wc.DownloadString("Ftp://linkvostrositoftp/Chat.txt")

Passiamo ora al timer "Userlist". Inserite questo codice:
Spoiler:
User.Items.Clear()
wc.Credentials = New Net.NetworkCredential(benutzername, passwort)
userliste.Text = wc.DownloadString("Ftp://linkvostroftp/Benutzer.txt")
For Each line In userliste.Lines
User.Items.Add(line)
For i As Integer = User.Items.Count - 1 To 0 Step 1
If User.Items(i) = String.Empty Then
User.Items.Remove(String.Empty)
End If
Next
Next

If Form2.TextBox1.Text = wc.DownloadString("Ftp://linkvostroftp/Kick.txt") Then
Senden.Enabled = False
wc.UploadString("Ftp://linkvostroftp/Kick.txt", "")
Downloader.Stop()

User.Items.Clear()
wc.Credentials = New Net.NetworkCredential(benutzername, passwort)
Dim neuedaten As New RichTextBox
neuedaten.Text = wc.DownloadString("Ftp://linkvostroftp/Benutzer.txt")
neuedaten.Text = neuedaten.Text.Replace(Form2.TextBox1.Text, "")
wc.UploadString("Ftp://linkvostroftp/Benutzer.txt", neuedaten.Text)
MsgBox("L'utente è stato kikkato.")
End

End If

Se vi da errore, non preoccupatevi, è perchè dobbiamo ancora rinominare altre cose.

Andiamo ora sulla TrackBar, che servirà per impostare la trasparenza del programma. Nelle proprietà, su Maximum, impostate il valore "2".
Inseritegli poi questo codice:
Spoiler:
If TrackBar1.Value = 0 Then
Me.Opacity = 1
End If
If TrackBar1.Value = 1 Then
Me.Opacity = 0.8
End If
If TrackBar1.Value = 2 Then
Me.Opacity = 0.5
End If

Bene, abbiamo appena realizzato le funzioni base (quasi tutte).
Passiamo al My.Settings (ovvero le impostazioni modificabili nel My Project)

Impostate il vostro My.Settings, come nell'immagine sottostante:
Spoiler:
İmage

Prendete ora 3 bottoni, che ci serviranno per impostare:

- Colore di Sfondo
- Colore Testo
- Colore Bottoni

Rinominate (nel nome della progettazione ovviamente), il bottone del colore di sfondo in "Hintergrundfarbe".
Rinominate, il bottone del colore testo in "Textfeldfarbe".
Rinominate, il bottone colore bottoni in "Buttonfarbe".

Inserite nel bottone, colore di sfondo:

Spoiler:
ColorDialog1.ShowDialog()
Me.BackColor = ColorDialog1.Color
My.Settings.Hintergrundfarbe = Me.BackColor
My.Settings.Save()


Inserite nel bottone, colore testo:

Spoiler:
ColorDialog1.ShowDialog()
Anzeigefeld.BackColor = ColorDialog1.Color
Eingabefeld.BackColor = ColorDialog1.Color
User.BackColor = ColorDialog1.Color
My.Settings.Textfeldfarbe = Anzeigefeld.BackColor
My.Settings.Save()


Inserite nel bottone, colore bottoni:

Spoiler:
ColorDialog1.ShowDialog()
Senden.BackColor = ColorDialog1.Color
Einstellungen.BackColor = ColorDialog1.Color
Admin.BackColor = ColorDialog1.Color
einstellungenhide.BackColor = ColorDialog1.Color
My.Settings.buttonfarbe = ColorDialog1.Color
My.Settings.Save()


Prendete ora un bottone, che servirà per kikkare gli utenti, e abbinateci la textbox che abbiamo importato prima, dove dovremmo inserire il nome dell'utente da kikkare. Rinominatelo in "Kick":

Spoiler:
wc.Credentials = New Net.NetworkCredential(benutzername, passwort)
wc.UploadString("Ftp://linkvostroserverftp/Kick.txt", TextBox1.Text)

Prendete ora un'altro bottone che servirà a cancellare tutta la conversazione in chat. Rinominatelo in "Chatverlauf_löschen":

Spoiler:
wc.Credentials = New Net.NetworkCredential(benutzername, passwort)
wc.UploadString("Ftp://linkvostroserverftp/Chat.txt", "")

Andate ora nell'evento del Form1 "Closing" e inserite questo codice:
Spoiler:
User.Items.Clear()
wc.Credentials = New Net.NetworkCredential(benutzername, passwort)
Dim neuedaten As New RichTextBox
neuedaten.Text = wc.DownloadString("Ftp://linkvostroserverftp/Benutzer.txt")
neuedaten.Text = neuedaten.Text.Replace(Form2.TextBox1.Text, "")
wc.UploadString("Ftp://linkvostroserverftp/Benutzer.txt", neuedaten.Text)

Passiamo ora al form di login, di questa chat. Quindi inserite un'altro form.

Importate:

- 1 TextBox
- 1 Bottone

Sotto a Public Class Form 2, dichiarate le seguenti varibili:
Spoiler:
Dim richtextbox As New RichTextBox
Dim wc As New Net.WebClient
Dim passwort As String = "password vostro server ftp"
Dim benutzername As String = "username vostro server ftp"

Inserite poi, nel Button 1:
Spoiler:
ate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Not TextBox1.Text.Length < 5 Then
If TextBox1.Text = "" Then
MsgBox("E' richiesto un nome utente.")
Else
wc.Credentials = New Net.NetworkCredential(benutzername, passwort)
richtextbox.Text = wc.DownloadString("ftp://linkvostroserverftp/Benutzer.txt")
If richtextbox.Text.Contains(TextBox1.Text) Then
MsgBox("Nome utente già in uso.")
Else
wc.UploadString("ftp://linkvostroserverftp/Benutzer.txt", richtextbox.Text & vbCrLf & TextBox1.Text)
Form1.Show()
Me.Hide()
End If
End If
End If

Andate poi nel MyProject, e inserite come form di avvio il "Form 2" e come Modalità di chiusura, selezionate quella "Alla chiusura dell'ultimo form."

Ora, se avete seguito tutto attentamente, il risultato dovrebbe essere simile al mio. Ringrazio Visual Basic 08 Team, per il tutorial.

Tongueiù: 1 accettati e commentate Big Grin

Ps: nel caso ne aveste fatta una, potete postare i vostri lavori qua sotto Wink

Fuck Yeah!İmage

İmage




(Questo messaggio è stato modificato l'ultima volta il: 24-04-2012 10:12 PM da Nico.)
Torna al primo messaggio
WWW Cerca
24-04-2012 10:13 PM
Messaggio: #2
RE: Creare Chat (via FTP) by »»Ñ¡¢ø£å§««
Lawliet
Bannati
Utente Saggio
Utente Storico

Saccente Mode == ONLINE

Messaggi : 908

Registrato dal : Dec 2011


Stato : Offline


Premi :



Che bel programmino, complimenti^^
Torna al primo messaggio
Email WWW Cerca
24-04-2012 10:14 PM
Messaggio: #3
RE: Creare Chat (via FTP) by »»Ñ¡¢ø£å§««
Nico
Moderatori
Spammer
Utente Storico
Vip

Allievo del Sensei Lord Freud

Messaggi : 2,038

Registrato dal : May 2011

Reputazione : 153

Stato : Offline


Premi :



Grazie Mille Tongue

Fuck Yeah!İmage

İmage




Torna al primo messaggio
WWW Cerca
25-04-2012 12:16 PM
Messaggio: #4
RE: Creare Chat (via FTP) by »»Ñ¡¢ø£å§««
CarlKox
*
Vip
Utente Saggio
Utente Storico
Monster Hunter
NosTale

CarlKox <3

Messaggi : 576

Registrato dal : Dec 2010

Reputazione : 80

Stato : Offline


Premi :



Puzzi più dei tuoi programmi Tongue

Scherzo Niko Big Grin complimenti come sempre

#include <antibm.h>

No all'SMS Style


İmage
Torna al primo messaggio
Email WWW Cerca
30-04-2012 05:36 PM
Messaggio: #5
RE: Creare Chat (via FTP) by »»Ñ¡¢ø£å§««
Nico
Moderatori
Spammer
Utente Storico
Vip

Allievo del Sensei Lord Freud

Messaggi : 2,038

Registrato dal : May 2011

Reputazione : 153

Stato : Offline


Premi :



Grazie Carlo Tongue

Fuck Yeah!İmage

İmage




Torna al primo messaggio
WWW Cerca
02-05-2012 10:35 PM
Messaggio: #6
RE: Creare Chat (via FTP) by »»Ñ¡¢ø£å§««
@@@ELBY@@@
*
Meys
Monster Hunter
Utente Saggio
Utente Storico

Vietato ai minori

Messaggi : 386

Registrato dal : Jun 2011

Reputazione : 61

Stato : Away


Premi :



mi serviva Big Grin
Tongueiù:2 thanks yuppy
Torna al primo messaggio
Email Cerca
12-08-2012 11:03 AM
Messaggio: #7
RE: Creare Chat (via FTP) by »»Ñ¡¢ø£å§««
TheHackerX
*

Novizio

Messaggi : 11

Registrato dal : Aug 2012

Reputazione : 0

Stato : Offline


Premi :



A me, non mi funziona.. Come sempre ovviamente.. -.-
Potete aiutarmi??? Lascio il download dei miei codici
Download: http://www.mediafire.com/?5m6d7jemkenegx0
Torna al primo messaggio
Email Cerca
12-08-2012 11:29 AM
Messaggio: #8
RE: Creare Chat (via FTP) by »»Ñ¡¢ø£å§««
тυттσмαχ
*
Rynn
Utente Saggio
Utente Storico

Utente attivo

Messaggi : 946

Registrato dal : Jul 2011

Reputazione : 156

Stato : Offline


Premi :



@[TheHackerX] Posta il progetto completo..la cartella
Torna al primo messaggio
Email Cerca
12-08-2012 12:20 PM
Messaggio: #9
RE: Creare Chat (via FTP) by »»Ñ¡¢ø£å§««
TheHackerX
*

Novizio

Messaggi : 11

Registrato dal : Aug 2012

Reputazione : 0

Stato : Offline


Premi :



Ecco a te!
Download: http://www.mediafire.com/?dqic1cd8dxw7yk7
Spero saprai aiutarmi!! =D
Torna al primo messaggio
Email Cerca
12-08-2012 02:03 PM
Messaggio: #10
RE: Creare Chat (via FTP) by »»Ñ¡¢ø£å§««
тυттσмαχ
*
Rynn
Utente Saggio
Utente Storico

Utente attivo

Messaggi : 946

Registrato dal : Jul 2011

Reputazione : 156

Stato : Offline


Premi :



ci provo...

----------------
mi dice che non c'è connessione con il server...
comunqe prova tu:
progetto
Torna al primo messaggio
Email Cerca
12-08-2012 02:10 PM
Messaggio: #11
RE: Creare Chat (via FTP) by »»Ñ¡¢ø£å§««
TheHackerX
*

Novizio

Messaggi : 11

Registrato dal : Aug 2012

Reputazione : 0

Stato : Offline


Premi :



Quando premo accedi nel login, mi si blocca..
L' applicazione non risponde..
ecc
Torna al primo messaggio
Email Cerca
12-08-2012 03:06 PM
Messaggio: #12
RE: Creare Chat (via FTP) by »»Ñ¡¢ø£å§««
тυттσмαχ
*
Rynn
Utente Saggio
Utente Storico

Utente attivo

Messaggi : 946

Registrato dal : Jul 2011

Reputazione : 156

Stato : Offline


Premi :



ma non so...comunqe il codice è fatto male ci sono variabili tipo User che non so da dove escono ..io ho pensato che si riferisce al controllo dove vengono messi gli utenti connessi...
Torna al primo messaggio
Email Cerca
12-08-2012 04:05 PM
Messaggio: #13
RE: Creare Chat (via FTP) by »»Ñ¡¢ø£å§««
TheHackerX
*

Novizio

Messaggi : 11

Registrato dal : Aug 2012

Reputazione : 0

Stato : Offline


Premi :



Io ho fatto copia e incolla... Il codice non lo modificato..
Bhé, allora questi altri come fanno a dire grazie a lui, se il codice è sbagliato??
Torna al primo messaggio
Email Cerca
12-08-2012 04:19 PM
Messaggio: #14
RE: Creare Chat (via FTP) by »»Ñ¡¢ø£å§««
тυттσмαχ
*
Rynn
Utente Saggio
Utente Storico

Utente attivo

Messaggi : 946

Registrato dal : Jul 2011

Reputazione : 156

Stato : Offline


Premi :



bho...dal tuo codice risultano delle variabili mancanti quindi se hai fatto copia incolla il codice qui è fatto male ...forse nemmeno l'hanno provato
Torna al primo messaggio
Email Cerca
12-08-2012 08:53 PM
Messaggio: #15
RE: Creare Chat (via FTP) by »»Ñ¡¢ø£å§««
TheHackerX
*

Novizio

Messaggi : 11

Registrato dal : Aug 2012

Reputazione : 0

Stato : Offline


Premi :



@»»Ñ¡¢ø£å§««
potresti rispondermi???
Nel MP
Torna al primo messaggio
Email Cerca
28-08-2012 09:24 PM
Messaggio: #16
RE: Creare Chat (via FTP) by »»Ñ¡¢ø£å§««
TheHackerX
*

Novizio

Messaggi : 11

Registrato dal : Aug 2012

Reputazione : 0

Stato : Offline


Premi :



Bellissima chat!! Big Grin






SE FUNZIONASSE!! °_°
Torna al primo messaggio
Email Cerca
28-08-2012 09:25 PM
Messaggio: #17
RE: Creare Chat (via FTP) by »»Ñ¡¢ø£å§««
FinalShot
*
Vip
Spammer
Utente Saggio
Utente Storico

Nostaliano

Messaggi : 2,297

Registrato dal : Aug 2011

Reputazione : 80

Stato : Offline


Premi :



Asd grande!
İmage
Torna al primo messaggio
Email Cerca
29-08-2012 07:49 PM
Messaggio: #18
RE: Creare Chat (via FTP) by »»Ñ¡¢ø£å§««
MaLand
*

Novizio

Messaggi : 1

Registrato dal : Aug 2012

Reputazione : 0

Stato : Offline


Premi :



mi da erorri... mi da User non dichiarato...
Torna al primo messaggio
Email Cerca
29-08-2012 08:14 PM
Messaggio: #19
RE: Creare Chat (via FTP) by »»Ñ¡¢ø£å§««
TheHackerX
*

Novizio

Messaggi : 11

Registrato dal : Aug 2012

Reputazione : 0

Stato : Offline


Premi :



@MaLand
Infatti questa chat non funsiona... User non dichiarato, significa che manca una variabile...

Si dovrebbe creare una variabile che indica un utente della chat!
Torna al primo messaggio
Email Cerca
01-09-2012 02:43 PM
Messaggio: #20
RE: Creare Chat (via FTP) by »»Ñ¡¢ø£å§««
*Axel
*
Vip
Utente Saggio
Utente Storico

Allievo Di Sharing

Messaggi : 771

Registrato dal : Mar 2011

Reputazione : 122

Stato : Offline


Premi :



Bella guida Big Grin
Obbiettivi :
2,000 mex [X]
Vip [Tongueiù:]
Mod [X]
Fare l'applicazione di bordergame [X]
İmage
İmage
Torna al primo messaggio
Email Cerca

PubblicitàLa tua pubblicità qui, clicca per informazioni e per le offerte!

Stanno visualizzando la discussione :

  • Versione stampabile
  • Invia ad un amico
  • Sottoscrivi questa discussione