Newsgroup: it.comp.os.win.xp
Titolo: Aprire browser da riga comando in posizione predefinita

Ciao a tutti.
Devo periodicamente aprire una serie di pagine di Internet Explorer in
posizioni predefinite dello schermo.
Lo faccio a mano, cio� ne apro una poi la sposto, la seconda poi la sposto
ecc...
Mi chiedo se � possibile da riga di comando fare aprire una finestra di IE
con una grandezza predefinita e in una posizione predefinita, o per meglio
dire parametrizzabile.
A questo punto farei un batch e sarei a posto.
Ma � possibile farlo???
Grazie in anticipo......
Ciao
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Ma � possibile farlo???
si ma NON con IE7/8  se ho capito le ultime novita
InternetExplorer.Application
http://www.google.it/search?hl=it&q=InternetExplorer.Application&meta=&aq=f&oq=
questo e' un piccolo esempio di quello che si puo ottenere , su google
trovi tutte le proprieta pure quelle che hai nominato tu
' by Paul Randall
'Routine to count the IE (v5.5) events that are fired while loading a .htm file
'To use your own URL, change one of the URLs below.
'Then uncomment one of the lines similar to this to actually navigate there
' (down around line 110)
' .navigate strLocalFile  '48 events
Option Explicit
Dim objIE    'IE Event Counter display
Dim aryEventNames  'All the event names
Dim strEventName  'One event name
Dim iCount_Total  'Count of all events
Dim i      'Loop index
Dim strLocalFile  'Full path to local .HTM file
Dim strYahoo   '
http://www.google.com/url?sa=D&q=http://www.yahoo.com
Dim strMSDN    '
msdn.microsoft.com
'********URLs*****************************
strLocalFile = "c:\t.htm"
strYahoo = "
http://www.google.com/url?sa=D&q=http://www.yahoo.com
"
strMSDN = "
msdn.microsoft.com
"
'List of IE 5.5 events
AryEventNames = Split("BeforeNavigate2 " & _
 "ClientToHostWindow " & _
 "CommandStateChange " & _
 "DocumentComplete " & _
 "DownloadBegin " & _
 "DownloadComplete " & _
 "FileDownload " & _
 "NavigateComplete2 " & _
 "NewWindow2 " & _
 "OnFullScreen " & _
 "OnMenuBar " & _
 "OnQuit " & _
 "OnStatusBar " & _
 "OnTheaterMode " & _
 "OnToolBar " & _
 "OnVisible " & _
 "ProgressChange " & _
 "PropertyChange " & _
 "SetSecureLockIcon " & _
 "StatusTextChange " & _
 "TitleChange " & _
 "WindowClosing " & _
 "WindowSetHeight " & _
 "WindowSetLeft " & _
 "WindowSetResizable " & _
 "WindowSetTop " & _
 "WindowSetWidth", " ")
For Each strEventName in AryEventNames
 ExecuteGlobal "Dim " & "iCount_" & strEventName
Next
'Set up the event display window
Set objIE = wscript.createobject("InternetExplorer.Application")
With objIE
 .AddressBar = False
 .StatusBar = False
 .Left = 0
 .Top = 0
 .Height = 480
 .Width = 320
 .ToolBar = False
 .MenuBar = False
 .Visible = True
 .Navigate "about:blank"
 Do Until .readyState = 4: wscript.sleep 100: Loop
 With .Document
  .WriteLn "<html>"
  .WriteLn "<head>"
  .WriteLn "<title>Event Counters</title>"
  .WriteLn "</head>"
  .WriteLn "<body>"
  .WriteLn "<table align='center' border='1'>"
  .WriteLn "<tr>"
  .WriteLn "<td>Total Events</td>"
  .WriteLn "<td id='iCount_Total'>"
  .WriteLn "</td>"
  .WriteLn "</tr>"
  .all.iCount_Total.innerhtml = 0
  For Each strEventName in AryEventNames
   .WriteLn "<tr>"
   .WriteLn "<td>" & strEventName & "</td>"
   .WriteLn "<td id='" & strEventName & "'>"
   .WriteLn "</td>"
   .WriteLn "</tr>"
   execute ".all." & strEventName & ".innerhtml = 0"
  Next
  .WriteLn "</table>"
  .WriteLn "</body>"
  .WriteLn "</html>"
  .close
 End With
End With
'Set up the navigation window
With wscript.createobject("InternetExplorer.Application","event_")
 .Visible = True
 .AddressBar = False
 .StatusBar = False
 .Left = 320
 .Top = 0
 .Height = 480
 .Width = 640
 .ToolBar = False
 .MenuBar = False
' .navigate strLocalFile  '48 events
' .navigate strYahoo   '62 events
 .navigate strMSDN    '85 events
 do until .readystate=4: wscript.sleep 100: loop
 do while .visible : wscript.sleep 10 : loop
End With
MsgBox "Quitting due to IE Window closing." & vbcrlf & _
 "Total event count = " & iCount_Total
Sub event_BeforeNavigate2(objBrowser, strURL, Flags, _
 TargetFrameName, PostData, Headers, bCancel)
 Dim strMsg
 iCount_BeforeNavigate2 = iCount_BeforeNavigate2 + 1
 objIE.Document.all.BeforeNavigate2.innerhtml = iCount_BeforeNavigate2
 iCount_Total = iCount_Total + 1
 objIE.Document.all.iCount_Total.innerhtml = iCount_Total
 On Error Resume Next
 strMsg = "BeforeNavigate2 event fired; Argument list:"
 strMsg = strMsg & vbcrlf & "1 ObjBrowser TypeName(objBrowser) = "
  strMsg = strMsg & TypeName(objBrowser) & " (OK)"
 strMsg = strMsg & vbcrlf & "2 strURL (NewURL) = "
  strMsg = strMsg & strURL & " (OK)"
 strMsg = strMsg & vbcrlf & "3 Flags = "
  strMsg = strMsg & Flags & " (OK)"
 strMsg = strMsg & vbcrlf & "4 TargetFrameName = "
  strMsg = strMsg & TargetFrameName & " (OK)"
 strMsg = strMsg & vbcrlf & "5 PostData = "
  strMsg = strMsg & PostData & " (OK)"
 strMsg = strMsg & vbcrlf & "6 Headers = "
  strMsg = strMsg & Headers & " (OK)"
 strMsg = strMsg & vbcrlf & "7 bCancel = "
  strMsg = strMsg & bCancel & " (OK)"
 On Error GoTo 0
 MsgBox strMsg
End Sub
'Copia incolla su notepad e salva con estensione .vbs
'tutti i file (*.*)  poi ci clicchi sopra. (per esempio Test.vbs)
'se ti da' errore disattiva l'antivirus
--
Fosco

 InternetExplorer.Application
'simple
'Set up the event display window
Set objIE = wscript.createobject("InternetExplorer.Application")
With objIE
 .AddressBar = False
 .StatusBar = False
 .Left = 0
 .Top = 0
 .Height = 480
 .Width = 320
 .ToolBar = False
 .MenuBar = False
 .Visible = True
 .Navigate "
http://www.google.it/
"
 Do Until .readyState = 4: wscript.sleep 100: Loop
 End With


 'simple


Perfetto....grazie 1000....
Un'ultima domanda...
La pagina web che viene visualizzata � pi� lunga della grandezza con la
quale la apro e quindi mi compare la barra di scorrimento veticale.
A questo punto, siccome la parte che mi interessa � a met�, mi tocca
scrollare leggermente verso il basso.
Si pu� impostare anche lo scroll???
Grazie..ciao


 Grazie..ciao
una fettina di culo magari vicino all'osso ?
Io ti aiuteri pure ma se o metti su guuugle magari c'arrivi prima
--
Fosco