Search found 52 matches
- 2003-05-27 23:19
- Forum: Programmer's Help
- Topic: How to auto-kick in UserConnection.cpp
- Replies: 7
- Views: 3879
- 2003-05-27 12:38
- Forum: Programmer's Help
- Topic: How to auto-kick in UserConnection.cpp
- Replies: 7
- Views: 3879
The code above I have put In UserConnection.cpp In the $Lock section. I've been able to Identify the user and lock string and also If I'm an OP, Can't figure out what code to use to auto-kick the user for clients not allowed that are detectable from lock string . I have used the MessageBox command a...
- 2003-05-27 08:33
- Forum: Programmer's Help
- Topic: How to auto-kick in UserConnection.cpp
- Replies: 7
- Views: 3879
- 2003-05-22 11:51
- Forum: Feature Discussion (Archived)
- Topic: queue priority
- Replies: 5
- Views: 2710
- 2003-05-22 07:20
- Forum: Hubs and scripts
- Topic: Script Question
- Replies: 11
- Views: 5110
- 2003-05-21 21:25
- Forum: Hubs and scripts
- Topic: ADD HUBS¡¡¡ PLEASE HELP¡¡¡
- Replies: 2
- Views: 2043
In settings under downloads tab where it says Public Hubs List URL put this address
http://dreamland.gotdns.org/PublicHubList.config
http://dreamland.gotdns.org/PublicHubList.config
- 2003-05-21 21:18
- Forum: Hubs and scripts
- Topic: Window pop up on connect
- Replies: 4
- Views: 2292
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
- 2003-05-21 19:03
- Forum: Programmer's Help
- Topic: Problem compiling a brother in arms of DC++, Heeeeeeeeeelp
- Replies: 7
- Views: 3839
- 2003-05-21 18:57
- Forum: Programmer's Help
- Topic: Compilation error under vc6
- Replies: 11
- Views: 5394
- 2003-05-21 15:16
- Forum: Programmer's Help
- Topic: How to auto-kick in UserConnection.cpp
- Replies: 7
- Views: 3879
How to auto-kick in UserConnection.cpp
In the $Lock section I've been able to Identify the user and lock string and also If I'm an OP, Can't figure out what code to use to auto-kick the user for clients not allowed that are detectable from lock string if (getUser()->isClientOp()) { string usrname = getUser()->getNick(); string usrhub = g...
- 2003-05-21 15:07
- Forum: Programmer's Help
- Topic: Preventing multiple instances
- Replies: 5
- Views: 3194
- 2003-05-21 15:06
- Forum: Programmer's Help
- Topic: Preventing multiple instances
- Replies: 5
- Views: 3194
I deleted this from code and can run multiple DC++ with new version if(dcapp.IsAnotherInstanceRunning()) { HWND hOther = NULL; EnumWindows(searchOtherInstance, (LPARAM)&hOther); if( hOther != NULL ) { // pop up ::SetForegroundWindow(hOther); if( IsIconic(hOther)) { // restore ::ShowWindow(hOther, SW...
- 2003-04-04 12:41
- Forum: Hubs and scripts
- Topic: Auto Kicker for MoGLO
- Replies: 9
- Views: 4743
- 2003-03-14 07:15
- Forum: Hubs and scripts
- Topic: 512 user limit :(
- Replies: 5
- Views: 3094
- 2003-03-11 07:16
- Forum: Hubs and scripts
- Topic: How to create HUB on a webserver?
- Replies: 10
- Views: 4973
- 2003-03-10 20:08
- Forum: Hubs and scripts
- Topic: 512 user limit :(
- Replies: 5
- Views: 3094
Try setting max lower...you gotta remember that if you set max users to 1000 the hub has to allocate that many spaces in memory even if you only have 1 user...your disconnects could be bandwith or resources or both...just play with the settings and find a good trade-off where you don't lose users...
- 2003-03-10 20:02
- Forum: Hubs and scripts
- Topic: Logging IP Addresses
- Replies: 15
- Views: 7095
guys lets not forget one thing...to read, write, and append you gotta define the constant above the Sub Main()
Code: Select all
Const ForReading = 1, ForWriting = 2, ForAppending = 8
- 2003-03-10 15:27
- Forum: Hubs and scripts
- Topic: Create a Hub..........
- Replies: 12
- Views: 7875
to answer the original question...since he apparently knows nothing about hubs...goto www.neo-modus.com and get the hub software...make sure you load the neo-modus client first...load hub and play with it...once it's loaded come back here and ask about any problems your having[/url]
- 2003-03-10 15:18
- Forum: Hubs and scripts
- Topic: Script for file shearing??? (noob question)
- Replies: 3
- Views: 2243
- 2003-03-10 15:10
- Forum: Hubs and scripts
- Topic: Help with NM public list
- Replies: 11
- Views: 5234
NM list used to communicates directly with hub...my hub registered before with-out ever having anyone come in...But now I'm not sure...I do know the reg string that used to work from an altered hub won't work now so it is very possible Jon went to a bot to block fake hubs...one other fact...if you t...
- 2003-03-10 15:01
- Forum: Hubs and scripts
- Topic: Fake Hublist ??
- Replies: 16
- Views: 7437
- 2003-03-09 13:04
- Forum: Hubs and scripts
- Topic: script to display traffic information for NMDC hubserver
- Replies: 4
- Views: 2569
- 2003-03-09 10:02
- Forum: Hubs and scripts
- Topic: Kicking with a client side bot
- Replies: 7
- Views: 3606
- 2003-03-09 03:18
- Forum: Hubs and scripts
- Topic: hub list registration
- Replies: 6
- Views: 4364
- 2003-03-09 00:20
- Forum: Hubs and scripts
- Topic: To Moderators
- Replies: 2
- Views: 1641
Hubs and Scripts topic is misleading I Think Which hub is best? Where can I find script XXX? Discuss it here...(no, this is not for advertising your hub...) The "Which hub is best?" should be changed to "Which hub software is best?" because thats what it means...After looking at the description I ca...
- 2003-03-09 00:11
- Forum: Hubs and scripts
- Topic: hub list registration
- Replies: 6
- Views: 4364
- 2003-03-09 00:06
- Forum: Hubs and scripts
- Topic: Kicking with a client side bot
- Replies: 7
- Views: 3606
- 2003-03-09 00:04
- Forum: Hubs and scripts
- Topic: Kicking with a client side bot
- Replies: 7
- Views: 3606
try this If chkVerbose.Value = vbChecked Then wskHubConnection.SendData "<" + txtUserName.Text + "> I am " + "kicking " + Usr + " " + Reason + "|" DoEvents DoEvents DoEvents DoEvents wskHubConnection.SendData "$To: " + Usr + " From: " + txtUserName.Text + " $<" + txtUserName.Text + "> You are being ...
- 2003-03-08 23:50
- Forum: Hubs and scripts
- Topic: To Moderators
- Replies: 2
- Views: 1641
To Moderators
Please Delete the topics from the LAMERS asking about specific hubs...Looks like ADVERTISING here is getting worse than in the hubs...
- 2003-03-08 23:46
- Forum: Hubs and scripts
- Topic: Best DivX hubs (etc....)
- Replies: 1
- Views: 2602
- 2003-03-08 23:15
- Forum: Hubs and scripts
- Topic: any music vdo & OST hub
- Replies: 2
- Views: 1310
- 2003-03-08 21:40
- Forum: Hubs and scripts
- Topic: Cant get onto the public hubs list....
- Replies: 2
- Views: 2307
- 2003-03-08 21:38
- Forum: Hubs and scripts
- Topic: New guy question
- Replies: 5
- Views: 3002
- 2003-03-08 21:32
- Forum: Hubs and scripts
- Topic: Prevent spamming and flooding the chat.
- Replies: 6
- Views: 3157
- 2003-03-08 20:56
- Forum: Other Direct Connect tools
- Topic: Ragnarok Build 6 !!!!
- Replies: 29
- Views: 19774
- 2003-03-08 20:38
- Forum: Hubs and scripts
- Topic: Help with NM public list
- Replies: 11
- Views: 5234
- 2003-03-08 20:34
- Forum: Hubs and scripts
- Topic: cool ps2 hub
- Replies: 6
- Views: 4016
- 2003-03-08 20:29
- Forum: Hubs and scripts
- Topic: major script problem
- Replies: 11
- Views: 5080
- 2003-03-08 20:26
- Forum: Hubs and scripts
- Topic: ironic but help with dc++ check
- Replies: 8
- Views: 4088
- 2003-03-08 20:22
- Forum: Hubs and scripts
- Topic: ironic but help with dc++ check
- Replies: 8
- Views: 4088
Dim DppMaxHubs, DppMinSlots, DppMaxSlots, sBotName Sub Main() DppMaxHubs = "5" DppMinslots = "2" dppmaxslots = "10" sBotName = "Hub-Security" End Sub Sub DataArival(curUser, sCurData) If InStr(1, LCase(sCurData), LCase("$GetINFO "+curUser.sName+" "+curUser.sName))>0 then 'EXTRACT USERS INFO iTheirIn...
- 2003-03-08 19:54
- Forum: Hubs and scripts
- Topic: Prevent spamming and flooding the chat.
- Replies: 6
- Views: 3157
- 2003-03-08 19:53
- Forum: Hubs and scripts
- Topic: Prevent spamming and flooding the chat.
- Replies: 6
- Views: 3157
- 2003-03-08 19:27
- Forum: Hubs and scripts
- Topic: Making a Hub on XP
- Replies: 5
- Views: 3180
- 2003-03-08 19:23
- Forum: Hubs and scripts
- Topic: Visual Basic
- Replies: 20
- Views: 8644
http://www.devguru.com/Technologies/vbs ... intro.html is a very good site for VBScript reference too
- 2003-03-06 04:57
- Forum: Hubs and scripts
- Topic: New guy question
- Replies: 5
- Views: 3002
- 2003-03-06 04:50
- Forum: Hubs and scripts
- Topic: Auto Kicker for MoGLO
- Replies: 9
- Views: 4743
Dim SearchBot Sub Main() SearchBot = array("Google","glo","search","Security","Mass","Message","DCuser","beta") End Sub Sub NewUserConnected(curUser) Dim sb For sb = 0 To UBound(SearchBot) If InStr(1,cstr(curUser.sName), cstr(SearchBot(sb)), VBTextCompare) > 0 Then curUser.Kick() Exit Sub End If Nex...
- 2003-03-06 00:23
- Forum: Hubs and scripts
- Topic: Where did sweden5.myftp.org go?
- Replies: 5
- Views: 3172
- 2003-03-06 00:19
- Forum: Hubs and scripts
- Topic: Visual Basic
- Replies: 20
- Views: 8644
- 2003-03-06 00:05
- Forum: Protocol Alley
- Topic: grinding my teeth on this lock to key problem
- Replies: 2
- Views: 2267
- 2003-03-06 00:03
- Forum: Protocol Alley
- Topic: key
- Replies: 6
- Views: 3623
Public Function DC1_Lock2Key(Lck$) As String Dim pos%, K$, i%, T% 'Remade optimized and works with clients pos = InStr(Lck, " ") If pos Then 'If not, assume it was pre-parsed Lck = Left(Lck, pos - 1) End If If Len(Lck) < 3 Then 'Too short! DC1_Lock2Key = "Invalid Lock < 3 chars" Exit Function End If...