Results 1 to 4 of 4

Thread: Vb6 Dailup connection problem

  1. #1

    Thread Starter
    New Member
    Join Date
    Apr 2006
    Posts
    2

    Vb6 Dailup connection problem

    This code works with all types of internet connections,nor dail up i wonder why ?!!!


    Code:
    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 !!!!!!!!

  2. #2
    I'm about to be a PowerPoster! Hack's Avatar
    Join Date
    Aug 2001
    Location
    Searching for mendhak
    Posts
    58,335

    Re: Vb6 Dailup connection problem

    Welcome to the forums.

    What occurs when you try this with dial-up? What errors are you getting?

  3. #3

    Thread Starter
    New Member
    Join Date
    Apr 2006
    Posts
    2

    Re: Vb6 Dailup connection problem

    Well what happened it says thats i am connected and i am not and my friend whose on usa and usin cable worked for him so i wanted to make sure it doesnt work to dail ups only so i asked some of my friends whose usin dail up and he said its not lettin him connect...thx for ur reply

  4. #4
    I'm about to be a PowerPoster! Hack's Avatar
    Join Date
    Aug 2001
    Location
    Searching for mendhak
    Posts
    58,335

    Re: Vb6 Dailup connection problem

    Remove the On Error statement and run the code. I want to see what, if any, errors occur when you try to connect.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width