Dobrej pokec   Lišanská šlapka   MSDN   VB na Microsoft.cz   NCHAT Nový design
   Portál  O firmě  Profil  Reference  Produkty  Odkazy  Diskuse  Tisková verze 



  Novinky e-mailem
Pokud chcete být informováni o změnách ,přihlašte se k odběru novinek!
  
  
  Nejčtenější články
 Seznam všech českých hubů abecedně. (32134)
 Seznam hubů nad 100 uživatelů (20849)
 Konfigurovatelné rozbalovací menu (17461)
 Jak na makra (14343)
 Rozbalovací menu v JavaScriptu (2.) (12670)
  Nejstahovanější soubory
 Action Meter (1846)
 Slovní Fotbal (777)
 IE Boss Guard (484)
 zdroják slovní fotbal (383)
 Folder Watcher (370)
  Anketa

  Nabídka portálu

 Adobe Premiere
    Jak se dá udělat
 Alternativní prohlížeče
    FireFox
 ASP
    Tipy a triky
 Direct Connect
    Huby
    Scripty pro HUB
    Tipy a triky CZDC++
 Game Maker
    Tipy a triky
 Hry
    Akční
    Logické
 HTML
    Scripting (VBS,JS)
    Tipy a triky
 Internet
    Užitečné triky
 Microsoft Office
    Tipy, triky, návody
    Užitečná makra
    VBA Tipy a triky
 MS SQL Server
    Nastavení
    Seriály
    Tipy a triky
 Multimedia
    Návody
 Oracle
    PL/SQL
 PHP
    Jak na to
    Tipy a triky
 Užitečné odkazy
    Grafické programy
    Programátorské
 Visual Basic
    DirectX
    Formuláře
    Jak se dá udělat ...
    Užitečné funkce
    Win32Api
    Zdroje
 Visual Basic .NET
    Užitečné funkce
 Vtípky
    Vtipy a anekdnoty
 Vypalování
    DVD Shrink
    Tipy a triky
 Windows
    Jak se dá ...
    Tipy a triky pro XP
    Triky pro IE


Nabídka portálu se při zobrazení článku přesouvá na konec pravého sloupce nabídek.

 Script: Hub pouze pro uživatele s pevnou linkou

Autor: Kočí Marek
Zdroj: 
Vytvořeno: 11.1.2003
Publikováno: 11.1.2003
Čtenářů: 2718
Unikátních: 2660


Tento script, nedovolí připojení uživatelům připojeným k internetu modemem.

Setkal jsem se již několikrát s tím, že admini hubu po mě chtěli script, kterým by jim vyhazoval uživatele, kteří jsou připojeni modemem.

Zamyslel jsem se a poté spáchal tuto šílenost.Jejím nebezpečím je, že nepozná rozdíl mezi modemem 56Kbps a pevnou linkou o stejné rychlosti.

Ale většině adminu toto stačilo.Proto přeji mnoho štěstí a ať se tento script moc neujme.Jinak budou modemari nas..ní.

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 

To je pro dnešek vše.Opět platí, že script můžete libovolně modifikovat.




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



© Swit.cz, Marek Kočí 2003