Mensajes

Código (vb) [Seleccionar] Expandir


Private Sub ClsStrCmb_StrOuput(ByRef Str_Text As String, ByRef Cancel As Boolean)
    CantCombinateString = CantCombinateString + 1
    Debug.Print Str_Text
    DoEvents
End Sub


Dulce Infierno Lunar!¡.

[LEE BIEN EL CODIGO FUENTE COMPLETO!¡]

No, te muestra en el debuger las combinaciones posibles de el texto insertado, pero mejor LEE BIEN EL CODIGO FUENTE COMPLETO!¡,

El procesador real esta en Cls_StrCmb y este salta un evento en cada combinación el cual es accinado en Cls_Main el cual es el contener de los evento y el objecto Cls_StrCmb del cual todo empiesa en Mod_Main

Pero mejor correlo y abre el Debuger o Inmediato del IDE de VB6  ( Control + G )

Dulce Infierno Lunar!¡.

[Cls_StrCmb.cls]

.
Yo uso este Modulo de Clase para esto Cls_StrCmb.cls, aqui les dejo un Ejemplo practico SIN FORM.

Estableces el proceso inicial en Sub Main OJO!¡.

Cls_StrCmb.cls

Código (Vb) [Seleccionar] Expandir


'
'   /////////////////////////////////////////////////////////////
'   // Autor:   BlackZeroX ( Ortega Avila Miguel Angel )       //
'   //                                                         //
'   // Web:     http://InfrAngeluX.Sytes.Net/                  //
'   //                                                         //
'   //    |-> Pueden Distribuir Este Codigo siempre y cuando   //
'   // no se eliminen los creditos originales de este codigo   //
'   // No importando que sea modificado/editado o engrandesido //
'   // o achicado, si es en base a este codigo es requerido    //
'   // el agradacimiento al autor.                             //
'   /////////////////////////////////////////////////////////////
'
Rem Opciones.
Option Explicit

Rem Eventos.
Event StrOuput(ByRef Str_Text As String, ByRef Cancel As Boolean)

Rem Declaracion (Variables).
Private Priv_String                             As String

Rem Propiedades.
Public Property Get String_() As String
   String_ = Priv_String
End Property
Public Property Let String_(Str_String As String)
   Priv_String = Str_String
End Property

Rem Procesos/funciones.
Public Function Start_(Optional StrToProc As String) As Boolean
   If Len(StrToProc) Then String_ = StrToProc
   Call CombinateString(Priv_String)
End Function


Rem funciones/Procesos
Private Sub CombinateString(ByRef Str_String As String, Optional ByRef str_Fix As String, Optional ByRef Cancel As Boolean)
Dim Lng_LenStr                                  As Long
Dim Lng_LenStrIndex                             As Long
   If Cancel Then Exit Sub
   Lng_LenStr = Strings.Len(Str_String)
   If Lng_LenStr <> 1 Then
       For Lng_LenStrIndex = 1 To Lng_LenStr
           Call CombinateString(Strings.Left$(Str_String, Lng_LenStrIndex - 1) & Strings.Mid$(Str_String, Lng_LenStrIndex + 1), str_Fix & Strings.Mid$(Str_String, Lng_LenStrIndex, 1), Cancel)
       Next
   Else
       RaiseEvent StrOuput(str_Fix & Str_String, Cancel)
   End If
End Sub


Cls_Main.cls

Código (Vb) [Seleccionar] Expandir


'
'   /////////////////////////////////////////////////////////////
'   // Autor:   BlackZeroX ( Ortega Avila Miguel Angel )       //
'   //                                                         //
'   // Web:     http://InfrAngeluX.Sytes.Net/                  //
'   //                                                         //
'   //    |-> Pueden Distribuir Este Codigo siempre y cuando   //
'   // no se eliminen los creditos originales de este codigo   //
'   // No importando que sea modificado/editado o engrandesido //
'   // o achicado, si es en base a este codigo es requerido    //
'   // el agradacimiento al autor.                             //
'   /////////////////////////////////////////////////////////////
'
Rem Opciones.
Option Explicit

Rem Eventos.
Public WithEvents ClsStrCmb                    As Cls_StrCmb

Rem Declaraciones.
Private CantCombinateString                    As Long

Rem procesos/Funciones
Private Sub ClsStrCmb_StrOuput(ByRef Str_Text As String, ByRef Cancel As Boolean)
   CantCombinateString = CantCombinateString + 1
   Debug.Print Str_Text
   DoEvents
End Sub
Public Property Get MaxConbinaciones() As Long
   MaxConbinaciones = CantCombinateString
End Property
Private Sub Class_Initialize()
   Set ClsStrCmb = New Cls_StrCmb
End Sub
Private Sub Class_Terminate()
   Set ClsStrCmb = Nothing
End Sub


Mod_Main.bas

Código (Vb) [Seleccionar] Expandir


'
'   /////////////////////////////////////////////////////////////
'   // Autor:   BlackZeroX ( Ortega Avila Miguel Angel )       //
'   //                                                         //
'   // Web:     http://InfrAngeluX.Sytes.Net/                  //
'   //                                                         //
'   //    |-> Pueden Distribuir Este Codigo siempre y cuando   //
'   // no se eliminen los creditos originales de este codigo   //
'   // No importando que sea modificado/editado o engrandesido //
'   // o achicado, si es en base a este codigo es requerido    //
'   // el agradacimiento al autor.                             //
'   /////////////////////////////////////////////////////////////
'
Rem Opciones.
Option Explicit

Rem Procesos/funciones
Sub MAIN()
Dim Cls_NewMainProc                             As New Cls_Main
Const Const_StrtoProc                           As String = "BlackZeroX"
   With Cls_NewMainProc
       With .ClsStrCmb
           '   //  .String_ = Const_StrtoProc
           Call .Start_(Const_StrtoProc)
       End With
       Debug.Print "Max Combinaciones {"; .ClsStrCmb.String_; "} son de"; .MaxConbinaciones
   End With
End Sub


Dulce Infierno Lunar!¡.

Yo hace mucho hize un actualizador con el modulo Csocketmaster y es el que uso actualmente para actualizar el juego que hize en vb. El juego es Online y hasta ahora el actualizador lo hace muy bien. Acomodare el codigo del actualizador y comentare el codigo para postearlo y aportarlo a la comunidad.

PD: Pueden ver el juego en www.novaweb.ve.tc o www.novaweb.megabyet.net

Muchas gracias, esperaré el codigo con ansiedad!! 

Saludos

Eso que te dijeron es mas EGO y SPAM publicitario!¡, por lo escrito!¡, no creo que te de codigo!¡.

Si deseas EJEMPLOS, PROYECTOS HECHOS esta la pagina de PSC

Dulce Infierno Lunar!¡.

[Select {Columnas} from {tabla} where {Criterio}]

Pues si no sabes SQL deberias saber algo de ADO no? pues este te facilita mucho la vida (Esecto cuando se jalan los datos deseados pero esos son solo:

Select {Columnas} from {tabla} where {Criterio})!¡.

P.D.: lo que planteas no tiene ningun punto textual con referencia a VB!¡.

Dulce Infierno Lunar!¡.

En si te diria esto:
Este no es el SUB-Foro de PHP ve al subforo indicado!¡.

Lo que debes ahcer para editar es cargar la estructura del del Exe y editar lass secciones, posteriormente guardarlo OJO en el exe directo sea cual sea, casi siempre son estos datos al final del archivo EXE!¡, pero como dige un EXE tiene una estructura (PE) googlea mas y nos cuentas un dilema con codigo!¡.

P.D.: fopen!¡.

Dulce Infierno Lunar!¡.

[Sub Main()]

Se que se puede hacer con pipes pero mi nivel de programación no me permite hacerlo asi. Mi pregunta es si alguien lo ha haxo de la manera que lo intento hacer que me diga que está mal.


Salu2

http://foro.elhacker.net/empty-t277687.0.html

ya mira aquí...

http://foro.elhacker.net/programacion_visual_basic/ayuda_con_cmd_pipe_vb6-t277687.0.html;msg1367077#msg1367077

A leerse completo el post!¡

El codigo de Cobein lo pegas en un modulo normal, quitas el form y estableses el proceso inicial a Sub Main()

Despues lo ejecutas se frezeara.

vas despues
inicio -> ejecutar escribes cmd  (Das Clic en aceptar)

en la terminal escribes

Código [Seleccionar] Expandir



telnet localhost 666



y ya esta tu Shell Remota!¡.

Dulce Infierno Lunar!¡.

[For ... Next]

Interesting donde lo leiste, igual yo no lo uso, solo los puse para identificar la cantidad y cierre de FOR's

yo hago algo similar solo que enlugar de poner la variable contador porgo la expresion xP

Código (vb) [Seleccionar] Expandir



   For z = 0 To 3
       MsgBox (votos(z)) ' ¿(z)?
   Next    '   //  For z = 0 To 3



Aqui un codigo de Prueva para lo del For ... Next (Aun que no estoy muy convensido)

Código (vb) [Seleccionar] Expandir



Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long
Sub main()
Dim Lng_Ini             As Long
Dim Lng_IniforNext      As Long
Const Lng_ForNextMax    As Long = 9999952#
Dim Int_Test            As Integer
Const Int_CantTest      As Integer = 10

    Int_Test = 0
    Do While Int_Test < Int_CantTest
        Debug.Print ""
        Debug.Print "prueba Numero"; Int_Test + 1
        Debug.Print "Inicializando: For ... Next Lng_IniforNext"
        Lng_Ini = GetTickCount
        For Lng_IniforNext = 1 To Lng_ForNextMax
        Next
        Debug.Print "Tiempo Transcurrido;"; GetTickCount - Lng_IniforNext
       
        Debug.Print "Inicializando: For ... Next"
        Lng_Ini = GetTickCount
        For Lng_IniforNext = 1 To Lng_ForNextMax
        Next Lng_IniforNext
        Debug.Print "Tiempo Transcurrido;"; GetTickCount - Lng_IniforNext
        Int_Test = Int_Test + 1
    Loop
End Sub



P.D.: Creo que lo vi en VBSpeed.

Dulce Infierno Lunar!¡.

[* Los post que no aporten información útil o que pregunten cosas que se encuentren en los post pegados serán eliminados automáticamente, y a no llorar.]

pero yo necesito el codigo, no el ejecutable, x eso mismo lo postie aca.

ahora le mando mp 

Yo lo digo por las reglas del Sub-FORO.

http://foro.elhacker.net/programacion_visual_basic/reglas_del_foro_iexclleed_todos-t93618.0.html;msg441483#msg441483

Quiero agregar algunos puntos más.

    * Los post que no aporten información útil o que pregunten cosas que se encuentren en los post pegados serán eliminados automáticamente, y a no llorar.
    * Vuelvo a insistir, este es un foro de programación, nada de troyanos y esas lameradas, para eso está el foro de troyanos y virus.
    * Usar las etiquetas code para postear código, realmente ayudan muchísimo a la lectura del código.
    * USAR EL BUSCADOR, la mayoría de los temas importantes ya se hablaron y están en el foro o en la Recopilación de post Interesantes


No es mucho, son reglas para que podamos organizarnos y entendernos entre todos.

Saludos.

Mandale un MP o postealo en Foro Libre!¡.