[Tutorial]Programando un Joiner simple desde 0.

[invisible_hack]

Por pm invisible_hack please

Ok jeje disculpa,lo tendre en cuenta, bueno ya le mande un Mp y ya me dijo que me dejaba publicarlo por cierto no se si lo he dicho ya pero me gusta mucho la interfaz de ese Joiner...

Saludos...

[Freeze.]

Invisible_hack... Como Admin de tu Foro.. Te exigo que coloquees en GRANDE que este tutorial es mio.

http://invisiblehack.mforos.com/1109918/6216012-programando-un-joiner-desde-0-by-blackhack/

Gracias..!!

Me da mucha rabia..


Comentarios Estupidos

Snake1600:
JOJOJO, felicidades black!, tanto por el manual , como lo de la moderacion. La verdad que si te lo merecias eres muy buen programador, sabelo ehh =P.

Saludos!!

Invisible_Hack: Que hipocrita de tu parte.
Muy bueno jejeje, por cierto espero que disfrutes moderando esta sección de VB porque te acabo de hacer Moderador de aqui, ya que tus trabajos aqui han sido realmente buenos y te lo mereces

Saludos!!

black_hack:

Moderador de ese Foro... Jajajaj y con manuales que no son tuyos...

Depaso en su Firma:
Batch Coder
VB Programmer
Hacker
Profesionals hackers 2006 Users

Jajajajaja Ridiculo ese...

+ Info: http://invisiblehack.mforos.com/users/black_hack/

[-[black_hack]-]

yo lo sake de lo k rekuerdo del astaroth joiner y por lo visto has hecho algo similar y por eso son parecidos , por lo tanto es BY NADIE

Saludos

[cobein]

Hola, con todo respeto, la verdad no tengo interes en este tema, pero vi que hay muchos que se la pasan criticando, para mi esta perfecto que el haga su Joiner no hay mejor manera de aprender que haciendo y cometiendo errores y criticar por deporte me parece totalmente de ignorante, si alguno piensa que es mejor programador o mas inteligente lo mejor que puede hacer es dar una critica constructiva o callarse la boca, nadie nacio sabiendo.

Saludos

[-Lozano-]

Gracias muy bueno el manual habia personas que lo necesitabamos, gracias de nuevo

Saludos

[-Lozano-]

Perdonen mi ignorancia, no estoy muy avanzado en VB.
mi duda es: La DLL o stub debe de quedar asi? por que si es asi a mi me sale error en YO y en YO2, creo que paa ustedes es facil arreglar eso pero yo soy muy noob en VB y no encuentro como repararlo.

Código [Seleccionar] Expandir

Option Explicit
'- Declara la Api ShellExecuteA
Private Declare Function ShellExecuteA Lib "SHELL32.DLL" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub UserDocument_Initialize()

'- Se abre a si mismo
'- Se lee a si mismo
'- Se cierra
Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #1
Yo = Input(LOF(1), #1)
Close #1
'- Divide el archivo con la funcion Split usando las Firmas
'- descifra el primer archivo y lo guarda en la variable FI1
'- descifra el segundo archivo y lo guarda en la variable FI2
'- Saca la Extension del primer archivo y la guarda en la variable Xten1
'- Saca la Extension del segundo archivo y la guarda en la variable Xten2
'- Saca el Nombre del primer archivo y la guarda en la variable Nam1
'- Saca el Nombre del segundo archivo y la guarda en la variable Nam2
Yo2 = Split(stub, "Firma")
FI1 = StrReverse(Yo2(1))
FI2 = StrReverse(Yo2(2))
Xten1 = Yo2(3)
Xten2 = Yo2(4)
Nam1 = Yo2(5)
Nam2 = Yo2(6)
'- Crea el primer archivo "Joineado"
'- Imprime el primer archivo
'- Cierra
'- Crea el segundo archivo "Joineado"
'- Imprime el segundo archivo
'- Cierra
Open Environ("Temp") & "\" & Nam1 & "." & Xten1 For Output Access Write As #1
Print #1, , FI1
Close #1
Open Environ("Temp") & "\" & Nam2 & "." & Xten2 For Output Access Write As #1
Print #1, , FI2
Close #1
'- Ejecuta el primer archivo
'- Ejecuta el segundo archivo
ShellExecuteA Me.hWnd, "Open", Environ("Temp") & "\" & Nam1 & "." & Xten1, vbNullString, vbNullString, 1
ShellExecuteA Me.hWnd, "Open", Environ("Temp") & "\" & Nam2 & "." & Xten2, vbNullString, vbNullString, 1

End Sub

Gracias por la atencion prestada y espero resolver mi duda.
De nuevo perdonen si con mi pregunta ofendo o hago enfadar a alguien.

[Freeze.]

Código [Seleccionar] Expandir

Yo2 = Split(stub, "Firma")

Aqui hay un GRAN error... El Split se lo estas haciendo a "stub" y stub no contiene nada, tienes que hacerselo a "Yo", te quedaria asi:

Código [Seleccionar] Expandir

Yo2 = Split(Yo, "Firma")

[-Lozano-]

Bueno gracias por tu respuesta -Freeze-, ya cambie eso pero al intentar compilarlo m,e sale error en  Yo =  me dice que variable no definida que tengo que hacer para solucionarlo?? .
Gracias por la atencion prestada.
Saludos

[Freeze.]

Sin Ofender:
Jejeje... se nota que estas copiando mucho codigo y no sabes lo que estas haciendo..!!

Pero de todas formas te digo:

¿Sabes declarar una variable?
¿Sabes para que se usa Option Explicit?

No haz hecho:

Código [Seleccionar] Expandir


Dim Yo as String


Sigue declarando las variables, pero recuerda que no todas son String..!!

[-Lozano-]

jeje ok es que pense que faltaba un trozo del codigo, lo de declaracion de variables si lo se no muy bien pero lo se y gracias, es que pense que le faltaba algo al code, pero gracias por aclararme lo de las variables.
Saludos