Jump to content

eri

Active Members
  • Posts

    67
  • Joined

  • Last visited

eri's Achievements

Wayfarer

Wayfarer (2/7)

0

Reputation

  1. How To Start .hlp File with autoit..
  2. How To Start .hlp File with autoit..
  3. Thank's UEZ...
  4. Please correct my script.. #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form=G:\Form1.kxf $Form1 = GUICreate("Kalkulasi", 219, 186, 378, 178) GUISetBkColor(0x00FFFF) $Input1 = GUICtrlCreateInput("0", 90, 37, 122, 21) $Input2 = GUICtrlCreateInput("0", 89, 66, 122, 21) $Input3 = GUICtrlCreateInput("0", 89, 95, 122, 21) $Label1 = GUICtrlCreateLabel("Diameter", 8, 39, 60, 23) GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS") $Label2 = GUICtrlCreateLabel("Thickness", 8, 67, 65, 23) GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS") $Label3 = GUICtrlCreateLabel("Length", 8, 95, 46, 23) GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS") $Input4 = GUICtrlCreateInput("", 8, 150, 204, 21) GUICtrlSetBkColor(-1, 0xE3E3E3) $Label4 = GUICtrlCreateLabel("", 98, 140, 4, 4) GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS") $Radio1 = GUICtrlCreateRadio(" x..", 8, 8, 49, 17) $Radio2 = GUICtrlCreateRadio(" +..", 64, 8, 73, 17) GUICtrlSetState($radio1, $GUI_CHECKED) $Label5 = GUICtrlCreateLabel("Volume mm", 8, 130, 64, 20) GUICtrlSetFont(-1, 8, 800, 2, "Comic Sans MS") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $Msg = GUIGetMsg() Select Case BitAND(GUICtrlRead($radio1), $GUI_CHECKED) = $GUI_CHECKED $x = GUICtrlRead ($Input1) $y = GUICtrlRead ($Input2) $z = GUICtrlRead ($Input3) $c = $x * $y * $z If StringRegExp(StringLeft([$x-$y], 2)) Then ;<==== How to set $x-$y Only number not for word then show message in input 4 GUICtrlSetData($Input4, $c) Else GUICtrlSetData($Input4," Only Number Not Word") ; <====== EndIf Case BitAND(GUICtrlRead($radio2), $GUI_CHECKED) = $GUI_CHECKED $x = GUICtrlRead ($Input1) $y = GUICtrlRead ($Input2) $z = GUICtrlRead ($Input3) $cz = $x + $y + $z GUICtrlSetData($Input4, $cz) EndSelect Switch $Msg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd
  5. Not Work..
  6. #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <GDIPlus.au3> DirCreate (@ScriptDir &"\Convert") $Dir = @ScriptDir &"\Convert" FileInstall("image.jpg",$Dir &"\") #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Convert", 383, 131, 192, 124) $Button1 = GUICtrlCreateButton("Convert", 32, 56, 121, 41, $WS_GROUP) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE DirRemove($Dir,1) Exit Case $Button1 convert() EndSwitch WEnd Func Convert() $sImage = $Dir & "\image.jpg" _GDIPlus_StartUp() $hImage = _GDIPlus_ImageLoadFromFile($sImage) $sCLSID = _GDIPlus_EncodersGetCLSID("BMP") _GDIPlus_ImageSaveToFileEx($hImage, $Dir &"\image.bmp", $sCLSID) _GDIPlus_ShutDown() EndFunc if push button convert then exit dirremove not work..?? but if not push and exit dirremove OK.. please correct it`s... Thank`s..
  7. please correct my script..
  8. #RequireAdmin #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <Constants.au3> $Win = "WinGhoster" Local $cmd1 = ' /c @For /F "tokens=3 delims= " %1 in ( '' bcdedit.exe /create /application OSLOADER /d ' & $Win & "') do set guid1=%1" Local $MyRead $PID = Run(@ComSpec & $CMD1, "", @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD) #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 471, 90, 224, 333) $Button1 = GUICtrlCreateButton("Run", 8, 40, 81, 33, $WS_GROUP) $Input1 = GUICtrlCreateInput("", 16, 8, 441, 21) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 $MyRead = StdoutRead($PID) If @error Then ExitLoop GUICtrlSetData($Input1, $MyRead) MsgBox(0, "STDERR read:", $MyRead) EndSwitch WEnd How To Disable $STDERR_CHILD + $STDOUT_CHILD Only Show in $Input1.. In $Input1 = C:\Users\Name\Desktop>set guid1={30a2fe17-73c9-11df-9464-001e33ba0d14} I want delete C:\Users\Name\Desktop>set guid1={} Only Show 30a2fe17-73c9-11df-9464-001e33ba0d14 Please....
  9. How to pause cmd with autoit ?? I want see message in cmd ?? if i run Local $Win = "WinGhoster" RunWait (@ComSpec & ' /k For /F "tokens=3 delims= " %%1 in ('' bcdedit.exe /create /application OSLOADER /d ' & $Win & "') do echo %%1") ;<< 1 RunWait (@ComSpec & ' /k pause') ; << 2 will Open new cmd and pause it.. How to pause cmd in ;<< 1
  10. How to Convert this Bat File : @echo off set Win="Winpe" For /F "tokens=3 delims= " %%1 in ('bcdedit.exe /create /application OSLOADER /d %Win%') do set guid1=%%1 echo %guid1% pause into AutoIt Script.. My script Always error.. Local $Win = "WinGhoster" RunWait (@ComSpec & " /c " & "For /F tokens=3 delims= %%1 in ( "' bcdedit.exe /create /application OSLOADER /d ' & $Win "") error.. Please..
  11. How to Hide Xskin Icon in toolbar.. I use WinGetHandle(AutoItWinGetTitle())) But not working.. #Include <XSkin.au3> ; folder of skin $Skin_Folder = @ScriptDir & "\Skins\Black-Yellow" $XSkinGui = XSkinGUICreate( "My GUI", 400, 450, $Skin_Folder, WinGetHandle(AutoItWinGetTitle())) $XIcon = XSkinIcon( $XSkinGui, 2 ) GUISetState() While 1 $msg = GUIGetMsg() If $msg = $XIcon[1] Then Exit If $msg = $XIcon[2] Then GUISetState(@SW_MINIMIZE) ;If $msg = $XIcon[3] Then MsgBox(0, 0, "Help", 1) WEnd Thank`s To Valuater..
  12. I have Download XSkin 1 hour ago... From Valuater I like Splash, Slide Gui in XSkin_Demo_Feb_12 Application.. For Valuater Or All People in this forum Could U give me a sample slide/ splash gui..??
  13. I have Download It.. It`s Cool.. I like Splash, Slide Gui in XSkin_Demo_Feb_12 Application.. Could U post The Script XSkin_Demo_Feb_12 Application..
  14. Thannk`s Makaule.. I will try later..
  15. Thank`s Yashied.. 500 * 1024 <=== what means 1024 ? why not 1000..?
×
×
  • Create New...