Jump to content

Sending data to another windows user account


Recommended Posts

Im looking to run a script while running 2 windows accounts at the same time.

2 problems I have here, I dont know how to send data to another user account, and or make it so the script that is running on the other user account (the non active user account but logged in) sends information to the right program.

Here is the current script I have for the program I have. It works for what I want it to do but I then cant use my computer while its running as it does mouse movements.

I do undestand that I have it check for an active window but Ive tried it without that also and it doesnt work. This works as a check to stop if it isnt the active window so I know I will have to remove that for it to work but I need the code to get it to work the other way first.

;;;;;;;;;;;MasterVars;;;;;;;;;;;
$StartX1 = 178
$StartY1 = 201
$AddX1 = 221
$AddY1 = 316
$AddX2 = 225
$AddY2 = 349
$SlotsA = 3;Rows you have open. Type A
$SlotsB = 1;Rows you have open. Type B
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


$1 = 1
While $1 = 1
    Sleep(3000)
    If WinActive("Game1", "") Then
        If $SlotsA >=1 Then
            Call ("Add1")
        Else 
            $1 = 0
        EndIf
        If $SlotsB >=1 Then
            Call ("Add2")
        Else 
            $1 = 0
        EndIF
    Else
        Exit
    EndIf
    $1 = $1 + 1
WEnd


Func Add1()
    WinActivate("Game1", "")
    Sleep(1000)
    MouseClick("left", 500, 500, 1)
    $XPos1 = $StartX1
    $YPos1 = $StartY1
    $XAddPos1 = $AddX1
    $YAddPos1 = $AddY1
    $XColumn = 0
    $YRow = 0
    $Xivar = 0
    $i = 0
    $iT = $SlotsA * 6
    While $i <= $iT
        MouseClick("right", $XPos1 + $XColumn, $YPos1 + $YRow, 1)
        Sleep(1000)
        MouseClick("left", $XAddPos1 + $XColumn, $YAddPos1 + $YRow, 1)
        Sleep(250000)
        $XColumn = $XColumn + 32
        $Xivar = $Xivar + 1
        If $Xivar = 6 Then
            $YRow = $YRow + 32
            $XColumn = 0
            $XPos1 = $StartX1
        EndIf
        If $YRow = $SlotsA / 32 Then
            $XColumn = 0
            $YRow = 0
            ExitLoop
        EndIf
        $i = $i + 1
        If $i = $iT Then
            Exitloop
        EndIf
        If WinActive("Game1", "") Then
        Else
            Exit
        EndIf
    WEnd
EndFunc

Func Add2()
    WinActivate("Game1", "")
    Sleep(1000)
    MouseClick("left", 500, 500, 1)
    $XPos1 = $StartX1
    $YPos1 = $StartY1 + $SlotsA * 32
    $XAddPos1 = $AddX2
    $YAddPos1 = $AddY2
    $XColumn = 0
    $YRow = 0
    $Xivar = 0
    $i = 0
    $iiT = $SlotsB * 6
    While $i <= $iiT
        MouseClick("right", $XPos1 + $XColumn, $YPos1 + $YRow, 1)
        Sleep(1000)
        MouseClick("left", $XAddPos1 + $XColumn, $YAddPos1 + $YRow, 1)
        Sleep(500000)
        $XColumn = $XColumn + 32
        $Xivar = $Xivar + 1
        If $Xivar = 6 Then
            $YRow = $YRow + $SlotsA * 32
            $XColumn = 0
            $XPos1 = $StartX1
        EndIf
        If $YRow = $SlotsB / 32 Then
            $XColumn = 0
            $YRow = 0
            ExitLoop
        EndIf
        $i = $i + 1
        If $i = $iiT Then
            Exitloop
        EndIf
        If WinActive("Game1", "") Then
        Else
            Exit
        EndIf
    WEnd
EndFunc

Thanks in advance

Oh just FYI Im posting it here because when I do a search for windows user accounts it brings up nothing about that just lots of other stuff.

Edited by ArchDracis
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...