Advertisement
TriiNoxYs

Anti Resolver

Nov 29th, 2015
340
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Set objShell = WScript.CreateObject("WScript.Shell")
  2. ss= objShell.RegRead ("HKEY_CURRENT_USER\Software\Skype\Phone\SkypePath")
  3. ss= """" + ss + """"
  4. 'Add Block rule
  5. objShell.run "netsh advfirewall firewall add rule name=""SkypeBlockTCP"" dir=out action=block program=" + ss + " enable=yes protocol=any profile=any"
  6. 'Add Allow rule
  7. objShell.run "netsh advfirewall firewall add rule name=""SkypeAllowToProxy"" dir=out action=allow program=" + ss + " enable=yes remoteip=127.0.0.1"
  8. 'Turn On firewall
  9. objShell.run "Netsh advfirewall set allprofiles state on"
  10. MsgBox "Voilà Enjoy, on peut plus te boot :p"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement