Website window sizing

Question

I'm using VS 2012 and want to create an app that opens up a specific website, however I do not want the website window opened in the maximized state. What code can I use to manipulate the window size when it opens?

Answer 1

To resize the Browser, it is not so simple.
Since browsers uses tab, the process returned by Process.Start may not be the process that need to be resized.
Some browser will have more than 1 process.
as example
IE will have 1 or 2 process for all tabs
Chrome will have 1 process per tab plus 3 processes.
Also, since you dont know which Browser is the default Browser, you need your code to find out
Try this code. I tested it with IE, Chrome and Safari and it worked
Imports Microsoft.Win32
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim url As String = "www.google.com"
Dim WindowSize As New Size(500, 500)
Dim P As New Process
Process.Start(url)
Threading.Thread.Sleep(1000)
Dim regkey = Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\shell\Associations\UrlAssociations\http\UserChoice", False)
Dim browserName As String = ""
If regkey IsNot Nothing Then
Dim progIdValue = regkey.GetValue("Progid").ToString()
If (progIdValue.ToString().ToLower().Contains("chrome")) Then
browserName = "chrome"
ElseIf (progIdValue.ToString().ToLower().Contains("firefox")) Then
browserName = "firefox"
ElseIf (progIdValue.ToString().ToLower().Contains("safari")) Then
browserName = "safari"
ElseIf (progIdValue.ToString().ToLower().Contains("opera")) Then
browserName = "opera"
ElseIf (progIdValue.ToString().ToLower().Contains("ie")) Then
browserName = "iexplore"
End If
End If
Dim pr = Process.GetProcesses().Where(Function(PRo) PRo.ProcessName = browserName).ToArray
For Each Browser As Process In pr
If Browser.MainWindowTitle <> "" Then
SetWindowPos(Browser.MainWindowHandle, IntPtr.Zero, 20, 20, WindowSize.Width, WindowSize.Height, 0)
End If
Next
End Sub
Public Declare Function SetWindowPos Lib "user32.dll" (hWnd As IntPtr, hWndInsertAfter As IntPtr, X As Integer, Y As Integer, cx As Integer, cy As Integer, wFlags As Integer) As Boolean
End Class