will88

You need to delete the old ini file then it should work properly.

have you tried using ControlClick() and ControlSend() ?

oh yea <.< I had to rewrite it and forgot to do that part, I'll edit it in a bit. Edit: Done

the problem is $numtags = UBound($tags) is actually = to 5 not 4("Now if $j is 4 then it should change $j back to 0") HotKeySet("^{RIGHT}", "NextTag") $foo = '<f1>asdf</f1>asdsdfasdf<s0/><a11></a11>' Global $j = 0 $tags = StringRegExp ($foo, '(<[/]{0,1}[a-z]{0,3}[0-9]{0,5}[/]{0,1}>)', 3) $numtags = UBound($tags) MsgBox(0,"",$numtags) While 1 Sleep(100) WEnd Func NextTag () WinActivate ("Untitled - Notepad", "") WinWaitActive ("Untitled - Notepad", "") ClipPut ($tags[$j]) $len = StringLen ($tags[$j]) Send ("^v") Send("{LEFT " & $len & "}") Send("+{RIGHT " & $len & "}") If $j = $numtags-1 Then $j = 0 Else $j += 1 EndIf EndFunc

This script keeps track of all your passwords(Encrypted), so you only need to remember 1 password. #include <String.au3> #include <EditConstants.au3> #include <GuiListView.au3> #include <GUIConstantsEx.au3> Global $ini = @HomeDrive & "\PK.ini" Global $Encrypt_Level = 1 Global $Enter = False Global $i = 0 Global $InvalidAttempts = 0 Load() Func Load() If FileExists($ini) Then Global $TotalArrays = IniRead($ini, "Arrays", "Arrays", "") Global $Description[$TotalArrays + 1] Global $Username[$TotalArrays + 1] Global $Password[$TotalArrays + 1] Global $GUI_List[$TotalArrays + 1] For $i = 0 To $TotalArrays $Read1 = IniRead($ini, "Descriptions", "Description" & $i, "") $Description[$i] = _StringEncrypt(0,$Read1,"PasswordKeeper") $Read2 = IniRead($ini, "Usernames", "Username" & $i, "") $Username[$i] = _StringEncrypt(0,$Read2,"PasswordKeeper") $Read3 = IniRead($ini, "Passwords", "Password" & $i, "") $Password[$i] = _StringEncrypt(0,$Read3,"PasswordKeeper") Next EndIf EndFunc ;==>Load If Not FileExists($ini) Then Setup() Else Login() EndIf Func Add() GUIDelete("PasswordKeeper - Logged In") If Not FileExists($ini) Then Global $TotalArrays = 0 Else Global $TotalArrays = IniRead($ini, "Arrays", "Arrays", "") If $TotalArrays = "" Then $TotalArrays = 0 Else $TotalArrays += 1 EndIf EndIf $User_Description = InputBox("Description", "") $User_Username = InputBox("Username", "") $User_Password = InputBox("Password", "") $User_Description = _StringEncrypt(1,$User_Description,"PasswordKeeper") $User_Username = _StringEncrypt(1,$User_Username,"PasswordKeeper") $User_Password = _StringEncrypt(1,$User_Password,"PasswordKeeper") IniWrite($ini, "Descriptions", "Description" & $TotalArrays, $User_Description) IniWrite($ini, "Usernames", "Username" & $TotalArrays, $User_Username) IniWrite($ini, "Passwords", "Password" & $TotalArrays, $User_Password) IniWrite($ini, "Arrays", "Arrays", $TotalArrays) Sleep(200) Load() LoggedIn() EndFunc ;==>Add Func LoggedIn() GUICreate("PasswordKeeper - Logged In", 421, 267) $GUI_ListView = GUICtrlCreateListView("Description |Username |Password", 0, 0, 424, 250) $GUI_Add = GUICtrlCreateButton("Add Pass", 140, 248, 55, 20) $GUI_Del = GUICtrlCreateButton("Del Pass", 195, 248, 55, 20) ControlDisable("PasswordKeeper - Logged In", "", $GUI_Del) Global $TotalArrays = IniRead($ini, "Arrays", "Arrays", "") If Not $TotalArrays = "" Then For $i = 0 To $TotalArrays $GUI_List[$i] = GUICtrlCreateListViewItem($Description[$i] & "|" & $Username[$i] & "|" & $Password[$i], $GUI_ListView) Next EndIf GUISetState() While 1 $msg = GUIGetMsg() If $msg = -3 Then Exit If $msg = $GUI_Add Then Add() If $msg = $GUI_Del Then EndIf WEnd EndFunc ;==>LoggedIn Func Del() EndFunc ;==>Del Func EnterPressed() Global $Enter = True EndFunc ;==>EnterPressed Func Login() $GUI = GUICreate("PasswordKeeper - Login", 300, 100) $GUI_Label = GUICtrlCreateLabel("Password:", 50, 28) $GUI_Password = GUICtrlCreateInput("", 100, 25, 100, 20, $ES_PASSWORD) $GUI_Login = GUICtrlCreateButton("Login", 120, 75, 40, 20) GUISetState() While 1 If WinActive("PasswordKeeper - Login") Then HotKeySet("{Enter}", "EnterPressed") Else HotKeySet("{Enter}") EndIf $msg = GUIGetMsg() If $msg = -3 Then Exit If $msg = $GUI_Login Or $Enter = True Then Global $Enter = False If GUICtrlRead($GUI_Password) = "" Then MsgBox(0, "Login", "You must Enter a password.") Else $Convert = _StringToHex(GUICtrlRead($GUI_Password)) $Encrypted = _StringEncrypt(1, $Convert, GUICtrlRead($GUI_Password) & "PasswordKeeper(" & @ComputerName & ")", $Encrypt_Level) $Pass_Encrypted = IniRead($ini, "A", "User", "") If $Encrypted = $Pass_Encrypted Then HotKeySet("{Enter}") GUICtrlDelete($GUI_Login) GUICtrlDelete($GUI_Password) GUICtrlDelete($GUI_Label) GUIDelete($GUI) ExitLoop Else HotKeySet("{Enter}") MsgBox(0, "Password", "Invalid password, please try again.") GUICtrlSetData($GUI_Password, "") $InvalidAttempts += 1 If IniRead($ini, "ZXY", "UserD", "") = 1 And $InvalidAttempts >= IniRead($ini, "ZXY", "UserA", "") Then FileDelete($ini) Exit EndIf EndIf EndIf EndIf Sleep(50) WEnd LoggedIn() EndFunc ;==>Login Func Setup() $GUI = GUICreate("PasswordKeeper - Create Account", 300, 200) Global $GUI_Del_CheckBox = GUICtrlCreateCheckbox("Delete After:", 15, 125) Global $GUI_Del_Input = GUICtrlCreateInput("0", 95, 126, 28, 20) $GUI_Label2 = GUICtrlCreateLabel("Invalid Logins", 129, 126) ; $GUI_Label1 = GUICtrlCreateLabel("Password:", 50, 28) $GUI_Password = GUICtrlCreateInput("", 100, 25, 100, 20, $ES_PASSWORD) $GUI_Label2 = GUICtrlCreateLabel("Confirm:", 55, 53) $GUI_Confirm = GUICtrlCreateInput("", 100, 50, 100, 20, $ES_PASSWORD) $GUI_Create = GUICtrlCreateButton("Create", 120, 75, 40, 20) GUISetState() HotKeySet("{Enter}", "EnterPressed") While 1 $msg = GUIGetMsg() If WinActive("PasswordKeeper - Create An Account") Then HotKeySet("{Enter}", "EnterPressed") Else HotKeySet("{Enter}") EndIf If $msg = -3 Then Exit If $msg = $GUI_Create Or $Enter = True Then Global $Enter = False If GUICtrlRead($GUI_Password) = "" Then MsgBox(0, "Login", "You must Enter a password.") ElseIf Not (GUICtrlRead($GUI_Password) == GUICtrlRead($GUI_Confirm)) Then MsgBox(0, "Login", "Passwords do not match!") Else $Convert = _StringToHex(GUICtrlRead($GUI_Password)) $Encrypted = _StringEncrypt(1, $Convert, GUICtrlRead($GUI_Password) & "PasswordKeeper(" & @ComputerName & ")", $Encrypt_Level) IniWrite($ini, "A", "User", $Encrypted) HotKeySet("{Enter}") If GUICtrlRead($GUI_Del_CheckBox) = 1 Then $Attempts = GUICtrlRead($GUI_Del_Input) IniWrite($ini, "ZXY", "UserD", "1") IniWrite($ini, "ZXY", "UserA", $Attempts) Else IniWrite($ini, "ZXY", "UserD", "0") EndIf MsgBox(0, "Account", "Your account has been successfully created!") GUIDelete($GUI) GUICtrlDelete($GUI_Label1) GUICtrlDelete($GUI_Label2) GUICtrlDelete($GUI_Password) GUICtrlDelete($GUI_Confirm) GUICtrlDelete($GUI_Create) ExitLoop EndIf EndIf Sleep(50) WEnd Login() EndFunc ;==>Setup

You have your function inside of the while loop $i = 1 While $i <=60 ; next line fires the shutter Send ("{SPACE}") Sleep (5000) _IncrementalFileCopy("c:\vws\camin\*.jpg", "c:\vws\cammovie\image.jpg") FileMove ("c:\vws\camin\*.jpg", "c:\vws\camout\image.jpg", 1) Sleep (595000) $i = $i + 1 WEnd Func _IncrementalFileCopy($Source, $Destination) $count = 0 Do $pathArray = StringSplit ( $Destination, ".") if $pathArray[0] > 2 Then Return 3 $newDestination = $pathArray[1] & $count & "." & $pathArray[2] $count += 1 Until FileExists($newDestination) = 0 FileCopy ( $Source, $newDestination, 8) Return @error EndFunc

I think Warden looks for AutoIt scripts now. What's the difference when your going to have to test your script to see if it works

As far as I know, you can only get the X,Y position from PixelSearch([0] & [1]).

Try this: Opt("WinWaitDelay",100) Opt("WinTitleMatchMode",4) Opt("WinDetectHiddenText",1) Opt("MouseCoordMode",0) AutoItSetOption ( "PixelCoordMode", 0 ); Do not change this parameter! It's needed for windowed D2. WinActivate("Diablo II") WinMove("Diablo II", "", 0, 0) $Rares = 0xD8B864 $Uniques = 0x9C826B $Sets = 0x21D74A Global $Item1_Check = False Global $Item2_Check = False Send("{ALTDOWN}") While 1 WinWaitActive("Diablo II", "") $RareFind = PixelSearch(235, 173, 600, 424, $Rares) If Not @error Then $Item1_Check = True Sleep(500) Send("{ALTUP}") $RareFind2 = PixelChecksum($Rarefind[0],$Rarefind[1],$Rarefind[2], $Rarefind[3]) If Not @error Then $Item2_Check = True Send("{ALTDOWN}") If $Item1_Check = True And $Item2_Check = True Then MouseClick("left", $rarefind[0], $rarefind[1]) EndIf Global $Item1_Check = False Global $Item2_Check = False EndIf EndIf WEnd Edit: Oops, thought RareFind & RareFind2 were both pixelsearches <.<

WinMove() ?

Dose this work? ControlSend("Warhammer","","","2")

What it's suppost todo: Read Ini file to find out the length of the array. Then Declare 0-Length of array, with whatever is in the Settings.ini file Error: Global $Descriptions[$i] = _StringEncrypt(0,$Read,"Password",$Encrypt_Level) Global $Descriptions[^ERROR Error: Array variable subscript badly formatted. Some of the code from my script: Global $ini = @HomeDrive & "\Settings.ini" $Arrays = IniRead($ini,"B","User","") If Not $Arrays = "" Then For $i = 0 to $Arrays $Read = IniRead($ini,"C","User" & $i,"") Global $Descriptions[$i] = _StringEncrypt(0,$Read,"Password",$Encrypt_Level) $Read = IniRead($ini,"D","User" & $i,"") Global $Usernames[$i] = _StringEncrypt(0,$Read,"Password",$Encrypt_Level) $Read = IniRead($ini,"E","User" & $i,"") Global $Passwords[$i] = _StringEncrypt(0,$Read,"Password",$Encrypt_Level) Next Else Global $Arrays = False EndIf Settings file: [B] User=0 [C] User0=7E5999BB74C081B59C55BA5C946AB8399471754F5D62 [D] User0=7F5A98BD73C680B29D22BA2D9367B938 [E] User0=7F5D99C674C080B59C50BA5A9413B939 Thanks

In your while loop, add something like this: $msg = GUIGetMsg() If $msg = $DodgeButton Then If TimerDiff($DodgeTimer) > 3600000 Then; Timer Set To 1hr $DodgeTimer = TimerInit() ToolTip('Dodge Started"', 0, 0) Send("{F4}") Sleep("1500") Send("6") EndIf EndIf

This what you trying to do?: #include <Misc.au3> Global $Shift = "", $dll = DllOpen("user32.dll") While 1 If _IsPressed("10", $dll) Then If $Shift = "" Or $Shift = 0 Then Send("{lshift up}") $Shift = 1 ElseIf $Shift = 1 Then Send("{lshift down}") $Shift = 0 EndIf EndIf WEnd DllClose($dll)

Maybe this Include file? http://www.thorsten-willert.de/Themen/Auto...3/FF.au3/FF.au3