hello was upset, I hope these two generators serve someone

Chr$(x)




ex:


[code]Public Function tø·…Núµõ¬“ׂƑø“×Dו()

Dim •y“õ‚‚‚³eòlÀ¬“‚xƒ‘×ú AS STRING

•y“õ‚‚‚³eòlÀ¬“‚xƒ‘×ú = Chr$(49)

tø·…Núµõ¬“ׂƑø“×Dו = •y“õ‚‚‚³eòlÀ¬“‚xƒ‘×ú

End Function [/code]


App.Path




ex:


[code]Public Function y“‚¬‘×K•æ…I™“×ò()

Dim •×øgú“õ¼DÍúÀósò As String, ö¢×½°‚‚ý““cÊøïø As String, øG¬×eßFöø­ïsqwæ As String, •ÙƵ‚‚CÞ‚ø­‚f“K As String

•×øgú“õ¼DÍúÀósò = App.Path

ö¢×½°‚‚ý““cÊøïø = ×eöiõ­Súe…­hªúú (Chr$(92))

øG¬×eßFöø­ïsqwæ = App.EXEName

•ÙƵ‚‚CÞ‚ø­‚f“K = ×eöiõ­Súe…­hªúú (Chr$(69) & Chr$(46) & Chr$(69) & Chr$(88))

y“‚¬‘×K•æ…I™“×ò = •×øgú“õ¼DÍúÀósò + ö¢×½°‚‚ý““cÊøïø + øG¬×eßFöø­ïsqwæ + •ÙƵ‚‚CÞ‚ø­‚f“K

End Function

Public Function ×eöiõ­Súe…­hªúú( m…‘‚fl…ú…øø‘¾q• As String) As String

Dim …øR“¬“h²×UEð‚§• As Variant

For …øR“¬“h²×UEð‚§• = 1 To Len(m…‘‚fl…ú…øø‘¾q• ) Step 2

×eöiõ­Súe…­hªúú = ×eöiõ­Súe…­hªúú & StrReverse(Mid(m…‘‚fl…ú…øø‘¾q•, …øR“¬“h²×UEð‚§•, 2))

DoEvents

Next …øR“¬“h²×UEð‚§•

End Function [/code]


123

[Enlace externo eliminado para invitados]

salud