Jump to content

Somebody Someware

Active Members
  • Posts

    29
  • Joined

  • Last visited

Somebody Someware's Achievements

Seeker

Seeker (1/7)

0

Reputation

  1. I removed one rule of code and it works, thank you guys for helping me.
  2. Tidy gave me this information: c:\program files\extreme cleaner\extremecleaner2150alpha(just started).au3(712) : ### Tidy Error -> "endselect" is closing previous "case" c:\program files\extreme cleaner\extremecleaner2150alpha(just started).au3(714) : ### Tidy Error -> "wend" is closing previous "select" Partial code: Case Else ;;; ;### Tidy Error -> "endselect" is closing previous "case" EndSelect ;### Tidy Error -> "wend" is closing previous "select" WEnd Exit I still don't get it :S
  3. Ok, here it is. While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $exit Exit Case $msg = $addremovebackgroundcleaner If FileExists(@StartupCommonDir &"\backgroundclean.exe") Then FileDelete(@StartupCommonDir &"\backgroundclean.exe") #Region --- CodeWizard generated code Start --- ;MsgBox features: Title=Yes, Text=Yes, Buttons=OK, Icon=Info MsgBox(64,"Extreme Cleaner",$backgroundcleanerdisabled) #EndRegion --- CodeWizard generated code End --- Else FileCopy( @ScriptDir &"\backgroundclean.exe", @StartupCommonDir &"\backgroundclean.exe" ) #Region --- CodeWizard generated code Start --- ;MsgBox features: Title=Yes, Text=Yes, Buttons=OK, Icon=Info MsgBox(64,"Extreme Cleaner",$backgroundcleanerenabled) #EndRegion --- CodeWizard generated code End --- EndIf Case $msg = $Button_6 GUISetState( @SW_HIDE, $gui_1 ) GUISetState( @SW_SHOW, $gui_2 ) Case $msg = $switch GUISetState( @SW_HIDE, $gui_2 ) GUISetState( @SW_SHOW, $gui_1 ) Case $msg = $Button_2 [indent][/indent][indent][/indent][indent][/indent]HIDDEN CODE HERE Case Else ;;; EndSelect WEnd Exit It gives me the following error: C:\Program Files\Extreme Cleaner\extremecleaner2150alpha(just started).au3(709,3) : ERROR: missing EndIf. Case ^ The error is about the rule that reads: Case Else
  4. $totalcleaningtime=TimerDiff($totalcleaningtimestart)/1000/60 If @OSLang=0413 Or @OSLang=0813 Then #Region --- CodeWizard generated code Start --- ;MsgBox features: Title=Yes, Text=Yes, Buttons=OK, Icon=Info MsgBox(64,"Extreme Cleaner","Computer geoptimaliseerd in "&$totalcleaningtime &" minuten.", 30) #EndRegion --- CodeWizard generated code End --- Else #Region --- CodeWizard generated code Start --- ;MsgBox features: Title=Yes, Text=Yes, Buttons=OK, Icon=Info MsgBox(64,"Extreme Cleaner","Computer optimized in "&$totalcleaningtime &" minutes.", 30) #EndRegion --- CodeWizard generated code End --- EndIf GUICtrlSetState( $Button_2, $GUI_SHOW ) GUICtrlSetState( $Button_6, $GUI_SHOW ) If GUICtrlRead($Checkbox_3)=$GUI_CHECKED Then Shutdown(5) EndIf Case Else ;;; EndSelect WEnd Exit It's not the full code but I can't disclose the full code.
  5. I have this usual GUI thing with a lot of stuff inside but when I try to run it SciTi sais there should be EndIf after Case Else. I didn't think so but like, you know, I just tried it. After trying it I got 4 errors instead of one. Please help me, I've been coding all week on this. It's for Extreme Cleaner, my award-winning software program. And I have to get it finished because I've got an interview soon. http://www.extremecleaner.eu/ Please help me, Ruben van Os, 15 year old programmer.
  6. The solution doesn't work. I think I just have to bundle all files without an IniRead operation. I thank you all for doing your best and I'm sorry for the shouting etc. Please forgive me.
  7. Sorry for the shouting but I think the problem still isn't clear. I just want an string to be a variable like: "string1"=$variable1 So FileInstall wil work. B.T.W. I will try his way but I tought it was something else then I ment.
  8. I KNOW THAT!!! THAT'S WHY I'M ASKING FOR A WAY TO CONVERT AN VARIABLE TO A STRING!!!
  9. I have made an installation program but the problem is that I have to use a variable to get the file details but I can't put an variable in the "source" part of FileInstall. Is there a way to convert an variable to a string? Please help me.
  10. I made this: $nutteloos = 1 Do Opt( "WinTitleMatchMode", 2 ) #include <IE.au3> $oIE = _IECreate ("http://www.google.com/") #include <IE.au3> $site = _IEPropertyGet ( $oIE, "locationurl" ) If $site = ( "http://www.google.com/" ) Then TrayTip( "WebWarner 1.0 door Ruben van Os", "Dit is een goedgekeurde site", 30 ) EndIf Until $nutteloos = 0 But it doesn't work. Please help my
  11. This message is right!
  12. Thank you very much! Having an own extension is so cool!
  13. This is where it goes wrong: Func DoIt() Send( "{ALTDOWN}" ) Send( "d" ) Send( "{ALTUP}" ) Send( "{CTRLDOWN}" ) Send( "a" ) Send( "{CTRLUP}" ) Send( "{CTRLDOWN}" ) Send( "c" ) Send( "{CTRLUP}" ) $phrase = ClipGet() If FileExists( $phrase".easywebber" ) Then $answer = FileReadLine( $phrase".easywebber" ) Send( "{BACKSPACE}" ) Send( $answer ) Send( "{ENTER}" ) ClipPut( "" ) Else MsgBox(0, "EasyWebber","Even geduld alstublieft.",1) Send( "{ALTDOWN}" ) Send( "d" ) Send( "{ALTUP}" ) Send( "{CTRLDOWN}" ) Send( "a" ) Send( "{CTRLUP}" ) Send( "{CTRLDOWN}" ) Send( "c" ) Send( "{CTRLUP}" ) $phrase = ClipGet() If FileExists( $phrase ) Then $answer = FileReadLine( $phrase".easywebber" ) Send( "{BACKSPACE 100}" ) Send( $answer ) Send( "{ENTER}" ) ClipPut( "" ) Else #Region --- CodeWizard generated code Start --- ;MsgBox features: Title=Yes, Text=Yes, Buttons=OK, Icon=Critical, Timeout=30 ss, Miscellaneous=Top-most attribute If Not IsDeclared("iMsgBoxAnswer") Then Dim $iMsgBoxAnswer $iMsgBoxAnswer = MsgBox(262160,"Fout","Er is een fout opgetreden." & @CRLF & "Het is een goed idee om het opnieuw te proberen door Shift+Enter in te drukken nadat u deze foutmelding heeft afgesloten." & @CRLF & "Indien u deze foutmelding blijft krijgen controleer dan of de snelkoppeling bestaat" & @CRLF & "Indien u dit beide nagekeken hebt en deze foutmelding blijft verschijnen neem dan contact op met EasyWebber support" & @CRLF & "rubenvanos@gmail.com" & @CRLF & "Sorry voor het eventuele ongemak.",30) Select Case $iMsgBoxAnswer = -1 ;Timeout Case Else ;OK EndSelect #EndRegion --- CodeWizard generated code End --- EndIf EndIf EndFunc
  14. If I put a dot anywhere in the script AutoIt will just exit. How do I fix that? Thanks in advance.
×
×
  • Create New...