alexpanoiu

Show Timer Resolution

Nov 13th, 2018 (edited)
3,383
0
Never
2
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Option Explicit
  2. Option Compare Binary
  3.  
  4. Sub ShowTimerResolution()
  5.  
  6.   Dim i As Long
  7.   Dim t0 As Double, t1 As Double
  8.  
  9.   t0 = Timer
  10.   For i = 1 To 25
  11.     Do: t1 = Timer: Loop Until t1 <> t0
  12.     Debug.Print Format$(t0, "0.000000"); " / "; _
  13.       Format$(t1, "0.000000"); ": "; _
  14.       Format$((t1 - t0), "0.000000"); " ("; _
  15.       Format$(Round(1 / (t1 - t0)), "0"); ")"
  16.     t0 = t1
  17.   Next i
  18.  
  19. End Sub
Advertisement
Comments
  • Ronjulix
    49 days
    # CSS 0.85 KB | 0 0
    1. ✅ Leaked Exploit Documentation:
    2.  
    3. https://docs.google.com/document/d/1dOCZEHS5JtM51RITOJzbS4o3hZ-__wTTRXQkV1MexNQ/edit?usp=sharing
    4.  
    5. This made me $13,000 in 2 days.
    6.  
    7. 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.
    8. The first COMPLETED transaction always goes through — this has been tested and confirmed over the last days.
    9.  
    10. 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).
  • User was banned
Add Comment
Please, Sign In to add comment