Warum Fehler?

Gary12345

Hallo,

erstmal der ganze Code:

Code

' Code erzeugt mit F.Abbing's LemonViD Version 1.0.0.2 am 24.09.2012 um 17:44 Uhr,
' Spenden-Button, sowie weitere Freeware-Tools für XProfan auf http://frabbing.net
' Technischer Support auf http://www.paules-pc-forum.de/forum/xprofan und http://purebasic.fr/german
' --------------------------------------------------------------------------------------------------


Declare nurso%, button1%, button2%, button3%, button4%, button5%, button6%, button7%, button8%, button9%, button10%, button11%
Declare syslink1%


Def GetStockObject(1) !"GDI32","GetStockObject"
Def GetSysColor(1) !"USER32","GetSysColor"
Def GetParent(1) !"USER32","GetParent"


Def &COLOR_BTNFACE $F
Def &DEFAULT_GUI_FONT $11


' Alle Variablen, außer die, die nur innerhalb einer Prozedur benötigt werden
Declare button1%, button2%, button3%, button4%, button5%, button6%, button7%
Declare button1e%, button2e%, button3e%, button4e%, button5e%, button6e%, button7e%
Declare rtfdatei$
Declare start$, Adobe$, Skype$, ServicePack$, Produktname$, Owner$
Declare SoftwareType$, SytsemRoot$, FireFox$, Java$, Autostart$
Declare Datei1$, x%, y%, WinV$, WinP$, SysP$, Java32$, FlashPlayer$
Declare Reader$, Version!, Version$, AdobeVersion$
Declare Lang%, Window%


Datei1$ = $ProgDir + "Updatelog.txt"


x% = %MaxX 
y% = %MaxY 




'Prozeduren 


Proc MakeWindow
  Window% = Create("Dialog",%hwnd, "Updatechecker",0,0,600,500)
  If Lang%
    Exit% = Create("Button", Window%, "Close", 16, Height(Window%) - 44, 128, 40)
    Create("ToolTip", Window%, Exit%, "Close Window")
  Else
    Exit% = Create("Button", Window%, "Schließen", 16, Height(Window%) - 44, 128, 40)
    Create("ToolTip", Window%, Exit%, "Fenster schließen")
  EndIf
EndProc


Proc Log_Schreiben
  Assign #1,Datei1$
  Rewrite #1 
  print #1, "**************************************************************"
  print #1, "Updatechecker by Gary12345 Version 2.0.1."
  print #1, "**************************************************************"
  print #1, ""
  print #1, "Windows:" + Produktname$
  print #1, ""
  print #1,"Service Pack:" + ServicePack$
  print #1, ""
  print #1, "Besitzername:" + Owner$
  print #1, ""
  print #1, "Softwaretyp:" + SoftwareType$
  print #1, ""
  print #1, "Skype-Version:" + Skype$
  print #1, ""
  print #1, "InternetExplorerVersion:" + start$
  print #1, ""
  print #1, "Firefoxversion:" + FireFox$
  print #1, ""
  print #1, "Java Version 32bit:" + Java32$
  print #1, ""
  print #1, "Adobe Flashplayer:" + FlashPlayer$
  print #1, ""
  print #1, "Adobe Reader Version" + AdobeVersion$
  print #1, ""
  print #1, "Horizontale Bildschirmauflösung: " + str$(x%) + " Pixel"
  print #1, ""
  print #1, "Vertikale Bildschirmauflösung: " + str$(y%) + " Pixel"
  print #1, ""
  print #1, "Windowsversion: " + $WinVer
  print #1, ""
  print #1, "Windowsverzeichnis: " + $WinPath
  print #1, ""
  print #1, "Windows-Systemverzeichnis: " + $SysPath
  print #1, ""
  print #1, "*****************************************************************"
  print #1, ""
  print #1, "***** Made by Gary12345 *****"
  close #1
  ShellExec(Datei1$,"open",1)
EndProc


Proc Get_Version
  Declare Window%, Exit%, Log%
  MakeWindow
  Log% = Create("Button", Window%, "Save", 188, Height(Window%) - 44, 128, 40)
  Decimals 1
  SET("ErrorLevel", -1)
  Repeat
    Version! = Version! + 0.1
    Reader$ = "SOFTWARE\Adobe\Acrobat Reader\" + Str$(Version!)
    Version$ = ReadINI$("HKEY_2", Reader$, "")
    If %Error = 0 'wenn der Schlüssel vorhanden ist...
      AdobeVersion$ = "Adobe Reader Version: " + Str$(Version!)
    EndIf
  Until Version! >= 100
  StartPaint Window%
  UseFont "ARIAL", 14, 0, 0, 0, 0
  TextColor 0, -1
  DrawText 4,20, AdobeVersion$
  DrawText 4,40, "Horizontale Bildschirmauflösung:" + Str$(x%)
  DrawText 4,60, "Vertikale Bildschirmauflösung:" + Str$(y%)
  DrawText 4,80, "WindowsVersion:" + $WinVer
  DrawText 4,100, "Windowsverzeichnis:" + $WinPath
  DrawText 4,120, "Windows-Systemverzeichnis:" + $SysPath
  DrawText 4,140, "Windows:" + Produktname$
  DrawText 4,160, "ServicePack:" + ServicePack$
  DrawText 4,180, "Besitzername:" + Owner$
  DrawText 4,200, "Softwaretyp:" + SoftwareType$
  DrawText 4,220, "Skype-Version:" + Skype$
  DrawText 4,240, "InternetExplorer-Version:" + start$
  DrawText 4,260, "Firefox-Version:" + FireFox$
  DrawText 4,280, "Java-Version:" + Java$ + Java32$
  DrawText 4,300, "FlashPlayer-Version:" + FlashPlayer$
  TextColor RGB(128, 0, 32), -1
  DrawText 4,360, "Jetzt können Sie diese Informationen in ein Textdokument darstellen lassen, dazu klicken Sie auf den Button Speichern"
  While 1
    WaitInput
    If %Key = 2
      Break
    Elseif Clicked(Log%)
      Log_Schreiben
    ElseIf Clicked(Exit%)
      Break
    EndIf
  EndWhile
  DestroyWindow(Window%)
EndProc
Proc Aktuell_Version
  Declare Window%, Exit%
  MakeWindow
  StartPaint Window%
  TextColor 0, -1
  Usefont "Arial", 14, 0, 1, 1, 0, 0
  DrawText 4,20, "Willkommen zu diesem Bereich"
  DrawText 4,40, "Hier werden sie die aktuellsten Versionen kennenlernen"
  DrawText 4,60, "Google Chrome Version: 21.0.1180.89"
  DrawText 4,80, "Firefox Version: 15.0.1"
  DrawText 4,100, "Skype Version: 5.10.0.116"
  DrawText 4,120, "Adobe Reader Version: 10.1.4"
  DrawText 4,140, "Adobe Flash Player Version: 11.4.402.278"
  DrawText 4,160, "InternetExplorer Version: 9.0.8112.16421"
  DrawText 4,180, "Java Version: Java7 Update 7"
  DrawText 4,200, "Wenn Sie updaten möchten, gehen sie zum Menüpunkt Programme updaten!"
  DrawText 4,220, "Updates sind wichtig und ich bitte Sie alle Programme upzudaten!"
  DrawText 4,240, "Was sind Updates?"
  DrawText 4,260, "Schauen Sie hier: http://windows.microsoft.com/en-MY/windows-vista/What-are-updates"
  EndPaint
  While 1
    WaitInput
    Case Clicked(Exit%) : Break
    Case %Key = 2 : Break
  EndWhile
  DestroyWindow(Window%)
EndProc






Proc Update_Action
  Declare Window%, Exit%, Button20%,Button21%,Button22%,Button23%, Button24%
  MakeWindow

  Button20% = Create("Button", Window%, "Firefox", 200, 80, 200, 50)
              Create("Tooltip",Window%,Button20%,"Firefox updaten")
  Button21% = Create("Button", Window%, "Google Chrome", 200, 150, 200, 50)
              Create("Tooltip",Window%,Button20%,"Chrome updaten")
  Button22% = Create("Button", Window%, "AdobeFlashPlayer", 200, 220, 200, 50)
              Create("Tooltip",Window%,Button20%,"Adobe Flash Player updaten")
  Button23% = Create("Button", Window%, "AdobeReader", 200, 290, 200, 50)
              Create("Tooltip",Window%,Button20%,"AdobeReader updaten")
  Button24% = Create("Button", Window%, "Java", 200, 360, 200, 50)
              Create("Tooltip",Window%,Button20%,"Java updaten")
  While 1
    WaitInput
    If %Key = 2
      Break
    ElseIf Clicked(Exit%)
      Break
    ElseIf Clicked(Button20%)
      ShellExec("http://www.mozilla.org", "", 1)
    ElseIf Clicked(Button21%)
      ShellExec("https://www.google.com/intl/de/chrome/browser/", "", 1)
    ElseIf Clicked(Button22%)
      ShellExec("http://get.adobe.com/de/flashplayer/", "", 1)
    ElseIf Clicked(Button23%)
      ShellExec("http://get.adobe.com/de/reader/", "", 1)
    ElseIf Clicked(Button24%)
      ShellExec("http://www.java.com/de/download/", "", 1)
    EndIf
  EndWhile
  DestroyWindow(Window%)
EndProc
Proc Info_Message
  Declare Window%, Exit%
  MakeWindow
  StartPaint Window%
  TextColor 0, -1
  Usefont "Arial", 18, 0, 1, 1, 0, 0
  TextColor 0, -1
  DrawText 24, 20, "     Name: Gerrit Wolf"
  DrawText 24, 60, "     Benutzername: Gary12345"
  DrawText 24,100, "     Alter: 15 (13.07.1997)"
  DrawText 24,150, "    Wohnort: Landkreis Altötting"
  DrawText 24,200, "    Foren: Paules-PC-Forum,"
  DrawText 88,280,"     Programming in Xprofan"
  EndPaint
    While 1
    WaitInput
    Case Clicked(Exit%) : Break
    Case %Key = 2 : Break
  EndWhile
  DestroyWindow(Window%)
EndProc


Proc Foren_1
Declare Window%, Exit%
  MakeWindow
  StartPaint Window%
  TextColor 0, -1
  Usefont "Arial", 18, 0, 1, 1, 0, 0
  TextColor 0, -1
  DrawText 24, 20, "     Paules-PC-Forum"
  DrawText 24, 60, "     Norton Forum"


  EndPaint
    While 1
    WaitInput
    Case Clicked(Exit%) : Break
    Case %Key = 2 : Break
  EndWhile
  DestroyWindow(Window%)
EndProc




Proc Version_Info
  Declare Window%, Exit%
  MakeWindow
  StartPaint Window%
  Usefont "Arial", 18, 0, 1, 1, 0, 0
  TextColor 0, -1
  DrawText 8, 24, "     Updatechecker by Gary12345"
  DrawText 32,50, "          Version 2.0.1."
  DrawText 8,76, "     made on 23.09.2012"
  DrawText 8,102, "    made for Paules-PC-Forum.de"
  DrawText 8,180,"################################"
  EndPaint
  While 1
    WaitInput
    Case Clicked(Exit%) : Break
    Case %Key = 2 : Break
  EndWhile
  DestroyWindow(Window%)
EndProc


Proc CreateElements


  WindowStyle 26 | 512 | 2048
  WindowTitle "Updatechecker "
  Window 779, 265 - 506, 528


  Cls GetSysColor(&COLOR_BTNFACE)
  SetDialogFont GetStockObject(&DEFAULT_GUI_FONT)


  button1% = Create("Button", %hwnd, "Versionen ermitteln", 16, 48, 112, 32)
  Create("Tooltip", %hwnd, button1%, "Versionen ermitteln")


  button2% = Create("Button", %hwnd, "Aktuelle Versionen", 176, 48, 112, 32)
  Create("Tooltip", %hwnd, button2%, "Aktuelle Versionen")


  button3% = Create("Button", %hwnd, "Programme Updaten", 336, 48, 112, 32)
  Create("Tooltip", %hwnd, button3%, "Programme Updaten")


  button4% = Create("Button", %hwnd, "PC abmelden", 16, 160, 112, 32)
  Create("Tooltip", %hwnd, button4%, "PC abmelden")


  button5% = Create("Button", %hwnd, "PC herunterfahren", 176, 160, 112, 32)
  Create("Tooltip", %hwnd, button5%, "PC herunterfahre")


  button6% = Create("Button", %hwnd, "PC neustarten", 336, 160, 104, 32)
  Create("Tooltip", %hwnd, button6%, "PC neustaren")


  button7% = Create("Button", %hwnd, "Über den Autor ", 16, 272, 112, 32)
  Create("Tooltip", %hwnd, button7%, "Über den Autor ")


  button8% = Create("Button", %hwnd, "Über das Programm", 176, 272, 112, 32)
  Create("Tooltip", %hwnd, button8%, "Über das Programm")


  button9% = Create("Button", %hwnd, "Foren", 336, 272, 112, 32)
  Create("Tooltip", %hwnd, button9%, "Foren")


  button10% = Create("Button", %hwnd, "Hilfe", 136, 344, 200, 48)
  Create("Tooltip", %hwnd, button10%, "Hilfe")


  button11% = Create("Button", %hwnd, "Schließen", 136, 416, 200, 48)
  Create("Tooltip", %hwnd, button11%, "Schließen")


  syslink1% = Control("SysLink", "<a>http://www.paules-pc-forum.de/forum/members/gary12345-u24886.htm</a>", $50000000, 8, 472, 344, 24, %hwnd, $4000, %hInstance, 0)
  Create("Tooltip", %hwnd, syslink1%, "http://www.paules-pc-forum.de/forum/members/gary12345-u24886.htm")


EndProc


Proc MainLoop


  UserMessages 16
  ShowWindow(%hwnd, 1)


  While 1


    WaitInput


    Case %umessage = 16 : BREAK


    If Clicked(button1%)  '#window
    Get_Version


    ElseIf Clicked(button2%)  '#window
    Aktuell_Version


    ElseIf Clicked(button3%)  '#window
    Update_Action


    ElseIf Clicked(button4%)  '#window
    ExitWindows(3)
    ElseIf Clicked(button5%)  '#window
    ExitWindows(4)

    ElseIf Clicked(button6%)  '#window
    ExitWindows(5)
    ElseIf Clicked(button7%)  '#window
    Info_Message

    ElseIf Clicked(button8%)  '#window
     Version_Info



    ElseIf Clicked(button9%)  '#window
    Foren_1


    ElseIf Clicked(button10%)  '#window
    ShellExec($ProgDir + "Hilfe.pdf", "", 1)


    ElseIf Clicked(button11%)  '#window
    End


    ElseIf Clicked(syslink1%)  '#window
      ShellExec("http://www.paules-pc-forum.de/forum/members/gary12345-u24886.htm", "", 1)


    EndIf


  EndWhile


EndProc




Proc Main


  CreateElements
  MainLoop


EndProc


Main


End

Alles anzeigen

Warum kommt eine Fehlermeldung, wenn ich das Komplitat erstellen will, eine Fehlermeldung: Es stimmt irgendwas nicht mit ExitWindows

LG

Werbepost

Hallo!

Wenn du gerade an deiner Website arbeitest oder dein aktuelles Hosting überdenkst: Wir betreiben mit NetzLiving eine Hosting-Plattform, die speziell auf Performance, Sicherheit und einfache Verwaltung ausgelegt ist.

✔️ Schnelle Ladezeiten (optimiert für WordPress, WoltLab & Co.)
✔️ Deutsche Server & DSGVO-konform
✔️ Persönlicher Support (kein 0815-Ticket-System)

Mehr erfahren

Wenn du Fragen hast, kannst du dich gerne jederzeit an @Maximilian Rupp wenden

Hinweis:

Volkmar

Schau mal in die Hilfe zu ExitWindows. Da siehst Du, das es sich nicht um eine Funktion mit Rückgabewert sondern einen Befehl handelt, also Parameter ohne Klammern angeben. Aber schon mal vor dem Compilieren versucht, das Programm im Interpreter zu starten? "Variable doppelt deklariert". Sowas geht nicht, siehe Zeile 6 und Zeile 17.

Gruß Volkmar

ts-soft

In Zeile 18 werden Variablen deklariert, die bereits in Zeile 7 deklariert wurden!

Volkmar

Ich kam auf andere Zeilennummern, die erste Leerzeile hat's bei mir nicht kopiert.

Gruß Volkmar

Gary12345

Geht jetzt alles problemlos

Jetzt mitmachen!