DC++

smitty

cool I'll try that tomorrow and let you know how it goes

smitty

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...

smitty

Guess I'll stick to Client detection in Visual Basic since there seems to be no help on this subject here.

smitty

Well then wouldn't that kinda make allowing no-minimum useless...c'mon...you just contradicted your thoughts..."I want to let them in but not download"...just DON'T let them in if you feel that way.

smitty

you might have ignore bots turned on in the new DC++

smitty

In settings under downloads tab where it says Public Hubs List URL put this address
http://dreamland.gotdns.org/PublicHubList.config

smitty

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.

smitty

I compile oDC 5.11 with no problems...get lots of warnings but that has been the case from the first DC++ I compiled with VC 6...now using VS .Net and it compiles just fine

smitty

make sure wtl and slt are first in your includes

smitty

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...

smitty

It's in main.cpp

smitty

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...

smitty

not in newuserconnected it won't...stops them before they get a search off...try it you'll see

smitty

actually PtokaX hub will hold a higher max users...and there is quite a few scripts out there for it now

smitty

only way is if you are using your computer as the web server which they probably are and that in effect makes it just another hub...

smitty

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...

smitty

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

smitty

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]

smitty

we talk here all day figuring out how to keep fakers and tag hiders out and you have the gonads to ask a question like that...this thread and the thread asking about making a fake hub should be deleted...or actually leave them so n00bies know how we or at least I feel about them..

smitty

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...

smitty

Don't post faker or cheater questions her you low life piece of shit...

smitty

Gadget do you have a text file together with all the hub controls and their functions spelled out...if so can you put it on your site...if not is there a possibility you could put one together and share it...might help the scripting community tremendously...thanks m8 for all you've done

smitty

also you might want to add
If curUser.bAssHole then
wskHubConnection.SendData "<" + txtUserName.Text + "> !ban " + curUser.IP + "|"
End If
hehehehe

smitty

try the one I told you then have script read it back to main chat, It all fits, In fact lots more will fit, Physical view of text box is not how big it is, you just can't scroll thru it because its dis-abled

smitty

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...

smitty

I think but not positive you can put this in your Sub Main()

frmHub.txtRegAddress.Text ="dreamland.gotdns.org:2501"

smitty

the DoEvents are required otherwise the useris kicked too quickly without recieving the PM

smitty

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 ...

smitty

Please Delete the topics from the LAMERS asking about specific hubs...Looks like ADVERTISING here is getting worse than in the hubs...

smitty

AS STATED IN OTHER THREADS...THIS ISN'T AN ADVERTISING FORUM...QUIT BEING LAZY OR A LAME ADVERTISING EXCUSE AND LOOK AT YOUR PUBLIC LIST...I THINK THAT'S WHAT IT WAS DESIGNED FOR...

smitty

why even ask about specific hubs when the rules plainly state...NO ADVERTISING...If thats the case...Has anyone went to XXXX.no-ip.com or XXXX.no-ip.org.....hehehe...c'mon guys...board says no ads...respect the board

smitty

also make sure tcp and udp ports 2501 are open in your firewall for the hub

smitty

my post was for a private message to only the user in main chat for say "RULES" maybe...I hate pop-ups...and everyone doesn't use DC++...

smitty

I donno if this would work but it just might if it responds fast enough

If left(sCurData,1)="<" and curUser.bOperator Then
frmHub.txtMaxChatCPS.Text = "5000"
Else
frmHub.txtMaxChatCPS.Text = "500"
End If

smitty

Sid DC++ doesn't report hubs your an OP in so if I'm only in one hub and an OP there it shows H:0

smitty

open tcp and udp ports 2501 in your firewall

smitty

Sorry martin...Forum rules states no advertising and I totally agree with that...

smitty

to compensate for oDC use AfterLast instead of AfterFirst

smitty

take the and ms out of this

If Int(dpphubs) > Int(DppMaxHubs) And ms = 0 Then

change like this

If Int(dpphubs) > Int(DppMaxHubs) Then

sorry for the mistake...converted it from a VB6 bot I'm writing and the ms is OPorNOT Function

smitty

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...

smitty

ok so I don't know how to use the Quote Function...hehehe

smitty

[

The user objects have a few "undocumented" methods... What you're looking for is one of them :

iChatCharactersInLastMinute[/quote]

lemme see an example that will block chat going to main with an unmodified hub...

smitty

should install and run fine BUT you have to install the Neo-Modus client FIRST...guess Jon Hess didn't want a hub loaded w/o having the client for it...still don't know why the previous and present hubs don't have a fully functional CLIENT built in...

smitty

http://www.devguru.com/Technologies/vbs ... intro.html is a very good site for VBScript reference too

smitty

use this and only the user entering sees it in main chat

Sub NewUserConnected(curUser)
curUser.SendChatMessage "Welcome", "Hello " + curUser.sName + "."
End Sub

smitty

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...

smitty

THIS TOPIC SHOULD BE REMOVED FROM THE BOARD...IT IS A VERY LAME WAY TO ADVERTISE WHEN YOUR NOT SUPPOSED TO ADVERTISE HUBS HERE...

smitty

http://www.a1vbcode.com/

smitty

read the "key" post

smitty

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...

DC++

Search found 52 matches

How to auto-kick in UserConnection.cpp

To Moderators