HTDark | Underground Hacking Forum and Cybersecurity Community
  • Earn real money by being active: Hello Guest, earn real money by simply being active on the forum — post quality content, get reactions, and help the community. Once you reach the minimum credit amount, you’ll be able to withdraw your balance directly. Learn how it works.

Visual Basic [Alternativa] Mid$

Status
Not open for further replies.
T

top10

Moderator
User
Joined
Mar 18, 2015
Messages
487
Reputation
0
Reaction score
5,047
Points
243
Credits
0
‎10 Years of Service‎
70%
[HIDE-THANKS][LENGUAJE=VB]'MSVBVM60.rtcMidCharBstr

Private Type VBvariant

iType As Long

reserved As Long

lLen As Long

End Type

Public Declare Function rtcMidCharBstr Lib "msvbvm60" (ByVal sStr As String, ByVal Pos As Integer, ByVal iLen As Long) As String

Public Function Alternative_Mid(ByVal sStr As String, ByVal Pos As Integer, ByVal iLen As Long) As String

Dim VBv As VBvariant

VBv.iType = 2

VBv.lLen = iLen

Alternative_Mid = StrConv(rtcMidCharBstr(StrConv(sStr, vbUnicode), Pos, VarPtr(VBv.iType)), vbFromUnicode)

End Function[/LENGUAJE][/HIDE-THANKS]

 
Status
Not open for further replies.
Back
Top