This code works with all types of internet connections,nor dail up i wonder why ?!!! - On Error Resume Next
-
-
If Winsock1.State <> sckConnected Then
-
'Gets length of chat URL
-
-
meh = Len(txtsite.Text)
-
bleh = Hex(Val(meh))
-
-
If Len(bleh) = "3" Then
-
bleh = "0" & bleh
-
End If
-
-
If Len(bleh) = "4" Then
-
lft = Left(bleh, 2)
-
rgt = Right(bleh, Len(bleh) - 2)
-
-
bleh = lft & " " & rgt
-
End If
-
-
-
wlen2 = bleh
-
-
Pos = 1
-
-
-
-
-
While Pos <= Len(wlen2)
-
CurChar = Mid(wlen2, Pos, 2)
-
-
If wlen2 = "" Then
-
wlen = Chr(CLng("&H" & CurChar))
-
Else
-
wlen = wlen & Chr(CLng("&H" & CurChar))
-
End If
-
-
Pos = Pos + 3
-
Wend
-
-
-
-
-
'Does SITEID
-
-
meh = txtid.Text
-
bleh = Hex(Val(meh))
-
-
If Len(bleh) = "3" Then
-
bleh = "0" & bleh
-
End If
-
-
lft = Left(bleh, 2)
-
rgt = Right(bleh, Len(bleh) - 2)
-
-
bleh = lft & " " & rgt
-
-
-
siteid = bleh
-
resetid.Text = bleh
-
-
-
Pos = 1
-
-
-
-
-
While Pos <= Len(siteid)
-
CurChar = Mid(siteid, Pos, 2)
-
-
If siteid = "" Then
-
siteid2 = Chr(CLng("&H" & CurChar))
-
Else
-
siteid2 = siteid2 & Chr(CLng("&H" & CurChar))
-
End If
-
-
Pos = Pos + 3
-
Wend
-
-
-
-
-
'Does nickname
-
bleh = ""
-
-
meh = Len(txtnick.Text)
-
bleh = Hex(Val(meh))
-
-
If Len(bleh) = "3" Then
-
bleh = "0" & bleh
-
End If
-
-
If Len(bleh) >= "4" Then
-
lft = Left(bleh, 2)
-
rgt = Right(bleh, Len(bleh) - 2)
-
-
bleh = lft & " " & rgt
-
End If
-
-
-
nick = bleh
-
-
Pos = 1
-
-
-
-
-
While Pos <= Len(nick)
-
CurChar = Mid(nick, Pos, 2)
-
-
If nick = "" Then
-
nlen = Chr(CLng("&H" & CurChar))
-
Else
-
nlen = nlen & Chr(CLng("&H" & CurChar))
-
End If
-
-
Pos = Pos + 3
-
Wend
-
-
-
-
-
-
SckClient.RemoteHost = txtport.Text
-
SckClient.RemotePort = "8396"
-
Command1.Enabled = False
-
-
SckClient.Connect
-
Else
-
MsgBox "Already connected!", vbCritical, "Connection Tester"
-
End If
Could anyone help please !!!!!!!! :confused:
0 1412 Sign in to post your reply or Sign up for a free account.
Similar topics |
by: Harry |
last post by:
Using Oracle 8i enterprise on win 2000 (sp3)
Installed the standard configuration & whenever I make a connection it
takes about 10 secs. It's running on a P1900 with 1gb Ram so no reason
there for slowness.
Once I'm connected the queries work pretty much instantanously but to
connect using SQLPLUS, Toad, ODBC, OLEDB all take about 10 secs. I
connect using OLEDB from Visual Basic development environment & after
the 1st connection...
|
by: James |
last post by:
We've had a recurring problem where all of a sudden we get a DBMSSOCN
General Network Error on any page that connects to SQL Server. Then we have
to reboot the server and everything works fine again, for a few more hours
and then we have the same problem. Someone suggested adding ";Network
Library=DBMSSOCN" to our connection strings. I've tried to figure out
exactly what this does and why not having it would be a problem. Any ideas?...
|
by: Mark |
last post by:
I know that DB2 LUW version 8 has "connection pooling" that provides a
connection concentrator (limits the number of simultaneous connections
that can occur). But does it really provide connection reuse in the
same manner provided by DB2 Connect or Websphere (or some 3rd party
connection interfaces)?
If DB2 V8 does have connection reuse, does the built-in DB2 connection
pooling require extra jdbc coding, and is it as robust as DB2...
|
by: Eric Sabine |
last post by:
In my Finally block, I was using cn.close (where cn is an ADO.NET
connection object, SQLConnection to be exact) and then I came across the
following in some microsoft code.
If Not cn Is Nothing Then
CType(cn, IDisposable).Dispose()
End If
I have to admit, I'm not sure what happens here. Will someone explain this
line of code (the middle one, not the if statement LOL) to me please?
|
by: crbd98 |
last post by:
Hello All,
Some time ago, I implemented a data access layer that included a simple
connectin pool. At the time, I did it all by myself: I created N
connections, each connection associated with a worker thread that would
execute the db commands. The pool was fixed and all the connections
were created when the db access class was instantiated. The
connections remained opened during the whole execution. If a connection
was not available...
| |
by: fniles |
last post by:
I am using VS2003 and connecting to MS Access database.
When using a connection pooling (every time I open the OLEDBCONNECTION I use
the exact matching connection string),
1. how can I know how many connection has been used ?
2. If the maximum pool size has been reached, what happens when I call the
method Open to open the connection ? Will I get an error ? MSDN says the
request is queued, but will I get an error in the open method ?
...
|
by: sherifbk |
last post by:
Problem description
==============
- I have 4 clients and 1 server (SQL server)
- 3 clients are Monitoring console 1 client is operation console
- Monitoring console collects some data from the control unit and
store them into the Sql server
- The operation console then retrieve this data from the sql for
reporting and statistics purposes
- I am using ODBC connection
- The problem is that the operation console is not able to...
|
by: Ryan Liu |
last post by:
Hi,
I have a 100 clients/ one server application, use ugly one thread pre client
approach. And both side user sync I/O.
I frequently see the error on server side(client side code is same, but I
don't see the error):
"System.IO.IOException: Unable to read data from the transport connection:A
blocking operation was interrupted by a call to WSACancelBlockingCall"
|
by: marktang |
last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However, people are often confused as to whether an ONU can Work As a Router. In this blog post, we’ll explore What is ONU, What Is Router, ONU & Router’s main usage, and What is the difference between ONU and Router. Let’s take a closer look !
Part I. Meaning of...
|
by: Hystou |
last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can effortlessly switch the default language on Windows 10 without reinstalling. I'll walk you through it.
First, let's disable language synchronization. With a Microsoft account, language settings sync across devices. To prevent any complications,...
|
by: Oralloy |
last post by:
Hello folks,
I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>".
The problem is that using the GNU compilers, it seems that the internal comparison operator "<=>" tries to promote arguments from unsigned to signed.
This is as boiled down as I can make it.
Here is my compilation command:
g++-12 -std=c++20 -Wnarrowing bit_field.cpp
Here is the code in...
| |
by: Hystou |
last post by:
Overview:
Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows Update option using the Control Panel or Settings app; it automatically checks for updates and installs any it finds, whether you like it or not. For most users, this new feature is actually very convenient. If you want to control the update process,...
|
by: agi2029 |
last post by:
Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing, and deployment—without human intervention. Imagine an AI that can take a project description, break it down, write the code, debug it, and then launch it, all on its own....
Now, this would greatly impact the work of software developers. The idea...
|
by: isladogs |
last post by:
The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM).
In this session, we are pleased to welcome a new presenter, Adolph Dupré who will be discussing some powerful techniques for using class modules.
He will explain when you may want to use classes instead of User Defined Types (UDT). For example, to manage the data in unbound forms.
Adolph will...
|
by: 6302768590 |
last post by:
Hai team
i want code for transfer the data from one system to another through IP address by using C# our system has to for every 5mins then we have to update the data what the data is updated we have to send another system
|
by: muto222 |
last post by:
How can i add a mobile payment intergratation into php mysql website.
|
by: bsmnconsultancy |
last post by:
In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence can significantly impact your brand's success. BSMN Consultancy, a leader in Website Development in Toronto offers valuable insights into creating effective websites that not only look great but also perform exceptionally well. In this comprehensive...
| |