Problema de Canjeo

Estado
Cerrado para nuevas respuestas.

OzerLord

Newbie Lvl 1
Miren estoy implementando un sistema de Canjes que saque de este foro...

Siempre que implemento el sistema me termina tirando el mismo error

Private Sub Command2_Click()

'frmMain.Inet1.url = "http://www.empiresao.com.ar/server/eao.ip"
RawServersList = frmMain.Inet1.OpenURL


If RawServersList = "" Then
'Mithrandir - Tu IP abajo :$
frmConnect.IPTxt.Text = "127.0.0.1"
frmConnect.PortTxt.Text = "7666"
Else
ServersRecibidos = True
End If

Call InitServersList(RawServersList)
Call CargarLst

End Sub


Ven me marca el INET1

Yo prove usando estos codigos

ft16573_sistema_de_canjes_por_puntos.html

ft17890_canjes_completos50.html

Use los dos y alfinal siempre el mismo error
 

OzerLord

Newbie Lvl 1
Todo el codigo del frmconnect=?

Option Explicit

Public Sub CargarLst()

Dim I As Integer

lst_servers.Clear

If ServersRecibidos Then
' Call WriteVar(App.Path & "\init\sinfo.dat", "INIT", "Cant", UBound(ServersLst))
'For I = 1 To UBound(ServersLst)
' Call WriteVar(App.Path & "\init\sinfo.dat", "S" & I, "Desc", ServersLst(I).desc)
' Call WriteVar(App.Path & "\init\sinfo.dat", "S" & I, "IP", ServersLst(I).Ip)
' Call WriteVar(App.Path & "\init\sinfo.dat", "S" & I, "PJ", Str(ServersLst(I).Puerto))
' Call WriteVar(App.Path & "\init\sinfo.dat", "S" & I, "P2", Str(ServersLst(I).PassRecPort))
' lst_servers.AddItem ServersLst(I).Ip & ":" & ServersLst(I).Puerto & " - Desc:" & ServersLst(I).desc
' Next I
End If

End Sub

Private Sub Command2_Click()

'frmMain.Inet1.url = "http://www.empiresao.com.ar/server/eao.ip"
RawServersList = frmMain.Inet1.OpenURL


If RawServersList = "" Then
'Mithrandir - Tu IP abajo :$
frmConnect.IPTxt.Text = "127.0.0.1"
frmConnect.PortTxt.Text = "7666"
Else
ServersRecibidos = True
End If

Call InitServersList(RawServersList)
Call CargarLst

End Sub


Private Sub FONDO_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Image1(1).Tag = "1" Then
Image1(1).Tag = "0"
Image1(1).Picture = LoadPicture(App.Path & "\Graficos\cmdConectar.bmp")
End If
If Image1(3).Tag = "1" Then
Image1(3).Tag = "0"
Image1(3).Picture = LoadPicture(App.Path & "\Graficos\cmdCrear.bmp")
End If
If Image1(4).Tag = "1" Then
Image1(4).Tag = "0"
Image1(4).Picture = LoadPicture(App.Path & "\Graficos\cmdVerificar.bmp")
End If
If Image1(5).Tag = "1" Then
Image1(5).Tag = "0"
Image1(5).Picture = LoadPicture(App.Path & "\Graficos\cmdRecuperar.bmp")
End If
End Sub

Private Sub Form_Activate()
'On Error Resume Next

If ServersRecibidos Then
If CurServer <> 0 Then
IPTxt = ServerEAO
PortTxt = PuertoEAO
Else
IPTxt = IPdelServidor
PortTxt = PuertoDelServidor
End If

Call CargarLst
Else
lst_servers.Clear
End If

End Sub


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 27 Then
frmCargando.Show
frmCargando.Refresh
AddtoRichTextBox frmCargando.status, "Cerrando Argentum Online.", 0, 128, 128, 1, 0, 1

Call SaveGameini
frmConnect.MousePointer = 99
frmMain.MousePointer = 99
prgRun = False

AddtoRichTextBox frmCargando.status, "Liberando recursos...", 0, 128, 128, 1, 0, 1
frmCargando.Refresh
LiberarObjetosDX
AddtoRichTextBox frmCargando.status, "Hecho", 0, 128, 128, 1, 0, 1
AddtoRichTextBox frmCargando.status, "¡¡Gracias por jugar Argentum Online!!", 0, 128, 128, 1, 0, 1
frmCargando.Refresh
Call UnloadAllForms
End If

Select Case KeyCode
Case vbKeyReturn:
#If UsarWrench = 1 Then
If frmMain.Socket1.Connected Then frmMain.Socket1.Disconnect
#Else
If frmMain.Winsock1.State <> sckClosed Then _
frmMain.Winsock1.Close
#End If
' If frmConnect.MousePointer = 99 Then
' Exit Sub
' End If


'update user info
Username = UserBox.Text
Dim aux As String
aux = PassBox.Text
#If SeguridadAlkon Then
UserPassword = md5.GetMD5String(aux)
Call md5.MD5Reset
#Else
UserPassword = aux
#End If
If CheckUserData(False) = True Then
'SendNewChar = False
'EstadoLogin = Normal
EstadoLogin = loginaccount
Me.MousePointer = 99
#If UsarWrench = 1 Then
frmMain.Socket1.HostAddress = CurServerIp
frmMain.Socket1.RemotePort = CurServerPort
frmMain.Socket1.Connect
#Else
'If frmMain.Winsock1.State <> sckClosed Then _
' frmMain.Winsock1.Close
frmMain.Winsock1.Connect CurServerIp, CurServerPort
#End If
End If
End Select
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

'Make Server IP and Port box visible
'If KeyCode = vbKeyI And Shift = vbCtrlMask Then

'Port
' PortTxt.Visible = True
'Label4.Visible = True

'Server IP
' PortTxt.Text = "7666"
' IPTxt.Text = "192.168.0.2"
' IPTxt.Visible = True
'Label5.Visible = True

' KeyCode = 0
' Exit Sub
'End If



End Sub

Private Sub Form_Load()
'[CODE 002]:MatuX
EngineRun = False
'[END]

Dim J
For Each J In Image1()
J.Tag = "0"
Next
PortTxt.Text = Config_Inicio.Puerto

IntervaloPaso = INTERVALOWALK

FONDO.Picture = LoadPicture(App.Path & "\Graficos\Login.bmp")

Image1(1).Picture = LoadPicture(App.Path & "\Graficos\cmdConectar.bmp")
Image1(3).Picture = LoadPicture(App.Path & "\Graficos\cmdCrear.bmp")
Image1(4).Picture = LoadPicture(App.Path & "\Graficos\cmdVerificar.bmp")
Image1(5).Picture = LoadPicture(App.Path & "\Graficos\cmdRecuperar.bmp")

'
Código:
:MatuX
 '
 '  El código para mostrar la versión se genera acá para
 ' evitar que por X razones luego desaparezca, como suele
 ' pasar a veces :)
    version.Caption = "v" & App.Major & "." & App.Minor & " Build: " & App.Revision
 '[END]'

'Call setWindowTransparent(rchTxtNews.hWnd)

End Sub



Private Sub Image1_Click(index As Integer)

If ServersRecibidos Then
    If Not IsIp(IPTxt) And CurServer <> 0 Then
        If MsgBox("Atencion, está intentando conectarse a un servidor no oficial, NoLand Studios no se hace responsable de los posibles problemas que estos servidores presenten. ¿Desea continuar?", vbYesNo) = vbNo Then
            If CurServer <> 0 Then
                IPTxt = ServersLst(CurServer).IP
                PortTxt = ServersLst(CurServer).Puerto
            Else
                IPTxt = IPdelServidor
                PortTxt = PuertoDelServidor
            End If
            Exit Sub
        End If
    End If
End If
CurServer = 0
IPdelServidor = IPTxt
PuertoDelServidor = PortTxt


Call Audio.PlayWave(SND_CLICK)

Select Case index
    Case 0
        
        If Musica Then
            Call Audio.PlayMIDI("7.mid")
        End If
        
        
        
        'frmCrearPersonaje.Show vbModal
        EstadoLogin = Dados
#If UsarWrench = 1 Then
        If frmMain.Socket1.Connected Then
            frmMain.Socket1.Disconnect
            frmMain.Socket1.Cleanup
        End If
        frmMain.Socket1.HostName = CurServerIp
        frmMain.Socket1.RemotePort = CurServerPort
        frmMain.Socket1.Connect
#Else
        If frmMain.Winsock1.State <> sckClosed Then
            frmMain.Winsock1.Close
        End If
        frmMain.Winsock1.Connect CurServerIp, CurServerPort
#End If
        Me.MousePointer = 99

        
    Case 1
    
  #If UsarWrench = 1 Then
        If frmMain.Socket1.Connected Then frmMain.Socket1.Disconnect
#Else
        If frmMain.Winsock1.State <> sckClosed Then _
            frmMain.Winsock1.Close
#End If
      '  If frmConnect.MousePointer = 99 Then
      '      Exit Sub
     '   End If
        
        
        'update user info
        Username = UserBox.Text
        Dim aux As String
        aux = PassBox.Text
#If SeguridadAlkon Then
        UserPassword = md5.GetMD5String(aux)
        Call md5.MD5Reset
#Else
        UserPassword = aux
#End If
        If CheckUserData(False) = True Then
            'SendNewChar = False
            'EstadoLogin = Normal
            EstadoLogin = loginaccount
            Me.MousePointer = 99
#If UsarWrench = 1 Then
            frmMain.Socket1.HostAddress = CurServerIp
            frmMain.Socket1.RemotePort = CurServerPort
            frmMain.Socket1.Connect
#Else
            'If frmMain.Winsock1.State <> sckClosed Then _
               ' frmMain.Winsock1.Close
            frmMain.Winsock1.Connect CurServerIp, CurServerPort
#End If
        End If
        
        
    Case 2
        On Error GoTo errH
        Call Shell(App.Path & "\RECUPERAR.EXE", vbNormalFocus)
        
    Case 3
        
        EstadoLogin = CrearAccount
        
        If frmMain.Winsock1.State <> sckClosed Then
            frmMain.Winsock1.Close
        End If
        
        frmMain.Winsock1.Connect CurServerIp, CurServerPort
        
        Me.MousePointer = 99
        
    Case 4
    
        EstadoLogin = verificaraccount
        
        If frmMain.Winsock1.State <> sckClosed Then
            frmMain.Winsock1.Close
        End If
    
        frmMain.Winsock1.Connect CurServerIp, CurServerPort
        
        Me.MousePointer = 99
        
    Case 5
        
        MsgBox "Opción inhabilitada temporalmente.", vbCritical
        
        
        'EstadoLogin = RecuperarAccount
        
        'If frmMain.Winsock1.State <> sckClosed Then
            'frmMain.Winsock1.Close
        'End If
    
       'frmMain.Winsock1.Connect CurServerIp, CurServerPort
        
        'Me.MousePointer = 99

End Select
Exit Sub

errH:
    Call MsgBox("No se encuentra el programa recuperar.exe", vbCritical, "Argentum Online")
End Sub

Private Sub Image1_MouseMove(index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
Select Case index
    Case 1
        If Image1(index).Tag = "0" Then
            Call Audio.PlayWave(SND_OVER)
            Image1(index).Tag = "1"
            Image1(index).Picture = LoadPicture(App.Path & "\Graficos\cmdConectara.bmp")
        End If
    Case 3
        If Image1(index).Tag = "0" Then
            Call Audio.PlayWave(SND_OVER)
            Image1(index).Tag = "1"
            Image1(index).Picture = LoadPicture(App.Path & "\Graficos\cmdCreara.bmp")
        End If
    Case 4
        If Image1(index).Tag = "0" Then
            Call Audio.PlayWave(SND_OVER)
            Image1(index).Tag = "1"
            Image1(index).Picture = LoadPicture(App.Path & "\Graficos\cmdVerificara.bmp")
        End If
    Case 5
        If Image1(index).Tag = "0" Then
            Call Audio.PlayWave(SND_OVER)
            Image1(index).Tag = "1"
            Image1(index).Picture = LoadPicture(App.Path & "\Graficos\cmdRecuperara.bmp")
        End If
End Select
End Sub

Private Sub imgGetPass_Click()
On Error GoTo errH

    Call Audio.PlayWave(SND_CLICK)
    Call Shell(App.Path & "\RECUPERAR.EXE", vbNormalFocus)
    'Call frmRecuperar.Show(vbModal, frmConnect)
    Exit Sub
errH:
    Call MsgBox("No se encuentra el programa recuperar.exe", vbCritical, "Argentum Online")
End Sub

Private Sub imgServArgentina_Click()
    Call Audio.PlayWave(SND_CLICK)
    IPTxt.Text = IPdelServidor
    PortTxt.Text = PuertoDelServidor
End Sub

Private Sub imgServEspana_Click()
    Call Audio.PlayWave(SND_CLICK)
    'Mithrandir
    IPTxt.Text = "127.0.0.1"
    PortTxt.Text = "7666"
End Sub



Private Sub lblStatus_Click()

Call ConnectMod

End Sub

Private Sub lst_servers_Click()
If ServersRecibidos Then
    CurServer = lst_servers.listIndex + 1
    IPTxt = ServersLst(CurServer).IP
    PortTxt = ServersLst(CurServer).Puerto
End If

End Sub
 
Estado
Cerrado para nuevas respuestas.
Arriba