Mensajes

[Nunca he probado esto]

Creo que asi... Nunca he probado esto pero creo que si asi sería.

Código (vb) [Seleccionar] Expandir


Dim Arreglo() as variant
Arreglo = Array(Array("", Array("","","","","")), _
               Array("", Array("","","","","")), _
               Array("", Array("","","","","")))
'    //  Etc...
'    //  Solo mete los Elementos En tipo String o Long, que se yo jaja.


Con la funcion Array() puedes pasar ese texto tal cual solo ponle Array y quita lo que son los "puntos y comas" y lo referente a C/C++ (Las funciones son casi lo mismo xP) y añade los parentesis y dobles comillas... si es que lo vez necesario!¡.

P.D.: Hay mas Cheats y Cosillas malas para el MuOnline, solo por si acaso!¡.

Dulces Lunas!¡.

lee un manual

pon la DNS o IP entre comillas

Inet1.RemoteHost = javiftp.sytes.net 'incorrecto

Inet1.RemoteHost = "javiftp.sytes.net"'Correcto

mm no se yo en mi punto de vista cuando salga el siguiente SO de Windows dejo VB para migrarme a Java o a el ultimo .Net, aun que C/C++ no es mala idea. ya que por hay lei el Siguiente SO no tendra soporte pára lenguaje BAsic, pero quien sabe. toda plataforma .Net paor ahora no me gusta (Ya la he manejado)

[abres y cierras bruscamente el archivo]

jamas me referi a nada de lo que me citas, lo de la ruta la puse asi por que no deseo mover a C.\archivos\ bla bla bla hasta la carpat de mi visual se entiende?, lo demás si quieres adaptalo a tu proyecto es cosa tuya, yo solo te he puesto un ejemplo.

Lo de Append  si lo entiendo y se que hace. pero no utilizo yo esos ya que para eso uso el acceso Binario en modo aleatorio y el seek()...

tecnicamente te hice este ejemplo por que tu abres y cierras bruscamente el archivo variadas veces en el timer.

Antes que nada usa el Geshi e Indecta tu codigo, es casi imposible leerlo asi como esta.

por otro lado aquí te dejo el codigo un poco mejorado


----------------------------->

EDITO: Corregi unas variables:

Código (Vb) [Seleccionar] Expandir


Const Satisfacción = "Se ecribir en el archivo correctamente"
Const Insatisfaccion = "No se a escrito nada por que no hay nada que escribir, o hay un error en el acceso del archivop "
Dim NumeroArchivo           As Integer

Private Sub Form_Load()
Dim Cabecera                As String
Dim Ruta                    As String
Dim ContinuarLog            As Boolean ' Esta variable es solo para que entiendas la función Escribir.

   Ruta = "c:\log.txt"
   NumeroArchivo = FreeFile
   '   //  Se sobre escribe el Log Anterior a este?
   ContinuarLog = True '   //  El true significa que se seguira desde el ultimo byte,
                       '   //  Si se póne False, va ir reemplzando desde el primer byte
   Open Ruta For Binary Access Write As #Archivo
   '   //  Comprobamos el peso del log
   If LOF(NumeroArchivo) > 0 And ContinuarLog Then
       Cabecera = vbCrLf & vbCrLf
   End If
   Cabecera = Cabecera & "Inicio de Archivo Log" & vbCrLf & _
                   vbTab & "Iniciado el Dia: " & Date & vbCrLf & _
                   vbTab & "Hora de Inicio: " & Time & vbCrLf & _
                   vbCrLf & _
                   "--------Inicio del Log----->" & vbCrLf & vbCrLf
   If Escribir(NumeroArchivo, Cabecera, ContinuarLog) Then
       Debug.Print Satisfacción
   Else
       Debug.Print Insatisfaccion
   End If
End Sub
Private Sub Timer1_Timer()
   If Escribir(NumeroArchivo, Text1.Text, True) Then
       Text1.Text = ""
       Debug.Print Satisfacción
   Else
       Debug.Print Insatisfaccion
   End If
End Sub
Private Function Escribir(NumberOFileOpen As Integer, vData As String, Optional UltimoByte As Boolean = False)
On Error GoTo eError:
   If Variable = "" Then
       If UltimoByte = True Then
           Seek #NumberOFileOpen, LOF(NumberOFileOpen) + 1'    // Nos movemos al final del archivo
       End If
       Put #NumberOFileOpen, , vData
       Escribir = True
   End If
   Exit Function
eError:
   Escribir = False
End Function
Private Sub Form_Unload(Cancel As Integer)
   Close NumeroArchivo
End Sub


Dulces Lunas!¡.

Cambiale el nombre a la variable Que el + tambien sirve para concatenar

si eso decia.

+=+ & x ' + sera = asimismo y x
filecopy ruta1,ruta2 & "\" & + & "exe" ' sin comentarios

tres concatenadores?  &  y + y de nuevo &  .....

[CSocketPlus]

Para que no te compleque tanto la vida con el CSocketPlus usa el CSocketMaster y solo agregas un usercontrol con el siguiente codigo:

con esto lo manejaras como si fuese el WinSock mismo. solo que sin la dependencia del OCX.

Código (vb) [Seleccionar] Expandir


'**************************************************************************************
'This code is an example for CSocketMaster
'by Emiliano Scavuzzo
'**************************************************************************************

Option Explicit

'Don't forget to change CSocketMaster class
'instancing property to PublicNotCreatable

'These are the same events CSocketMaster has
Public Event CloseSck()
Public Event Connect()
Public Event ConnectionRequest(ByVal requestid As Long)
Public Event DataArrival(ByVal bytesTotal As Long)
Public Event 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)
Public Event SendComplete()
Public Event SendProgress(ByVal bytesSent As Long, ByVal bytesRemaining As Long)

'Our socket
Private WithEvents cmSocket As CSocketMaster

Private Sub UserControl_Initialize()
'create an instance of CSocketMaster
Set cmSocket = New CSocketMaster
End Sub

Private Sub UserControl_Terminate()
'destroy instance of CSocketMaster
Set cmSocket = Nothing
End Sub

Private Sub UserControl_Resize()
'this is used to lock control size
UserControl.Width = 420
UserControl.Height = 420
End Sub


'Control properties. Every time the control is built
'the class instance cmSocket is reset, and so the
'control properties. We use these variables to make
'control properties persistent.
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
Me.LocalPort = PropBag.ReadProperty("LocalPort", 0)
Me.Protocol = PropBag.ReadProperty("Protocol", 0)
Me.RemoteHost = PropBag.ReadProperty("RemoteHost", "")
Me.RemotePort = PropBag.ReadProperty("RemotePort", 0)
Me.Tag = PropBag.ReadProperty("Tag", "")
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
PropBag.WriteProperty "LocalPort", Me.LocalPort, 0
PropBag.WriteProperty "Protocol", Me.Protocol, 0
PropBag.WriteProperty "RemoteHost", Me.RemoteHost, ""
PropBag.WriteProperty "RemotePort", Me.RemotePort, 0
PropBag.WriteProperty "Tag", Me.Tag, ""
End Sub

'From this point we declare all the 'bridge' functions
'and properties. The idea is very simple, when user
'call a function we call cmSocket function, when
'cmSocket raises an event we raise an event, when user
'set a property we set cmSocket property, when user
'retrieves a property we retrieve cmSocket property
'and pass the result to user.
'Easy, isn't it?

Private Sub cmSocket_CloseSck()
RaiseEvent CloseSck
End Sub

Private Sub cmSocket_Connect()
RaiseEvent Connect
End Sub

Private Sub cmSocket_ConnectionRequest(ByVal requestid As Long)
RaiseEvent ConnectionRequest(requestid)
End Sub

Private Sub cmSocket_DataArrival(ByVal bytesTotal As Long)
RaiseEvent DataArrival(bytesTotal)
End Sub

Private Sub cmSocket_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)
RaiseEvent Error(Number, Description, sCode, Source, HelpFile, HelpContext, CancelDisplay)
End Sub

Private Sub cmSocket_SendComplete()
RaiseEvent SendComplete
End Sub

Private Sub cmSocket_SendProgress(ByVal bytesSent As Long, ByVal bytesRemaining As Long)
RaiseEvent SendProgress(bytesSent, bytesRemaining)
End Sub

Public Property Get RemotePort() As Long
RemotePort = cmSocket.RemotePort
End Property

Public Property Let RemotePort(ByVal lngPort As Long)
cmSocket.RemotePort = lngPort
End Property

Public Property Get RemoteHost() As String
RemoteHost = cmSocket.RemoteHost
End Property

Public Property Let RemoteHost(ByVal strHost As String)
cmSocket.RemoteHost = strHost
End Property

Public Property Get RemoteHostIP() As String
RemoteHostIP = cmSocket.RemoteHostIP
End Property

Public Property Get LocalPort() As Long
LocalPort = cmSocket.LocalPort
End Property

Public Property Let LocalPort(ByVal lngPort As Long)
cmSocket.LocalPort = lngPort
End Property

Public Property Get State() As SockState
State = cmSocket.State
End Property

Public Property Get LocalHostName() As String
LocalHostName = cmSocket.LocalHostName
End Property

Public Property Get LocalIP() As String
LocalIP = cmSocket.LocalIP
End Property

Public Property Get BytesReceived() As Long
BytesReceived = cmSocket.BytesReceived
End Property

Public Property Get SocketHandle() As Long
SocketHandle = cmSocket.SocketHandle
End Property

Public Property Get Tag() As String
Tag = cmSocket.Tag
End Property

Public Property Let Tag(ByVal strTag As String)
cmSocket.Tag = strTag
End Property

Public Property Get Protocol() As ProtocolConstants
Protocol = cmSocket.Protocol
End Property

Public Property Let Protocol(ByVal enmProtocol As ProtocolConstants)
cmSocket.Protocol = enmProtocol
End Property

Public Sub Accept(requestid As Long)
cmSocket.Accept requestid
End Sub

Public Sub Bind(Optional LocalPort As Variant, Optional LocalIP As Variant)
cmSocket.Bind LocalPort, LocalIP
End Sub

Public Sub CloseSck()
cmSocket.CloseSck
End Sub

Public Sub Connect(Optional RemoteHost As Variant, Optional RemotePort As Variant)
cmSocket.Connect RemoteHost, RemotePort
End Sub

Public Sub GetData(ByRef data As Variant, Optional varType As Variant, Optional maxLen As Variant)
cmSocket.GetData data, varType, maxLen
End Sub

Public Sub Listen()
cmSocket.Listen
End Sub

Public Sub PeekData(ByRef data As Variant, Optional varType As Variant, Optional maxLen As Variant)
cmSocket.PeekData data, varType, maxLen
End Sub

Public Sub SendData(data As Variant)
cmSocket.SendData data
End Sub

Public Property Get ComplementoID() As String
ComplementoID = Complemento_ID
End Property
Public Property Let ComplementoID(vdata As String)
Complemento_ID = vdata
End Property


Adress already in use

Lo que pasa es que no descargas las instancias del cSocketPlus, para eso usa

Código (vb) [Seleccionar] Expandir


set ObjetoPrincipalcSopcketPlus = nothing


Con esa simple linea se cierran las coneciones y escuchas (Si detienes el proceso a la mitad, entonces no se descargaran las instancia y seguira ese error aun cuando ayas puesto la linea que te puse arriba)

Dulces Lunas!¡.