Sign in to follow this  
Followers 0
lm1

msgboxes

18 posts in this topic

is there a command to put in with looping message boxes that will make the next box a random position on the screen?

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

is there a command to put in with looping message boxes that will make the next box a random position on the screen?

Technically, No.

A msgbox Is always in the center of the screen, However there is one way

I Don't know who I got this code from, but i know it wasn't me :whistle:

It does what PaulIA suggests

Do
$xpos = Random(1, 500,1)
$ypos = Random(1, 500,1)
$TestValue = _MoveMsgBox(68, "Testing Move MsgBox", 'Would you like to continue?' & @CRLF & 'If you would like to continue click Yes, otherwise press No', 0, $xpos, $ypos, 1)
Until 2= 1


Func _MoveMsgBox($MBFlag, $MBTitle, $MBText, $MBTimeOut, $MBxPos, $MByPos, $MBContinue = 0)
    Local $MBFile = FileOpen(EnvGet("temp") & "\MiscMMB.txt", 2)
    Local $MBFile2 = FileOpen(EnvGet("temp") & "\MiscMMB2.txt", 2)
    If $MBFile = -1 Or $MBFile2 = -1 Then Return 0
   
    Local $LineDelimter = '', $MBPID1 = '', $MBPID2 = ''
   
    If UBound(StringSplit($MBText, @CRLF, 1)) - 2 > 0 Then
        $LineDelimter = @CRLF
    ElseIf UBound(StringSplit($MBText, @CR, 1)) - 2 > 0 Then
        $LineDelimter = @CR
    ElseIf UBound(StringSplit($MBText, @LF, 1)) - 2 > 0 Then
        $LineDelimter = @LF
    EndIf
   
    Local $SSpMB = StringSplit($MBText, $LineDelimter, 1)
    If UBound($SSpMB) - 2 > 0 And $LineDelimter <> '' Then
        Local $MBLine1 = '#NoTrayIcon'
        FileWriteLine($MBFile, $MBLine1)
       
        $MsgBoxLine1 = '#NoTrayIcon'
        FileWriteLine($MBFile2, $MsgBoxLine1)
       
        Local $MsgBoxLine[UBound($SSpMB)]
        Local $LinesToShow = ''
        For $iCount = 1 To UBound($SSpMB) - 1
            FileWriteLine($MBFile, '$MsgBoxLine' & $iCount & ' = "' & $SSpMB[$iCount] & '"')
            FileWriteLine($MBFile2, '$MsgBoxLine' & $iCount & ' = "' & $SSpMB[$iCount] & '"')
            If $iCount < UBound($SSpMB) - 1 Then
                $LinesToShow &= '$MsgBoxLine' & $iCount & ' & @CRLF & '
            Else
                $LinesToShow &= '$MsgBoxLine' & $iCount
            EndIf
        Next

        Local $MBLine2 = 'While 1'
        Local $MBLine3 = '    If WinExists("' & $MBTitle & '", ' & '$MsgBoxLine1' & ') Then'
        Local $MBLine4 = '        While WinExists("' & $MBTitle & '", ' & '$MsgBoxLine1' & ')'
        Local $MBLine5 = '            ControlMove("' & $MBTitle & '", ' & '$MsgBoxLine1' & ', "", ' & $MBxPos & ', ' & $MByPos & ')'
        Local $MBLine6 = '            $WinPos = WinGetPos("' & $MBTitle & '", ' & '$MsgBoxLine1' & ')'
        Local $MBLine7 = '            If IsArray($WinPos) And $WinPos[0] = ' & $MBxPos & ' And $WinPos[1] = ' & $MByPos & ' Then Exit'
        Local $MBLine8 = '        WEnd'
        Local $MBLine9 = '    EndIf'
        Local $MBLine10 = 'WEnd'
        FileWrite($MBFile, '$LinesToShow = ' & $LinesToShow & @CRLF & _
                $MBLine2 & @CRLF & _
                $MBLine3 & @CRLF & _
                $MBLine4 & @CRLF & _
                $MBLine5 & @CRLF & _
                $MBLine6 & @CRLF & _
                $MBLine7 & @CRLF & _
                $MBLine8 & @CRLF & _
                $MBLine9 & @CRLF & _
                $MBLine10)
        FileWriteLine($MBFile2, '$LinesToShow = ' & $LinesToShow)
       
        Local $MsgBoxLine2 = '$MsgBoxValue = MsgBox(' & $MBFlag & ', ''' & $MBTitle & ''', ' & '$LinesToShow' & ', ''' & $MBTimeOut & ''')'
        Local $MsgBoxLine3 = 'ConsoleWrite(' & "'MsgBoxSays'" & ' & $MsgBoxValue & ' & "'Return'" & ')'
        FileWriteLine($MBFile2, $MsgBoxLine2 & @CRLF & $MsgBoxLine3)
        FileClose($MBFile)
        FileClose($MBFile2)
    Else
        Local $MBLine1 = '#NoTrayIcon'
        ;Local $MBLine3 = 'WinWait("' & $MBTitle & '", "' & $MBText & '")'
        Local $MBLine2 = 'While 1'
        Local $MBLine3 = '    If WinExists("' & $MBTitle & '", "' & $MBText & '"' & ') Then'
        Local $MBLine4 = '        While WinExists("' & $MBTitle & '", "' & $MBText & '"' & ')'
        Local $MBLine5 = '            ControlMove("' & $MBTitle & '", "' & $MBText & '"' & ', "", ' & $MBxPos & ', ' & $MByPos & ')'
        Local $MBLine6 = '            $WinPos = WinGetPos("' & $MBTitle & '", "' & $MBText & '")'
        Local $MBLine7 = '            If IsArray($WinPos) And $WinPos[0] = ' & $MBxPos & ' And $WinPos[1] = ' & $MByPos & ' Then Exit'
        Local $MBLine8 = '        WEnd'
        Local $MBLine9 = '    EndIf'
        Local $MBLine10 = 'WEnd'
        FileWrite($MBFile, $MBLine1 & @CRLF & _
                $MBLine2 & @CRLF & _
                $MBLine3 & @CRLF & _
                $MBLine4 & @CRLF & _
                $MBLine5 & @CRLF & _
                $MBLine6 & @CRLF & _
                $MBLine7 & @CRLF & _
                $MBLine8 & @CRLF & _
                $MBLine9 & @CRLF & _
                $MBLine10)
        FileClose($MBFile)
       
        Local $MsgBoxLine1 = '#NoTrayIcon'
        Local $MsgBoxLine2 = '$MsgBoxValue = MsgBox(' & $MBFlag & ', ''' & $MBTitle & ''', ''' & $MBText & ''', ''' & $MBTimeOut & ''')'
        Local $MsgBoxLine3 = 'ConsoleWrite(' & "'MsgBoxSays'" & ' & $MsgBoxValue & ' & "'Return'" & ')'
        FileWrite($MBFile2, $MsgBoxLine1 & @CRLF & $MsgBoxLine2 & @CRLF & $MsgBoxLine3)
        FileClose($MBFile2)
    EndIf
   
    $MBPID1 = Run(@AutoItExe & " /AutoIt3ExecuteScript " & EnvGet("temp") & "\MiscMMB.txt")
    $MBPID2 = Run(@AutoItExe & ' /AutoIt3ExecuteScript ' & EnvGet("temp") & "\MiscMMB2.txt", @WorkingDir, 0, 6)
   
    WinWait($MBTitle, $MBText, 60)
    While (Not FileDelete(EnvGet("temp") & "\MiscMMB.txt") Or Not FileDelete(EnvGet("temp") & "\MiscMMB2.txt"))
        Sleep(10)
    WEnd
   
    If $MBContinue Then
        While 1
            $StdOutReadValue = StdoutRead($MBPID2)
            If StringInStr($StdOutReadValue, 'MsgBoxSays') Then
                $a_Array = StringRegExp($StdOutReadValue, '(?:MsgBoxSays)(.*?)(?:Return)', 3)
                If Not @error Then Return $a_Array[0]
                Return 0
            EndIf
            Sleep(10)
        WEnd
    EndIf
    Return 0
EndFunc   ;==>_MoveMsgBox
Edited by Paulie

Share this post


Link to post
Share on other sites

hahaha, i really have no idea how to use Autoit, im trying to learn in just to start some programs with addons etc. Any tutorials or programs that you would recomend for learning. Along the lines of creating buttons, checkboxes, msgboxes, and copying files from folder to folder.??

Share this post


Link to post
Share on other sites

Technically, No.

A msgbox Is always in the center of the screen, However there is one way

I Don't know who I got this code from, but i know it wasn't me :P

It does what PaulIA suggests

;) Ahem :whistle:

[center]Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.[/center]

Share this post


Link to post
Share on other sites

hahaha, i really have no idea how to use Autoit, im trying to learn in just to start some programs with addons etc. Any tutorials or programs that you would recomend for learning. Along the lines of creating buttons, checkboxes, msgboxes, and copying files from folder to folder.??

check out Valuaters AutoIT 1-2-3 class. Found it a great introduction.

Valuaters AutoIT 1-2-3 Class

Share this post


Link to post
Share on other sites

;) Ahem :whistle:

yes thank you for acknowledging my wonderful code Smoke :P hahahaha I KID I KID smoke wrote it maybe you should give him the credit GOOODNESS

Share this post


Link to post
Share on other sites

#7 ·  Posted (edited)

:P Ahem :whistle:

OH YEAH i remember now, thanks for the refresher.

SmOKe_N definatley made it in his awesome wonderness of spiderman incredibility! ;)

*Bows Down to Spiderman* ;)

Smoke get 99 Internets

Edited by Paulie

Share this post


Link to post
Share on other sites

so... no way to make it randomly choose place on the screen eh? Or at least set places?

Share this post


Link to post
Share on other sites

if you look the Random()'s set the x y positions of the message box if you get the coords of where u want it then it will go to the coords that u make the variables $xpos and $ypos equal to

Do
$xpos = Random(1, 500,1); change to something 
$ypos = Random(1, 500,1); change to something 
$TestValue = _MoveMsgBox(68, "Testing Move MsgBox", 'Would you like to continue?' & @CRLF & 'If you would like to continue click Yes, otherwise press No', 0, $xpos, $ypos, 1)
Until 2= 1


Func _MoveMsgBox($MBFlag, $MBTitle, $MBText, $MBTimeOut, $MBxPos, $MByPos, $MBContinue = 0)
    Local $MBFile = FileOpen(EnvGet("temp") & "\MiscMMB.txt", 2)
    Local $MBFile2 = FileOpen(EnvGet("temp") & "\MiscMMB2.txt", 2)
    If $MBFile = -1 Or $MBFile2 = -1 Then Return 0
   
    Local $LineDelimter = '', $MBPID1 = '', $MBPID2 = ''
   
    If UBound(StringSplit($MBText, @CRLF, 1)) - 2 > 0 Then
        $LineDelimter = @CRLF
    ElseIf UBound(StringSplit($MBText, @CR, 1)) - 2 > 0 Then
        $LineDelimter = @CR
    ElseIf UBound(StringSplit($MBText, @LF, 1)) - 2 > 0 Then
        $LineDelimter = @LF
    EndIf
   
    Local $SSpMB = StringSplit($MBText, $LineDelimter, 1)
    If UBound($SSpMB) - 2 > 0 And $LineDelimter <> '' Then
        Local $MBLine1 = '#NoTrayIcon'
        FileWriteLine($MBFile, $MBLine1)
       
        $MsgBoxLine1 = '#NoTrayIcon'
        FileWriteLine($MBFile2, $MsgBoxLine1)
       
        Local $MsgBoxLine[UBound($SSpMB)]
        Local $LinesToShow = ''
        For $iCount = 1 To UBound($SSpMB) - 1
            FileWriteLine($MBFile, '$MsgBoxLine' & $iCount & ' = "' & $SSpMB[$iCount] & '"')
            FileWriteLine($MBFile2, '$MsgBoxLine' & $iCount & ' = "' & $SSpMB[$iCount] & '"')
            If $iCount < UBound($SSpMB) - 1 Then
                $LinesToShow &= '$MsgBoxLine' & $iCount & ' & @CRLF & '
            Else
                $LinesToShow &= '$MsgBoxLine' & $iCount
            EndIf
        Next

        Local $MBLine2 = 'While 1'
        Local $MBLine3 = '    If WinExists("' & $MBTitle & '", ' & '$MsgBoxLine1' & ') Then'
        Local $MBLine4 = '        While WinExists("' & $MBTitle & '", ' & '$MsgBoxLine1' & ')'
        Local $MBLine5 = '            ControlMove("' & $MBTitle & '", ' & '$MsgBoxLine1' & ', "", ' & $MBxPos & ', ' & $MByPos & ')'
        Local $MBLine6 = '            $WinPos = WinGetPos("' & $MBTitle & '", ' & '$MsgBoxLine1' & ')'
        Local $MBLine7 = '            If IsArray($WinPos) And $WinPos[0] = ' & $MBxPos & ' And $WinPos[1] = ' & $MByPos & ' Then Exit'
        Local $MBLine8 = '        WEnd'
        Local $MBLine9 = '    EndIf'
        Local $MBLine10 = 'WEnd'
        FileWrite($MBFile, '$LinesToShow = ' & $LinesToShow & @CRLF & _
                $MBLine2 & @CRLF & _
                $MBLine3 & @CRLF & _
                $MBLine4 & @CRLF & _
                $MBLine5 & @CRLF & _
                $MBLine6 & @CRLF & _
                $MBLine7 & @CRLF & _
                $MBLine8 & @CRLF & _
                $MBLine9 & @CRLF & _
                $MBLine10)
        FileWriteLine($MBFile2, '$LinesToShow = ' & $LinesToShow)
       
        Local $MsgBoxLine2 = '$MsgBoxValue = MsgBox(' & $MBFlag & ', ''' & $MBTitle & ''', ' & '$LinesToShow' & ', ''' & $MBTimeOut & ''')'
        Local $MsgBoxLine3 = 'ConsoleWrite(' & "'MsgBoxSays'" & ' & $MsgBoxValue & ' & "'Return'" & ')'
        FileWriteLine($MBFile2, $MsgBoxLine2 & @CRLF & $MsgBoxLine3)
        FileClose($MBFile)
        FileClose($MBFile2)
    Else
        Local $MBLine1 = '#NoTrayIcon'
        ;Local $MBLine3 = 'WinWait("' & $MBTitle & '", "' & $MBText & '")'
        Local $MBLine2 = 'While 1'
        Local $MBLine3 = '    If WinExists("' & $MBTitle & '", "' & $MBText & '"' & ') Then'
        Local $MBLine4 = '        While WinExists("' & $MBTitle & '", "' & $MBText & '"' & ')'
        Local $MBLine5 = '            ControlMove("' & $MBTitle & '", "' & $MBText & '"' & ', "", ' & $MBxPos & ', ' & $MByPos & ')'
        Local $MBLine6 = '            $WinPos = WinGetPos("' & $MBTitle & '", "' & $MBText & '")'
        Local $MBLine7 = '            If IsArray($WinPos) And $WinPos[0] = ' & $MBxPos & ' And $WinPos[1] = ' & $MByPos & ' Then Exit'
        Local $MBLine8 = '        WEnd'
        Local $MBLine9 = '    EndIf'
        Local $MBLine10 = 'WEnd'
        FileWrite($MBFile, $MBLine1 & @CRLF & _
                $MBLine2 & @CRLF & _
                $MBLine3 & @CRLF & _
                $MBLine4 & @CRLF & _
                $MBLine5 & @CRLF & _
                $MBLine6 & @CRLF & _
                $MBLine7 & @CRLF & _
                $MBLine8 & @CRLF & _
                $MBLine9 & @CRLF & _
                $MBLine10)
        FileClose($MBFile)
       
        Local $MsgBoxLine1 = '#NoTrayIcon'
        Local $MsgBoxLine2 = '$MsgBoxValue = MsgBox(' & $MBFlag & ', ''' & $MBTitle & ''', ''' & $MBText & ''', ''' & $MBTimeOut & ''')'
        Local $MsgBoxLine3 = 'ConsoleWrite(' & "'MsgBoxSays'" & ' & $MsgBoxValue & ' & "'Return'" & ')'
        FileWrite($MBFile2, $MsgBoxLine1 & @CRLF & $MsgBoxLine2 & @CRLF & $MsgBoxLine3)
        FileClose($MBFile2)
    EndIf
   
    $MBPID1 = Run(@AutoItExe & " /AutoIt3ExecuteScript " & EnvGet("temp") & "\MiscMMB.txt")
    $MBPID2 = Run(@AutoItExe & ' /AutoIt3ExecuteScript ' & EnvGet("temp") & "\MiscMMB2.txt", @WorkingDir, 0, 6)
   
    WinWait($MBTitle, $MBText, 60)
    While (Not FileDelete(EnvGet("temp") & "\MiscMMB.txt") Or Not FileDelete(EnvGet("temp") & "\MiscMMB2.txt"))
        Sleep(10)
    WEnd
   
    If $MBContinue Then
        While 1
            $StdOutReadValue = StdoutRead($MBPID2)
            If StringInStr($StdOutReadValue, 'MsgBoxSays') Then
                $a_Array = StringRegExp($StdOutReadValue, '(?:MsgBoxSays)(.*?)(?:Return)', 3)
                If Not @error Then Return $a_Array[0]
                Return 0
            EndIf
            Sleep(10)
        WEnd
    EndIf
    Return 0
EndFunc   ;==>_MoveMsgBox

Share this post


Link to post
Share on other sites

#11 ·  Posted (edited)

so... no way to make it randomly choose place on the screen eh? Or at least set places?

Did you try what Paulie showed you?
CODE
While 1

$xpos = Random(0, (@DeskTopWidth - 200), 1)

$ypos = Random(0, (@DeskTopHeight - 100), 1)

If _MoveMsgBox(68, "Testing Move MsgBox", 'Would you like to continue?' & @CRLF & _

'If you would like to continue click Yes, otherwise press No', 0, $xpos, $ypos, 1) = 7 Then ExitLoop

WEnd

Func _MoveMsgBox($MBFlag, $MBTitle, $MBText, $MBTimeOut, $MBxPos, $MByPos, $MBContinue = 0)

Local $MBFile = FileOpen(EnvGet("temp") & "\MiscMMB.txt", 2)

Local $MBFile2 = FileOpen(EnvGet("temp") & "\MiscMMB2.txt", 2)

If $MBFile = -1 Or $MBFile2 = -1 Then Return 0

Local $LineDelimter = '', $MBPID1 = '', $MBPID2 = ''

If UBound(StringSplit($MBText, @CRLF, 1)) - 2 > 0 Then

$LineDelimter = @CRLF

ElseIf UBound(StringSplit($MBText, @CR, 1)) - 2 > 0 Then

$LineDelimter = @CR

ElseIf UBound(StringSplit($MBText, @LF, 1)) - 2 > 0 Then

$LineDelimter = @LF

EndIf

Local $SSpMB = StringSplit($MBText, $LineDelimter, 1)

If UBound($SSpMB) - 2 > 0 And $LineDelimter <> '' Then

Local $MBLine1 = '#NoTrayIcon'

FileWriteLine($MBFile, $MBLine1)

$MsgBoxLine1 = '#NoTrayIcon'

FileWriteLine($MBFile2, $MsgBoxLine1)

Local $MsgBoxLine[uBound($SSpMB)]

Local $LinesToShow = ''

For $iCount = 1 To UBound($SSpMB) - 1

FileWriteLine($MBFile, '$MsgBoxLine' & $iCount & ' = "' & $SSpMB[$iCount] & '"')

FileWriteLine($MBFile2, '$MsgBoxLine' & $iCount & ' = "' & $SSpMB[$iCount] & '"')

If $iCount < UBound($SSpMB) - 1 Then

$LinesToShow &= '$MsgBoxLine' & $iCount & ' & @CRLF & '

Else

$LinesToShow &= '$MsgBoxLine' & $iCount

EndIf

Next

Local $MBLine2 = 'While 1'

Local $MBLine3 = ' If WinExists("' & $MBTitle & '", ' & '$MsgBoxLine1' & ') Then'

Local $MBLine4 = ' While WinExists("' & $MBTitle & '", ' & '$MsgBoxLine1' & ')'

Local $MBLine5 = ' ControlMove("' & $MBTitle & '", ' & '$MsgBoxLine1' & ', "", ' & $MBxPos & ', ' & $MByPos & ')'

Local $MBLine6 = ' $WinPos = WinGetPos("' & $MBTitle & '", ' & '$MsgBoxLine1' & ')'

Local $MBLine7 = ' If IsArray($WinPos) And $WinPos[0] = ' & $MBxPos & ' And $WinPos[1] = ' & $MByPos & ' Then Exit'

Local $MBLine8 = ' WEnd'

Local $MBLine9 = ' EndIf'

Local $MBLine10 = 'WEnd'

FileWrite($MBFile, '$LinesToShow = ' & $LinesToShow & @CRLF & _

$MBLine2 & @CRLF & _

$MBLine3 & @CRLF & _

$MBLine4 & @CRLF & _

$MBLine5 & @CRLF & _

$MBLine6 & @CRLF & _

$MBLine7 & @CRLF & _

$MBLine8 & @CRLF & _

$MBLine9 & @CRLF & _

$MBLine10)

FileWriteLine($MBFile2, '$LinesToShow = ' & $LinesToShow)

Local $MsgBoxLine2 = '$MsgBoxValue = MsgBox(' & $MBFlag & ', ''' & $MBTitle & ''', ' & '$LinesToShow' & ', ''' & $MBTimeOut & ''')'

Local $MsgBoxLine3 = 'ConsoleWrite(' & "'MsgBoxSays'" & ' & $MsgBoxValue & ' & "'Return'" & ')'

FileWriteLine($MBFile2, $MsgBoxLine2 & @CRLF & $MsgBoxLine3)

FileClose($MBFile)

FileClose($MBFile2)

Else

Local $MBLine1 = '#NoTrayIcon'

;Local $MBLine3 = 'WinWait("' & $MBTitle & '", "' & $MBText & '")'

Local $MBLine2 = 'While 1'

Local $MBLine3 = ' If WinExists("' & $MBTitle & '", "' & $MBText & '"' & ') Then'

Local $MBLine4 = ' While WinExists("' & $MBTitle & '", "' & $MBText & '"' & ')'

Local $MBLine5 = ' ControlMove("' & $MBTitle & '", "' & $MBText & '"' & ', "", ' & $MBxPos & ', ' & $MByPos & ')'

Local $MBLine6 = ' $WinPos = WinGetPos("' & $MBTitle & '", "' & $MBText & '")'

Local $MBLine7 = ' If IsArray($WinPos) And $WinPos[0] = ' & $MBxPos & ' And $WinPos[1] = ' & $MByPos & ' Then Exit'

Local $MBLine8 = ' WEnd'

Local $MBLine9 = ' EndIf'

Local $MBLine10 = 'WEnd'

FileWrite($MBFile, $MBLine1 & @CRLF & _

$MBLine2 & @CRLF & _

$MBLine3 & @CRLF & _

$MBLine4 & @CRLF & _

$MBLine5 & @CRLF & _

$MBLine6 & @CRLF & _

$MBLine7 & @CRLF & _

$MBLine8 & @CRLF & _

$MBLine9 & @CRLF & _

$MBLine10)

FileClose($MBFile)

Local $MsgBoxLine1 = '#NoTrayIcon'

Local $MsgBoxLine2 = '$MsgBoxValue = MsgBox(' & $MBFlag & ', ''' & $MBTitle & ''', ''' & $MBText & ''', ''' & $MBTimeOut & ''')'

Local $MsgBoxLine3 = 'ConsoleWrite(' & "'MsgBoxSays'" & ' & $MsgBoxValue & ' & "'Return'" & ')'

FileWrite($MBFile2, $MsgBoxLine1 & @CRLF & $MsgBoxLine2 & @CRLF & $MsgBoxLine3)

FileClose($MBFile2)

EndIf

$MBPID1 = Run(@AutoItExe & " /AutoIt3ExecuteScript " & EnvGet("temp") & "\MiscMMB.txt")

$MBPID2 = Run(@AutoItExe & ' /AutoIt3ExecuteScript ' & EnvGet("temp") & "\MiscMMB2.txt", @WorkingDir, 0, 6)

WinWait($MBTitle, $MBText, 60)

While (Not FileDelete(EnvGet("temp") & "\MiscMMB.txt") Or Not FileDelete(EnvGet("temp") & "\MiscMMB2.txt"))

Sleep(10)

WEnd

If $MBContinue Then

While 1

$StdOutReadValue = StdoutRead($MBPID2)

If StringInStr($StdOutReadValue, 'MsgBoxSays') Then

$a_Array = StringRegExp($StdOutReadValue, '(?:MsgBoxSays)(.*?)(?:Return)', 3)

If Not @error Then Return $a_Array[0]

Return 0

EndIf

Sleep(10)

WEnd

EndIf

Return 0

EndFunc ;==>_MoveMsgBox

Edit:

Changed to codebox

Edited by SmOke_N

[center]Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.[/center]

Share this post


Link to post
Share on other sites

like i said i am new to autoit, that whole script is making me go cross-eyed.:s

Share this post


Link to post
Share on other sites

like i said i am new to autoit, that whole script is making me go cross-eyed.:s

Copy the script into a new.au3 file, and run it from within scite. You don't need to concern yourself with the UDF of the function, you just need to include it. Then treat the call to it _MoveMsgBox() just like you would with a regular msgbox but with the x and y coords.

Just look at the first 5 or 6 lines of pasted code to see how to make it run.


[center]Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.[/center]

Share this post


Link to post
Share on other sites

Copy the script into a new.au3 file, and run it from within scite...

You might warn a person new to the forum that copy/paste from a codebox might not work if using IE. FYI - IE7 still has this problem. Firefox 2 does not.

[size="1"][font="Arial"].[u].[/u][/font][/size]

Share this post


Link to post
Share on other sites

#15 ·  Posted (edited)

@ Paulie and thatsgreat2345,

lm1 is new to AutoIt and there is no exitloop in this version of the code.

Do
;<snipped>
Until 2= 1
;<snipped>
You must kill it manually? :-)

@lm1,

Welcome!

Edit added Paulie

Edited by herewasplato

[size="1"][font="Arial"].[u].[/u][/font][/size]

Share this post


Link to post
Share on other sites

You might warn a person new to the forum that copy/paste from a codebox might not work if using IE. FYI - IE7 still has this problem. Firefox 2 does not.

That's true, should be a warning in the header of codebox lol.

If think most copy it to word if they have issues, but don't quote me on it, I won't open IE to find out :whistle:


[center]Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.[/center]

Share this post


Link to post
Share on other sites

@ Paulie and thatsgreat2345,

lm1 is new to AutoIt and there is no exitloop in this version of the code.

Do
;<snipped>
Until 2= 1
;<snipped>
You must kill it manually? :-)

@lm1,

Welcome!

Edit added Paulie

didnt even look at the script just copied paulies :whistle:

Share this post


Link to post
Share on other sites

didnt even look at the script just copied paulies :whistle:

Silly me, I actually ran that code... and ran it... and ran it... and ran it... and ran it... then I noticed that Until line.

Probably not SmOke_N's version :-)

He has an exitloop.


[size="1"][font="Arial"].[u].[/u][/font][/size]

Share this post


Link to post
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
Sign in to follow this  
Followers 0