Si lo logro lo publicare aca, espero lo mismo de tu parte, tratando de decompilar librerias no tiene sentido, asi que ni intentes, llevo mas de una semana intentando y buscando pfff.
Suerte
Suerte
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCitarFunction PedirClipBoard ()
Dim String as string
String = Clipboard.GetText
End Function
CitarFunction file_exist(File As String)
On Error GoTo Error:
x = GetAttr(File)
file_exist = True
Exit Function
Error:
file_exist = False
End Function
CitarPrivate Declare Function EbExecuteLine Lib "vba6.dll" (ByVal StringToExec As Long, ByVal Foo1 As Long, ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long
CitarFunction FExecuteCode(stCode As String, Optional fCheckOnly As Boolean) As Boolean
FExecuteCode = EbExecuteLine(StrPtr(stCode), 0&, 0&, Abs(fCheckOnly)) = 0
End Function
CitarFunction ejecutar(sName As String, sData As String)
On Error GoTo Error:
Dim SC
Set SC = CreateObject("ScriptControl")
Dim Funcion As String
Funcion = sData
SC.language = "VBScript"
SC.addcode Funcion
Dim RESULTADO As String
RESULTADO = SC.run(sName)
Exit Function
Error:
MsgBox "Error!"
End Function