| Precedente :: Successivo |
| Autore |
Messaggio |
Evil_Neo Nuovo del Forum


Registrato: Sep 29, 2003 Messaggi: 49 Località: Magenta
|
Inviato: Dom Apr 23, 2006 7:27 pm Oggetto: [VB] Problema client/server...aiutooo |
|
|
Ciao a tutti è un po di tempo che non posto ma sono affezzionato a questo sito.
Comunque, sto programmando un client/server con visual basic 6 ma c'è qualcosa che non va, ho fatto due commandbutton chiamati rispettivamente 'connetti' ed 'invia', due textbox chiamate 'txtReply' e 'txtOut'; con questi oggetti e poche stringhe di codice dovrei essere in grado di connettermi ad un server e comunicare (naturalmente non voglio ne hakerare o fare altre cose simili ma semplicemente imparare a programmare un client/server). Ora vi posto le stringhe di codice del client (ho fatto solo il client ):
| Citazione: |
Private Sub Connetti_Click()
wskClient.Connect nome host, 25
End Sub
Private Sub Invia_Click()
Dim data As String
data = txtOut
wskClient.SendData data & vbCrLf
End Sub
Private Sub wskClient_DataArrival(ByVal bytesTotal As Long)
Dim Dati As String
wskClient.GetData Dati
txtReply = Dati & vbCrLf
End Sub
|
Ora, quando lo avvio il prog va ma quando schiaccio conetti mi fa un errore, in questa stringa wskClient.Connect nome host, 25, naturalmente ho omesso il nome per non fare publicità o altro, il mio dubbio è: ma come host devo mettere il nome o l'ip? e poi qual'è la sintassi corretta? cioè ci vogliono parentesi e apici apostrofi etc?
potete aiutarmi risolvendo il prob, magari se avete soluzioni alternative o se avete corretto l'errore mandandomi il codice oppure postandoli qui? Naturalmente accetto consigli. (aiutatemi per favore sto diventando pazzo)
Grazie a tutti, Distinti saluti. |
|
| Torna in cima |
|
 |
HaCk-ChAn Frequentatore del Forum


Registrato: Mar 03, 2006 Messaggi: 125 Località: Alessandria
|
Inviato: Dom Apr 23, 2006 8:14 pm Oggetto: |
|
|
Anche io avevo fatto una roba del genere in visual basic... non ricordo più dove ho infilato il progetto senò ti passavo il source, se non ricordo male l'host era l'ip.. non ricordo bene l'ho fatto tempo fa.. _________________
Infernet X Security Team : il miglior forum di hacking in Italia |
|
| Torna in cima |
|
 |
Evil_Neo Nuovo del Forum


Registrato: Sep 29, 2003 Messaggi: 49 Località: Magenta
|
Inviato: Dom Apr 23, 2006 8:57 pm Oggetto: |
|
|
| bhe se lo trovi ti ringrazio tanto |
|
| Torna in cima |
|
 |
HaCk-ChAn Frequentatore del Forum


Registrato: Mar 03, 2006 Messaggi: 125 Località: Alessandria
|
Inviato: Lun Apr 24, 2006 9:51 am Oggetto: |
|
|
Non ho trovato il mio trojan, quello che avevo fatto, però ho trovato un altro esempio di trojan in visual basic magari ti può essere utile:
[link censurato]
Edited by Ertagus: Tra tanti esempi client/server, proprio un trojan devi prendere? Già ce n'è troppa di spazzatura in giro, non ci mettiamo anche a diffonderla _________________
Infernet X Security Team : il miglior forum di hacking in Italia |
|
| Torna in cima |
|
 |
Evil_Neo Nuovo del Forum


Registrato: Sep 29, 2003 Messaggi: 49 Località: Magenta
|
Inviato: Lun Apr 24, 2006 10:17 am Oggetto: |
|
|
| Grazie molte per il tuo interessamento, se vuoi, sdesso cerco un po di capire, magari in futuro si potrebbe collaorare. grazie ancora ciao |
|
| Torna in cima |
|
 |
HaCk-ChAn Frequentatore del Forum


Registrato: Mar 03, 2006 Messaggi: 125 Località: Alessandria
|
|
| Torna in cima |
|
 |
Ertagus ExStaff

Registrato: Dec 03, 2003 Messaggi: 823 Località: Aversa
|
Inviato: Lun Apr 24, 2006 10:07 pm Oggetto: |
|
|
Forse l'errore è nel fatto che l'IP non lo passi come stringa... prova a mettere le virgolette, esempio:
| Codice: | | wskClient.Connect "127.0.0.1", 25 |
_________________ . . . . . . . . . . . .  |
|
| Torna in cima |
|
 |
Evil_Neo Nuovo del Forum


Registrato: Sep 29, 2003 Messaggi: 49 Località: Magenta
|
Inviato: Mar Apr 25, 2006 9:18 am Oggetto: |
|
|
| ok lo faccio ora |
|
| Torna in cima |
|
 |
Evil_Neo Nuovo del Forum


Registrato: Sep 29, 2003 Messaggi: 49 Località: Magenta
|
Inviato: Gio Apr 27, 2006 9:26 am Oggetto: |
|
|
| niente non vuole andare |
|
| Torna in cima |
|
 |
antonio88m Frequentatore del Forum


Registrato: Feb 09, 2004 Messaggi: 171 Località: Arcore
|
Inviato: Ven Apr 28, 2006 8:37 pm Oggetto: |
|
|
prova così
Private Sub Connetti_Click()
wskClient.Close
wskClient.Connect nome host, 25
End Sub _________________ Ci sono 10 tipi di persone: chi conosce l'informatica e chi no.
www.mrweb88.altervista.org
Un progetto di trojan sviluppato da me e Marco ma ancora in grande fase di evoluzione: www.epriam.altervista.org |
|
| Torna in cima |
|
 |
Ertagus ExStaff

Registrato: Dec 03, 2003 Messaggi: 823 Località: Aversa
|
Inviato: Ven Apr 28, 2006 9:02 pm Oggetto: |
|
|
scusa ma... sei sicuro che il server abbia la porta 25 aperta?
Ci dici l'errore che ti viene restituito? Almeno abbiamo qualche elemento in più per poterti aiutare _________________ . . . . . . . . . . . .  |
|
| Torna in cima |
|
 |
Evil_Neo Nuovo del Forum


Registrato: Sep 29, 2003 Messaggi: 49 Località: Magenta
|
Inviato: Ven Apr 28, 2006 9:06 pm Oggetto: |
|
|
si a dire la verità la porta non è aperta , ineffetti il server lo devo ancora programmare e sto iniziando ora scusate... ma almeno con il comando wskClient.close se schiaccio 2 o più volte invia non fa errori ed il netstat mi dice che il client tenta la connessione al sito che io metto (SYN_SENT) ma non stabilisce la connessione ora faccio il server poi vi informo, avrò bisogno di qiuto anche per il server... grazie a tutti per l'aiuto |
|
| Torna in cima |
|
 |
Ertagus ExStaff

Registrato: Dec 03, 2003 Messaggi: 823 Località: Aversa
|
Inviato: Ven Apr 28, 2006 9:12 pm Oggetto: |
|
|
| Evil_Neo ha scritto: | si a dire la verità la porta non è aperta , ineffetti il server lo devo ancora programmare e sto iniziando ora scusate... ma almeno con il comando wskClient.close se schiaccio 2 o più volte invia non fa errori ed il netstat mi dice che il client tenta la connessione al sito che io metto (SYN_SENT) ma non stabilisce la connessione ora faccio il server poi vi informo, avrò bisogno di qiuto anche per il server... grazie a tutti per l'aiuto |
Prova a guardare qui... e cerca di capirci qualcosa invece di scopiazzare e basta, altrimenti è inutile!
http://www.vbsimple.net/index.htm?/cliserv/clser_01.htm _________________ . . . . . . . . . . . .  |
|
| Torna in cima |
|
 |
Evil_Neo Nuovo del Forum


Registrato: Sep 29, 2003 Messaggi: 49 Località: Magenta
|
Inviato: Ven Apr 28, 2006 9:19 pm Oggetto: |
|
|
questo è molto utile Grazie...
| Citazione: |
Dim SendData As String
Private Sub Connetti_Click()
wskClient.Close
wskClient.Connect
End Sub
Private Sub Invia_Click()
Dim data As String
data = txtOut
wskClient.SendData data & vbCrLf
End Sub
Private Sub wskClient_DataArrival(ByVal bytesTotal As Long)
Dim Dati As String
wskClient.GetData Dati
txtReply = Dati & vbCrLf
End Sub
|
Questo è quello che ho fatto io... dopo wskClient.connect ci va host e porta... bho se hai qualche codici minuto minuto per fare un piccolo server mi fai un favore, se invece rilevi errori o potresti aiutarmi o fare qualche esempio mi sei di aiuto comunque... grazie |
|
| Torna in cima |
|
 |
Ertagus ExStaff

Registrato: Dec 03, 2003 Messaggi: 823 Località: Aversa
|
Inviato: Ven Apr 28, 2006 9:24 pm Oggetto: |
|
|
nel link che ho postato c'è anche un server _________________ . . . . . . . . . . . .  |
|
| Torna in cima |
|
 |
|