DaProgrammer

Tnx man u helped me make this Torrent Downloader so kudos for the work.

How To : 1) Create Settings.INI and Filters.INI and copy the content from here (customize if needed) 2) Create Something.au3 and copy the script. 3) Complile and run 4) When an episode from your favorite show is relesed it will be automaticly added to UTorrent. Completely remade now uses INI files for settings in a step towards GUI Settings. u must have these 2 files in the script folder, of course Filters should be customized to your needs. Settings.INI CODE[Global]FeedURL=http://tvrss.net/feed/eztv/ TorrentClient=C:\Program Files\uTorrent\uTorrent.exe Filters.INI CODE[1]MustHave=Prison|Break|HDTV CantHave=720P|HR [2] MustHave=Heroes|HDTV CantHave=720P|HR [3] MustHave=Nip|Tuck CantHave= [4] MustHave=Scrubs [5] MustHave=Numb3rs|HDTV CantHave=720P|HR [6] MustHave=House|HDTV CantHave=720P|HR [7] MustHave=Smallville|HDTV CantHave=720P|HR #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_icon=0006.ico #AutoIt3Wrapper_Compression=4 #AutoIt3Wrapper_Allow_Decompile=n #AutoIt3Wrapper_AU3Check_Stop_OnWarning=y #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <INet.au3> #include <String.au3> ;~ #include <KJ.au3> ;~ #include <Array.au3> Opt("MustDeclareVars", 1) ;~ Opt("TrayIconDebug", 1) IniWrite(@ScriptDir & "\Downloaded.ini", "Files", "0", "0") Global $TorrentClient = IniRead(@ScriptDir & "\Settings.ini", "Global", "TorrentClient", "") While 1 Local $a = Check() If $a = -1 Then Sleep(300000) ContinueLoop EndIf Sleep(3600000) WEnd Func Check() Local $i, $i2, $i3 Local $Source = IniRead(@ScriptDir & "\Settings.ini", "Global", "FeedURL", "") Local $Feed = _INetGetSource($Source) If @error Or StringLen($Feed) < 5000 Then Return -1 Local $Title = _StringBetween($Feed, "<title>", "</title>") Local $Link = _StringBetween($Feed, "<link>", "</link>") Local $PubDate = _StringBetween($Feed, "<pubdate>", "</pubdate>") Local $List = IniReadSection(@ScriptDir & "\Downloaded.ini", "Files") Local $FiltersTemp = IniReadSectionNames(@ScriptDir & "\Filters.ini") Local $Filters[$FiltersTemp[0] + 1][2] $Filters[0][0] = $FiltersTemp[0] For $i = 1 To $FiltersTemp[0] $Filters[$i][0] = IniRead(@ScriptDir & "\Filters.ini", $FiltersTemp[$i], "MustHave", "") $Filters[$i][1] = IniRead(@ScriptDir & "\Filters.ini", $FiltersTemp[$i], "CantHave", "") Next For $i = 1 To UBound($Title) - 1 For $i2 = 1 To $Filters[0][0] Local $Filter1 = StringSplit($Filters[$i2][0], "|") Local $Filter2 = StringSplit($Filters[$i2][1], "|") For $i3 = 1 To $Filter1[0] If Not StringInStr($Title[$i], $Filter1[$i3]) Then ContinueLoop 2 Next For $i3 = 1 To $Filter2[0] If StringInStr($Title[$i], $Filter2[$i3]) Then ContinueLoop 2 Next If Not Inlist($Title[$i], $List) Then Download($Title[$i], $Link[$i]) Next Next ;~ If IniRead(@ScriptDir & "\Settings.ini", "Stats", "Last Torrent Published", "") <> $PubDate[0] Then ;~ IniWrite(@ScriptDir & "\Settings.ini", "Stats", "Last Torrent Published Time", _Date ("Long")) ;~ IniWrite(@ScriptDir & "\Settings.ini", "Stats", "Last Torrent Published", $PubDate[0]) ;~ EndIf ;~ IniWrite(@ScriptDir & "\Settings.ini", "Stats", "Last RSS Feed Check", _Date ("Long")) EndFunc ;==>Check Func Download($TempTitle, $TempLink) Local $FileName = @ScriptDir & "\z.torrent" If Not InetGet($TempLink, $FileName, 1, 0) Then Return -1 Sleep(5000) ShellExecute($TorrentClient, ' "' & $FileName & '"') IniWrite(@ScriptDir & "\Downloaded.ini", "Files", $TempTitle, "1") Sleep(5000) FileDelete($FileName) Sleep(5000) EndFunc ;==>Download Func Inlist($TitleToCheck, $TempList) Local $Count For $Count = 1 To $TempList[0][0] If $TempList[$Count][0] = $TitleToCheck Then Return 1 Next Return 0 EndFunc ;==>Inlist Plz Post comments and bugs if you encounter any.

do u mean like 2 mouses on screen ? couse as far as i know windows does not support that.

"A kilobyte is 1024 bytes, not 10000" --> i rounded LOL i know the KB is 1024 and not 1000 "but it would repeat the string" --> if the string is repeated that it can be broken! the point of the "one time pad" is that each character is encrypted by another random character. so theoretically u get endless possibilities of decrypted logical text. BTW : if some1 knows that the KEY was created randomly by a computer thats enough to break it the CPU's "Random" isn't a real random and is dependand on your CPU clock speed.

i tried nlite too but it didnt work donno why ?)

Yet another Virtual Mouse uses Numpad OFC, also shows tooltips and some stuff. Numpad 1 = Left Mouse Button Numpad 3 = Right Mouse Button use these as you would a mouse, supports click drag for both left and right. Numpad 7 = Decrease Mouse Sensitivity Numpad 9 = Increase Mouse Sensitivity Shows ToolTip. Numpad 5 = Set Mouse Sensitivity to 10 (for fine pointing) or if already at 10 then sets to 50 (for moving fast) Shows ToolTip. And OFC 2,4,6,8 to move around. basicly i made this for my gramps since he's old and is having difficulties using a regular mouse. so i thought maybe some1 else could also use this. #include <Misc.au3> Opt("TrayAutoPause",0) HotKeySet("{NUMPAD1}", "m1") HotKeySet("{NUMPAD3}", "m3") HotKeySet("{NUMPAD2}", "m2") HotKeySet("{NUMPAD4}", "m4") HotKeySet("{NUMPAD6}", "m6") HotKeySet("{NUMPAD8}", "m8") HotKeySet("{NUMPAD7}", "m7") HotKeySet("{NUMPAD9}", "m9") HotKeySet("{NUMPAD5}", "m5") $speed = 10 While 1 Sleep(100) Wend Func m1() HotKeySet("{NUMPAD1}") MouseDown("left") While _IsPressed(61) Sleep(100) WEnd MouseUp("left") HotKeySet("{NUMPAD1}", "m1") EndFunc Func m3() HotKeySet("{NUMPAD3}") MouseDown("right") While _IsPressed(63) Sleep(100) WEnd MouseUp("right") HotKeySet("{NUMPAD3}", "m3") EndFunc Func m2() $pos = MouseGetPos() MouseMove($pos[0], $pos[1] + $speed, 1) EndFunc Func m4() $pos = MouseGetPos() MouseMove($pos[0] - $speed, $pos[1], 1) EndFunc Func m6() $pos = MouseGetPos() MouseMove($pos[0] + $speed, $pos[1], 1) EndFunc Func m8() $pos = MouseGetPos() MouseMove($pos[0], $pos[1] - $speed, 1) EndFunc Func m7() $speed = $speed - 1 TrayTip("Virtual Mouse","You have set the mouse sensitivity to: " & $speed & " Pixels",3) EndFunc Func m9() $speed = $speed + 1 TrayTip("Virtual Mouse","You have set the mouse sensitivity to: " & $speed & " Pixels",3) EndFunc Func m5() If $speed = 10 Then $speed = 50 Else $speed = 10 EndIf TrayTip("Virtual Mouse","You have set the mouse sensitivity to: " & $speed & " Pixels",3) EndFunc

Little update now uses fileselectfolder and progressbar with /quiet install plz comment did any1 even tried this ?

made this a while back, maybe u can replace your gui creation with something like this. so it will work prettier on windows that aren't GUI of autoit ;=============================================================================== ; ; Description: Moves a window gradually changing the position and size. ; Parameter(s): $handle: Handle of the window to move ; $xPosition: New x position of the window ; $yPosition: New y position of the window ; $width: (optinal) New width of the window or -1 to keep the same ; $height: New height of the window or -1 to keep the same ; $speed: (optional) number between 1 and 10 to indicate speed ; Return Value(s): None ; Author(s): KJ, http://phenixdoc.googlepages.com/ ; ;=============================================================================== Func _MoveAnimated($handle,$xPosition,$yPosition,$width=-1,$hight=-1,$speed=7) WinActivate($handle) If BitAND(WinGetState($handle),32) Then WinSetState($handle,"",@SW_RESTORE) $POS1=WinGetPos($handle) If $width=-1 Then $width=$POS1[2] If $hight=-1 Then $hight=$POS1[3] If $speed > 10 Or $speed < 1 Then $speed = 7 $speed = $speed/10 $Difx=$xPosition-$POS1[0] $Dify=$yPosition-$POS1[1] $Difw=$width-$POS1[2] $Difh=$hight-$POS1[3] For $i = 0 to 1000 $perc=$i/1000 WinMove($handle,"",$POS1[0]+$perc*$Difx,$POS1[1]+$perc*$Dify,$POS1[2]+$perc*$Difw,$POS1[3]+$perc*$Difh) Sleep($speed) Next EndFunc

i know your write but the most secure way is to remmember your password this is a lazy tool (btw i dont use it, it was written for a friend) for those lazy LOL.

While 1 If FileExists("i:\SyncDownloads.robo") Then Sleep(30000) ShellExecuteWait("i:\Robocopy.exe", '"D:\My Documents\Downloads" "i:\Downloads" /mir /zb /it /log+:i:\log.txt') While FileExists("i:\SyncDownloads.robo") Sleep(30000) WEnd EndIf Sleep(30000) WEnd i know it ain't a big deal but some ppl might not know this so here: a little script that will backup a dir for you using robocopy (search in forums for file) when u connect your removable storage.

Updates, look at post 1. i dont think any1 will bother looking for your bank account through the internet on a wierd dll file under system32.

LOL i downloaded FEBE and its nice but too many options LOL got lost there. i can use 7zip but it will reqire Dll's and stuff, and i prefer to keep my progs as single files. if u want search the forum for "zip" and u will quickly find a couple of results, just download the dll and change my script abit. besides if u create a folder called myprofile.zip and give it a nice FireFox icon it looks zipped anyways LOL

Password Manager Simple, Easy and Encrypted. plz help improve and remove bugs and gliches. Version 2 updates : new location for the file in system folder under a fake dll name. hidden and system atrribs given. title is now also encrypted. MAJOR : a long loop was removed from the Refresh() func, now its abit faster in loading the passwords. old file lines exist (@MyDocuments) for those who are afraid theyll forget to copy the file before format. Password_Manager.au3 Password_Manager2.au3

ur better off using iniwrite and read its easier

tnx man, what i was missing is the folder attrib FileSetAttrib($Folder, "+S") now it works fine

Dude i was talking about features to add and not conveniance, those stuff i believe u can modify yourself. i'm not planning on making this an official program. as i see it this is open source and every1 likes something else, IF in the far future with your help this program will be packed with useful features, ill make it pretty and witty and gay. as for hotkey it said in my post

tnx for the UDF m8 wanted to write where its from but forgot where i found it, LOL

tnx but wasnt born yesterday LOL i tried that, won't work

i created a file named Desktop.ini inside a folder and wrote there [.ShellClassInfo] IconFile=%SystemRoot%\system32\SHELL32.dll IconIndex=126 the folders icon should change but it wont, what am i doing wrong ? p.s. if i choose an icon from customize it writes the same in Desktop.ini, word for word !

112 views in 24hr and no comments ? did any1 found this useful at all ?

a little tool to backup and restore your profile when formatting alot like i do. doesn't work with multiple profiles, im too tired at 02:00 AM to do it LOL if u want to give the new folder a cool firefox icon uncomment the comented lines and change "D:\My Documents\Downloads\FF_Earth.ico" to whatever u want. nice place to find icons is : http://www.wstaylor.net/ http://iconpacks.mozdev.org/ i suggest the former. #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_icon=..\Downloads\FF_Earth.ico #AutoIt3Wrapper_Compression=4 #AutoIt3Wrapper_Allow_Decompile=n #AutoIt3Wrapper_AU3Check_Stop_OnWarning=y #AutoIt3Wrapper_Run_Tidy=y #AutoIt3Wrapper_Run_Obfuscator=y #Obfuscator_Parameters=/sf=1 #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** Opt("TrayIconHide", 1) $Dir = IniRead(@AppDataDir & "\Mozilla\Firefox\profiles.ini", "Profile0", "path", "") $Dir = StringReplace($Dir, "/", "\") GUICreate("FireFox Profile Manager", 250, 110, -1, -1, "", 0x00000080) $Button_Backup = GUICtrlCreateButton("Backup", 10, 10, 230, 30) $Button_Restore = GUICtrlCreateButton("Restore", 10, 50, 230, 30) GUISetState() While 1 While 1 $msg = GUIGetMsg() Switch $msg Case - 3 Exit Case $Button_Backup $File = FileSelectFolder("Select a location to save your Profile", "", 3, @MyDocumentsDir) If @error Then ExitLoop If DirCopy(@AppDataDir & "\Mozilla\Firefox\" & $Dir, $File, 1) Then FileInstall("D:\My Documents\Downloads\FF_Earth.ico", $File & "\folder.ico", 1) ;~ IniWrite($File & "\Desktop.ini", ".ShellClassInfo", "IconFile", $File & "\folder.ico") ;~ IniWrite($File & "\Desktop.ini", ".ShellClassInfo", "IconIndex", "0") ;~ FileSetAttrib($File & "\Desktop.ini", "+HS") ;~ FileSetAttrib($File, "+S") ;~ FileSetAttrib($File & "\folder.ico", "+HS") MsgBox(0, "FireFox Profile", "Profile Saved") Exit Else MsgBox(16, "FireFox Profile", "There was a problem saving your Profile") ExitLoop EndIf Case $Button_Restore $File = FileSelectFolder("Select a location to Load your Profile", "", 0, @MyDocumentsDir) If @error Then ExitLoop If DirCopy($File, @AppDataDir & "\Mozilla\Firefox\" & $Dir, 1) Then MsgBox(0, "FireFox Profile", "Profile Restored") Exit Else MsgBox(16, "FireFox Profile", "There was a problem restoring your Profile") ExitLoop EndIf EndSwitch WEnd WEnd

Small semiGuide to integrate updates into a windows installation cd. 1. download updates here : Windows Update Catalog (which u ask ? i installed a clean windows and did a lot of copy paste from the windows update website to the Windows Update Catalog) 2. learn how to integrate them here : Microsoft : How To 3. use my handy script to make the gob alot faster and automatic. Global $search, $file, $Count=0, $Count2=0 Global $UpdateFolder = FileSelectFolder("Select a folder containing Windows Updates","") & "\" Global $WindowsFolder = FileSelectFolder("Select a I386 folder containing a Windows Installation","") & " /quiet" $search = FileFindFirstFile($UpdateFolder & "*.exe") While 1 $file = FileFindNextFile($search) If @error Then ExitLoop $Count = $Count + 1 WEnd FileClose($search) $search = FileFindFirstFile($UpdateFolder & "*.exe") ProgressOn("Windows Updates Integration","Please wait ...","",-1,-1,16) While 1 $file = FileFindNextFile($search) If @error Then ExitLoop $Count2 = $Count2 + 1 ProgressSet(Round($Count2*100/$Count),Round($Count2*100/$Count) & "%") ShellExecuteWait($UpdateFolder & $file,"/integrate:" & $WindowsFolder) WEnd FileClose($search) ProgressOff() 4. Learn how to burn it all to a new CD here : WinSuperSite p.s. ignore all the stuff about SP2 and scroll down to the burning the CD. i integrated 71 (yes thats alot of copy paste) windows updates and made a windows installation "OCTOBER 2007" saves alot of time when formatting. input and comments are welcome so don't be shy !

thanks man any idea's out there for improvements ?

thank you for the PM, PM'ed back p.s. you can close this topic now

some1 of the admins removed my post, but at least have the courtesy to tell me that u did, and why ???