Jump to content

Dot


Recommended Posts

You know that you can't just add dots wherever you want in the script and expect

it to work, right ? Anyway, it would be kind of useful if you actually showed us

some example code where it fails.

Edited by Helge
Link to comment
Share on other sites

You know that you can't just add dots wherever you want in the script and expect

it to work, right ? Anyway, it would be kind of useful if you actually showed us

some example code where it fails.

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

Go to This site for my best product!

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...