Jump to content

@AppDataDir Help Please!


Recommended Posts

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