fenster = CreateWindow ("Internet Explorer 2",0,0,1024,768,0)


fenster = CreateWindow ("Eingabe", 100,100, 200,200)
button = CreateButton("OK!",50,95,100,20,fenster,1)
labela = CreateLabel("Ihr Benutzername:"   , 5,0, 180,20, fenster)
labelb = CreateLabel("Ihr Paßwort:", 5,45, 180,20, fenster)
eingabea = CreateTextField (5,20, 180,20, fenster)
eingabeb = CreateTextField (5,65, 180,20, fenster, 1)
ActivateGadget eingabea


Repeat
 ereignis = WaitEvent()
 If ereignis = $401 And EventSource() = eingabeb Then
  SetStatusText fenster, "Passwort Incorrect"
If eingabeb = "desperado" Then
SetStatusText fenster, "Passwort Accept"
EndIf
EndIf
 If ereignis = $803 Then End 
Forever

If eingabea=desperado And eingabeb=desperado Then Goto ie

.ie

Start=LoadSound(".\sounds\start.mp3")
Ende=LoadSound(".\sounds\ende.mp3")

PlaySound Start

button1 = CreateButton("Zurück",5,5,50,25,fenster,1)
button2 = CreateButton("Weiter",55,5,50,25,fenster,1)
button3 = CreateButton("Aktualisieren",105,5,75,25, fenster,1)
button4 = CreateButton("Startseite",180,5,55,25,fenster,1)
button5 = CreateButton("Los!",560,650,50,20,fenster,1)
homepage$ = CreateTextField (400,650,150,20, fenster)
SetGadgetText homepage$, "http://"

menu10 = CreateMenu ("Datei", 10, WindowMenu(fenster))
menu20 = CreateMenu ("Commandos", 20, WindowMenu(fenster))
menu30 = CreateMenu ("Bearbeiten", 30, WindowMenu(Fenster))
menu40 = CreateMenu ("Ansicht", 40, WindowMenu(Fenster))
menu50 = CreateMenu ("Hilfe", 50, WindowMenu(Fenster))


menu11 = CreateMenu ("Google Suche", 11, menu10)
menu12 = CreateMenu ("Beta-version", 12, menu10)
menu21 = CreateMenu ("Home", 21, menu20)
menu22 = CreateMenu ("Offlinebetrieb", 22, menu20)
menu23 = CreateMenu ("Automatisch Aktualisieren", 23, menu20)
menu31 = CreateMenu ("Quellcode", 31, menu30)
menu41 = CreateMenu ("Vollbild", 41, menu40)
menu42 = CreateMenu ("Fenster", 42, menu40)
menu51 = CreateMenu ("About", 51, menu50)
menu52 = CreateMenu ("Credits", 52, menu50)
menu53 = CreateMenu ("Info", 53, menu50)


UpdateWindowMenu fenster

DisableMenu menu12
DisableMenu menu22
DisableMenu menu23
DisableMenu menu31
DisableMenu menu41
DisableMenu menu51



CheckMenu menu12
CheckMenu menu21
CheckMenu menu42




;leiste = CreateProgBar (200,650,150,20, fenster)
;For I#=0 To 1.1 Step 0.1
;UpdateProgBar leiste, I
;Delay 50
;Next




html = CreateHtmlView (0,35, 1015,595, fenster)
HtmlViewGo html, "www.blitzforum.de"

Function credits()
win = CreateWindow("credits",300,200,300,200,0,1)
l = CreateLabel("                         ..::Internet Explorer2::.."+Chr(13)+Chr(13)+"                       Main Code: Desperado"+Chr(13)+"              Some parts of code: Wild-Storm"+Chr(13)+"                           Sounds: Desperado"+Chr(13)+Chr(13)+Chr(13)+"                       Visit: www.blitzcoders.de"+Chr&#...uot;                        and: www.wild-storm.de",0,0,280,380,win)
Repeat
a = WaitEvent()
ende = 1

Until ende = 1
FreeGadget win
End Function

b=WaitEvent()
If EventData() = 52 Then credits()
If EventSource() = button5 Then HtmlViewGo html,TextFieldText(homepage$)
If EventSource() = button2 Then HtmlViewForward html
If EventSource() = button1 Then HtmlViewBack html
If EventSource() = button4 Then HtmlViewGo html, "www.blitzforum.de"


      
Repeat
Until KeyDown(1) Or b = $803




PlaySound ende
For I#=0 To 1.1 Step 0.1
Delay 100
Next
End

Global win = CreateWindow ("TEST",100,100, 200,200)
Global textfeld = CreateTextField (10,25,100,20,win,1)
Global button  = CreateButton("OK!",10,95,100,20,win,1)

Repeat
   Select WaitEvent($FF)
   
    :Case $803  End
   :Case $401
      Select EventSource()
      ::Case textfeld 
         If EventData () = 13 Buttonklick()
      ::Case    button
         Buttonklick()
      End Select
   End Select

Forever
End ;#############

Function Buttonklick()
; Password checken
; und zum Spiel
End Function