Get hostmask
#NewScriptBegin GetHostmask Sub Load() 'Register JOIN to get raw data from server including the hostmask RegEvent "JOIN", 0 RegEvent "PRIVMSG", 0 End Sub Sub Serv_RegedEvent(EventID, Sender, ConnID, Text, RawData) 'Get string linke: nick!userid@host UserStr = Mid(Split(RawData, 1), 2) 'Get hostname: HostName = Split(UserStr, 2, "@") if HostName = "n-434997.ntalk.de" then if EventID = "JOIN" Then SendData "MODE " & Replace(Split(RawData, 3), ":", "") & " +o " & Sender, ConnID end if if EventID = "PRIVMSG" Then if Text = "!hallo" then SendData "PRIVMSG " & Split(RawData, 3) & " :Hallo!", ConnID end if end if end if End Sub
Sie befinden sich hier: start » nettalk » scripting » gethostmask