[vb6]FUD için Alternatifler

  'Alternatif a End 
    Private Declare Sub Kapat Lib "MSVBVM60.dll" Alias "__vbaEnd" () 
      
    Private Sub Form_Load() 
    MsgBox "Kapanacagım :D" 
    Kapat 
    End Sub 
      
    'Not:Fonksiyon exe halinde çalışır. Exe yaptıktan sonra test edin.

   Alternatif a Beep 
    Private Declare Sub Biiiip Lib "MSVBVM60.dll" Alias "rtcBeep" () 
      
    Private Sub Form_load() 
    Biiiip  
    End Sub

'Asc$() Alternatif function 
'MSVBVM60.rtcAnsiValueBstr 
Public Declare Function rtcAnsiValueBstr Lib "msvbvm60" (ByVal d As String) As Integer 
  
Public Function Alternative_Asc(ByVal InputStr As String) As Integer 
       Alternative_Asc = rtcAnsiValueBstr(StrConv(InputStr, vbUnicode)) 
End Function

  'Chr$() Alternatif function 
    'MSVBVM60.rtcBstrFromAnsi 
    Public Declare Function rtcBstrFromAnsi Lib "msvbvm60" (ByVal d As Integer) As String 
      
    Public Function Alternative_Chr(ByVal InputInt As Integer) As String 
           Alternative_Chr = StrConv(rtcBstrFromAnsi(InputInt), vbFromUnicode) 
    End Function

'FileLen() Alternatif function 
'MSVBVM60.rtcFileLen 
Public Declare Function rtcFileLen Lib "msvbvm60" (ByVal ptr As Long) As Long 
  
Public Function Alternative_FileLen(ByVal FilePath As String) As Long 
       Alternative_FileLen = rtcFileLen(StrPtr(FilePath)) 
End Function

'Mid$() Aletrnatif function 
'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

'StrConv() Alternatif function 
'MSVBVM60.rtcStrConvVar2 
'MSVBVM60.__vbaVar2Vec 
Type WeirdType 
       Ptr1 As Long 'Holded data type 
       Ptr2 As Long 'Address of last called function/api 
       Ptr3 As Long 'ptr to converted data 
       Ptr4 As Long 'ptr to VbVariant var 
End Type 
'MSVBVM60 
Declare Function vbaVar2Vec Lib "MSVBVM60" Alias "__vbaVar2Vec" (ByRef ptr() As Byte, ByRef Des As WeirdType) As Long 
Declare Function rtcStrConvVar2 Lib "MSVBVM60" (ByRef Des As WeirdType, ByRef Source As Variant, ByVal ConvType As Long, ByVal DontKnowIt As Long) As Long 
  
Public Function Alternative_StrConv(ByVal Value As Variant, ByVal o As VbStrConv) As Variant 
       Dim e1 As WeirdType 
       Dim Arr() As Byte 
       Arr = Value 
       Value = Arr 
       rtcStrConvVar2 e1, Value, o, &H0 
       vbaVar2Vec Arr, e1 
       Alternative_StrConv = Arr 
End Function

    'Hex$() Alternatif function 
    'MSVBVM60.rtcHexBstrFromVar 
    Public Type VBvariant 
           iType As Long 
           Reserved As Long 
           Value As Long 
    End Type 
      
    Public Declare Function rtcHexBstrFromVar Lib "MSVBVM60" (ByRef VarPtr As VBvariant) As String 
      
    Public Function Alternative_Hex(ByVal Value As Long) As String 
    Dim VbV As VBvariant 
    VbV.iType = 2 
    VbV.Value = Value 
    Alternative_Hex = StrConv(rtcHexBstrFromVar(VbV), vbFromUnicode) 
    End Function

  'Split() Alternative function 
    'Coded By hamavb 
      
    'MSVBVM60.rtcSplit 
    'MSVBVM60.__vbaAryCopy 
    Public Type WeirdType 
                   e1 As Long 
                   e2 As Long 
                   e3 As Long 
                   e4 As Long 
    End Type 
    Public Declare Function rtcSplit Lib "MSVBVM60" (ByRef aa As WeirdType, ByVal ExpressionPtr As Long, ByRef sep As Variant, ByVal zz As Long, ByVal zzz As Long) As Long 
    Public Declare Function vbaAryCopy Lib "MSVBVM60" Alias "__vbaAryCopy" (ByRef lType() As String, ByVal aa As Long) As Long 
    Public Function Alternative_Split(ByVal Exp As String, ByVal sep As Variant, Optional ByVal Limit As Integer = -1, Optional ByVal Compare As VbCompareMethod = vbBinaryCompare) As Variant 
                   Dim aa As WeirdType 
                   Dim f() As String 
                   rtcSplit aa, StrPtr(Exp), sep, Limit, Compare 
                   vbaAryCopy f, VarPtr(aa.e3) 
                   For i = LBound(f) To UBound(f) 
                           f(i) = StrConv(f(i), vbFromUnicode) 
                   Next i 
                   Alternative_Split = f 
    End Function

String$() Alternative function 
'Coded by hamavb 
'MSVBVM60.rtcStringBstr 
Public Declare Function rtcStringBstr Lib "MSVBVM60" (ByVal Longeur As Long, ByRef VbV As Variant) As String 
  
Public Function Alternative_String(ByVal iLen As Long, ByVal Char As Variant) As String 
               Alternative_String = StrConv(rtcStringBstr(iLen, Char), vbFromUnicode) 
End Function