L2j Status chaker codes for Visual Basic

this is a coding forum not a " code it for me " 1.

suggestion: winsocks? google?
 
I was gona upload a complete one 4 u but there....
You set the server Ip and port on the options tab of each winsock control...
Private Sub Command1_Click()
Winsock1.Close 'close winsock so we dont get an error if clicked twice
Winsock2.Close
Winsock1.Connect 'attempt connection
Winsock2.Connect
End Sub

Private Sub Winsock1_Connect()
Shape1.BackColor = vbGreen 'server is online
Winsock1.Close 'close connection we dont need it open anymore
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
'server is offline
Shape1.BackColor = vbRed
End Sub

Private Sub Winsock2_Connect()
Shape2.BackColor = vbGreen 'server is online
Winsock2.Close 'close connection we dont need it open anymore
End Sub

Private Sub Winsock2_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
'server is offline
Shape2.BackColor = vbRed
End Sub

Private Sub Form_Load()

End Sub
 
Last edited:
It just Pings the server..... and checks if theres a server active on those ports taking connections... ^^... o man ur lost...

Ok il help you out....
You need this information....
1) Whats the Ip address of the Login Server....
How to find out:
Connect to the login server without opening anything else that uses the internet....
Now minimize after loging in.... and open a cmd prompt and type status
it will show all the ip addresses your connected to.
do the same thing for each server and record/figure out what ports there all on aswell.
2)Use Winsock COntrols and just Fill in the information tab on the left that that specific winsock control will look at...
then use the above code .... man its so simple.
 
Back