【各位高手】小白求简单Vb代码！
求Vb代码；已经找到其它语言编程方案，但是看不懂，希望能写的VB语言。100积分已经是系统允许出的最高分了，真心求，希望大家能帮忙解决!
原始网址：
http://s.click.taobao.com/t?e=m%3D2%26s%3DBN7SH4ym5NwcQipKwQzePOeEDrYVVa64LKpWJ%2Bin0XJRAdhuF14FMUEJvDfzbX%2Fr79%2FTFaMDK6RP0drGFRffB8njyd38oaEmGsHJgnEgyQh3vHEOpE5W%2FDHgmaPYYnLH
真实网址：
http://item.taobao.com/item.htm?id=35816417612&ali_trackid=2:mm_11382983_0_0:1384050201_6k1_1580699870
代码要求：给原始网址，得到真实网址中的id=35816417612
已找到其它语言解决方案
找到了别人用java和ython写的，好像能能实现。现在的问题是，我对编程了解很少，只知道点VB，其它的都不会。能否帮忙写成VB代码？
java代码：http://blog.csdn.net/u011566158/article/details/9698689
ython代码：http://blog.csdn.net/ufojoan/article/details/10136717#comments
VB代码 真实地址 Url跳转 网址跳转 java转VB
[解决办法]
晕，才发现你已经搞定了。为了给你写代码专门装的VB。
[解决办法]
Sub 将淘宝客链接转换为正常淘宝_天猫商品链接()
Set ms = CreateObject("msscriptcontrol.scriptcontrol")
ms.Language = "JavaScript"
With CreateObject("WinHttp.WinHttpRequest.5.1")
.Option(6) = 0
.Open "GET", "http://s.click.taobao.com/t?e=zGU34CA7K%2BPkqB07S4%2FK0CITy7klxxrJ35Nnc0vWaHl37H18cjdMO0RFhunziOFb%2FYR38ThEJAQs2K2vhBq7dgXLmU%2BSx8tU3PLk9d5Pc2Up", False
.Send
a = .GetResponseHeader("Location")
.Open "GET", ms.Eval("decodeURIComponent('" & Split(a, "tu=")(1) & "');"), False
.setRequestHeader "Referer", a
.setRequestHeader "Connection", "Keep-Alive"
.Send
Debug.Print .GetResponseHeader("Location")
End With
End Sub
