Visual Basic 6 - Bot cerca nick su irc vb6

Forum - Visual Basic 6 - Bot cerca nick su irc vb6

mastergov (Normal User)
Rookie

Messaggi: 22
Iscritto: 26/03/2010

Postato alle 2:51
Venerdì, 09/12/2011

Codice sorgente - presumibilmente VB.NET

Option Explicit
Sub Pause(ByVal interval As Double)
             
          Dim Current As Double
          Current = Timer
          Do While Timer - Current < interval
          DoEvents
          Loop
End Sub
Private Sub cmdConnect_Click()
Winsock.RemoteHost = "irc.tiscali.it"  ' this is the Ip of the server 127.0.0.1 loops back to your own computer
Winsock.RemotePort = 6667  ' this is the port it must be the same as the server
Winsock.Connect  ' connect!
End Sub
 
 
 
Private Sub cmdSend_click()
Dim info1, info2, info3 As String
Dim nick(5) As String
Dim whois As String
 
info1 = "nick"
info2 = "searchBot"
info3 = "user Code_Master 95.251.39.70 irc.tiscali.it Coder"
 
nick(0) = "zappa"
nick(1) = "cone"
nick(3) = "LosCo"
nick(4) = "Tapparella"
nick(5) = "mitico"
whois = "whois"
Dim i As Integer
 
Dim numeroriga As Integer
 
Dim riga As String, c As Integer
numeroriga = 1
  
For i = 1 To 20
Close #1
 
Open App.Path & "\lista.txt" For Input As #1
 
 Do
c = c + 1
Line Input #1, riga
 
Debug.Print "Mi sto connettendo a questo server :" & riga
 
Winsock.RemoteHost = riga
 
 
Winsock.RemotePort = 6667
Winsock.Connect
Pause 2
 
Winsock.SendData info1 & " " & info2 & vbNewLine  ' sends the data in the textbox
 
txtWindow.Text = txtWindow.Text & vbNewLine & info1 & " " & info2 & vbNewLine & info3 & vbNewLine ' displays data
Winsock.SendData info3 & vbNewLine
Pause 3
Dim fioco As String
 
fioco = txtWindow.Text
Dim h As Integer
 
Open "c:\results.txt" For Append As #2
 
For h = 0 To 5
                Debug.Print "Sto cercando :" & nick(h)
                Winsock.SendData whois & " " & nick(h) & vbNewLine
                Print #2, fioco
                Pause 5
                
            Next
                Close #2
                
Loop Until EOF(1) Or c = numeroriga
 
txtWindow.SelStart = Len(txtWindow.Text) ' this just positions the text box to focus on the newest piece of information!
txtchatBox.Text = "" ' just empties the text box
Winsock.Close
Pause 2
 
Next
 
End Sub
 
 
 
Private Sub Form_Load()
Dim c As Integer
 
c = 1
End Sub
 
 Private Sub winsock_DataArrival(ByVal bytesTotal As Long)
 
Dim incommingData As String
 
Winsock.GetData incommingData
 
txtWindow.Text = txtWindow.Text & vbNewLine & incommingData
txtWindow.SelStart = Len(txtWindow.Text) 'this just positions the text box to focus on the newest piece of information!
End Sub
 
Private Sub winsock_connect()
Debug.Print "You are connected to  : "
End Sub

In pratica questo programmino va a leggere una lista di server presente nel file lista.txt tutti i nomi dei server e si collegga a tutti, cercando i nick che sono inseriti. o almeno dovrebbe!

però non capisco perchè il primo giro lo fa ammodo e si collega al primo server quindi fa i whois e salva tutto in un file, al secondo giro mi da errore
su
Winsock.RemoteHost = riga
eppure sopra ho messo un debug.print e come risultato nel debuger torna scritto ammodo, che dite? dove è l'inghippo?

nessuno (Normal User)
Guru^2

Messaggi: 6402
Iscritto: 03/01/2010

Postato alle 9:13
Venerdì, 09/12/2011

Quale errore ti dà su quella linea?

Che vuol dire in italiano "torna scritto ammodo"?

Il codice della Form_Load non serve a nulla.

torna scritto ammodo nel senso che io al debug.print gli passo la variabile su cui ci sta scritto il nome del server, e nell'debugger vedo che all'interno della variabile cè quello che ci dovrebbe essere. quindi non capisco perchè mi dia errore, visto che poi sulla riga 51 gli passo riga che è l'ho - mastergov - 09/12/11 14:51

Quale errore ti dà??? - nessuno - 09/12/11 15:03

Invalid Operation at current state Run-time '40020', penso che ci sta anche che qualche server magari non è piu attivo quindi dovrò mettere un cilclo che se dopo 5 secondi non si collega passa ad un altro - mastergov - 10/12/11 00:47

Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti ( uno dei padri fondatori del moderno Calcolo delle probabilità ) chiamava il gioco del Lotto Tassa sulla stupidità.