Window pop up on connect

Which hub software is the best? Where can I find script XXX? Discuss it here...(no, this is not for advertising your hub...)

Moderator: Moderators

Paul_Don
Posts: 146
Joined: 2003-01-29 11:41
Location: uk

Window pop up on connect

Post by Paul_Don » 2003-05-19 17:04

ok this was psoted b4 but for sum reason it never worked i want the message to come up in a new window on connect for everyone

heres the code


Code: Select all

Dim sBotName

Sub Main()
sBotName="[uF]"
frmHub.RegisterBotName(CStr(sBotName))
End Sub

Sub NewUserConnected(curUser)
 curUser.PrivateMessage CStr(sBotName), "   message goes here  "
End Sub



it displays in dc++ as private message recieved from uF but new window would be nice
also i dont believe when u send form the newuserconnected registered users and ops would not get the message
would i have to do


Code: Select all

Sub OpConnected(curUser)
 curUser.PrivateMessage CStr(sBotName), "   message goes here  "
End Sub


to show for reg users and ops??

DamionNH
Posts: 25
Joined: 2003-01-07 16:05

Post by DamionNH » 2003-05-19 17:40

or quicker if message is the same.

Code: Select all

Sub OpConnected(curUser)
   Call NewUserConnected(curUser)
End Sub
Owner of Lurkers Lair a Phoenix Rising Hub

Marvin
Posts: 147
Joined: 2003-03-06 11:56
Location: France

Post by Marvin » 2003-05-21 11:48

The code is right, but DC++ doesn't pop-up private messages from bots by default. You should check the Popup messages from users that are not online box to achieve this.

Paul_Don
Posts: 146
Joined: 2003-01-29 11:41
Location: uk

Post by Paul_Don » 2003-05-21 22:10

yes it does work for registered users and ops but new users dont get it i think it might be because the reg script interferes but everyhting is fine
thanks for your help :)

smitty
Posts: 53
Joined: 2003-03-01 19:45

Post by smitty » 2003-05-22 02:18

Code: Select all

Sub DataArival(curUser, sCurData)
 If instr(1, lcase(sCurData), lcase("$GetINFO "+curUser.sName+" "+curUser.sName))>0 then
  curUser.PrivateMessage Cstr("Hub-Security"), "This Message sent in a PM."
 End If
End Sub

that code will trigger for all new connections reguardless of registered or not.
Knowledge is Earned BUT Wisdom is Free

Who is online

Users browsing this forum: Google [Bot] and 0 guests