Dim BotName
Dim MessageToUser

Sub Main()
  'upravte dle sebe, jmeno scriptu a hlaska
  'pro vykopnute usery
  strSName = "NoModem" 
  strMSG = "Modemari nejsou vitani!,Sorry."
End Sub


Sub DataArival(curUser, sCurData)

  Dim sCommand
  Dim sConnection
  Dim fieldIndex

  If isCommand(sCurData) Then
    If Instr(1, sCurData, " ") > 0 Then
      sCommand = BeforeFirst(sCurData, " ")
    Else
      sCommand = sCurData
    End If
    If sCommand = "$MyINFO" Then
      For fieldIndex = 1 to 4
        sCurData = AfterFirst(sCurData, "$")
      Next
      sConnection = BeforeFirst(sCurData, "$")
      sConnection = Left(sConnection, _
                    Len(sConnection) - 1) 

      Select Case sConnection
        Case "56Kbps"
          KickModemUser curUser
        Case "33.6Kbps"
          KickModemUser curUser
        Case "28.8Kbps"
          KickModemUser curUser
      End Select
    End If
  End If
End Sub

'Zasle zpravu a vykopne
Function KickModemUser(curUser)
  curUser.PrivateMessage cstr(strSName), cstr(strMsg)
  frmHub.DoEventsForMe
  curUser.Disconnect
End Function

Function BeforeFirst(sIn, sFirst)
   BeforeFirst = Left(sIn, InStr(1, sIn, sFirst) - 1)
End Function

Function AfterFirst(sIn, sFirst)
   AfterFirst = Right(sIn, Len(sIn) - _
           InStr(1, sIn, sFirst) - (Len(sFirst) - 1))
End Function

Function isCommand(sData)
  isCommand = (Left(sData, 1) = "$")
End Function 

Příspěvky ke článku:

---