[Hỏi] Một số vấn đề về Copy & Paste file bằng ứng dụng thứ 3 (Everything.exe)

Code:


#include <Misc.au3> ; Thu vien kiem tra su kien nhan phim
Local $ThuMucChepDen = "E:\Music\"

If WinExists("[CLASS:EVERYTHING]") Then
WinActivate("[CLASS:EVERYTHING]", "")
While 1
If _IsPressed("77") Then ; Nhan nut F8
CopyToMMC()
ExitLoop
EndIf
WEnd
Else
RunWait("C:\Program Files\Everything-1.2.1.371\Everything-1.2.1.371.exe", "", @SW_MAXIMIZE)
EndIf

Func CopyToMMC()
If DirGetSize($ThuMucChepDen) = -1 Then
DirCreate($ThuMucChepDen) ;Tao thu muc neu chua co
Send("^c") ;Nhan phim Ctrl + C để copy
FileChangeDir($ThuMucChepDen) ;Thay doi thu muc den noi can chép
WinActivate("[CLASS:ExploreWClass]", "") ; Active thư mục đó lên
Send("^v") ;Rồi nhấn Ctrl + V để Paste
;FileCopy("C:\Temp\*.txt", $ThuMucChepDen, 9) ;Dùng FileCopy nhưng ko có phần source nguồn
EndIf
EndFunc


Code:

#include <Misc.au3>

Local $ThuMucChepDen = "E:\Music"

HotKeySet("{F8}", "CopyToMMC")

If WinExists("[CLASS:EVERYTHING]") Then
    WinActivate("[CLASS:EVERYTHING]", "")
Else
    RunWait("C:\Program Files\Everything-1.2.1.371\Everything-1.2.1.371.exe", "", @SW_MAXIMIZE)
EndIf

While 1
    Sleep(100)
WEnd

Func CopyToMMC()
        If DirGetSize($ThuMucChepDen) <> -1 Then
                DirCreate($ThuMucChepDen)
        EndIf
        Send("^c")
        ShellExecute($ThuMucChepDen)
        WinActivate("[CLASS:ExploreWClass]", "")
        Send("^v")
EndFunc

Admin đã viết:Theo mình thì như này chắc được :D

Code:

#include <Misc.au3>

Local $ThuMucChepDen = "E:\Music"

HotKeySet("{F8}", "CopyToMMC")

If WinExists("[CLASS:EVERYTHING]") Then
    WinActivate("[CLASS:EVERYTHING]", "")
Else
    RunWait("C:\Program Files\Everything-1.2.1.371\Everything-1.2.1.371.exe", "", @SW_MAXIMIZE)
EndIf

While 1
    Sleep(100)
WEnd

Func CopyToMMC()
        If DirGetSize($ThuMucChepDen) <> -1 Then
                DirCreate($ThuMucChepDen)
        EndIf
        Send("^c")
        ShellExecute($ThuMucChepDen)
        WinActivate("[CLASS:ExploreWClass]", "")
        Send("^v")
EndFunc

chưa test nữa :D

Admin coi dùm mình với

Code:

#RequireAdmin
#include <Crypt.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <string.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Creat Key", 275, 116, 185, 124)
$Label1 =  GUICtrlCreateLabel("Code", 32, 18, 29, 17)
$Input1 =  GUICtrlCreateInput("", 88, 16, 153, 21)
$Input2 =  GUICtrlCreateInput("", 88, 56, 153, 21)
$Label2 =  GUICtrlCreateLabel("NewKey", 32, 58, 47, 17)
$Button1 =  GUICtrlCreateButton("Creat", 128, 86, 65, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
       Case $GUI_EVENT_CLOSE
          Exit
       Case $Button1
          Local $bAlgorithm = $CALG_RC4
             $hKey = _Crypt_DeriveKey("hgfihf", $bAlgorithm)
             $t = "0x" : GUICtrlRead($Input1)
         Global $serial1 = _Crypt_DecryptData($t, $hkey, $CALG_USERKEY)
          Global $serial = BinaryToString($serial1)
         Global $key = Int(StringMid($serial,3,2)/2) & Int(StringMid($serial,2,5)/2) & Int(StringRight($serial,5)/2) & Abs(76481 - Int(StringMid($serial,2,6)/3))
         Local $bEncrypted = _Crypt_DecryptData ($t, $hKey, $CALG_USERKEY)
          GUICtrlSetData($Input2,StringMid($bEncrypted,3,1000))
    EndSwitch
WEnd


Mình muốn tạo key gen cho đoạn code 6AA1B809A6F59BB162A9, mà nó ko chạy bạn rảnh coi dùm mình với...:((