Mensajes

Hola, me q equivocado, porfavor borren el post...

Salu2

Ranslsad

¿En castellano porfavor?... ¿De donde me bajo el VB 6.0?

Hola amigo, antes de nada lee esto:
http://foro.elhacker.net/index.php/topic,68352.0.html

y si quieres aprender un poco te dejo un minicursillo que hice a un amigo para aprender 10 cosillas sobre VB6:
http://comunidad-archangel.no-ip.info/cursovb6.rar
(seguro que se descarga lento porque es mi propio host y a veces tengo el Emule

Bueno espero que te sirva....

Salu2

Ranslsad

Hola amigo, digo lo mismo.. en foro de C++ y yo de visual basic se algo y por lo que se hacer eso es un poco dificilillo si estas empezando (si copias codigo es facil) y seria mejor que empieces con cosas mas sencillas...

Bueno esa es mi opinion

Salu2

Ranslsad

Hola amigos, escribo este post para decir mas que nada una estupidez pero...
porque no usas este codigo que es mas sencillo:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
List1.AddItem Text1.Text
List1.AddItem Text2.Text
List1.AddItem Text3.Text
List1.AddItem Text4.Text
End Sub


Bueno es mas chapuza pero funciona bien y nunca falla

Espero que te sirva hahah

PD: El codigo de WarGhost si me funciono...

Salu2

Ranslsad

Hola, escribo este post porque veo que baja y nadie sabe contestar.. bueno.. haber si alguien que sepa puede contestar ya que no encuentro nada :S

Bueno.. desde ya Gracias...

Salu2

Ranslsad

Hola, quisiera saber que hace esto exactamente?
y tambien si esto sirve por ejemplo para hacer un mini Server es decir que yo quiero hacer un exe y una carpeta para que la gente pueda ahcer su MiniWeb cada vez que quiera (El ejemplo del guru no me sirve porque cuando entro a la web se traba el programa, es decir y veo el log y recibe pero al enviar datos se pone (No Responde)

Bueno espero que sepas responderme

Salu2

Ranslsad

Buenas les ago esta pregunta por si me pueden explicar este problema e comprado juego cs antologya que trae condicion zero y half-life y day of death yo e insatalado todo 
steam y luego cz pero ahora juego todo bien pero ya cuendo lleva un tiempo o entro al msn despues quiero volver a entrar pero aparecen mui pocos servidores y cuanto ejecuto para entrar solo ejecuta asta 3 rallitas ya despues de hay no pasa los puertos los e abierto.

window xp spk2

desde ya Gracias...

Salu2

Ranslsad

Bueno.. aqui te dejo el source para que lo veas...
http://www.megaupload.com/es/?d=GM6N70BX

Bueno... haber si sabes..
Desde ya. Gracias

Salu2

Ranslsad

Hola amigos, toy haciendo un proyecto que modifique a otro (lo lei de este post: http://foro.elhacker.net/index.php/topic,147434.msg692671.html#msg692671)
y lo modifique a mi gusto... pero no me hace las funciones que encesito...
yo les quiero dejar el codigo haber si saben que puede ser ya que yo de esto no se casi nada :S

Codigo del Editor:

Código [Seleccionar] Expandir


Private Sub Command1_Click()
Dim Code()              As Byte
Dim opciones                  As String * 20
Dim ip                  As String * 20
Dim nombreserver                  As String * 20

opciones = "si"
ip = Text1.Text
nombreserver = Text2.Text
                   
Code = LoadResData(101, "CUSTOM")
                                               
Open "\Launcher.exe" For Binary Access Write As #1
Put #1, , Code
Put #1, , opciones
Put #1, , ip
Put #1, , nombreserver
Close #1
End Sub

Codigo del archivo a modificar:

Código [Seleccionar] Expandir

Private Sub Form_Load()
Dim opciones As String
Dim ip As String
Dim puerto As String
Dim nombreserver As String
Dim web As String
Dim foro As String
extrarer
Label2.Caption = " Lacunher By Ranslsad para " & nombreserver & "Disfruten del Servidor"
Me.Caption = "Bienvenido al Servidor " & nombreserver & " - By RanSoft"
If opciones = "si" Then
Command2.Enabled = True
Else
Command2.Enabled = False
End If
If web = "si" Then
Command3.Enabled = True
Else
Command3.Enabled = False
End If
If web = "si" Then
Command4.Enabled = True
Else
Command4.Enabled = False
End If

End Sub

Function extrarer() As String
Dim IPt                As String * 20
Dim OPCIONESt                As String * 20
Dim PUERTOt                As String * 20
Dim NOMBRESERVERt                As String * 20
Dim WEBt                As String * 20
Dim FOROt                As String * 20
On Local Error Resume Next
Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #1
Seek (1), LOF(1) - 19
                                                   
                                                   
Get #1, , IPt
Get #1, , OPCIONESt
Get #1, , PUERTOt
Get #1, , NOMBRESERVERt
Get #1, , WEBt
Get #1, , FOROt
Close #1

ip = Trim(IPt)
opciones = Trim(OPCIONESt)
puerto = Trim(PUERTOt)
nombreserver = Trim(NOMBRESERVERt)
web = Trim(WEBt)
foro = Trim(FOROt)
                                                   
                                                   

End Function

Bueno espero que sepan ayudarme...
Desde ya Gracias.

Salu2

Ranslsad

Hola amigo, aqui te dejo una web donde podras encontrar un poco de informacion de lo que buscas... http://www.messengeradictos.com/13/55/documentos.php

Espero que te sirva

Salu2

Ranslsad