Jump to content

Asaman83687

Members
  • Posts

    7
  • Joined

  • Last visited

About Asaman83687

  • Birthday 12/27/1992

Asaman83687's Achievements

Seeker

Seeker (1/7)

0

Reputation

  1. Click and Hold the yes button. then move the mouse to the other button (without letting go) , finally press Enter
  2. Just a thing. I believe that you should open this file in OVERWRITE mode, not with the APPEND thing. FileWrite()'s fault.
  3. Please Help.. I found something wrong.. Wen I try to set a hotstring like this HotStringSet("vri","_VRI") Func _VRI() Send("{BACKSPACE 3}") Send("Vri™ Team") EndFunc ; Authors: Manadar, GarryFrost ; Contributor: WideBoyDixon #include <WinAPI.au3> #include <WindowsConstants.au3> #include <Array.au3> #include-once Opt("SendKeyDownDelay", 0) Dim $hHook Dim $hStub_KeyProc = DllCallbackRegister("_KeyProc", "long", "int;wparam;lparam") Dim $hmod = _WinAPI_GetModuleHandle(0) Dim $hHook = _WinAPI_SetWindowsHookEx($WH_KEYBOARD_LL, DllCallbackGetPtr($hStub_KeyProc), $hmod) Dim $buffer = "" Dim $hotstrings[1] Dim $hotfuncs[1] Dim $hWnd = GUICreate("") GUIRegisterMsg($WM_KEYDOWN, "_GUIKeyProc") ;; ========================== ;; This is your actual script. ;; ========================== ;#include <HotString.au3> HotStringSet("vri","_VRI") While 1 Sleep(10) WEnd Func _VRI() Send("{BACKSPACE 3}") Send("Vri™ Team") EndFunc ;; ========================== ;; End of actual script. ;; The part above the start of the actual script ;; and below this comment ;; script can be put in another ;; file and included. ;; ========================== Func HotStringSet($hotstring, $func) _ArrayAdd($hotstrings, $hotstring) _ArrayAdd($hotfuncs, $func) EndFunc Func EvaluateKey($keycode) If (($keycode > 64) And ($keycode < 91)) _ ; A - Z Or (($keycode > 47) And ($keycode < 58)) Then ; 0 - 9 $buffer &= Chr($keycode) $buffer = StringRight($buffer, 50) _CheckHotkeys($buffer) EndIf EndFunc ;==>EvaluateKey Func _CheckHotkeys($s) For $i = 0 to UBound($hotstrings)-1 if ( $hotstrings[$i] = StringRight($s, StringLen($hotstrings[$i])) ) Then Call($hotfuncs[$i]) EndIf Next EndFunc Func _GUIKeyProc($hWnd, $Msg, $wParam, $lParam) EvaluateKey(Number($wParam)) EndFunc ;=========================================================== ; callback function. This function must return as quickly as possible or it will stall and block user input ;=========================================================== Func _KeyProc($nCode, $wParam, $lParam) Local $tKEYHOOKS $tKEYHOOKS = DllStructCreate($tagKBDLLHOOKSTRUCT, $lParam) If $nCode < 0 Then Return _WinAPI_CallNextHookEx($hHook, $nCode, $wParam, $lParam) EndIf If $wParam = $WM_KEYDOWN Then $vkKey = DllStructGetData($tKEYHOOKS, "vkCode") _WinAPI_PostMessage($hWnd, $WM_KEYDOWN, $vkKey, 0) EndIf Return _WinAPI_CallNextHookEx($hHook, $nCode, $wParam, $lParam) EndFunc ;==>_KeyProc Func OnAutoItExit() _WinAPI_UnhookWindowsHookEx($hHook) DllCallbackFree($hStub_KeyProc) EndFunc ;==>OnAutoItExit then run and type VRI.. i get an output of an non-ending Vri™ TVri™ TVri™ TVri™ TVri™ TVri™ TVri™ TVri™ TVri™ TVri™ TVri™ TVri™ TVri™ TVri™ TVri™ TVri™ TVri™.. Any help??
  4. I've been reading this topic but does anyone know where's the download link or something similar for the latest update FTP.au3? Thanks!
  5. You may read it's location at autoit.chm file, just look for it.....Hahhaha
  6. To Valuater, Please excuse me for doing these things after downloading your program(Xskin) and studying your functions, especially the ones that don't have a clear syntax help. (e.g. _ButtonHover.au3 that in contrast has a function -_HoverButton()) Also the variables that must be declared first like the Global $XButton_Location = @ScriptDir & "\Buttons" Global $Icon_Folder = @ScriptDir & "\Icons" for _HoverButton function, (you already know how it works, "mouse_over", "Press", and "Normal" . I don't know about the others who also downloaded it) ################################################################################################ Xsin.au3 - Function XskinInputBox has been edited to have a Bitor($es_password, $es_autohscroll) style for password typed inputboxes. Details: *Line 345 Func XSkinInputBox($IBTitle, $IBText, $IBDefault = "", $style = "") * Line 346 Local $IBinput1 = XSkinMsgBox($IBTitle, $IBText, $IBDefault, 2, $style) Return $IBinput1 *Line 278 Func XSkinMsgBox($MBTitle, $MBText, $IBDefault = "", $IBNotify = "", $style = "") *Line 311 If $IBNotify = 2 Then $IBInput = GUICtrlCreateInput($IBDefault, $tile_size + 20, $MBHeight - ($tile_size + 70), $MBwidth - (($tile_size * 2) + 40), 20, $style) If $IBNotify = 4 Then *Line 314 XSkinButton("Ok", ($MBwidth / 2) - 35, $MBHeight - ($tile_size + 40), 70, 25, "XSkinMBI1") Else XSkinButton("Ok", $MBwidth / 5, $MBHeight - ($tile_size + 40), 70, 25, "XSkinMBI1") XSkinButton("Cancel", ($MBwidth / 5) * 2.8, $MBHeight - ($tile_size + 40), 70, 25, "XSkinMBI2") -Function XskinGuiCreate has a bug in resizing when the fuction "winmove" or the other way is called. Broken images appear then. Here is my suggested soloution for xskin users Details: Instead for doing it directly: (example) *************************************************************************** #Include <Xskin.au3> $skin_folder = @scriptDir & "\skin\HeavenlyBodies" XsinGuiCreate("My XskinGui", 300, 200, $skin_folder) while 1 ;;;; wend *************************************************************************** You may create a UDF like this within your script or in another script(just don.t forget to include it in #include statement: (example) *************************************************************************** FUNC _XskinGUicreate_resizeable($Title, ByRef $Width, ByRef $Height, $Xskin_folder) XsinGuiCreate($Title, $Width, $Height, $Xskin_folder) XSkinButton("My button", 50, 20, "Resize") ; creates a button to call a function to resize within the UDF while 1 mouseover() wend Endfunc; ==> _XskinGUicreate_resizeable Func Resize() $Width = 400 ; the new width will be returned $Height = 344 ; the new height will be returned $skin_folder = @scriptdir & "\skin\style_02" ; or even the skin Endfunc ; ==> Resize ************************************************************************** Then in your main scipt ************************************************************************** #Include <Xskin.au3> $skinDir = @scriptDir & "\skin\HeavenlyBodies" $w = 300 ; the width $h = 200 ; the height _XskinGUicreate_resizeable("My XskinGui", $w, $h, $skinDir) ; all the other options regardin your gui must be inserted in the UDF "_XskinGUicreate_resizeable" ; you may rename it while 1 ;;;; wend ################################################################################################ *Petition: I am thankful for what you have done, but please don't think something bad about this, why didn't you put ".chm" files (help files) for other includes(functions) e.g. _ButtonHover.au3 for changing images for buttons during mouse_over, Press, and normal. Any Comment: Please email me at Asaman83687@yahoo.com "or" @Gmail.com
  7. I have noticed that when i had installed a new scite4autoit, the new "Autoiscript" in the new menu when you right click in the desktop dissapears.
×
×
  • Create New...