Sub clear_cache
Dim NativeMe As NativeObject = Me
NativeMe.RunMethod("clearcache", null)
End Sub
#If OBJC
- (void)clearcache {
[[NSURLCache sharedURLCache]removeCachedResponseForRequest:request];
[[NSURLCache sharedURLCache] removeAllCachedResponses];
[[NSURLCache sharedURLCache] setDiskCapacity:0];
[[NSURLCache sharedURLCache] setMemoryCapacity:0];
}
#End If