help vith vb!!!

[Hades]

Can someone convert this so instead of giving me:
example:
Hades form United Stated
Guru from Russia
etc....
Will give me this:
There is 20 users from USA
40 from russia etc.
..........
Code is in vb script i know this is lua section but i'm sure u uyz know vb as well




'USERS' COUNTRIES by FLiXD

Dim GeoIP, oCountry, sUserName, sReply

Sub Main()
Set GeoIP = CreateObject("GeoIPCOM.GeoIP")
GeoIP.loadDataFile ("GeoIP.dat")          '<- use full file path here if database is not in your DC Hub's folder
Set oCountry = CreateObject("Scripting.Dictionary")
 For Each User in ColUsers
  If Not oCountry.Exists(LCase(User.sName)) Then oCountry(LCase(User.sName))=Cstr(GeoIP.country_name_by_name(User.IP))
 Next
End Sub

Sub OpConnected(curUser)
Call NewUserConnected(curUser)
End Sub
Sub NewUserConnected(curUser)
sUserName = CStr(curUser.sName)
If Not oCountry.Exists(LCase(sUserName)) Then oCountry(LCase(sUserName))=Cstr(GeoIP.country_name_by_name(curUser.IP))
End Sub

Sub DataArival(curUser, sCurData)
If Instr(sCurData, "<") And Instr(LCase(sCurData), "+country ") Then curUser.PrivateMessage "Country", Cstr(AfterFirst(sCurData, "+country "))+" is from "+oCountry(LCase(Cstr(AfterFirst(sCurData, "+country "))))
If Instr(sCurData, "<") And Instr(LCase(sCurData), "+countryall") Then Call CountryAll(curUser)
End Sub

Sub CountryAll(curUser)
sReply="Users by Country:"
  For Each User In colUsers
   If oCountry.Exists(LCase(User.sName)) Then sReply=sReply+vbCrLf+"   ? "+Cstr(User.sName)+" is from "+Cstr(oCountry(LCase(User.sName)))
  Next
  curUser.SendChatMessage cstr(sBotName), Cstr(sReply)
End Sub

Function AfterFirst(sIn, sFirst)  
   AfterFirst = Right(sIn, Len(sIn) - InStr(1, sIn, sFirst) - (Len(sFirst) - 1))
End Function



.......
Thanx in advance!!

[pHaTTy]

hmm well this is lua section, and its request for scripts not help, but ill move it to offtpopic, hmm ill have a think about it, not messed with vb for a while

[plop]

Originally posted by Hades
Code is in vb script i know this is lua section but i'm sure u uyz know vb as well

i'm proud 2 say that i don't know vb. lol
but there must be some1 around able 2 help you.

plop

[pHaTTy]

well i know vb, but i dont know nmdc scripting

ie userlist etc

[Hades]

i got scared u deleted my post!!
Couldn,t find it:))
Pls help me here or may be someone knows link to alive vbscripting forum???

[Odin]

A great resource when it comes to VB script is DC++ The New Decade

Try post Ur request there...

[Hades]

this link does't give me obvious vb scripting category:((

[plop]

Originally posted by Hades
this link does't give me obvious vb scripting category:((

check there forum, it's there.

plop

[HaArD]

http://dc.ww-ei.com/index.php?act=SF&f=5

[[NL]Pur]

why not just go to the much more powerfull ptokax :)
and use the LUA geoip script  ^.^

[Hades]

Lua Geo-Ip bot???
...
I posted 3 times in script request and never had any luck with it.
Does it exist??
Give me a working link!!
......
One more question by the way.
Is hultihub search working in ptokax 15.25 somehow can't get it to work!!
And does it connect searches or only chatts?

[plop]

Originally posted by Hades
Lua Geo-Ip bot???
...
I posted 3 times in script request and never had any luck with it.
Does it exist??
Give me a working link!!
......

i only know about a c++ version of this which can be found on sourceforge.net.

plop

[[NL]Pur]

my wrong sorry

i thought it was build already, i remember such thread on old  lua forum.

But i can't find the script anywhere.