bienvenido jejeje
y suerte con la U
saludos!
y suerte con la U
saludos!

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úYou are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login
Yo pienso que tu nick tiene menos onda que el chavo del ocho jaja
Quien se cree este anónimo?
Saludos,, Cronos.-

JAJA para la otra voy con mas :D ve, no me olvides Eberle, no me olvides.He aquí tu respuesta, cariño
You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login
ya lo lei , ¿ vos cuanto cobrarias la hora ?
Option Explicit
'//////////// Lenguage System /////////////
'/ Programado por Alexander E. Harkonnen /
'/ www.infiernohacker.com /
'/ 2011 EET2 MDQ Argentina /
'//////////////////////////////////////////
'/
'/ cargue el archivo de idioma con lengload ejemplo spanish.lng o english.lng
'/ use la funcion lleng variable para devolver la variable de idioma
'/ ejemplo de archivo spanish.lng
'/ $arc=archivo
'/ ejemplo de archivo english.lng
'/ $arc=file
'/ ejemplo de uso de la variable arc con idioma spanish
'/ LengLoad "spanish.lng"
'/ menuarchivo.caption = Lleng ("arc")
'/ eso pondria el menu archivo en caption "archivo"
'/ y para cambiarlo:
'/ LengLoad "english.lng"
'/ menuarchivo.caption = Lleng ("arc")
'/ eso lo pondría en "file"
Dim tpoint() As String
Public Function LengLoad(ByVal dir As String)
Dim txt As String
Erase tpoint
Open dir For Input As #1
txt = Input(LOF(1), #1)
Close #1
tpoint = Split(txt, vbCrLf, , vbTextCompare)
End Function
Public Function Lleng(ByVal reference As String)
Dim lineleng As Integer
Dim igual As Integer
ReDim Preserve tpoint(UBound(tpoint))
For lineleng = 0 To UBound(tpoint)
igual = InStr(1, tpoint(lineleng), "=", vbTextCompare)
If Mid(tpoint(lineleng), 2, igual - 2) = reference Then
Lleng = Mid(tpoint(lineleng), igual + 1, Len(tpoint(lineleng)) - igual)
Else
Lleng = "##"
End If
Next
End Function$menuarchivo=Archivo
$menuedicion=Edicion
$menuver=Ver
$menuayuda=Ayuda$menuarchivo=File
$menuedicion=Edit
$menuver=View
$menuayuda=HelpLengLoad "spanish.lng"LengLoad "english.lng"menu.caption = Lleng "menuarchivo"Option Explicit
'///////////// Tratamiento de archivos //////////
'/////////// infiernohacker.com (c) 2011 /////////
Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Private Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOpenfilename As saveFILENAME) As Long
Private Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
Private Type saveFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
Public Function dlg_open(ByVal filter As String, initialdir As String, title As String)
Dim OFName As OPENFILENAME
With OFName
.lStructSize = Len(OFName)
.hwndOwner = PMAKER.hWnd
.hInstance = App.hInstance
.lpstrFilter = filter
.lpstrFile = Space$(254)
.nMaxFile = 255
.lpstrFileTitle = Space$(254)
.nMaxFileTitle = 255
.lpstrInitialDir = initialdir
.lpstrTitle = title
.flags = 0
End With
If GetOpenFileName(OFName) Then
dlg_open = Trim$(OFName.lpstrFile)
Else
dlg_open = "cancel"
End If
End Function
'filter example: "Archivos de texto (*.txt)" + Chr$(0) + "*.txt" + Chr$(0) + "Todos los archivos (*.*)" + Chr$(0) + "*.*" + Chr$(0)
Public Function dlg_Guardar(ByVal filter As String, initialdir As String, title As String) As String
Dim OFName As saveFILENAME
With OFName
.lStructSize = Len(OFName)
.hwndOwner = PMAKER.hWnd
.hInstance = App.hInstance
.lpstrFilter = filter
.lpstrFile = Space$(254)
.nMaxFile = 255
.lpstrFileTitle = Space$(254)
.nMaxFileTitle = 255
.lpstrInitialDir = initialdir
.lpstrTitle = title
.flags = 0
End With
If GetSaveFileName(OFName) Then
dlg_Guardar = Trim$(Replace(OFName.lpstrFile, Chr(0), ""))
Else
dlg_Guardar = "cancel"
End If
End Function
Public Function save_file_append(ByVal ruta As String, contenido As String) As Boolean
On Error GoTo svferror:
Dim alexa As Integer
alexa = FreeFile
Open ruta For Append As #alexa
Print #alexa, contenido
Close #alexa
save_file_append = True
Exit Function
svferror:
save_file_append = False
End Function
Public Function save_file_out(ByVal ruta As String, contenido As String) As Boolean
On Error GoTo svferror:
Dim alexa As Integer
alexa = FreeFile
Open ruta For Output As #alexa
Print #alexa, contenido
Close #alexa
save_file_out = True
Exit Function
svferror:
save_file_out = False
End Function
Public Function open_file(ByVal ruta As String)
Dim alexa As Integer
alexa = FreeFile
Open ruta For Input As #alexa
open_file = Input(LOF(alexa), #alexa)
Close #alexa
End Function
Public Function open_file_bin(ByVal ruta As String)
Dim alexa As Integer
alexa = FreeFile
Open ruta For Binary As #alexa
open_file_bin = Input(LOF(alexa), #alexa)
Close #alexa
End Function





You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login
Si te refieres a que si hay personas así de ignorantes, la respuesta es si. Una vez pedí a un compañero que me pasara una información y me pasó una USB con lo accesos directos
Saludos!