Block Skype Resolvers From Resolving Your IP

 _      _       _             _     _
| |    (_)     | |           | |   (_)
| |     _ _ __ | | _____ __ _| |__  _ _ __
| |    | | '_ \| |/ / __/ _` | '_ \| | '_ \
| |____| | | | |   < (_| (_| | |_) | | | | |
|______|_|_| |_|_|\_\___\__,_|_.__/|_|_| |_|
============================================
Ever been resolved by API's? Want to make
sure you can never be booted? Trawling
through various forums I found some neat
VB code that takes advantage of the netsh
firewall to block Skype TCP requests
through your direct IP.
============================================
	   I N S T R U C T I O N S
============================================
1. Paste the code you want into notepad.
2. Save as a .vbs file
3. Run the .vbs by double clicking, done!
4. For installing the patch:
4a. Go to Tools> Options> Advanced>
Connections:
4b. Enter these details:
	4bi. Proxy Protocol: Socks5
	4bii. Host: 127.0.0.1
	4biii. Port: 9050
4c. UNCHECK port 80 and 443
	4ci.http://i.imgur.com/WtG9FKS.png
	4cii. Enter port 9050 for incoming.
4d. Save the changes and restart Skype.
============================================
		  C O D E
============================================
Hide your IP Patch
============================================
Set objShell = WScript.CreateObject("WScript.Shell")
ss= objShell.RegRead ("HKEY_CURRENT_USER\Software\Skype\Phone\SkypePath")
ss= """" + ss + """"
'Add Block rule
objShell.run "netsh advfirewall firewall add rule name=""SkypeBlockTCP"" dir=out action=block program=" + ss + " enable=yes protocol=any profile=any"
'Add Allow rule
objShell.run "netsh advfirewall firewall add rule name=""SkypeAllowToProxy"" dir=out action=allow program=" + ss + " enable=yes remoteip=127.0.0.1"
'Turn On firewall
objShell.run "Netsh advfirewall set allprofiles state on"
msgbox "Skype Is Tored"
===========================================
Remove Patch
===========================================
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.run "netsh advfirewall firewall delete rule name=""SkypeBlockTCP"""
objShell.run "netsh advfirewall firewall delete rule name=""SkypeAllowToProxy"""
msgbox "Skype Isn't Tored"
===========================================
             S O U R C E S
===========================================
Original: http://is.gd/6DUKKR
What is VBS?: http://is.gd/EBOuKk

Enjoy!

- Link