发表于 2009-1-5 19:48
| 
鐢╒BA浠ｇ爜涓嬭浇缃戠粶涓婄殑鏂囦欢
鍙戝竷: 2008-7-01 15:14 | 浣滆: admin | 鏌ョ湅: 26娆
鐢╒BA浠ｇ爜涓嬭浇缃戠粶涓婄殑鏂囦欢
銆愬瓧浣擄細灏 澶с
鐢╒BA浠ｇ爜涓嬭浇缃戠粶涓婄殑鏂囦欢
浣滆咃細- 鏂囩珷鏉ユ簮锛- 鐐瑰嚮鏁帮細153 鏇存柊鏃堕棿锛2006-12-13 
鍓嶅嚑澶╀笌MVP鑰並涓璧疯璁哄浣曚粠缃戠粶涓笅杞戒竴涓枃浠跺埌鏈満,鐜板皢浠ｇ爜甯栦笂鏉ヤ笌澶у鍒嗕韩.鍙﹀鎴戠湅鍒板紶蹇楀墠娈垫椂闂撮渶瑕佽繖涓唬鐮,涓嶇煡閬撶幇鍦ㄤ粛闇瑕.浠ｇ爜閫傜敤浜嶸BA锛孷B锛孷BS銆
Dim H, S
Set H = CreateObject("Microsoft.XMLHTTP")
H.Open "GET", "http://www.yt-e.com/a.exe", False?? '缃戠粶涓殑鏂囦欢URL
H.send
Set S = CreateObject("ADODB.Stream")
S.Type = 1
S.Open
S.write H.Responsebody
S.savetofile "c:\a.exe", 2? '鏈湴淇濆瓨鏂囦欢鍚
S.Close
