Containers are an incredibly powerful technology that can provide you and/or your engineering team with huge productivity gains. Using containers, you can deploy, back up, replicate, and move apps and their dependencies quickly and easily.
Sub saveas(ByVal url As String) Dim filename2 As String Dim doc As mshtml.HTMLDocument For Each window In shellWindows Dim HTMLdocument2 As Object IEInstance = window '...see if they are IE windows... filename2 = Path.GetFileNameWithoutExtension(IEInstance.FullName).ToLower() If filename2.Equals("iexplore") Then Try Timer1.Enabled = False filename2 = IEInstance.LocationURL If filename2.ToString = url.ToString Then Do Loop Until Not IEInstance.Busy IEInstance.ExecWB(SHDocVw.OLECMDID.OLECMDID_SAVECOPYAS, SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_DONTPROMPTUSER, "C:\testing.pdf", Nothing) End If Catch End Try End If Next End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.