eto ba yung palaman sa tool na may bungo?
Sub CheckUpdateDownload
On Error Resume Next
strLink =(((( "
You do not have permission to view the full content of this post.
Log in or register now."))))
''strSaveName = Mid(strLink, InStrRev(strLink,"/") + 1, Len(strLink))
strSaveName = "newUpdateVersion.txt"
strSaveTo = currentFolder &"\" &strSaveName
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(strSaveTo) Then
objFSO.DeleteFile(strSaveTo)
End If
Set objHTTP = CreateObject( "WinHttp.WinHttpRequest.5.1" )
yan yung nakita kong nag automatic send yung mac sa storage.live.com kung sino man yang may are nyan