If Keyhit(15) Then ;<-- Keyhit(15) ist TAB
ACTIVATEGADGET Gadget  ;<-- Hiermit setzt du das Gadget Aktiv
EndIf

  If KeyDown(15) Then
    End
    If gadgetenabled(namef) Then
     ActivateGadget passwortf
    End If
  End If
  we=WaitEvent()
  evs=EventSource()
  evd=EventData()
  DebugLog "WaitEvent(): "+Hex$(we)
  DebugLog "EventSource(): "+evs
  DebugLog "EventData(): "+evd
  Select GetKey()
  Case 27 kh1=1
  End Select
  Select we
  Case $101
   Select evd
   Case 15 End
   End Select
   End
  Case $401
   Select evs
   Case button hallo=1
   End Select
  Case $803 : kh1=1
  End Select

status=0
deskw=ClientWidth(Desktop())
deskh=ClientHeight(Desktop())
window=CreateWindow("ML FriendGames",50,50,deskw-100,deskh-100,Desktop(),7)
label=CreateLabel("",5,5,deskw-100,20,window)
name=CreateLabel("Name:",5,35,50,20,window)
passwort=CreateLabel("Passwort:",5,55,50,20,window)
namef=CreateTextField(60,32,80,20,window)
passwortf=CreateTextField(60,52,80,20,window,1)
button=CreateButton("Login",5,100,50,25,window,1)
HotKeyEvent 15,0,$1001,0,0,0,0
Repeat
 status=0
 While status=0 And kh1=0
  hallo=0
  we=WaitEvent()
  evs=EventSource()
  evd=EventData()
  DebugLog "WaitEvent(): "+Hex$(we)
  DebugLog "EventSource(): "+evs
  DebugLog "EventData(): "+evd
  Select GetKey()
  Case 27 kh1=1
  End Select
  Select we
  Case $101
   Select evd
   Case 15 End
   End Select
   End
  Case $401
   Select evs
   Case button hallo=1
   End Select
  Case $803 : kh1=1
  Case $1001
    If gadgetenabled(namef) Then
     ActivateGadget passwortf
    End If
  End Select
  If hallo Then
   user$=TextFieldText$(namef)
   pass$=TextFieldText$(passwortf)
   status=Login(user$,pass$)
   If status Then
    HideGadget name
    HideGadget passwort
    HideGadget namef
    HideGadget passwortf
    SetGadgetText button,"Logout"
   Else
    SetGadgetText label,"Benutzername oder Passwort sind falsch!"
   End If
  End If
 Wend
 While kh1=0
  If GetKey()=27 Then kh1=1
  SetGadgetText label,"Willkommen "+user$
  Select WaitEvent()
  Case $803 : kh1=1
  End Select
 Wend
 DebugLog kh1
Until kh1

Function HTTP_Get(URL$, URLFile$, InFile$)
 DownloadStream = OpenTCPStream( URL$, 80 )
 If Not DownloadStream Then Return 0
 SENDHEADER$ = "GET /" + URLFile$ + " HTTP/1.0" + Chr$(13)+Chr$(10)
 SENDHEADER$ = SENDHEADER$ + "Accept: *.*, */*" + Chr$(13)+Chr$(10)
 SENDHEADER$ = SENDHEADER$ + "Connection: close" + Chr$(13)+Chr$(10)
 SENDHEADER$ = SENDHEADER$ + "Range: bytes=0-" + Chr$(13)+Chr$(10)
 SENDHEADER$ = SENDHEADER$ + "Host: " + URL$ + Chr$(13)+Chr$(10)
 SENDHEADER$ = SENDHEADER$ + "Referer: " + URL$ + "/" + URLFile$ + Chr$(13)+Chr$(10)
 SENDHEADER$ = SENDHEADER$ + "User-Agent: BrowserName" + Chr$(13)+Chr$(10)
 SENDHEADER$ = SENDHEADER$ + Chr$(13) + Chr$(10)
 WriteLine DownloadStream, SENDHEADER$   
 Repeat
 header$ = ReadLine(DownloadStream)
 Until header$ = "" Or (Eof(DownloadStream))
 ToStream = WriteFile(InFile$)
 While Not Eof(DownloadStream)
 WriteByte ToStream, ReadByte(DownloadStream)
 Wend
 CloseTCPStream DownloadStream
 CloseFile ToStream
 Return 1
End Function
Function Login(user$,pass$)
HTTP_Get("kryan.gpages.de","WebProject/login.php?user="+user$+"&pass="+pass$,"temp\myfile.txt")
file=ReadFile("temp\myfile.txt")
id=0
Repeat
 char$=Chr$(ReadByte(file))
 If char$="~" Then id=Int(ReadLine$(file))
Until Eof(file) Or id
CloseFile file
Return id
End Function
Function GadgetEnabled(Gadget)
 Local HWnd
 HWnd = QueryObject(Gadget, 1)
 Return IsWindowEnabled(HWnd)
End Function