Jump to content
Sign in to follow this  
wklw2005

@AppDataDir Help Please!

Recommended Posts

wklw2005

I am planning on using an input box to backdoor machines on the network and copy a few files to the users appData\roaming\Autodesk\AutoCAD 2010\R18.0\enu\Support location. Can someone please tell me what's wrong with this code. Will the @AppDataDir command work in this way?

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\users\walkersw\documents\dtg tools.kxf
$Form1 = GUICreate("DTG Tool Panel", 350, 223, 192, 124)
$Tab1 = GUICtrlCreateTab(8, 8, 329, 201)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabProfile = GUICtrlCreateTabItem("AutoCAD Profiles")
$RemoteProfiles = GUICtrlCreateInput("", 34, 63, 265, 21)
$Profiles = GUICtrlCreateRadio("AutoCAD Profiles and CUIX", 32, 112, 257, 17)
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
GUICtrlSetFont(-1, 12, 400, 0, "Calibri")
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
    While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
   Case $msg = $Profiles And BitAND(GUICtrlRead($Profiles), $GUI_CHECKED) = $GUI_CHECKED
    FileCopy("\\Servername\Files", "\\" & GUICtrlRead($RemoteProfiles) & @AppDataDir &"\Autodesk\AutoCAD 2010\R18.0\enu\Support")
EndSelect
WEnd

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  

×