Jump to content

msgboxes

lm1

By lm1
in AutoIt General Help and Support

 Share

Recommended Posts

lm1 Seeker

lm1

Posted
Posted

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

Paulie Universalist

Paulie

Posted
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
lm1 Seeker

lm1

Posted
  • Author
Posted

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.??

  • Moderators
SmOke_N Universalist

SmOke_N

Posted
  • Moderators
Posted

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:

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.

fu2m8 Wayfarer

fu2m8

Posted
Posted

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

Paulie Universalist

Paulie

Posted
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
Thatsgreat2345 Universalist

Thatsgreat2345

Posted
Posted

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
  • Moderators
SmOke_N Universalist

SmOke_N

Posted
  • Moderators
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

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.

  • Moderators
SmOke_N Universalist

SmOke_N

Posted
  • Moderators
Posted

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.

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.

herewasplato Universalist

herewasplato

Posted
Posted

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]

herewasplato Universalist

herewasplato

Posted
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]

  • Moderators
SmOke_N Universalist

SmOke_N

Posted
  • Moderators
Posted

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:

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.

Thatsgreat2345 Universalist

Thatsgreat2345

Posted
Posted

@ 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:
herewasplato Universalist

herewasplato

Posted
Posted

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]

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
Go to topic listing

  • Recently Browsing   0 members

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