posted by 범벙이 2015. 5. 28. 12:43

 

먼저 소스를 만들어서 저장..

소스창이 떠 있는 상태에서 Au32Tag 를 실행..

저장한 au3 파일을 더블클릭~ 붙여넣기 하심 끝...

 

1) 일반적인  붙여넣기..

 

MsgBox(1,"Windows Type",@OSArch)

If @OSVersion = "X64" Then; or @OSArch depends on AutoIt version
    Send("HELLO WELCOME TO DOS PROMPT THIS IS X64 BIT WINDOWS")
    Send("{ENTER}")
EndIf

If @OSVersion = "X86" Then; or @OSArch depends on AutoIt version
    Send("HELLO WELCOME TO DOS PROMPT THIS IS X86 BIT WINDOWS")
    Send("{ENTER}")
EndIf

 

2) Au32Tag.exe 를 이용한 붙여넣기..


MsgBox(1,"Windows Type",@OSArch)

If @OSVersion = "X64" Then; or @OSArch depends on AutoIt version
    Send("HELLO WELCOME TO DOS PROMPT THIS IS X64 BIT WINDOWS")
    Send("{ENTER}")
EndIf

If @OSVersion = "X86" Then; or @OSArch depends on AutoIt version
    Send("HELLO WELCOME TO DOS PROMPT THIS IS X86 BIT WINDOWS")
    Send("{ENTER}")
EndIf


 만든이  // 삼각형님..

 

 

posted by 범벙이 2015. 5. 28. 12:17

 

 

         

 

 

MsgBox 박스를 먼저 띄우기..

au3파일과 압축할 폴더가 같은곳에 있어야함.. 

 

#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\보조파일\2015-05-26_151354.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

If FileExists(@DesktopDir & "\AutoCAD 2010 KEYGEN") Then
  MsgBox(4096, "중복 ", "바탕화면에 이미 AutoCAD 2010 KEYGEN 폴더가 있습니다 ",3)
  Exit
  EndIf
 If not FileExists(@DesktopDir & "\AutoCAD 2010 KEYGEN") Then
  MsgBox(4096, "압축 풀기 ", "바탕화면에 압축을 풉니다 ~^^  ",2)
EndIf  
DirCreate(@DesktopDir & "\AutoCAD 2010 KEYGEN")
DirCreate(@DesktopDir & "\AutoCAD 2010 KEYGEN\Activation")
FileInstall("AutoCAD 2010 KEYGEN\Activation\adlmint.dll", @DesktopDir & "\AutoCAD 2010 KEYGEN\Activation\adlmint.dll", 0)
FileInstall("AutoCAD 2010 KEYGEN\Activation\설치방법.txt", @DesktopDir & "\AutoCAD 2010 KEYGEN\Activation\설치방법.txt", 0)
FileInstall("AutoCAD 2010 KEYGEN\AutoCAD+2010+for+32bit.zip", @DesktopDir & "\AutoCAD 2010 KEYGEN\AutoCAD+2010+for+32bit.zip", 0)
FileInstall("AutoCAD 2010 KEYGEN\AutoCAD+2010+for+64bit.zip", @DesktopDir & "\AutoCAD 2010 KEYGEN\AutoCAD+2010+for+64bit.zip", 0)
FileInstall("AutoCAD 2010 KEYGEN\사용법.jpg", @DesktopDir & "\AutoCAD 2010 KEYGEN\사용법.jpg", 0)
Sleep(10)
MsgBox(4096, "AutoCAD 2010 KEYGEN.", "바탕 화면에 압축을 풀었습니다~ ^^  ", 2)

Exit


 

posted by 범벙이 2013. 4. 17. 21:57

 

.VBS  파일 만들어 실행(.VBS 파일을 실행 함)

 

bat  , cmd 파일 실행시 뜨는 커맨드창(검은 화면) 안보이기

1,  같은 폴더의 aa.bat  파일 실행하라는 명령어..
아래 내용을 aa.vbs 파일로 저장후 aa.vbs를 실행하면 됨

Set WshShell = CreateObject("WScript.Shell")
WshShell.Run chr(34) & "aa.bat" & Chr(34), 0
Set WshShell = Nothing

2, 경로가 있는 경우

Set WshShell = CreateObject("WScript.Shell")
WshShell.Run chr(34) & "C:\Program Files\aa.bat" & Chr(34), 0
Set WshShell = Nothing