Public Sub mnuConnect_Click()
On Local Error GoTo w_Error
Username = GetStuff("l2uthless Ops", "Username")
Password = LCase(GetStuff("l2uthless Ops", "Password"))
CdKey = UCase(GetStuff("l2uthless Ops", "Cd-Key"))
XPCdKey = UCase(GetStuff("l2uthless Ops", "XPCd-Key"))
Product = UCase(GetStuff("l2uthless Ops", "Client"))
Server = LCase(GetStuff("l2uthless Ops", "Server"))
Home = GetStuff("l2uthless Ops", "Home Channel")
varProxy = GetStuff("Advanced", "Proxy")
If GetStuff("Misc", "Auto Detect Loads") = "Y" Then ald = True
AddChat "Checking hash files..."
If Not CheckHashes Then Exit Sub
AddChat "All hashes found."
If Not CheckProduct Then Exit Sub
LogonUser = ""
ChanName = ""
NoTimeStamp = 1
AddChat ""
AddChat ""
NoTimeStamp = 0
If GetStuff("Advanced", "Ping Spoof") = "" Then
SendPing = True
Else
SendPing = False
End If
WS.Close
If Server = "useast.battle.net" Then Server = "63.240.202.139"
If Server = "uswest.battle.net" Then Server = "63.241.83.7"
If Server = "europe.battle.net" Then Server = "213.248.106.200"
If Server = "asia.battle.net" Then Server = "211.233.0.49"
If varProxy <> "" Then
Dim splt() As String
splt = Split(varProxy, ":")
varProxy = splt(0): varProxyPort = splt(1)
AddChat "[" & varProxy & "] Connecting..."
WS.Connect varProxy, varProxyPort
Else
AddChat "[BNET] Connecting..."
WS.Connect Server, 6112
End If
If Not InitNLS Then Init
InitNLS = True
Timer0.Interval = 60000
Timer0.Enabled = True
Exit Sub
w_Error:
AddChat "Error: " & Err.Number & " - " & Err.Description
End Sub