Jump to content

penggilas2

Active Members
  • Posts

    56
  • Joined

  • Last visited

Everything posted by penggilas2

  1. I'm sorry Ileandros. I do not mean to call you a spammer .. thank"s for helping me... ...
  2. I want make GUICtrlCreatePic('grey.gif', 13, 5, 64, 64) and GUICtrlCreateButton ("Save", 100,100,80,80,$BS_ICON) GUICtrlSetImage (-1, "shell32.dll",7) have transparant background so only show image icon and letter... Thank`s spammer.. Maybe from another people will give me solution.. From my script..
  3. #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> Local $BS_ICON $Main_Gui = GUICreate("", 600, 400, -1, -1, $WS_POPUP, $WS_EX_TOPMOST) $exit = GUICtrlCreatePic('grey.gif', 13, 5, 64, 64) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) $button2 = GUICtrlCreateButton ("Save", 100,100,80,80,$BS_ICON) GUICtrlSetImage (-1, "shell32.dll",7) GUICtrlSetBkColor($button2, $GUI_BKCOLOR_TRANSPARENT) GUISetControlsVisible($Main_Gui) GUISetState() While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $exit Exit EndSwitch WEnd Func GUISetControlsVisible($hWnd) Local $aM_Mask, $aCtrlPos, $aMask $aM_Mask = DllCall("gdi32.dll", "long", "CreateRectRgn", "long", 0, "long", 0, "long", 0, "long", 0) $aLastID = DllCall("user32.dll", "int", "GetDlgCtrlID", "hwnd", GUICtrlGetHandle(-1)) For $i = 3 To $aLastID[0] $aCtrlPos = ControlGetPos($hWnd, '', $i) If Not IsArray($aCtrlPos) Then ContinueLoop $aMask = DllCall("gdi32.dll", "long", "CreateRectRgn", _ "long", $aCtrlPos[0], _ "long", $aCtrlPos[1], _ "long", $aCtrlPos[0] + $aCtrlPos[2], _ "long", $aCtrlPos[1] + $aCtrlPos[3]) DllCall("gdi32.dll", "long", "CombineRgn", "long", $aM_Mask[0], "long", $aMask[0], "long", $aM_Mask[0], "int", 2) Next DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $hWnd, "long", $aM_Mask[0], "int", 1) EndFunc How To Full Transparant Only Show Icon and letter...???
  4. On the http://www.autoitscript.com/wiki/Managing_Multiple_GUIs process can not be active if the previous process was not completed. So the notepad button can not be active if the animation does not end. How to make Notepad button aktif. And $CreditGui always aktif..?? Thank You...
  5. How to Make Notepad button active ?? #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> $Gui = GUICreate("Main Gui", 300, 200) $Button = GUICtrlCreateButton("Notepad", 40, 20, 90, 30) GUISetState(@SW_SHOW) $CreditGui = GUICreate("Splash Gui", 200,30, -1, 0, $WS_POPUP, 0) $splas = GUICtrlCreateLabel("Try Multi Gui Run Multi Process", 5, 5, 200, 30,$SS_CENTER) GUICtrlSetFont(-1, 14, 400, 0, "Gloucester MT Extra Condensed") GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button Run("notepad.exe") EndSwitch Sleep(2000) DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $CreditGui, "int", 1000, "long", 0x10010) DllCall ( "user32.dll", "int", "AnimateWindow", "hwnd", $CreditGui, "int", 1000, "long", 0x00040010 ) WEnd Thank's For All..
  6. Read ini File. : drive.ini [partition1] Driveletter=C: Label=Windows Xp [partition2] Driveletter=D: Label=Windows 7 [partition3] Driveletter=E: Label=Dokument [partition4] Driveletter=F: Label=Recovery Local $var = IniReadSectionNames("drive.ini") If @error Then MsgBox(4096, "", "Error occurred, probably no INI file.") Else For $i = 1 To $var[0] $MSG = IniRead("drive.ini", $var[$i], "LABEL", "NotFound") MsgBox(4096, "", $MSG) Next EndIf I want searcrh What is the section name of Windows Xp, Windows 7, Dokument,.. Thank's for All.. What is the script If i type windows xp .... will show partition1
  7. Microsoft DiskPart version 5.1.3565 Copyright © 1999-2003 Microsoft Corporation. DISKPART> list volume Volume ### Ltr Label Fs Type Size Status Info ---------- --- ----------- ----- ---------- ------- --------- -------- Volume 0 C Windows Xp NTFS Partition 83 GB Healthy System Volume 1 D Dokumen NTFS Partition 215 GB Healthy DISKPART> How To Read Label with AutoIt from Diskpart Not from drivegetlabel when type list volume in diskpart autoit will display "volume 0 label is Windows Xp info System.." Create list.txt type list volume in list.txt Run(@ComSpec & " /k diskpart.exe /s list.txt") wih autoit How To display in autoit "volume 0 label is Windows Xp info System.."
  8. Thank's Water.. But Not Show Hiden Partition.. Disk#0, Partition#0
  9. Water.. U have autoit script to show hiden partition in autit list..??
  10. My hardisk have 4 partition 1.PQServe Hiden Partition 2.Windows 3 & 4. Document DriveGetDrive "ALL" only read 3 partition 2,3,4 ?? How To Read Hiden partition with AutoIt..??
  11. It`s Possible to Run And Minimize Program in a Gui..?? Not in Taskbar WIndosws..? Example In this Script.. #include <WindowsConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> $X = @DesktopWidth $Y = @DesktopHeight $hP = GUICreate("Parent", $X, $Y, 0, 0, BitOR($WS_POPUP, $WS_EX_TOPMOST),-1, WinGetHandle(AutoItWinGetTitle())) GUISetBkColor(0) GUISetState() $ch = GUICreate("Child", $X, $Y -40, 0, $Y -40, BitOR($WS_MINIMIZEBOX, $WS_CHILD,$WS_BORDER),-1,$hP) GUISetBkColor(0xA6CAF0) $OptionsBtn = GUICtrlCreateButton("Start",0, 0, 40, 40) $OptionsDummy = GUICtrlCreateDummy() $OptionsContext = GUICtrlCreateContextMenu($OptionsDummy) $OptionsCommon = GUICtrlCreateMenuItem("Calculator", $OptionsContext) $OptionsFile = GUICtrlCreateMenuItem("Notepad", $OptionsContext) GUICtrlCreateMenuItem("", $OptionsContext) $OptionsExit = GUICtrlCreateMenuItem("Exit", $OptionsContext) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE, $OptionsExit Exit Case $OptionsCommon Run("calc.exe") Case $OptionsFile Run("notepad.exe") Case $OptionsBtn ShowMenu($hP, $nmsg, $OptionsContext) EndSwitch WEnd ; Show a menu in a given GUI window which belongs to a given GUI ctrl Func ShowMenu($hWnd, $CtrlID, $nContextID) Local $arPos, $x, $y Local $hMenu = GUICtrlGetHandle($nContextID) $arPos = ControlGetPos($hWnd, "", $CtrlID) $x = $arPos[0] $y = $arPos[1] + $arPos[0] ClientToScreen($hWnd, $x, $y) TrackPopupMenu($hWnd, $hMenu, $x, $y) EndFunc ;==>ShowMenu ; Convert the client (GUI) coordinates to screen (desktop) coordinates Func ClientToScreen($hWnd, ByRef $x, ByRef $y) Local $stPoint = DllStructCreate("int;int") DllStructSetData($stPoint, 1, $x) DllStructSetData($stPoint, 2, $y) DllCall("user32.dll", "int", "ClientToScreen", "hwnd", $hWnd, "ptr", DllStructGetPtr($stPoint)) $x = DllStructGetData($stPoint, 1) $y = DllStructGetData($stPoint, 2) ; release Struct not really needed as it is a local $stPoint = 0 EndFunc ;==>ClientToScreen ; Show at the given coordinates (x, y) the popup menu (hMenu) which belongs to a given GUI window (hWnd) Func TrackPopupMenu($hWnd, $hMenu, $x, $y) DllCall("user32.dll", "int", "TrackPopupMenuEx", "hwnd", $hMenu, "int", 0, "int", $x, "int", $y, "hwnd", $hWnd, "ptr", 0) EndFunc ;==>TrackPopupMenu How to Minimize Notepad And Calc. In Child Gui..? Thank`s..
  12. U a right.. How to make frezz when cursor attach to gui..??
  13. after a long time absence to visit this forum, I found Koda to make Gui Autoit.. And very interest in Help menu (About).. How to make Animation text like that..??
  14. Example.. RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced","HIdeIcons","REG_DWORD","1") How to Active the script without logoff or Restart..
  15. Thank`s KaFu it`s work..
  16. How to Create Binary Registry in this Imange my script : RegWrite ("HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics","MenuFont","REG_BINARY","ôÿÿÿ........S.e.g.o.e. .U.I.....") when run script dot (...) in my script in registy binary is 2E not 00 Thank`S For this Forum..
  17. Test.Wim file is 97.786.647 bytes When Mount to test folder is 244.406.193 bytes I want set my progress when 100% is done then Exitloop.. I got Rtconsole.exe and script from this forum then create script like this : just Copy paste from script in this forum.. #RequireAdmin #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <ProgressConstants.au3> #include <WindowsConstants.au3> $Form1 = GUICreate("ImageX Only For Me", 372, 100, 223, 114) $Button1 = GUICtrlCreateButton("Mount", 40, 8, 97, 33, $WS_GROUP) $Button2 = GUICtrlCreateButton("Unmount", 224, 8, 105, 33, $WS_GROUP) $Progress1 = GUICtrlCreateProgress(0, 56, 369, 25) GUISetState(@SW_SHOW) $imagex = @ProgramFilesDir &"\Windows AIK\tools\x86\imagex.exe" While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 $Mou = ($imagex & " /mountrw f:\wimboot\test.wim 1 f:\wimboot\test") ShowProgress($Mou, 'Applying...') Case $Button2 $Mou = ($imagex & " /unmount f:\wimboot\test /commit") ShowProgress($Mou, 'Applying...') EndSwitch WEnd Func ShowProgress($Mou, $ImageType) $foo = Run('"' & @ScriptDir & '\rtconsole.exe" ' & $Mou, '', '', 2 + 4) $line1 = '0' ProgressOn('Imagex', 'ImageX', $line1) While 1 $line = StdoutRead($foo) If StringInStr($line, 'ImageX Tool for Windows') <> 0 Then $line = 0 If StringInStr($line, 'Progress: 100%') <> 0 Then ExitLoop If StringInStr($line, 'Error') <> 0 Then ExitLoop $line = StringStripWS($line, 7) If StringInStr($line, ',') <> 0 Then EndIf $line3 = StringSplit($line, @CRLF) $line1 = StringSplit($line, '%') $line = StringRight($line1[1], 2) If @error Then ExitLoop If $line <> "" Then ProgressSet($line, $line3[1], $ImageType) EndIf WEnd ProgressOff() EndFunc ;==>ShowProgress But when test.wim is mounted I can`t exitloop.. Gui can`t be close or when commit test.wim done or success or mount is error progress won`t close.. Please correct my script..
  18. Now I`m learning about Progress... and I create progress for ImageX this my script... #RequireAdmin #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <ProgressConstants.au3> #include <WindowsConstants.au3> $Form1 = GUICreate("ImageX Only For Me", 372, 100, 223, 114) $Button1 = GUICtrlCreateButton("Mount", 40, 8, 97, 33, $WS_GROUP) $Button2 = GUICtrlCreateButton("Unmount", 224, 8, 105, 33, $WS_GROUP) $Progress1 = GUICtrlCreateProgress(0, 56, 369, 25) GUISetState(@SW_SHOW) $imagex = @ProgramFilesDir &"\Windows AIK\tools\x86\imagex.exe" While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 $Mou = ($imagex & " /mountrw f:\wimboot\test.wim 1 f:\wimboot\test") Run ($Mou) GUICtrlSetData($Progress1,$Mou & " percent") Case $Button2 Run ($imagex & " /unmount f:\wimboot\test /commit") EndSwitch WEnd How set progress with % function.. Imagex mount from 0 % and 100 % is done... then exit cmd imagex.. How to make my progress run same with % in imagex cmd.. please .. thank you..
  19. Ok stefan I`m sorry.. U`r script Is Ok.. I Have write in wrong folder name.. I`m sorry.. U are the best.. Thank`s.. I`m sorry give U a trouble..
  20. I have add X command x: eXtract files with full paths and have try in bat file.. Ok and success
  21. I have tried all the alternatives,.. Run (@ComSpec & " /c " & $cmd) and Run($cmd) But still error and this is msgbox list.. 7z.exe x -o"C:\users\myname\appdata\temp\ghost"-y M:\file\ghost.7z
  22. I try script.. But I can`t see error list.. P.S: You should debug with generating commandstring and control it via MsgBox instead of Run. So you can see errors much better. Ok I will try to make it.. but if ojo want to give me an example again.. to control msgbox I'll be very happy
  23. I hope all master will help me again.. this is command in bat file.. @echo off C:\7z.exe x -o%temp%\ghost -y M:\coba\file.7z -o%temp% is set Output directory extract file... -y: assume Yes on all queries M:\file\ghost.7z is my 7zip folder How to convert in auto it script.. I create script like this DirCreate(@TempDir & "\ghost") $tempdir = @TempDir & "\ghost" Run("7z.exe x -0" & Chr (34) & $tempdir & Chr (34) & "-y M:\file\ghost.7z") but not working.. 99ojo, M23, and all master plz help me again..
×
×
  • Create New...