
Somebody Someware
Active Members-
Posts
29 -
Joined
-
Last visited
Somebody Someware's Achievements

Seeker (1/7)
0
Reputation
-
Case Else and EndIf error
Somebody Someware replied to Somebody Someware's topic in AutoIt General Help and Support
I removed one rule of code and it works, thank you guys for helping me. -
Case Else and EndIf error
Somebody Someware replied to Somebody Someware's topic in AutoIt General Help and Support
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 -
Case Else and EndIf error
Somebody Someware replied to Somebody Someware's topic in AutoIt General Help and Support
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 -
Case Else and EndIf error
Somebody Someware replied to Somebody Someware's topic in AutoIt General Help and Support
$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. -
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.
-
Converting an variable to a string
Somebody Someware replied to Somebody Someware's topic in AutoIt General Help and Support
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. -
Converting an variable to a string
Somebody Someware replied to Somebody Someware's topic in AutoIt General Help and Support
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. -
Converting an variable to a string
Somebody Someware replied to Somebody Someware's topic in AutoIt General Help and Support
I KNOW THAT!!! THAT'S WHY I'M ASKING FOR A WAY TO CONVERT AN VARIABLE TO A STRING!!! -
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
-
This message is right!
-
Thank you very much! Having an own extension is so cool!
-
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
-
If I put a dot anywhere in the script AutoIt will just exit. How do I fix that? Thanks in advance.