Hub owners active search script

[FRANKE]

Code: Select all

'Hub owner active search script by FRANKE aka [DK]FRANKE
'Version 0.00123 Build 12.4 Beta Alfa release 5
'January 19, 2003 01:04:25

'This script enables hubowners to do a active search on lan !
'For this script to work, you have to make the "right" settings 
'in your DC client, all the script does is forward the search string.

'PS: it works !   :]

'Thanks To HaArD for bringing my attention to this problem :)

Dim strName

Sub Main()
   strName = "ThisIsYourExactNameOnTheHub"
End Sub

Sub DataArival(curUser, sCurData)
   If Left(sCurData, 7) = "$Search" And Left(sCurData, 11) <> "$Search Hub" then
      If curUser.sName = strName then
         For Each User in ColUsers
            User.SendData CStr(sCurData)
         Next
      End If
   End If
End Sub

'No copyright, no GNU, no nothing

[ender]

For Each User in ColUsers
User.SendData CStr(sCurData)
Next

Wouldn't this be much faster:

Code: Select all

colUsers.SendToAll (sCurData)

[FRANKE]

it properly would

[ftp]

Thanks this script rocks!!!