ASP.NET WebForms

Απ: κλεισιμο καποιου παραθύρου όταν τελείωνει το upload

nikolaosk — Tue, 27 Nov 2007 08:43:03 GMT

αν θελεις να καλεις ενα script για να σου κλεινει το παραθυρο μπορεις να το χρησιμοποιησεις Tο wshell object.

1) ανοιξε ενα αρχειο Notepad.

2) καντο save στο desktop με ονομα close.vbs

3) ανοιξε το αρχειο και βαλε τον κωδικα παρακατω

4) αλλαξε το ""C:\Documents and Settings\Jack Bauer\Επιφάνεια εργασίας\office2007" με ενα δικο σου παραθυρο π.χ "c:\test"

5) κανε save το αρχειο close.vbs

6) ανοιξε τον φακελο test απο το Path "c:\test"

7) κανε διπλο κλικ στο αρχειο close.vbs

function closewindow(params)

set WshShell = WScript.CreateObject("WScript.Shell")


WScript.Sleep(200)        

WshShell.AppActivate "C:\Documents and Settings\Jack Bauer\Επιφάνεια εργασίας\office2007"

WScript.Sleep(2000)      

WshShell.SendKeys("%{F4}")

set WshShell=nothing 

end function

wscript.echo closewindow(543)

Απ: κλεισιμο καποιου παραθύρου όταν τελείωνει το upload

nikolaosk — Tue, 27 Nov 2007 08:25:23 GMT

δεν δινεις πολλες πληροφοριες, οπως απο που θελεις να κλεινεις το παραθυρο...

αν θελεις να το κλεισεις μεσα απο μια windows form κανεις τα εξης

1) αρχιζεις στο Visual studio ενα windows application (ή στο visual basic 2005 express)

2) Βαλε ενα button και κανε διπλο κλικ στο button

3) στο code window σβησε τα παντα

4) κανε Paste το παρακατω

5) εδω με window APIS(προσοχη!!!τα declarations εχουν αλλαξει απο το windows 32 API στα .net languages, οπως c#,vb.net(πρεπει καποιος να κανεις αλλαγες στα API Declaration και στα Types-εδω εγω εχω βαλει τα σωστα) ) και vb.net κλεινω ενα calculator-Αριθμομηχανη παραθυρο

βρισκω το handle του παραθυρου(με την findwindow) και μετα με το postmessage στελνω ενα close messgae

το μονο που εχεις να κανεις ειναι να βρεις το Handle του παραθυρου που θελεις να κλεισεις...

για να το βρεις, το handle καθε παραθυρου, καλο ειναι να κατεβασεις το winspector http://www.windows-spy.com/

Public Class Form1
   
 ' Get a handle to an application window.

    Declare Auto Function FindWindow Lib "USER32.DLL" ( _
           ByVal lpClassName As String, _
           ByVal lpWindowName As String) As IntPtr

    Private Declare Auto Function PostMessage Lib "user32" ( _
          ByVal hWnd As IntPtr, _
          ByVal Msg As Integer, _
          ByVal wParam As Integer, _
          ByVal lParam As IntPtr) As Boolean
          
Private Const WM_CLOSE As System.Int32 = &H10



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       
 ' Get a handle to the Calculator application. The window class
       
        Dim calculatorHandle As IntPtr = FindWindow("SciCalc", "Αριθμομηχανή")


        ' just check that th window is open

        If calculatorHandle = IntPtr.Zero Then
            MsgBox("Calculator is not running.")
            Return
        End If

               PostMessage(calculatorHandle, WM_CLOSE, IntPtr.Zero, IntPtr.Zero)
   
 End Sub
End Class

κλεισιμο καποιου παραθύρου όταν τελείωνει το upload

ram7822dim — Sat, 24 Nov 2007 18:33:11 GMT

Παιδιά πως γίνεται να κλείνει κάποιο παράθυρο, το οποίο εχω επιλέξει να ανοίγει όταν πατάω το κουμπί για upload, τελειώνοντασ το upload?