I noticed because I was trying to patch it, and when I try to run it in visual basic it actually doesn't crash.
But I did get this out of the debug: DownloadPopFiles: scaricata dir, poi errore which means the error is after fase 1:
fase = 1
Debug.Print "FTP session initialized. About to get FTP download list."
CompilePopDirlist Directory, DirList()
Debug.Print "FTP download list completed."
dirnum = CInt(val(DirList(0)))
If dirnum = 0 Then
DownloadPopFiles = False
' frmMain_Client.Inet1.Cancel
Disconnect
Exit Function
End If
I = dirnum
While I > 0
If DownloadFile(DirList(I), frmMain.MainDir + "\Transfers\F1\") = False Then GoTo getout
I = I - 1
Wend
DownloadPopFiles = True
And since I added a msgbox(which didnt show up after the first function means that compilepopdirlist() is bugged:
Debug.Print "FTP session initialized. About to get FTP download list."
CompilePopDirlist Directory, DirList()
Debug.Print "FTP download list completed."
MsgBox 1
I added ^ to compilePopDirList() and got the error subscript out of range.
Which probably means the array Dim DirList(150) As String is too small.
I have changed the array size in LoadRandomOrgs and DownloadPopFiles to 999 and it seems to work, though it takes a while downloading all the files.
Since it takes a while maybe you should ban newbie names from uploading their pop files, and resetting the whole pop database once in a while.
As a quick solution I have deleted all newbie pop files on the ftp server so you should be under the current 150 file limit now.
Anybody can use it again without patching( for now ) just be patient while darwinbots needs to download all the pop files.