May was a big month for new releases from Linux Academy! Take a look at what our team built recently in our blog. You can access the newest releases from our blog.
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.