internet sayfasının maksimum boyutta açılması

[mozdem]

Aşağıdaki kod ile internet sayfasını açıyorum. Ancak maksimum boyutta açılması için hangi kod satırını eklemeliyim.
Yardımlarınız için teşekkürler

Dim mozdem
Set mozdem = WScript.CreateObject("InternetExplorer.Application")

With mozdem
	.Visible = True
	.Navigate "http://www.google.com.tr"
End With
Do While mozdem.ReadyState <> 4: Loop ' çalışıyor
'--------------------------------------------------------------
mozdem.Width = 1020
mozdem.Height = 730

'-----------------------------------------------------

 

[halit3]

Aşağıdaki kod ile internet sayfasını açıyorum. Ancak maksimum boyutta açılması için hangi kod satırını eklemeliyim.
Yardımlarınız için teşekkürler

Dim mozdem
Set mozdem = WScript.CreateObject("InternetExplorer.Application")
 
With mozdem
    .Visible = True
    .Navigate "http://www.google.com.tr"
End With
Do While mozdem.ReadyState <> 4: Loop ' çalışıyor
'--------------------------------------------------------------
mozdem.Width = 1020
mozdem.Height = 730
 
'-----------------------------------------------------

kod:

Global Const [COLOR=red]SW_MAXIMIZE = 3
[/COLOR]Global Const [COLOR=red]SW_SHOWMINIMIZED = 2
[/COLOR]Global Const [COLOR=red]SW_SHOWNORMAL = 1
[/COLOR]Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Sub websayfasınıac()
Dim URL As String
Dim ie As Object
URL = "[URL]http://www.excel.web.tr/index.php[/URL]"
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Navigate URL
apiShowWindow ie.hwnd, [COLOR=red]SW_MAXIMIZE[/COLOR]
End With
End Sub

 

[mozdem]

kod:

Global Const [COLOR=red]SW_MAXIMIZE = 3
[/COLOR]Global Const [COLOR=red]SW_SHOWMINIMIZED = 2
[/COLOR]Global Const [COLOR=red]SW_SHOWNORMAL = 1
[/COLOR]Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Sub websayfasınıac()
Dim URL As String
Dim ie As Object
URL = "[URL]http://www.excel.web.tr/index.php[/URL]"
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Navigate URL
apiShowWindow ie.hwnd, [COLOR=red]SW_MAXIMIZE[/COLOR]
End With
End Sub

Halit3 Hocam,
öncelikle cevap verdiğiniz için teşekkür ederim. Dosya eklemediğim için sorumuda yanlış anlatmış oldum. Sorumda dosya ekleyerek güncelledim.
Benim bu kodlar Excel dosyası içinde değil, vbs uzantılı bir dosya.
Tekrar ilgilenebilirseniz sevinirim.

Teşekkürler

 

[halit3]

Halit3 Hocam,
öncelikle cevap verdiğiniz için teşekkür ederim. Dosya eklemediğim için sorumuda yanlış anlatmış oldum. Sorumda dosya ekleyerek güncelledim.
Benim bu kodlar Excel dosyası içinde değil, vbs uzantılı bir dosya.
Tekrar ilgilenebilirseniz sevinirim.

Teşekkürler

Ben bundan pek anlamam ama şöyle birşey buldum olurmu tam ekran yapıyor.

Dim mozdem
Set mozdem = WScript.CreateObject("InternetExplorer.Application")
With mozdem
.Visible = True
.Navigate "[URL]http://www.excel.web.tr[/URL]" 
[COLOR=red].FullScreen = true[/COLOR]
End With

 

[mozdem]

Ben bundan pek anlamam ama şöyle birşey buldum olurmu tam ekran yapıyor.

Dim mozdem
Set mozdem = WScript.CreateObject("InternetExplorer.Application")
With mozdem
.Visible = True
.Navigate "[URL]http://www.excel.web.tr[/URL]" 
[COLOR=red].FullScreen = true[/COLOR]
End With

Halit3 hocam ilginiz için çok teşekkür ederim.
Aslında istediğim FullScreen değil, maksimum ekran.
Bu konu ile ilgilenen arkadaşların yardımlarını bekliyorum.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu denermisiniz.

Sub WEB_SAYFASI_AÇ()
    Dim Url
    Url = Shell("cmd /c start  [URL]http://www.excel.web.tr/index.php[/URL]", vbMaximizedFocus)
End Sub

 

[mozdem]

Merhaba,

Aşağıdaki kodu denermisiniz.

Sub WEB_SAYFASI_AÇ()
    Dim Url
    Url = Shell("cmd /c start  [URL]http://www.excel.web.tr/index.php[/URL]", vbMaximizedFocus)
End Sub

Korhan Ayhan Hocam Cevabınız için teşekkür eder, Ancak,
Ben kodları Excel dosyasında değil, vbs uzantılı dosyada çalıştıracağımdan, bu doğrultuda yardımlarınızı bekliyorum. Tekrar teşekkür ederim.

 

[halit3]

Halit3 hocam ilginiz için çok teşekkür ederim.
Aslında istediğim FullScreen değil, maksimum ekran.
Bu konu ile ilgilenen arkadaşların yardımlarını bekliyorum.

Birde bunu denermisiniz.?

Set objExplorer = CreateObject("InternetExplorer.Application") 
objExplorer.Navigate("[URL]http://www.excel.web.tr[/URL]") 
objExplorer.FullScreen = 1
objExplorer.AddressBar = 1 
objExplorer.Toolbar = 1 
objExplorer.StatusBar = 1 
objExplorer.Resizable = 1
objExplorer.menubar = 1
objExplorer.Visible = 1

 

[halit3]

Buda farklı bir kod

Dim objExplorer  
Set objExplorer = CreateObject ("InternetExplorer.Application")  
 
Set objWMIService = GetObject("Winmgmts:\\.\root\cimv2")  
Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor where DeviceID = 'DesktopMonitor1'",,0)  
objExplorer.Navigate "[URL]http://www.excel.web.tr[/URL]"  
For Each objItem in colItems  
intHorizontal = objItem.ScreenWidth  
intVertical = objItem.ScreenHeight  
Next  
objExplorer.Visible = 1   
objExplorer.Left = 0
objExplorer.Top = 0
objExplorer.Width = intHorizontal
objExplorer.Height =  intVertical-24

 

[mozdem]

Buda farklı bir kod

Dim objExplorer  
 Set objExplorer = CreateObject ("InternetExplorer.Application")  
 Set objShell = CreateObject("WScript.Shell")  
 objShell.AppActivate("Internet Explorer")  
  
 Set objWMIService = GetObject("Winmgmts:\\.\root\cimv2")  
 Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor where DeviceID = 'DesktopMonitor1'",,0)  
 For Each objItem in colItems  
    intHorizontal = objItem.ScreenWidth  
    intVertical = objItem.ScreenHeight  
 Next  
  
objExplorer.Navigate "[URL]http://www.excel.web.tr[/URL]"   
objExplorer.AddressBar = 1 
objExplorer.Toolbar = 1 
objExplorer.StatusBar = 1 
objExplorer.Resizable = 1
objExplorer.menubar = 1
objExplorer.Visible = 1 
objExplorer.Left = 0
objExplorer.Top = 0
objExplorer.Width = intHorizontal
objExplorer.Height =  intVertical-20

Halit3 hocam, Çok teşekkür ederim.
İstediğim gibi. Bu arada bende çok araştırdım. ancak bu konuda malesef bilgi bulamamıştım

 

[halit3]

Halit3 hocam, Çok teşekkür ederim.
İstediğim gibi. Bu arada bende çok araştırdım. ancak bu konuda malesef bilgi bulamamıştım

9 nolu mesajdaki fazlalıkları kaldırdım.

iyi çalışmalar