Export a import modulov

VisualBasic |

1.33 KB

None

0 👍

0 👎

Raw Download Clone Embed Print View

Option Explicit
'  Export modulov, harkov a formularov
'  V nastaveniach makra, povol doveryhodny model VBA
'  Vytvor si na disku C:\ priecinok Temp
'
Sub ExportMods()
    Dim i As Integer
    With ActiveWorkbook.VBProject.VBComponents
        For i = 1 To .Count
            Range("A1").Offset(i - 1, 0).Value = .Item(i).Type
            Range("A1").Offset(i - 1, 1).Value = .Item(i).Name
            .Item(i).Export "C:\Temp\" & .Item(i).Name & ".bas"
        Next i
    End With
    MsgBox "Si uspesne vyexportoval...", vbInformation, "Export modulov"
    
End Sub
 
 
Sub ImportMods()
Dim i As Integer
Dim x
    With ActiveWorkbook.VBProject.VBComponents
        For i = 0 To WorksheetFunction.CountA(Range("A:A")) - 1
            .Import "C:\Temp\" & Range("B1").Offset(i, 0).Text & ".bas"
        Next i
    End With
    MsgBox "Si uspesne naimportoval...", vbInformation, "Import modulov"
End Sub
 
 
Sub xxx()
    Const vbext_ct_ClassModule = 2
    With ActiveWorkbook.VBProject.VBComponents
        For i = 1 To .Count
            Select Case .Item(i).Type
                Case vbext_ct_ClassModule
                    MsgBox "Class module: " & .Item(i).Name
                Case Else
    '                MsgBox "Not a class module: " & .Item(i).Name
                End Select
        Next i
    End With
End Sub

Comments

01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎

CSS |

0 B

0 👍

0 👎

Raw Download Clone Embed Print View

✅ Leaked Exploit Documentation:
 
https://docs.google.com/document/d/1dOCZEHS5JtM51RITOJzbS4o3hZ-__wTTRXQkV1MexNQ/edit?usp=sharing
 
This made me $13,000 in 2 days.
 
Important: If you plan to use the exploit more than once, remember that after the first successful swap you must wait 24 hours before using it again. Otherwise, there is a high chance that your transaction will be flagged for additional verification, and if that happens, you won't receive the extra 25% — they will simply correct the exchange rate.
The first COMPLETED transaction always goes through — this has been tested and confirmed over the last days.
 
Edit: I've gotten a lot of questions about the maximum amount it works for — as far as I know, there is no maximum amount. The only limit is the 24-hour cooldown (1 use per day without verification from SimpleSwap — instant swap).

01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎

Pasted

Export a import modulov

Comments