Jump to content

elawady

Active Members
  • Posts

    35
  • Joined

  • Last visited

elawady's Achievements

Seeker

Seeker (1/7)

0

Reputation

  1. i use the button in Tab Item and when i moved on the button or click it fast the button is flashing how i can stop this flash #include <GUIConstantsEx.au3> #include <GuiTab.au3> #include "UDFs\Icons.au3" #include "UDFs\GUICtrlSetOnHover.au3" Global $Hold = False Global $Tab1_Background, $Tab1_Button1, $Tab1_Button2, $Tab1_Button3, $tab1 $GUI = GUICreate("Form1", 800, 600, -1, -1) GUICtrlCreatePic(@ScriptDir & "\images\background_1.bmp", 0, 0, 800, 600, $WS_CLIPSIBLINGS) GUICtrlSetState(-1, $GUI_DISABLE) $MainTab = GUICtrlCreateTab(10, 200, 780, 390, $TCS_MULTILINE) GUICtrlSetState(-1, $GUI_ONTOP) GUISetFont(14, 700) $tab1 = GUICtrlCreateTabItem("tab1") $Tab1_Background = GUICtrlCreatePic(@ScriptDir & "\images\background_1.bmp", 10, 220, 780, 370) GUICtrlSetState(-1, $GUI_DISABLE) $Tab1_Button1 = GUICtrlCreatePic("", 380, 280, 90, 22) GUICtrlSetOnHover(-1, '_HoverButton', '_LeaveButton', '_DownButton', '_HoverButton') _LeaveButton($Tab1_Button1) GUICtrlCreateTabItem("") ; end tabitem definition GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Func _DownButton($CtrlID) If $Hold Then Return Else $Hold = True EndIf Local $File _SetImage($CtrlID, @ScriptDir & '\Images\Button1_down.png' & $File, $Tab1_Background) EndFunc ;==>_DownButton Func _LeaveButton($CtrlID) Local $File _SetImage($CtrlID, @ScriptDir & '\Images\Button1_over.png' & $File, $Tab1_Background) $Hold = False EndFunc ;==>_LeaveButton Func _HoverButton($CtrlID) Local $File _SetImage($CtrlID, @ScriptDir & '\Images\Button1_normal.png' & $File, $Tab1_Background) $Hold = False EndFunc ;==>_HoverButton all files i used here
  2. i use GUICtrlSetOnHover udf but the button in Tab Item and when i moved on the button or click it fast the button is flashing how i can stop this flash #include <GUIConstantsEx.au3> #include <GuiTab.au3> #include "UDFs\Icons.au3" #include "UDFs\GUICtrlSetOnHover.au3" Global $Hold = False Global $Tab1_Background, $Tab1_Button1, $Tab1_Button2, $Tab1_Button3, $tab1 $GUI = GUICreate("Form1", 800, 600, -1, -1) GUICtrlCreatePic(@ScriptDir & "\images\background_1.bmp", 0, 0, 800, 600, $WS_CLIPSIBLINGS) GUICtrlSetState(-1, $GUI_DISABLE) $MainTab = GUICtrlCreateTab(10, 200, 780, 390, $TCS_MULTILINE) GUICtrlSetState(-1, $GUI_ONTOP) GUISetFont(14, 700) $tab1 = GUICtrlCreateTabItem("tab1") $Tab1_Background = GUICtrlCreatePic(@ScriptDir & "\images\background_1.bmp", 10, 220, 780, 370) GUICtrlSetState(-1, $GUI_DISABLE) $Tab1_Button1 = GUICtrlCreatePic("", 380, 280, 90, 22) GUICtrlSetOnHover(-1, '_HoverButton', '_LeaveButton', '_DownButton', '_HoverButton') _LeaveButton($Tab1_Button1) GUICtrlCreateTabItem("") ; end tabitem definition GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Func _DownButton($CtrlID) If $Hold Then Return Else $Hold = True EndIf Local $File _SetImage($CtrlID, @ScriptDir & '\Images\Button1_down.png' & $File, $Tab1_Background) EndFunc ;==>_DownButton Func _LeaveButton($CtrlID) Local $File _SetImage($CtrlID, @ScriptDir & '\Images\Button1_over.png' & $File, $Tab1_Background) $Hold = False EndFunc ;==>_LeaveButton Func _HoverButton($CtrlID) Local $File _SetImage($CtrlID, @ScriptDir & '\Images\Button1_normal.png' & $File, $Tab1_Background) $Hold = False EndFunc ;==>_HoverButton all files i used here
  3. So i can't use the OSX file like DLL file with Dllcall
  4. hi is there a way to use OSX file in @scriptdir
  5. any idea
  6. hi all i am making a security project and I am using mobile when any error is happen i use netcomm.ocx in this post this post $sNumberToDial = "5551235" Dial($sNumberToDial) Exit Func Dial($pNum, $time2wait = 5000) dim $FromModem = "" $DialString = "ATDT" & $pNum & ";" & @CR $com = ObjCreate ("NETCommOCX.NETComm") With $com .CommPort = 6 .PortOpen = True .Settings = "9600,N,8,1" .InBufferCount = 0 .Output = $DialString EndWith $com.Output = "ATH" & @CR $com.PortOpen = False $com = 0 EndFunc;==>Dial when i am playing the script it's call the number normally but when playing again just the port is open and the call not complete i don't know what's the problem in this code i want in this function calling only
  7. thankyou it's work but in the end i used fileinstall
  8. any way to do it in 1 script not many and use fileinstall
  9. when i write script to run it in startup have this #RequireAdmin message every startup and it make me crazy i need something to run script like that statements $reg = IniRead ( @AppDataDir&"\count.ini", "info", "reg","off" ) If $reg = "off" Then #RequireAdmin FileCopy(@ScriptFullPath,@ProgramFilesDir&"\counter\"&@ScriptName) RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","counter","REG_SZ",@ProgramFilesDir&"\counter\"&@ScriptName&" \count") IniWrite ( @AppDataDir&"\count.ini", "info", "reg" ,"on") EndIf statements ........ func _function() #RequireAdmin statements endfunc when change setting only the #RequireAdmin work
  10. but some help for starting
  11. sry i delete it
  12. hi can someone help me for call mobile phone number by BlueSoleil 6.4.249 the SDK guide for this prog here really i need it for my project and i don't know how i use dll function with this prog
  13. How i Can send and receive bytes from USB printer like (here for Parallel printer)
×
×
  • Create New...