fred666777

i know this is kind of useless w/o the ini. i dont have it right now... if anyone knows how you can choose font size / style before you print a file using print /d:Printer c:\File source that would be great

#include <file.au3> #include <process.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> Global $Here = 0 Global Const $Source = @ScriptDir & "\Invoice.ini" Global Const $EditName = "Edit.txt" Global Const $Any = "*" ;Location Global Const $Find = IniRead($Source, "Location", "Edit", " ") ;Info Global Const $Type = IniRead($Source, "Info", "FileType", " ") Global $FileName = IniRead($Source, "Info", "FileName", "Invoice") Global Const $Sleep = IniRead($Source, "Info", "Sleep", " ") Global Const $MomName = IniRead($Source, "Info", "MomName", " ") Global Const $Overwrite = IniRead($Source, "Info", "Overwrite", " ") ;Print Settings Global Const $CmdPrint = IniRead($Source, "PrintSettings", "Cmd", " ") Global Const $File = IniRead($Source, "PrintSettings", "File", " ") ;Edit Global Const $TextEdit1 = IniRead($Source, "Edit", "Edit1", " ") Global Const $LineEdit1 = IniRead($Source, "Edit", "Line1", " ") Global Const $Overwrite1 = IniRead($Source, "Edit", "Overwrite1", " ") Global Const $FeFind = $Find & "\" While 1 If FileExists($FeFind & $MomName) Then FileAdd1() Edit() Print() FileMove($FeFind & $MomName, $FeFind & $FileName) If FileExists($FeFind & $MomName) Then FileDelete($FeFind & $MomName) EndIf EndIf If $here = 2 Then Exit EndIf Sleep($Sleep) WEnd Func FileAdd1() If $Overwrite = 0 Then $FileName = $FileName + 1 ElseIf $Overwrite = 1 Then $FileName = "INVOICEEL2P" EndIf IniWrite($Source, "Info", "FileName", $FileName) EndFunc ;==>FileAdd1 Func Edit() _FileWriteToLine($FeFind & $MomName, $LineEdit1, $TextEdit1, $Overwrite1) EndFunc ;==>Edit Func Print() _RunDOS($CmdPrint) $here = MsgBox(1, "asdf", "Continue?") EndFunc ;==>Printi made this to take a file that another program makes and fix a line. once you register this OLD software you cannot change what is printed at the top, but i have a few problems i don't know how to fix. this is what i have so far. it works... but when it prints its not bold(like i want it), it prints a blank page(how do i delete the left over blank lines?) and the left margin is a little big(not to worried about it, but would be nice to fix.) any edits to make better would be appreciated too. tanks fred

where i work we use an old copy of icverify to run credit cards, but it prints the full card number on the receipt (obviously this is a problem). how could i change the file before it is printed. i was thinking something with the spool... but i don't know what. any suggestions? (windows 2000 server, using IcVerify to run the cards)

after i pick one selection it freezes and i cant pick another Opt("TrayMenuMode",1) $TV = TrayCreateItem("TV") TrayCreateItem("") $Monitor = TrayCreateItem("Monitor") TrayCreateItem("") $Exititem = TrayCreateItem("Exit") TraySetState() While 1 $msg = TrayGetMsg() Select Case $msg = $TV DisplayChangeRes(1280, 720, 32, 85) Case $msg = $Monitor DisplayChangeRes(1280, 1024, 32, 85) Case $msg = $Exititem ExitLoop EndSelect WEnd Func DisplayChangeRes($WIDTH, $HEIGHT, $BPP, $FREQ) $DM_PELSWIDTH = 0x00080000 $DM_PELSHEIGHT = 0x00100000 $DM_BITSPERPEL = 0x00040000 $DM_DISPLAYFREQUENCY = 0x00400000 $CDS_TEST = 0x00000002 $CDS_UPDATEREGISTRY = 0x00000001 $DISP_CHANGE_RESTART = 1 $DISP_CHANGE_SUCCESSFUL = 0 $HWND_BROADCAST = 0xffff $WM_DISPLAYCHANGE = 0x007E $DEVMODE = DLLStructCreate ("byte[32];int[10];byte[32];int[6]") $B = DllCall("user32.dll", "int", "EnumDisplaySettings", "ptr", 0, "long", 0, "ptr", DLLStructGetPtr ($DEVMODE)) If @error Then $B = 0 Else $B = $B[0] EndIf If $B <> 0 Then DllStructSetData ($DEVMODE, 2, BitOR($DM_PELSWIDTH, $DM_PELSHEIGHT, $DM_BITSPERPEL, $DM_DISPLAYFREQUENCY), 5) DllStructSetData ($DEVMODE, 4, $WIDTH, 2) DllStructSetData ($DEVMODE, 4, $HEIGHT, 3) DllStructSetData ($DEVMODE, 4, $BPP, 1) DllStructSetData ($DEVMODE, 4, $FREQ, 5) $B = DllCall("user32.dll", "int", "ChangeDisplaySettings", "ptr", DLLStructGetPtr ($DEVMODE), "int", $CDS_TEST) If @error Then $B = -1 Else $B = $B[0] EndIf Select Case $B = $DISP_CHANGE_RESTART $DEVMODE = "" Return 2 Case $B = $DISP_CHANGE_SUCCESSFUL DllCall("user32.dll", "int", "ChangeDisplaySettings", "ptr", DLLStructGetPtr ($DEVMODE), "int", $CDS_UPDATEREGISTRY) DllCall("user32.dll", "int", "SendMessage", "hwnd", $HWND_BROADCAST, "int", $WM_DISPLAYCHANGE, _ "int", $BPP, "int", $HEIGHT * 2 ^ 16 + $WIDTH) $DEVMODE = "" Return 1 Case Else $DEVMODE = "" Return $B EndSelect EndIf EndFunc

that works but do you know how i would get rid of the .ini on the end of them? i've looked through _GUICtrlComboBox in the help file but cant find anything

i dont know how i would start...or search this. how would i make the drop down a list of .ini files saved in a certain directory .ini files would constantly be being added/removed after each use of the program not while it is running. i dont know if i explained well enough files in folder -file1.ini -file2.ini -file3.ini combobox blank on start when click down |combobox \/| |file1.ini | |file2.ini | |file3.ini |

works PERFECT. thank you

im trying to hide if you press esc and if its already hidden then show form1 this is what i made up... it doesnt work... $form1 = GuiCreate..... ..................... ...................... While 1 HotKeySet("{esc}", "ToggleHide") Wend Func ToggleHide() $dll = DllOpen("user32.dll") $Toggle = 0 If $Toggle = 0 And _IsPressed("1B", $dll) Then $Toggle = 1 If $Toggle = 1 And _IsPressed("1B", $dll) Then $Toggle = 0 If $Toggle = 1 Then GUISetState(@SW_HIDE, $Form1) If $Toggle = 0 Then GUISetState(@SW_SHOW, $Form1) EndFunc

i hate the song and friend likes to play it to wake me up so i figured its a good reason to start using autoit again

#NoTrayIcon #include <Misc.au3> $dll = DllOpen("user32.dll") While 1 search() WEnd Func Lockup() ProcessClose("firefox.exe") While 3 MouseMove(637,505) If WinActive("Windows Task Manager") Then ProcessClose("taskmgr.exe") If _IsPressed("25", $dll) Then Send("{esc}") If _IsPressed("26", $dll) Then Send("{esc}") If _IsPressed("27", $dll) Then Send("{esc}") If _IsPressed("28", $dll) Then Send("{esc}") If _IsPressed("53", $dll) Then Send("{esc}") HotKeySet("{pause}", "Unlock") WEnd EndFunc Func search() While 2 Sleep(10) If WinExists("[REGEXPTITLE:(?i)party in|Miley Cyrus|u.s.a.|u.s.a|usa|party in the usa]")Then Lockup() HotKeySet("{pause}", "Unlock") WEnd EndFunc Func Unlock() search() EndFunc when i stop it i get this message >Process failed to respond; forcing abrupt termination... >Exit code: 1 Time: 19.959 i assume thats a bad thing

i got it after a while of help file $text = ControlGetText("[CLASS:iTunes]", "", "Static23") MsgBox(0, "Text read was:", $text) but how would i do something like this $text = ControlGetText("[CLASS:iTunes]", "", "Static23") If $text = "asdf" then Run("cmd.exe")

i looking to find what song is currently playing on itunes. i have no idea where to start. i tried using the autoit window info thing that came w/ autoit and i dont know what to do with what it give me.

does order matter now in v3? i had to change alot of my old code to make them work now. and why are things like $ES_PASSWORD are now 0x0020?

thanks works perfectly

i've tried a few things to do this but they all involve me typing in exact text im trying to get this #NoTrayIcon While 1 Sleep(10) If WinExists("YouTube - party in the usa - Mozilla Firefox")Then Lockup() If WinExists("YouTube - Party in the USA - Mozilla Firefox")Then Lockup() If WinExists("YouTube - Party in the Usa - Mozilla Firefox")Then Lockup() If WinExists("YouTube - Party In The Usa - Mozilla Firefox")Then Lockup() If WinExists("YouTube - Party In The usa - Mozilla Firefox")Then Lockup() If WinExists("YouTube - miley cyrus party in the usa - Mozilla Firefox")Then Lockup() If WinExists("YouTube - Miley cyrus party in the usa - Mozilla Firefox")Then Lockup() If WinExists("YouTube - Miley Cyrus Party in the Usa - Mozilla Firefox")Then Lockup() If WinExists("YouTube - Miley Cyrus Party In The Usa - Mozilla Firefox")Then Lockup() If WinExists("YouTube - Miley Cyrus Party In The USA - Mozilla Firefox")Then Lockup() If WinExists("YouTube - Miley Cyrus Party In The usa - Mozilla Firefox")Then Lockup() If WinExists("YouTube - miley cyrus - Mozilla Firefox")Then Lockup() If WinExists("YouTube - Miley cyrus - Mozilla Firefox")Then Lockup() If WinExists("YouTube - Miley Cyrus - Mozilla Firefox")Then Lockup() If WinExists("YouTube - Miley Cyrus - Mozilla Firefox")Then Lockup() If WinExists("YouTube - Miley Cyrus - Mozilla Firefox")Then Lockup() If WinExists("YouTube - Miley Cyrus - Mozilla Firefox")Then Lockup() HotKeySet ("{esc}", "nothing") HotKeySet ("{rwin}", "nothing") HotKeySet ("{lwin}", "nothing") HotKeySet ("{rctrl}", "nothing") HotKeySet ("{lctrl}", "nothing") HotKeySet("{Pause}", "ExitFunc") WEnd Func ExitFunc () ConsoleWrite ("> Loop Ended" & @CRLF) Exit EndFunc Func Lockup() ProcessClose("firefox.exe") While 2 MouseMove(0,0) WEnd EndFunc Func nothing() EndFunc to work but as you can see i have to type in exact text is there anyway for this to work just when the words "miley cyrus" or "party in the usa" come up? i only have it workig on youtube right now i almost want it to work like this example but w/ firefox AutoItSetOption("WinTitleMatchMode", 4) ; Get the handle of a notepad window that contains "this one" $handle = WinGetHandle("classname=Notepad", "this one") If @error Then MsgBox(4096, "Error", "Could not find the correct window") Else ; Send some text directly to this window's edit control ControlSend($handle, "", "Edit1", "AbCdE") EndIf

ive been trying to get this to work for a while now im fine with the code how it is if i could get the password thing to work then i could move on but i cant get it to work can someone see whats wrong with it? #include <GUIConstants.au3> #include <String.au3> $Form1 = GUICreate("Desktop Lock", 153, 214, -1, -1, BitOR($WS_MINIMIZEBOX,$WS_SYSMENU,$WS_CAPTION,$WS_POPUPWINDOW,$WS_GROUP,$WS_BORDER,$WS_CLIPSIBLINGS,$DS_CONTEXTHELP), BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE)) GUISetBkColor(0x000000) $Inputpass = GUICtrlCreateInput("", 8, 19, 137, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL)) GUICtrlSetBkColor(-1, 0x008000) $Label1 = GUICtrlCreateLabel("Password to unlock Desktop", 8, 0, 140, 17) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) $Button1 = GUICtrlCreateButton("Lock", 9, 48, 59, 25, 0) GUICtrlSetTip(-1, "Lock Your Desktop Now") $Button2 = GUICtrlCreateButton("Exit", 85, 48, 59, 25, 0) GUICtrlSetTip(-1, "Exit Program w/o locking it") $Group1 = GUICtrlCreateGroup("", 8, 80, 137, 105) GUICtrlSetBkColor(-1, 0x000000) $Label2 = GUICtrlCreateLabel("Desktop will be unlocked", 16, 88, 123, 17) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) $Label3 = GUICtrlCreateLabel("if the computer is restarted", 13, 104, 128, 17) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) $Label4 = GUICtrlCreateLabel("click button below to ", 24, 120, 105, 17) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) $Label5 = GUICtrlCreateLabel("Keep locked", 40, 136, 64, 17) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) $Button3 = GUICtrlCreateButton("!", 26, 152, 99, 25, 0) GUICtrlSetFont(-1, 8, 800, 0, "@DFKai-SB") GUICtrlCreateGroup("", -99, -99, 1, 1) $MenuItem2 = GUICtrlCreateMenu("&Help") $MenuItem1 = GUICtrlCreateMenuItem("About", $MenuItem2) $MenuItem3 = GUICtrlCreateMenu("How to", $MenuItem2) $MenuItem4 = GUICtrlCreateMenuItem("How to", $MenuItem3) $MenuItem5 = GUICtrlCreateMenuItem("Not Working?", $MenuItem3) GUISetState(@SW_SHOW) $Form2 = GUICreate("", 121, 193, -1, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE)) GUISetBkColor(0x000000) $Group1 = GUICtrlCreateGroup("", 7, 0, 105, 163) GUICtrlSetBkColor(-1, 0x000000) $Label1 = GUICtrlCreateLabel("TO UNLOCK", 16, 8, 89, 20) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) $Label5 = GUICtrlCreateLabel("PRESS THE", 16, 28, 90, 20) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) $Label4 = GUICtrlCreateLabel("KEY", 43, 102, 33, 20) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) $Button3 = GUICtrlCreateButton("OK", 22, 125, 75, 25, 0) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label2 = GUICtrlCreateLabel("Pause", 37, 47, 57, 28) GUICtrlSetFont(-1, 15, 400, 4, "MS Sans Serif") GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) $Label3 = GUICtrlCreateLabel("Break", 39, 70, 52, 28) GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) GUICtrlCreateGroup("", -99, -99, 1, 1) $Form3 = GUICreate("", 138, 90, -1, -1) GUISetBkColor(0x000000) $Label1 = GUICtrlCreateLabel("Password?", 40, 7, 56, 17) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) $Inputpassword = GUICtrlCreateInput("", 8, 24, 121, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL)) GUICtrlSetBkColor(-1, 0x008000) $Button4 = GUICtrlCreateButton("OK", 8, 56, 51, 25, 0) $Button5 = GUICtrlCreateButton("Exit", 80, 56, 51, 25, 0) $about = GUICreate("About", 322, 194, 543, 236,BitOR($WS_POPUP, $WS_DLGFRAME),$WS_EX_TOOLWINDOW) GUISetIcon("D:\006.ico") GUISetBkColor(0x000000) $GroupBox1 = GUICtrlCreateGroup("", 8, 8, 305, 177) GUICtrlSetBkColor(-1, 0x000000) $Image1 = GUICtrlCreatePic("", 16, 24, 105, 97, BitOR($SS_NOTIFY,$WS_GROUP)) $Label1 = GUICtrlCreateLabel("Product Name: Desktop Lock", 143, 24, 145, 17, $WS_GROUP) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) $Label2 = GUICtrlCreateLabel("Version: 1.0", 143, 48, 60, 17, $WS_GROUP) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) $Label1 = GUICtrlCreateLabel("Date Released: 11/32/07", 143, 75, 127, 17) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) $Label2 = GUICtrlCreateLabel("BDP.I8.COM", 144, 104, 65, 17) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) $Button6 = GUICtrlCreateButton("OK", 134, 144, 75, 25, 0) GUICtrlCreateGroup("", -99, -99, 1, 1) $howto = GUICreate("How to", 124, 122, -1, -1,BitOR($WS_POPUP, $WS_DLGFRAME),$WS_EX_TOOLWINDOW) GUISetBkColor(0x000000) $Label1 = GUICtrlCreateLabel("How to", 17, 5, 92, 36) GUICtrlSetFont(-1, 20, 800, 4, "MS Sans Serif") GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) $Group1 = GUICtrlCreateGroup("", 9, 35, 105, 49) GUICtrlSetBkColor(-1, 0x000000) $Label2 = GUICtrlCreateLabel("Type in a password", 14, 45, 96, 17) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) $Label3 = GUICtrlCreateLabel("Click Lock button", 18, 63, 87, 17) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) GUICtrlCreateGroup("", -99, -99, 1, 1) $Button7 = GUICtrlCreateButton("OK", 23, 88, 75, 25, 0) While 1 $msg = GUIGetMsg() HotKeySet ("{pause}", "showpass") Select Case $msg = $button1 $pw = $inputpass IniWrite (@desktopDir & "\pdb.ini", "data", "0", $pw) GUISetState(@sw_hide, $Form1) GUISetState(@sw_show, $Form2) Case $msg = $Button2 ExitLoop Case $msg = $button3 GUISetState(@sw_hide, $form2) Case $msg = $button4 _Plock() Case $msg = $button5 GUISetState(@sw_hide, $form3) Case $msg = $button6 GUISetState(@sw_hide, $about) Case $msg = $button7 GUISetState(@sw_hide, $howto) Case $msg = $menuitem1 GUISetState(@sw_show, $about) Case $msg = $menuitem4 GUISetState(@sw_show, $howto) EndSelect If $msg = $GUI_EVENT_CLOSE Then ExitLoop Wend Func showpass () ConsoleWrite("> form3 = shown" & @crlf) GUISetState(@sw_show, $form3) EndFunc Func _PLock() asdf() $input = $inputpassword If $input = $pw Then MsgBox (0, "Error", "Access Granted", 4) FileDelete (@desktopDir & "\pdb.ini") Exit Else MsgBox (0, "Error", "Access Denied", 4) _plock() EndIf EndFunc ;==>_PLock

password code. evey time the program starts they will be given a screen that says what do you want your password to be ($asdf <-- will be the first page that appears that they will enter there password into) then when it closes then it will ask for the password. when i run that code then it says "Variable used without being declared.:"... i have absolutely no idea what that means i tried getting rid of the GUICtrlRead($asdf)s in the $pass line and it worked then but of corse then the password was just nothing...

i cant seem to get this password code it work can anyone help? #include <GUIConstants.au3> #include <String.au3> $File = IniWrite("my pass.ini" , "5" , "1" , _StringEncrypt(1 , "5" , "" , 1)) $Pass = IniRead($File , GUICtrlRead($asdf) , "1" , GUICtrlRead($asdf)) $Form1 = GUICreate("Password Dialog", 252, 200, 0, 0) $MaskEdit1 = GUICtrlCreateInput("", 8, 32, 233, 21 , $ES_PASSWORD,$ES_AUTOHSCROLL) $asdf = GUICtrlCreateInput("", 8, 62, 233, 21 , $ES_PASSWORD,$ES_AUTOHSCROLL) $Button1 = GUICtrlCreateButton("&OK", 86, 90, 75, 25, 0) $Button2 = GUICtrlCreateButton("&Cancel", 167, 90, 75, 25, 0) $Label1 = GUICtrlCreateLabel("Enter password", 8, 12, 77, 17) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 If $Pass = GUICtrlRead($MaskEdit1) Then ExitLoop Else MsgBox(0 , "" , "Wrong password") Exit EndIf Case $Button2 Exit EndSwitch WEnd

i dont just need a password code know of a good one?

if it doesnt then can you give me a new password code so when they open the program the first time then they can set it and then from then on it stays the same?

idk how to explain it... ok so let me try one more time. if on page one it says set your password. then when you click ok then it opens a program then when you close it then it will say password? and if you enter in what you did in the first page then it goes to the next screen. make any sense to you?

ok i guess what im really asking for is something like $Input = InputBox("TestInput", "Input data", "Hello world") Run("notepad.exe") WinWait("Untitled") send($input(what code would go here to send w/e is in $input?))

that is Very close to it, but insted of having to enter the password in 2 times i want it to be so say you typed "asdf" in box 2 then that would be the password or if you typed "1234" in box 2 then that would be the password is that possable? if not do you know a code so it saves there password?(like on most programs)

thats what i was looking for but not it. how would i get it so i could have this password code #include <GUIConstants.au3> #include <String.au3> $File = IniWrite("my pass.ini" , "password" , "1" , _StringEncrypt(1 , "password" , "" , 1)) $Pass = IniRead($File , "YourPasswordHere" , "1" , "YourPasswordHere") $Form1 = GUICreate("Password Dialog", 252, 150, 0, 0) $MaskEdit1 = GUICtrlCreateInput("", 8, 32, 233, 21 , $ES_PASSWORD,$ES_AUTOHSCROLL) $passinput = GUICtrlCreateInput("", 8, 70, 233, 21, $es_password, $es_autohscroll) $Button1 = GUICtrlCreateButton("&OK", 86, 120, 75, 25, 0) $Button2 = GUICtrlCreateButton("&Cancel", 167, 120, 75, 25, 0) $Label1 = GUICtrlCreateLabel("Enter password", 8, 12, 77, 17) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 If $Pass = GUICtrlRead($MaskEdit1) Then ExitLoop Else MsgBox(0 , "" , "Wrong password") EndIf Case $Button2 Exit EndSwitch WEnd except have it so w/e you type in box #2($passinput) would be the password i tried diff things and couldnt get it to work

what would the code be to send the input in inputbox to notepad? so if someone typed there name into the box it would say hello name typed in inputbox