API tools faq
paste
Advertisement
EpicKnarvik97

Autoit Crash

EpicKnarvik97
Sep 3rd, 2014
244
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 20.52 KB | None | 0 0
raw download clone embed print report
  1. #RequireAdmin
  2. #region ;**** Directives created by AutoIt3Wrapper_GUI ****
  3. #AutoIt3Wrapper_Icon=Resources\Google Chrome Icon by Greasy Bacon.ico
  4. #AutoIt3Wrapper_Outfile=Varierendetimeplan.exe
  5. #AutoIt3Wrapper_Outfile_x64=Varierendetimeplan.exe
  6. #AutoIt3Wrapper_Compression=4
  7. #AutoIt3Wrapper_UseUpx=n
  8. #AutoIt3Wrapper_UseX64=n
  9. #AutoIt3Wrapper_Res_Description=Varierende Timeplan
  10. #AutoIt3Wrapper_Res_Fileversion=1.3.0.64
  11. #AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
  12. #AutoIt3Wrapper_Res_ProductVersion=2.0
  13. #AutoIt3Wrapper_Res_LegalCopyright=Kristian Knarvik
  14. #endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
  15.  
  16. #include <GUIConstantsEx.au3>
  17. #include <Inet.au3>
  18. #include <Date.au3>
  19. #include <WindowsConstants.au3>
  20. #include <GuiComboBoxEx.au3>
  21. #include <File.au3>
  22.  
  23. #region Global Constants
  24. Global Const $Widt = 127
  25. Global Const $reg = "HKEY_CURRENT_USER\Software\KnarCraft\Varierendetimeplan\"
  26. Global Const $InstallLoc = RegRead("HKEY_CURRENT_USER\Software\KnarCraft\Varierendetimeplan\", "Installdir")
  27. Global Const $CurrentWeek = _WeekNumberISO()
  28. Global Const $OldVer = RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Uninstall\Varierendetimeplan", "DisplayVersion")
  29. Global Const $UpdateFileDir = @TempDir & "\Updater.exe"
  30. #endregion Global Constants
  31.  
  32. CheckForUpdate()
  33.  
  34. #region Gui
  35. Global $Time1, $Time2, $Time3, $Time4, $Time5, $Time6, $Time7, $Time8, $Label, $Button2, $delete, $MondayTEST, $TuesdayTEST, $WednesdayTEST, $ThursdayTEST, $FridayTEST, $Label1, $Label2, $Label3, $Label4, $Label5, $TestLabel1, $TestLabel2, $TestLabel3, $TestLabel4, $TestLabel5
  36. Local $hGuiWin = GUICreate("Timeplan", 388, 340, "", "")
  37.  
  38. $SettingsMenu = GUICtrlCreateMenu("Innstillinger")
  39. $FagSetting = GUICtrlCreateMenuItem("Fag", $SettingsMenu)
  40.  
  41. Local $pic1 = GUICtrlCreatePic($InstallLoc & "\Filer\Timeplan bilde.bmp", 0, 0, 395, 296)
  42. $Input1 = GUICtrlCreateInput($CurrentWeek, (395 / 2) - ($Widt / 2) - 4, 298, $Widt, 20)
  43. GUICtrlCreateLabel($CurrentWeek, 22, 35)
  44. Fomt()
  45. #region Mandag
  46. $Mandag1 = GUICtrlCreateLabel("", 85, 65, 40, 25)
  47. Fomt()
  48. $Mandag2 = GUICtrlCreateLabel("", 85, 95, 40, 25)
  49. Fomt()
  50. $Mandag3 = GUICtrlCreateLabel("", 85, 124, 40, 25)
  51. Fomt()
  52. $Mandag4 = GUICtrlCreateLabel("", 85, 154, 40, 25)
  53. Fomt()
  54. $Mandag5 = GUICtrlCreateLabel("KLT", 85, 183, 40, 25)
  55. Fomt()
  56. $Mandag6 = GUICtrlCreateLabel("NO", 85, 213, 40, 25)
  57. Fomt()
  58. $Mandag7 = GUICtrlCreateLabel("KRØ", 85, 242, 40, 25)
  59. Fomt()
  60. $Mandag8 = GUICtrlCreateLabel("KRØ", 85, 272, 40, 25)
  61. Fomt()
  62. #endregion Mandag
  63.  
  64. #region Tirsdag
  65. $Tirsdag1 = GUICtrlCreateLabel("", 153, 65, 40, 25)
  66. Fomt()
  67. $Tirsdag2 = GUICtrlCreateLabel("", 153, 95, 40, 25)
  68. Fomt()
  69. $Tirsdag3 = GUICtrlCreateLabel("", 153, 124, 40, 25)
  70. Fomt()
  71. $Tirsdag4 = GUICtrlCreateLabel("", 153, 154, 40, 25)
  72. Fomt()
  73. $Tirsdag5 = GUICtrlCreateLabel("", 153, 183, 40, 25)
  74. Fomt()
  75. $Tirsdag6 = GUICtrlCreateLabel("", 153, 213, 40, 25)
  76. Fomt()
  77. $Tirsdag7 = GUICtrlCreateLabel("", 153, 242, 40, 25)
  78. Fomt()
  79. $Tirsdag8 = GUICtrlCreateLabel("", 153, 272, 40, 25)
  80. Fomt()
  81. #endregion Tirsdag
  82.  
  83. #region Onsdag
  84. $Onsdag1 = GUICtrlCreateLabel("NO", 219, 65, 40, 25)
  85. Fomt()
  86. $Onsdag2 = GUICtrlCreateLabel("NO", 219, 95, 40, 25)
  87. Fomt()
  88. $Onsdag3 = GUICtrlCreateLabel("", 219, 124, 40, 25)
  89. Fomt()
  90. $Onsdag4 = GUICtrlCreateLabel("", 219, 154, 40, 25)
  91. Fomt()
  92. $Onsdag5 = GUICtrlCreateLabel("", 219, 183, 40, 25)
  93. Fomt()
  94. $Onsdag6 = GUICtrlCreateLabel("HI2", 219, 213, 40, 25)
  95. Fomt()
  96. $Onsdag7 = GUICtrlCreateLabel("", 219, 242, 40, 25)
  97. Fomt()
  98. $Onsdag8 = GUICtrlCreateLabel("", 219, 272, 40, 25)
  99. Fomt()
  100. #endregion Onsdag
  101.  
  102. #region Torsdag
  103. $Torsdag1 = GUICtrlCreateLabel("", 284, 65, 40, 25)
  104. Fomt()
  105. $Torsdag2 = GUICtrlCreateLabel("", 284, 95, 40, 25)
  106. Fomt()
  107. $Torsdag3 = GUICtrlCreateLabel("", 284, 124, 40, 25)
  108. Fomt()
  109. $Torsdag4 = GUICtrlCreateLabel("", 284, 154, 40, 25)
  110. Fomt()
  111. $Torsdag5 = GUICtrlCreateLabel("", 284, 183, 40, 25)
  112. Fomt()
  113. $Torsdag6 = GUICtrlCreateLabel("HI2", 284, 213, 40, 25)
  114. Fomt()
  115. $Torsdag7 = GUICtrlCreateLabel("", 284, 242, 40, 25)
  116. Fomt()
  117. $Torsdag8 = GUICtrlCreateLabel("", 284, 272, 40, 25)
  118. Fomt()
  119. #endregion Torsdag
  120.  
  121. #region Fredag
  122. $Fredag1 = GUICtrlCreateLabel("", 345, 65, 40, 25)
  123. Fomt()
  124. $Fredag2 = GUICtrlCreateLabel("", 345, 95, 40, 25)
  125. Fomt()
  126. $Fredag3 = GUICtrlCreateLabel("", 345, 124, 40, 25)
  127. Fomt()
  128. $Fredag4 = GUICtrlCreateLabel("", 345, 154, 40, 25)
  129. Fomt()
  130. $Fredag5 = GUICtrlCreateLabel("", 345, 183, 40, 25)
  131. Fomt()
  132. $Fredag6 = GUICtrlCreateLabel("", 345, 213, 40, 25)
  133. Fomt()
  134. $Fredag7 = GUICtrlCreateLabel("", 345, 242, 40, 25)
  135. Fomt()
  136. $Fredag8 = GUICtrlCreateLabel("", 345, 272, 40, 25)
  137. Fomt()
  138. #endregion Fredag
  139.  
  140. $NextButton = GUICtrlCreateButton("Neste Uke", 386 - $Widt, 298, $Widt, 20)
  141. Fomt()
  142. $BackButton = GUICtrlCreateButton("Forrige Uke", 2, 298, $Widt, 20)
  143. Fomt()
  144. $TestButton2 = GUICtrlCreateButton("Prøver", 1, 1, 64, 25)
  145. Fomt()
  146. $TestButton = GUICtrlCreateButton("Prøver", 1, 1, 64, 25)
  147. GUICtrlSetState($TestButton, $GUI_ONTOP)
  148. Fomt()
  149. ReadWeekdate($CurrentWeek)
  150. GUISetState(@SW_SHOW)
  151. #endregion Gui
  152.  
  153. Load()
  154.  
  155. While 1
  156.     $msg = GUIGetMsg()
  157.     $Week = GUICtrlRead($Input1)
  158.     Switch $msg
  159.         Case $GUI_EVENT_CLOSE
  160.             Exit
  161.         Case $Input1
  162.             ReadWeekdate($Week)
  163.         Case $NextButton
  164.             $Week += 1
  165.             If $Week > 52 Then $Week = 1
  166.             GUICtrlSetData($Input1, $Week)
  167.             ReadWeekdate($Week)
  168.         Case $BackButton
  169.             $Week -= 1
  170.             If $Week < 1 Then $Week = 52
  171.             GUICtrlSetData($Input1, $Week)
  172.             ReadWeekdate($Week)
  173.         Case $TestButton
  174.             GUISetState(@SW_DISABLE, $hGuiWin)
  175.             Tests()
  176.             GUISetState(@SW_ENABLE, $hGuiWin)
  177.             WinActivate($hGuiWin)
  178.         Case $FagSetting
  179.             $GUIPos = WinGetPos($hGuiWin)
  180.             $GUI3 = GUICreate("Innstillinger", $GUIPos[2], $GUIPos[3], $GUIPos[0], $GUIPos[1], BitOR($WS_POPUP, $WS_SYSMENU), $WS_EX_DLGMODALFRAME)
  181.             $Dropdown1 = GUICtrlCreateCombo("Velg Valgfag", 10, 10, 200, 25, $CBS_DROPDOWNLIST)
  182.             GUICtrlSetData(-1, "Ingen|R1|Internasjonal Engelsk")
  183.             If Not RegRead($reg, "Valgfag1") = "" Then GUICtrlSetData(-1, RegRead($reg, "Valgfag1"))
  184.             $Dropdown2 = GUICtrlCreateCombo("Velg Valgfag", 10, 40, 200, 25, $CBS_DROPDOWNLIST)
  185.             GUICtrlSetData(-1, "Ingen|Biologi|Fysikk|Sosialkunnskap|Entreprenørskap 1")
  186.             If Not RegRead($reg, "Valgfag2") = "" Then GUICtrlSetData(-1, RegRead($reg, "Valgfag2"))
  187.             $Dropdown3 = GUICtrlCreateCombo("Velg Valgfag", 10, 70, 200, 25, $CBS_DROPDOWNLIST)
  188.             GUICtrlSetData(-1, "Kjemi 1|Økonomistyring")
  189.             If Not RegRead($reg, "Valgfag3") = "" Then GUICtrlSetData(-1, RegRead($reg, "Valgfag3"))
  190.             $Dropdown4 = GUICtrlCreateCombo("Velg Valgfag", 10, 100, 200, 25, $CBS_DROPDOWNLIST)
  191.             GUICtrlSetData(-1, "Ingen|Breddeidrett")
  192.             If Not RegRead($reg, "Valgfag4") = "" Then GUICtrlSetData(-1, RegRead($reg, "Valgfag4"))
  193.             $Dropdown5 = GUICtrlCreateCombo("Velg Språk", 10, 130, 200, 25, $CBS_DROPDOWNLIST)
  194.             GUICtrlSetData(-1, "Tysk|Spansk|Fransk")
  195.             If Not RegRead($reg, "Språk") = "" Then GUICtrlSetData(-1, RegRead($reg, "Språk"))
  196.             $Dropdown6 = GUICtrlCreateCombo("Velg Valgfag", 220, 100, 100, 25, $CBS_DROPDOWNLIST)
  197.             GUICtrlSetData(-1, "Ingen|2X")
  198.             If Not RegRead($reg, "Valgfag6") = "" Then GUICtrlSetData(-1, RegRead($reg, "Valgfag6"))
  199.             $Close = GUICtrlCreateButton("Close", 0, $GUIPos[3] - 25, $GUIPos[2], 25)
  200.             GUISetState(@SW_SHOW)
  201.             While 1
  202.                 $msg = GUIGetMsg()
  203.                 Switch $msg
  204.                     Case WinActive($GUI3), $Close
  205.                         If GUICtrlRead($Dropdown1) = "Velg Valgfag" Or GUICtrlRead($Dropdown2) = "Velg Valgfag" Or GUICtrlRead($Dropdown3) = "Velg Valgfag" Or GUICtrlRead($Dropdown4) = "Velg Valgfag" Or GUICtrlRead($Dropdown5) = "Velg Språk" Then
  206.                             MsgBox(-1, "Advarsel!", "En eller flere valgfag er ikke valgt og sprogrammet vil da ikke kunne fungere ordentlig. Vennligst sjekk om det ikke står 'Velg Valgfag' eller 'Velg Språk' på noen av listene.")
  207.                         Else
  208.                             RegWrite($reg, "Valgfag1", "REG_SZ", GUICtrlRead($Dropdown1))
  209.                             RegWrite($reg, "Valgfag2", "REG_SZ", GUICtrlRead($Dropdown2))
  210.                             RegWrite($reg, "Valgfag3", "REG_SZ", GUICtrlRead($Dropdown3))
  211.                             RegWrite($reg, "Valgfag4", "REG_SZ", GUICtrlRead($Dropdown4))
  212.                             RegWrite($reg, "Språk", "REG_SZ", GUICtrlRead($Dropdown5))
  213.                             RegWrite($reg, "Valgfag6", "REG_SZ", GUICtrlRead($Dropdown6))
  214.                             GUIDelete($GUI3)
  215.                             Load()
  216.                             ExitLoop
  217.                         EndIf
  218.                 EndSwitch
  219.             WEnd
  220.     EndSwitch
  221. WEnd
  222.  
  223. Func SjekkFredagar($i)
  224.     If RegRead($reg, "Valgfag1") = "Ingen" Then $Valg1 = ""
  225.     If RegRead($reg, "Valgfag2") = "Ingen" Then $Valg2 = ""
  226.     If RegRead($reg, "Valgfag4") = "Ingen" Then $Valg4 = ""
  227.     If RegRead($reg, "Valgfag6") = "Ingen" Then $Valg6 = ""
  228.  
  229.     If RegRead($reg, "Valgfag1") = "R1" Then $Valg1 = "R1"
  230.     If RegRead($reg, "Valgfag1") = "Internasjonal Engelsk" Then $Valg1 = "IEN"
  231.  
  232.     If RegRead($reg, "Valgfag2") = "Fysikk" Then $Valg2 = "FY1"
  233.     If RegRead($reg, "Valgfag2") = "Biologi" Then $Valg2 = "BI2"
  234.     If RegRead($reg, "Valgfag2") = "Sosialkunnskap" Then $Valg2 = "SO"
  235.     If RegRead($reg, "Valgfag2") = "Entreprenørskap 1" Then $Valg2 = "EB1"
  236.  
  237.     If RegRead($reg, "Valgfag3") = "Kjemi 1" Then $Valg3 = "KJ1"
  238.     If RegRead($reg, "Valgfag3") = "Økonomistyring" Then $Valg3 = "ØKS"
  239.  
  240.     If RegRead($reg, "Valgfag4") = "Breddeidrett" Then $Valg4 = "ID1"
  241.  
  242.     If RegRead($reg, "Valgfag5") = "Tysk" Then $Valg5 = "TY2"
  243.     If RegRead($reg, "Valgfag5") = "Fransk" Then $Valg5 = "FR1"
  244.     If RegRead($reg, "Valgfag5") = "Spansk" Then $Valg5 = "SP2"
  245.  
  246.     If RegRead($reg, "Valgfag6") = "2X" Then $Valg6 = "2X"
  247.  
  248.     For $f = 1 To _FileCountLines($InstallLoc & "\Filer\Fredager.txt")
  249.         If StringInStr(FileReadLine($InstallLoc & "\Filer\Fredager.txt", $f), $i) Then
  250.             $Fredagar = StringSplit(FileReadLine($InstallLoc & "\Filer\Fredager.txt", $f), "|", 2)
  251.         EndIf
  252.     Next
  253.     Switch $Valg1
  254.         Case $Fredagar[1]
  255.             Fredagar($Valg1)
  256.         Case $Fredagar[2]
  257.             Fredagar($Valg1)
  258.     EndSwitch
  259.     Switch $Valg2
  260.         Case $Fredagar[1]
  261.             Fredagar($Valg2)
  262.         Case $Fredagar[2]
  263.             Fredagar($Valg2)
  264.         Case $Fredagar[3]
  265.             Fredagar($Valg2)
  266.         Case $Fredagar[4]
  267.             Fredagar($Valg2)
  268.     EndSwitch
  269.     Switch $Valg3
  270.         Case $Fredagar[1]
  271.             Fredagar($Valg3)
  272.         Case $Fredagar[2]
  273.             Fredagar($Valg3)
  274.     EndSwitch
  275.     Switch $Valg4
  276.         Case $Fredagar[1]
  277.             Fredagar($Valg4)
  278.     EndSwitch
  279.  
  280.  
  281.     Switch $Valg5
  282.         Case $Fredagar[1]
  283.             Fredagar($Valg5)
  284.         Case $Fredagar[2]
  285.             Fredagar($Valg5)
  286.         Case $Fredagar[3]
  287.             Fredagar($Valg5)
  288.     EndSwitch
  289.     MsgBox(-1, "S", "Hello")
  290.  
  291.     Switch $Valg6
  292.         Case $Fredagar[1]
  293.             Fredagar($Valg6)
  294.     EndSwitch
  295.     Switch $Fredagar[1]
  296.         Case "NO"
  297.             Fredagar($Fredagar[1])
  298.     EndSwitch
  299.  
  300.     If $i = 46 Or $i = 49 Or $i = 7 Or $i = 16 Then
  301.         If RegRead($reg, "Valgfag2") = "Fysikk" Then
  302.             Fredagar("FY1")
  303.         EndIf
  304.     ElseIf $i = 35 Then
  305.         If RegRead($reg, "Valgfag2") = "Kjemi" Then
  306.             Fredagar("KJ1")
  307.         EndIf
  308.     Else
  309.         Fredagar("")
  310.     EndIf
  311. EndFunc   ;==>SjekkFredagar
  312.  
  313. Func Fredagar($i)
  314.     GUICtrlSetData($Fredag1, $i)
  315.     GUICtrlSetData($Fredag2, $i)
  316.     GUICtrlSetData($Fredag3, $i)
  317.     GUICtrlSetData($Fredag4, $i)
  318.     GUICtrlSetData($Fredag6, $i)
  319.     GUICtrlSetData($Fredag7, $i)
  320.     GUICtrlSetData($Fredag8, $i)
  321. EndFunc   ;==>Fredagar
  322.  
  323. Func Load()
  324.     Switch RegRead($reg, "Valgfag1")
  325.         Case "R1"
  326.             GUICtrlSetData($Mandag1, "R1")
  327.             GUICtrlSetData($Mandag2, "R1")
  328.             GUICtrlSetData($Onsdag3, "R1")
  329.             GUICtrlSetData($Onsdag4, "R1")
  330.         Case "Internasjonal Engelsk"
  331.             GUICtrlSetData($Mandag1, "IEN")
  332.             GUICtrlSetData($Mandag2, "IEN")
  333.             GUICtrlSetData($Onsdag3, "IEN")
  334.             GUICtrlSetData($Onsdag4, "IEN")
  335.         Case "Ingen"
  336.             GUICtrlSetData($Mandag1, "")
  337.             GUICtrlSetData($Mandag2, "")
  338.             GUICtrlSetData($Tirsdag1, "MAP")
  339.             GUICtrlSetData($Tirsdag2, "MAP")
  340.             GUICtrlSetData($Onsdag3, "")
  341.             GUICtrlSetData($Onsdag4, "")
  342.     EndSwitch
  343.     If RegRead($reg, "Valgfag1") = "R1" And RegRead($reg, "Valgfag4") = "Ingen" Then
  344.         GUICtrlSetData($Tirsdag1, "2X")
  345.         GUICtrlSetData($Tirsdag2, "2X")
  346.     ElseIf RegRead($reg, "Valgfag1") = "Internasjonal Engelsk" Then
  347.         GUICtrlSetData($Tirsdag1, "MAP")
  348.         GUICtrlSetData($Tirsdag2, "MAP")
  349.     ElseIf RegRead($reg, "Valgfag1") = "R1" And RegRead($reg, "Valgfag2") = "Ingen" And RegRead($reg, "Valgfag4") = "Breddeidrett" Then
  350.         GUICtrlSetData($Tirsdag1, "2X")
  351.         GUICtrlSetData($Tirsdag2, "2X")
  352.     ElseIf RegRead($reg, "Valgfag1") = "R1" And RegRead($reg, "Valgfag4") = "Breddeidrett" Then
  353.         If RegRead($reg, "Valgfag6") = "Ingen" Then
  354.             GUICtrlSetData($Tirsdag1, "")
  355.             GUICtrlSetData($Tirsdag2, "")
  356.         Else
  357.             GUICtrlSetData($Tirsdag1, "2X")
  358.             GUICtrlSetData($Tirsdag2, "2X")
  359.         EndIf
  360.     EndIf
  361.     Switch RegRead($reg, "Valgfag2")
  362.         Case "Ingen"
  363.             GUICtrlSetData($Mandag3, "")
  364.             GUICtrlSetData($Mandag4, "")
  365.             GUICtrlSetData($Onsdag7, "")
  366.             GUICtrlSetData($Onsdag8, "")
  367.         Case "Biologi"
  368.             GUICtrlSetData($Mandag3, "BI2")
  369.             GUICtrlSetData($Mandag4, "BI2")
  370.             GUICtrlSetData($Onsdag7, "BI2")
  371.             GUICtrlSetData($Onsdag8, "BI2")
  372.         Case "Fysikk"
  373.             GUICtrlSetData($Mandag3, "FY1")
  374.             GUICtrlSetData($Mandag4, "FY1")
  375.             GUICtrlSetData($Onsdag7, "FY1")
  376.             GUICtrlSetData($Onsdag8, "FY1")
  377.         Case "Sosialkunnskap"
  378.             GUICtrlSetData($Mandag3, "SO")
  379.             GUICtrlSetData($Mandag4, "SO")
  380.             GUICtrlSetData($Onsdag7, "SO")
  381.             GUICtrlSetData($Onsdag8, "SO")
  382.         Case "Entreprenørskap 1"
  383.             GUICtrlSetData($Mandag3, "EB1")
  384.             GUICtrlSetData($Mandag4, "EB1")
  385.             GUICtrlSetData($Onsdag7, "EB1")
  386.             GUICtrlSetData($Onsdag8, "EB1")
  387.     EndSwitch
  388.     If RegRead($reg, "Valgfag3") = "Kjemi 1" Then
  389.         GUICtrlSetData($Tirsdag3, "KJ1")
  390.         GUICtrlSetData($Tirsdag4, "KJ1")
  391.         GUICtrlSetData($Torsdag7, "KJ1")
  392.         GUICtrlSetData($Torsdag8, "KJ1")
  393.     Else
  394.         GUICtrlSetData($Tirsdag3, "ØKS")
  395.         GUICtrlSetData($Tirsdag4, "ØKS")
  396.         GUICtrlSetData($Torsdag7, "ØKS")
  397.         GUICtrlSetData($Torsdag8, "ØKS")
  398.     EndIf
  399.     If RegRead($reg, "Valgfag4") = "Breddeidrett" Then
  400.         If RegRead($reg, "Valgfag6") = "2X" Then
  401.             GUICtrlSetData($Tirsdag1, "2X")
  402.             GUICtrlSetData($Tirsdag2, "2X")
  403.  
  404.         EndIf
  405.         GUICtrlSetData($Tirsdag7, "ID1")
  406.         GUICtrlSetData($Tirsdag8, "ID1")
  407.         GUICtrlSetData($Torsdag3, "ID1")
  408.         GUICtrlSetData($Torsdag4, "ID1")
  409.     Else
  410.         GUICtrlSetData($Tirsdag7, "")
  411.         GUICtrlSetData($Tirsdag8, "")
  412.         GUICtrlSetData($Torsdag3, "")
  413.         GUICtrlSetData($Torsdag4, "")
  414.     EndIf
  415.     Switch RegRead($reg, "Språk")
  416.         Case "Tysk"
  417.             GUICtrlSetData($Tirsdag6, "TY2")
  418.             GUICtrlSetData($Torsdag1, "TY2")
  419.             GUICtrlSetData($Torsdag2, "TY2")
  420.         Case "Spansk"
  421.             GUICtrlSetData($Tirsdag6, "SP2")
  422.             GUICtrlSetData($Torsdag1, "SP2")
  423.             GUICtrlSetData($Torsdag2, "SP2")
  424.         Case "Fransk"
  425.             GUICtrlSetData($Tirsdag6, "FR2")
  426.             GUICtrlSetData($Torsdag1, "FR2")
  427.             GUICtrlSetData($Torsdag2, "FR2")
  428.     EndSwitch
  429. EndFunc   ;==>Load
  430.  
  431. Func Tests()
  432.     Local $Week2 = $Week
  433.     $TestGUI = GUICreate("Prøver", 388, 150)
  434.     $Days = GUICtrlCreateLabel("Mandag:", 1, 1, 50, 25) & GUICtrlCreateLabel("Tirsdag:", 1, 27, 50, 25) & GUICtrlCreateLabel("Onsdag:", 1, 54, 50, 25) & GUICtrlCreateLabel("Torsdag:", 1, 81, 50, 25) & GUICtrlCreateLabel("Fredag:", 1, 108, 50, 25)
  435.     $MondayTEST = GUICtrlCreateLabel("", 50, 1, 318, 25)
  436.     $TuesdayTEST = GUICtrlCreateLabel("", 50, 27, 318, 25)
  437.     $WednesdayTEST = GUICtrlCreateLabel("", 50, 54, 318, 25)
  438.     $ThursdayTEST = GUICtrlCreateLabel("", 50, 81, 318, 25)
  439.     $FridayTEST = GUICtrlCreateLabel("", 50, 108, 318, 25)
  440.     $BackButton2 = GUICtrlCreateButton("Forrige uke", "", 125, 60, 25)
  441.     $NextButton2 = GUICtrlCreateButton("Neste uke", 90, 125, 60, 25)
  442.     $Input2 = GUICtrlCreateInput($Week2, 60, 130, 30, 20)
  443.     $TestLabel1 = GUICtrlCreateLabel("", 350, 1, 60, 25)
  444.     $TestLabel2 = GUICtrlCreateLabel("", 350, 27, 60, 25)
  445.     $TestLabel3 = GUICtrlCreateLabel("", 350, 54, 60, 25)
  446.     $TestLabel4 = GUICtrlCreateLabel("", 350, 81, 60, 25)
  447.     $TestLabel5 = GUICtrlCreateLabel("", 350, 108, 60, 25)
  448.     GUISetState(@SW_SHOW)
  449.     TestChecker($Week2)
  450.     LabelCheck2($Week2)
  451.     While 1
  452.         $msg = GUIGetMsg()
  453.         $Week2 = GUICtrlRead($Input2)
  454.         Switch $msg
  455.             Case $Input2
  456.                 TestChecker($Week2)
  457.                 LabelCheck2($Week2)
  458.             Case $GUI_EVENT_CLOSE
  459.                 GUIDelete($TestGUI)
  460.                 ExitLoop
  461.             Case $NextButton2
  462.                 $Week2 += 1
  463.                 If $Week2 > 52 Then $Week2 = 1
  464.                 GUICtrlSetData($Input2, $Week2)
  465.                 TestChecker($Week2)
  466.                 LabelCheck2($Week2)
  467.             Case $BackButton2
  468.                 $Week2 -= 1
  469.                 If $Week2 < 1 Then $Week2 = 52
  470.                 GUICtrlSetData($Input2, $Week2)
  471.                 TestChecker($Week2)
  472.                 LabelCheck2($Week2)
  473.         EndSwitch
  474.     WEnd
  475. EndFunc   ;==>Tests
  476.  
  477. Func TestChecker($i)
  478.     $Tests = StringSplit(FileReadLine($InstallLoc & "\Filer\Prøver.txt", $i), ":", 2)
  479.     GUICtrlSetData($MondayTEST, $Tests[0])
  480.     GUICtrlSetData($TuesdayTEST, $Tests[1])
  481.     GUICtrlSetData($WednesdayTEST, $Tests[2])
  482.     GUICtrlSetData($ThursdayTEST, $Tests[3])
  483.     GUICtrlSetData($FridayTEST, $Tests[4])
  484. EndFunc   ;==>TestChecker
  485.  
  486. Func Fomt()
  487.     GUICtrlSetFont(-1, 12, "", "", "Arial")
  488.     GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
  489. EndFunc   ;==>Fomt
  490.  
  491. Func CheckIfTest($i)
  492.     If FileReadLine($InstallLoc & "\Filer\Om Prøve.txt", $i) = 1 Then Return 1
  493. EndFunc   ;==>CheckIfTest
  494.  
  495. Func ReadWeekdate($i)
  496.     SjekkFredagar($i)
  497.     If CheckIfTest($i) = 1 Then
  498.         GUICtrlSetData($TestButton, "Prøver!")
  499.         GUICtrlSetData($TestButton2, "Prøver!")
  500.     Else
  501.         GUICtrlSetData($TestButton, "Prøver")
  502.         GUICtrlSetData($TestButton2, "Prøver")
  503.     EndIf
  504.     LabelCheck($i)
  505. EndFunc   ;==>ReadWeekdate
  506.  
  507. Func Label($text1, $text2, $text3, $text4, $text5)
  508.     Local $Div1 = 80, $Div2 = 145, $Div3 = 210, $Div4 = 278, $Div5 = 339
  509.     $Label1 = GUICtrlCreateLabel($text1, $Div1, 5, 40, 15)
  510.     Fomt()
  511.     $Label2 = GUICtrlCreateLabel($text2, $Div2, 5, 40, 15)
  512.     Fomt()
  513.     $Label3 = GUICtrlCreateLabel($text3, $Div3, 5, 40, 15)
  514.     Fomt()
  515.     $Label4 = GUICtrlCreateLabel($text4, $Div4, 5, 40, 15)
  516.     Fomt()
  517.     $Label5 = GUICtrlCreateLabel($text5, $Div5, 5, 40, 15)
  518.     Fomt()
  519. EndFunc   ;==>Label
  520.  
  521. Func LabelCheck($Input)
  522.     $LabelDelete = GUICtrlDelete($Label1) & GUICtrlDelete($Label2) & GUICtrlDelete($Label3) & GUICtrlDelete($Label4) & GUICtrlDelete($Label5)
  523.  
  524.     Local $Year = @YEAR
  525.  
  526.     Local $s = _DateFromWeekNumber($Year, $Input)
  527.     Local $sDates = _DateFormat($s, "dd.MM")
  528.     For $i = 1 To 6
  529.         $sDates &= "|" & _DateFormat(_DateAdd("D", $i, $s), "dd.MM")
  530.     Next
  531.     ;ConsoleWrite($sDates & @LF)
  532.     Local $aDates = StringSplit($sDates, "|", 2)
  533.     $Label = Label($aDates[0], $aDates[1], $aDates[2], $aDates[3], $aDates[4])
  534. EndFunc   ;==>LabelCheck
  535.  
  536. Func LabelCheck2($Input)
  537.     Local $Year = @YEAR
  538.  
  539.     Local $s = _DateFromWeekNumber($Year, $Input)
  540.     Local $sDates = _DateFormat($s, "dd.MM")
  541.     For $i = 1 To 6
  542.         $sDates &= "|" & _DateFormat(_DateAdd("D", $i, $s), "dd.MM")
  543.     Next
  544.     ;ConsoleWrite($sDates & @LF)
  545.     Local $aDates = StringSplit($sDates, "|", 2)
  546.     GUICtrlSetData($TestLabel1, $aDates[0])
  547.     GUICtrlSetData($TestLabel2, $aDates[1])
  548.     GUICtrlSetData($TestLabel3, $aDates[2])
  549.     GUICtrlSetData($TestLabel4, $aDates[3])
  550.     GUICtrlSetData($TestLabel5, $aDates[4])
  551. EndFunc   ;==>LabelCheck2
  552.  
  553. Func _DateFromWeekNumber($iYear, $iWeekNum)
  554.     Local $Date, $sFirstDate = _DateToDayOfWeek($iYear, 1, 1)
  555.     If $sFirstDate < 6 Then
  556.         $Date = _DateAdd("D", 2 - $sFirstDate, $iYear & "/01/01")
  557.     ElseIf $sFirstDate = 6 Then
  558.         $Date = _DateAdd("D", $sFirstDate - 3, $iYear & "/01/01")
  559.     ElseIf $sFirstDate = 7 Then
  560.         $Date = _DateAdd("D", $sFirstDate - 5, $iYear & "/01/01")
  561.     EndIf
  562.     ;ConsoleWrite(_DateToDayOfWeek($iYear, 1, 1) &"  ")
  563.     Local $aDate = StringSplit($Date, "/", 2)
  564.     Return _DateAdd("w", $iWeekNum - 1, $aDate[0] & "/" & $aDate[1] & "/" & $aDate[2])
  565. EndFunc   ;==>_DateFromWeekNumber
  566.  
  567. Func _DateFormat($sDate, $sFormat)
  568.     $hGui = GUICreate("")
  569.     $idDate = GUICtrlCreateDate($sDate, 10, 10)
  570.     GUICtrlSendMsg($idDate, 0x1032, 0, $sFormat) ; or "dddd, MMMM d, yyyy hh:mm:ss tt"); or "hh:mm tt"
  571.     $FormatedDate = GUICtrlRead($idDate)
  572.     GUIDelete($hGui)
  573.     Return $FormatedDate
  574. EndFunc   ;==>_DateFormat
  575.  
  576. Func CheckForUpdate()
  577.     If Ping("192.168.200.111", 10) Then
  578.         $Mysql_fredager = _INetGetSource("http://192.168.200.111/downloadpage/varierendetimeplan/getfredager.php")
  579.         If Not $Mysql_fredager = "" Then
  580.             FileDelete($InstallLoc & "\Filer\Fredager.txt")
  581.             _FileCreate($InstallLoc & "\Filer\Fredager.txt")
  582.             FileWrite($InstallLoc & "\Filer\Fredager.txt", $Mysql_fredager)
  583.         EndIf
  584.         $Mysql_version = _INetGetSource("http://192.168.200.111/downloadpage/varierendetimeplan/getversion.php")
  585.         If Not $Mysql_version = "" Then
  586.             If $Mysql_version <> $OldVer Then
  587.                 If InetGet('http://192.168.200.111/downloadpage/varierendetimeplan/UpdatePackage.exe', $UpdateFileDir) Then
  588.                     If FileGetSize($UpdateFileDir) > 10 * 1024 Then
  589.                         If MsgBox(36, "Information", "Ny oppdatering tilgjengelig. Vil du oppdatere?") = 6 Then
  590.                             Run($UpdateFileDir)
  591.                             ProcessClose("Varierendetimeplan.exe")
  592.                             ProcessClose("VarierendetimeplanMini.exe")
  593.                             Exit
  594.                         Else
  595.                             FileDelete($UpdateFileDir)
  596.                         EndIf
  597.                     EndIf
  598.                 EndIf
  599.             EndIf
  600.         EndIf
  601.     Else
  602.         TrayTip("Feil", "Databasen kunne ikke kontaktes", 3)
  603.     EndIf
  604. EndFunc   ;==>CheckForUpdate
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!