Intrebari,proiecte,raspunsuri (Programare) Game !

[TIO]

Visual Basic

[MCosti]

Code: Select all

4       Public Class FrmBrowser 
5       ' navigate back one page 
6       Private Sub btnBack_Click(ByVal sender As System.Object, _ 
7         ByVal e As System.EventArgs) Handles btnBack.Click 
8    
9         webBrowser.GoBack() 
10      End Sub ' btnBack_Click 
11       
12       ' navigate forward one page 
13       Private Sub btnForward_Click(ByVal sender As System.Object, _ 
14         ByVal e As System.EventArgs) Handles btnForward.Click 
15     
16         webBrowser.GoForward() 
17       End Sub ' btnForward_Click 
18     
19       ' stop loading the current page 
20      Private Sub btnStop_Click(ByVal sender As System.Object, _ 
21         ByVal e As System.EventArgs) Handles btnStop.Click 
22     
23         webBrowser.Stop() 
24       End Sub ' btnStop_Click 
25     
26       ' reload the current page 
27       Private Sub btnReload_Click(ByVal sender As System.Object, _ 
28         ByVal e As System.EventArgs) Handles btnReload.Click 
29     
30         webBrowser.Refresh() 
31      End Sub ' btnReload_Click 
32     
33          ' navigate to the user's home page 
34          Private Sub btnHome_Click(ByVal sender As System.Object, _ 
35         ByVal e As System.EventArgs) Handles btnHome.Click 
36     
37         webBrowser.GoHome() 
38      End Sub ' btnHome_Click 
39       
40       ' if the user pressed enter, navigate to the specified URL 
41       Private Sub txtNavigation_KeyDown(ByVal sender As System.Object, _ 
42         ByVal e As System.Windows.Forms.KeyEventArgs) _ 
43         Handles txtNavigation.KeyDown 
44     
45         If e.KeyCode = Keys.Enter Then 
46            webBrowser.Navigate(txtNavigation.Text) 
47          End If 
48       End Sub ' txtNavigation_KeyDown 
49       
50       ' enable btnStop while the current page is loading 
51       Private Sub webBrowser_Navigating(ByVal sender As System.Object, _ 
52         ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) _ 
53         Handles webBrowser.Navigating 
54     
55         btnStop.Enabled = True 
56      End Sub ' webBrowser_Navigating 
57     
58       ' update the status text 
59       Private Sub webBrowser_StatusTextChanged( _ 
60         ByVal sender As System.Object, ByVal e As System.EventArgs) _ 
61         Handles webBrowser.StatusTextChanged 
62     
63         txtStatus.Text = webBrowser.StatusText 
64       End Sub ' webBrowser_StatusTextChanged 
65     
66       ' update the ProgressBar for how much of the page has been loaded  
67       Private Sub webBrowser_ProgressChanged( _ 
68         ByVal sender As System.Object, ByVal e As _ 
69         System.Windows.Forms.WebBrowserProgressChangedEventArgs) _ 
70         Handles webBrowser.ProgressChanged 
71          ' Check if e.MaximumProgress is 0 or 
72          ' if e.MaximumProgress is less than e.CurrentProgress 
73         If e.MaximumProgress <> 0 And _ 
74            e.MaximumProgress >= e.CurrentProgress Then 
75     
76            prgPage.Value = Convert.ToInt32( _  
77               100 * e.CurrentProgress / e.MaximumProgress) 
78          End If 
79       End Sub ' webBrowser_ProgressChanged 
80     
81       ' update the web browser's controls appropriately 
82      Private Sub webBrowser_DocumentCompleted( _ 
83         ByVal sender As System.Object, ByVal e As _ 
84         System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) _ 
85         Handles webBrowser.DocumentCompleted 
86          ' set the text in txtNavigation to the current page's URL 
87         txtNavigation.Text = webBrowser.Url.ToString()  
88     
89          ' enable or disable btnBack and btnForward  
90         btnBack.Enabled = webBrowser.CanGoBack  
91         btnForward.Enabled = webBrowser.CanGoForward 
92     
93          ' disable btnStop  
94         btnStop.Enabled = False 
95     
96          ' clear the prgPage
97         prgPage.Value = 0  

98      End Sub ' webBrowser_DocumentCompleted 
99     
100       ' update the title of the Browser 
101      Private Sub webBrowser_DocumentTitleChanged( _ 
102         ByVal sender As System.Object, ByVal e As System.EventArgs) _ 
103         Handles webBrowser.DocumentTitleChanged 
104     
105         Me.Text = webBrowser.DocumentTitle & " - Browser" 
106      End Sub ' webBrowser_DocumentTitleChanged 
107    End Class ' FrmBrowser 

[m2rkus]

Treci la urmatorul te rog.

[TIO]

Corect DjMax
5 Gasiti userul si parola la site

| Afiseaza codul

http://www.scrsoft.com

Poza:

[m2rkus]

Se poate asa ceva ?
Vezi ca poate vin astia cu poilitia peste noi :)). Glumeam.
Inca nu i-am dat de capat, incerc :-j .

[TIO]

Tu nu vezi ca eu is in panoul de administrare?Iti dau un indiciu.User:Admin

[IsTI37]

Parola poate fi scrsoft,customer sau kg_kinder,kinder daca zici ca userul e admin.
Altumva nu stiu la ce te referi.
Alta varianta ar fi user admin parola 1234 sau tot admin.

[Marian]

nu merge http://www.scrsoft.com/adminlogin.asp da eroare :-?? si mai exista http://www.scrsoft.com/scrvqms/ care link e bun?

[m2rkus]

Parole optionale:

siteadmin
123456
extreamcs
extream
admin
default

Eu cred ca este una dintre cele de sus :).

Marian: Nu trebuie sa stii linkul de logare a administratorului, tu, efectiv, trebuie sa ghicesti parola :P .

[!UL!@N]

nu e parola ? :| :))

[Mihay]

Ai vreo dovada ca nu e teapa ? :)

[TIO]

Parola nu v'o zic .Care doriti sa vedeti imi dati pm cu un id sa intrati la mine in pc sa vedeti !
6 O forma de logare (Fie html fie php)