Jump to content

penggilas2

Active Members
  • Posts

    56
  • Joined

  • Last visited

penggilas2's Achievements

Wayfarer

Wayfarer (2/7)

0

Reputation

  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..??
×
×
  • Create New...