Hola, al tratar de modear el run pe en visual basic me manda este error al guardar el exe
Error de compilacion :
Procedimiento Sub o Function no definido
Hex2Str
y no me deja generarlo por que pasa esto??
Saludos
Te falta la siguiente función:
Código: Seleccionar todo
Public Function Hex2Str(ByVal hexStr As String) As String
Dim ret$, hex As String * 2, c%, k%, slen As Integer
slen = Len(hexStr)
If slen Mod 2 = 1 Then _
Err.Raise 13, , "Invalid hex string (string is composed by an odd number of digits)" ' Type mismatch
For k = 1 To slen Step 2
hex = Mid$(hexStr, k, 2)
If Not IsNumeric("&h" & hex) Then Err.Raise 13, , "Invalid hex string" ' Type mismatch
c = Val("&h" & hex)
ret = ret & Chr$(c)
Next k
Hex2Str = ret
End Function
Compañeros moderadores , con todo respeto manden esto a "Desarrollo y dudas de programación Vb/net."
Ignaro mayor de BsAS escribió:Compañeros moderadores , con todo respeto manden esto a "Desarrollo y dudas de programación Vb/net."
Sorry que como lei "Plantea tus dudas sobre malware a los compañeros del foro."
crei que aqui se posteaba
Blau escribió:Te falta la siguiente función:
Código: Seleccionar todo
Public Function Hex2Str(ByVal hexStr As String) As String Dim ret$, hex As String * 2, c%, k%, slen As Integer slen = Len(hexStr) If slen Mod 2 = 1 Then _ Err.Raise 13, , "Invalid hex string (string is composed by an odd number of digits)" ' Type mismatch For k = 1 To slen Step 2 hex = Mid$(hexStr, k, 2) If Not IsNumeric("&h" & hex) Then Err.Raise 13, , "Invalid hex string" ' Type mismatch c = Val("&h" & hex) ret = ret & Chr$(c) Next k Hex2Str = ret End Function
Donde lo pongo?? en el final del modulo del run pe?? saludos
Tranquilo, compañero. El foro por alguna razón está dividido en distintas secciones para su mejor orden y más rápida visualización de los temas.
Ese código lo podés meter en el módulo Sub Main. Fijate que dice "public". "Public Function Hex2Str.."
Pero insisto, si vos no te ofendés, esto debería moverse para que el tema no se pieda. Porque esta sección es muy concurrida, en 1 día ya este tema desaparece por la demanda de preguntas. En cambio en "Desarrollo y dudas de progración/ Vb/net" permanece más tiempo.
Ese código lo podés meter en el módulo Sub Main. Fijate que dice "public". "Public Function Hex2Str.."
Pero insisto, si vos no te ofendés, esto debería moverse para que el tema no se pieda. Porque esta sección es muy concurrida, en 1 día ya este tema desaparece por la demanda de preguntas. En cambio en "Desarrollo y dudas de progración/ Vb/net" permanece más tiempo.