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

Locked
Paul_Don
Posts: 146
Joined: 2003-01-29 06:41
Location: uk
Contact:

Window pop up on connect

Post by Paul_Don » 2003-05-19 12: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 11:05

Post by DamionNH » 2003-05-19 12: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 06:56
Location: France
Contact:

Post by Marvin » 2003-05-21 06: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 06:41
Location: uk
Contact:

Post by Paul_Don » 2003-05-21 17: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 14:45

Post by smitty » 2003-05-21 21: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

Locked