DirtDBaK Posted August 7, 2008 Share Posted August 7, 2008 (edited) Well it was a 5 minute script, and I want to make it much more than that....Current Features:+Will backup data that you copy and paste into it+Has a listview for better file organizationFuture Plans/Ideas:+Auto Login, and Auto Backup of data+Preview saved files+Auto Login, and Auto Restore of data+Schedule Backup times+Give it a half decent GUI lol The part where I need you helpI have went into IE and logged in then told the app to get the source of the page for "Edit Profile" but it always returns that it can't get that info without logging in. So I am logged in with the same browser, is it somehow detecting that another app is accessing IE. And is there some easy way to work around this so that I can finish my future plans for this app. ^^^ That is also the Image that is used, its called IMG.jpgexpandcollapse popupif FileExists(@tempdir&"\img.jpg") = 0 then FileInstall("G:\junk\myklog\img.jpg",@tempdir&"\img.jpg") #cs #include <GUIConstants.au3> #include <file.au3> #include <string.au3> #Region ### START Koda GUI section ### Form= Global $Form1 = GUICreate("Myspace Backup Tool", 783, 561, 193, 115) Global $Tab1 = GUICtrlCreateTab(8, 24, 769, 529) GUICtrlSetResizing($Tab1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT) Global $TabSheet1 = GUICtrlCreateTabItem("About Me") Global $Edit1 = GUICtrlCreateEdit("", 16, 56, 753, 489) ;GUICtrlSetData($Edit1, "Edit1") Global $TabSheet2 = GUICtrlCreateTabItem("I'd Like to Meet") Global $Edit2 = GUICtrlCreateEdit("", 16, 56, 753, 489) ;GUICtrlSetData($Edit2, "Edit2") Global $TabSheet3 = GUICtrlCreateTabItem("General/Interests") Global $Edit3 = GUICtrlCreateEdit("", 16, 56, 753, 489) ;GUICtrlSetData($Edit3, "Edit3") Global $TabSheet4 = GUICtrlCreateTabItem("Music") Global $Edit4 = GUICtrlCreateEdit("", 16, 56, 753, 489) ;GUICtrlSetData($Edit4, "Edit4") Global $TabSheet5 = GUICtrlCreateTabItem("Movies") Global $Edit5 = GUICtrlCreateEdit("", 16, 56, 753, 489) ;GUICtrlSetData($Edit5, "Edit5") Global $TabSheet6 = GUICtrlCreateTabItem("TV") Global $Edit6 = GUICtrlCreateEdit("", 16, 56, 753, 489) Global $TabSheet9 = GUICtrlCreateTabItem("Books") Global $Edit8 = GUICtrlCreateEdit("", 16, 56, 753, 489) ;GUICtrlSetData($Edit6, "Edit6") Global $TabSheet7 = GUICtrlCreateTabItem("Heroes") Global $Edit7 = GUICtrlCreateEdit("", 16, 56, 753, 489) ;GUICtrlSetData($Edit7, "Edit7") Global $TabSheet8 = GUICtrlCreateTabItem("Other Backup Files") Global $ListView1 = GUICtrlCreateListView("name|date|time", 16, 56, 746, 446) ;Global $ListView1_0 = GUICtrlCreateListViewItem("name|date|time", $ListView1) Global $load = GUICtrlCreateButton("Open Backup", 16, 512, 747, 25, 0) GUICtrlCreateTabItem("") Global $save = GUICtrlCreateButton("Save All", 8, 0, 107, 17, 0) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### FindSaved() ;First Tag for About me $aboutme = "<LABEL>About Me:</LABEL> <TEXTAREA class=w500 id=ctl00_ctl00_cpMain_ProfileEditContent_editInterests_AboutMeTextBox name=ctl00$ctl00$cpMain$ProfileEditContent$editInterests$AboutMeTextBox rows=15>" ;Second Tag ;"</TEXTAREA>"&@CRLF&"</DIV>" ;First tag for I'd Like to meet ;<LABEL>I'd Like to Meet:</LABEL> <TEXTAREA class=w500 id=ctl00_ctl00_cpMain_ProfileEditContent_editInterests_LikeToMeetText name=ctl00$ctl00$cpMain$ProfileEditContent$editInterests$LikeToMeetText rows=15> ;First Tag for Interests $interests = "<LABEL>Interests:</LABEL> <TEXTAREA class=w500 id=ctl00_ctl00_cpMain_ProfileEditContent_editInterests_GeneralText name=ctl00$ctl00$cpMain$ProfileEditContent$editInterests$GeneralText rows=5>" ;First Tag for Music $music = "<LABEL>Music:</LABEL> <TEXTAREA class=w500 id=ctl00_ctl00_cpMain_ProfileEditContent_editInterests_MusicText name=ctl00$ctl00$cpMain$ProfileEditContent$editInterests$MusicText rows=5>" ;First tag for movies $movies = "</LABEL> <TEXTAREA class=w500 id=ctl00_ctl00_cpMain_ProfileEditContent_editInterests_MoviesText name=ctl00$ctl00$cpMain$ProfileEditContent$editInterests$MoviesText rows=5>" ;First tag for tv $movies = "<LABEL>Television:</LABEL> <TEXTAREA class=w500 id=ctl00_ctl00_cpMain_ProfileEditContent_editInterests_TelevisionText name=ctl00$ctl00$cpMain$ProfileEditContent$editInterests$TelevisionText rows=5>" ;First tag for books $books = "<LABEL>Books:</LABEL> <TEXTAREA class=w500 id=ctl00_ctl00_cpMain_ProfileEditContent_editInterests_BooksText name=ctl00$ctl00$cpMain$ProfileEditContent$editInterests$BooksText rows=5>" ;First tag for Heroes $heroes = "<LABEL>Heroes:</LABEL> <TEXTAREA class=w500 id=ctl00_ctl00_cpMain_ProfileEditContent_editInterests_HeroesText name=ctl00$ctl00$cpMain$ProfileEditContent$editInterests$HeroesText rows=5>" ProgressOn('Downloading Data','Gathering information','Getting your current myspace profile') #include <inet.au3> $net = _INetGetSource("http://profileedit.myspace.com/index.cfm?fuseaction=profile.interests") ProgressSet(15, "About me","Gathering information for:") $res = _StringBetween($net,$aboutme,"</TEXTAREA>"&@CRLF&"</DIV>") MsgBox('','Data',$net) ClipPut($net) if $res <> 0 then MsgBox('','Sucess!','it worked') GuiCtrlSetData($edit1, $res[1]) EndIf ProgressSet(30, "I'd like to meet","Gathering information for:") $res = _StringBetween($net,"<LABEL>I'd Like to Meet:</LABEL> <TEXTAREA class=w500 id=ctl00_ctl00_cpMain_ProfileEditContent_editInterests_LikeToMeetText name=ctl00$ctl00$cpMain$ProfileEditContent$editInterests$LikeToMeetText rows=15>","</TEXTAREA>"&@CRLF&"</DIV>") if IsArray($res) then GuiCtrlSetData($edit2, $res[1]) EndIf ProgressSet(30, "I'd like to meet","Gathering information for:") $res = _StringBetween($net,$interests,"</TEXTAREA>"&@CRLF&"</DIV>") if IsArray($res) then GuiCtrlSetData($edit2, $res[1]) EndIf ProgressOff() #ce #include <GUIConstants.au3> #include <GUIConstantsex.au3> #include <Constants.au3> #Region ### START Koda GUI section ### Form=g:\koda_1.7.0.1\forms\myspace manager.kxf Global $Form1_1 = GUICreate("Myspace Backup Tool myspace.com/dustback", 775, 379) GUISetBkColor(0x3333334) Global $Tab1 = GUICtrlCreateTab(3, 8, 769, 257) GUICtrlSetResizing($Tab1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT) Global $TabSheet1 = GUICtrlCreateTabItem("About Me") Global $Edit1 = GUICtrlCreateEdit("", 8, 40, 753, 201) GUICtrlSetColor(-1,0xff0000) GUICtrlSetBkColor(-1,0x333333) ;GUICtrlSetData($Edit1, "Edit1") Global $TabSheet2 = GUICtrlCreateTabItem("I'd Like to Meet") Global $Edit2 = GUICtrlCreateEdit("", 8, 40, 753, 201) GUICtrlSetColor(-1,0xff0000) GUICtrlSetBkColor(-1,0x333333) ;GUICtrlSetData($Edit2, "Edit2") Global $TabSheet3 = GUICtrlCreateTabItem("General") Global $Edit3 = GUICtrlCreateEdit("", 8, 40, 753, 201) GUICtrlSetColor(-1,0xff0000) GUICtrlSetBkColor(-1,0x333333) ;GUICtrlSetData($Edit3, "Edit3") Global $TabSheet4 = GUICtrlCreateTabItem("Movies") Global $Edit4 = GUICtrlCreateEdit("", 8, 40, 753, 201) GUICtrlSetColor(-1,0xff0000) GUICtrlSetBkColor(-1,0x333333) ;GUICtrlSetData($Edit4, "Edit4") Global $TabSheet5 = GUICtrlCreateTabItem("Music") Global $Edit5 = GUICtrlCreateEdit("", 8, 40, 753, 201) GUICtrlSetColor(-1,0xff0000) GUICtrlSetBkColor(-1,0x333333) ;GUICtrlSetData($Edit5, "Edit5") Global $TabSheet6 = GUICtrlCreateTabItem("TV") Global $Edit6 = GUICtrlCreateEdit("", 8, 40, 753, 201) GUICtrlSetColor(-1,0xff0000) GUICtrlSetBkColor(-1,0x333333) ;GUICtrlSetData($Edit6, "Edit6") Global $TabSheet7 = GUICtrlCreateTabItem("Heros") Global $Edit7 = GUICtrlCreateEdit("", 8, 40, 753, 201) GUICtrlSetColor(-1,0xff0000) GUICtrlSetBkColor(-1,0x333333) ;GUICtrlSetData($Edit7, "Edit7") Global $TabSheet8 = GUICtrlCreateTabItem("Books") Global $Edit8 = GUICtrlCreateEdit("", 8, 40, 753, 201) GUICtrlSetColor(-1,0xff0000) GUICtrlSetBkColor(-1,0x333333) Global $TabSheet8 = GUICtrlCreateTabItem("Other Backup Files") Global $ListView1 = GUICtrlCreateListView("Name|Date|Time", 8, 40, 746, 193) GUICtrlSetColor(-1,0xff0000) GUICtrlSetBkColor(-1,0x333333) GUICtrlSendMsg($ListView1, 0x101E, 0, 50) GUICtrlSendMsg($ListView1, 0x101E, 1, 50) GUICtrlSendMsg($ListView1, 0x101E, 2, 50) Global $load = GUICtrlCreateButton("Open Backup", 632, 242, 123, 17, 0) GUICtrlSetColor(-1,0xff0000) GUICtrlSetBkColor(-1,0x333333) GUICtrlCreateTabItem("") Global $sAve = GUICtrlCreateButton("Save All", 8, 242, 107, 17, 0) GUICtrlSetColor(-1,0xff0000) GUICtrlSetBkColor(-1,0x333333) Global $Pic1 = GUICtrlCreatePic(@tempdir&"\img.jpg", 11, 272, 753, 100) Global $update = GUICtrlCreateButton("Check for updates", 128, 243, 99, 17, 0) GUICtrlSetColor(-1,0xff0000) GUICtrlSetBkColor(-1,0x333333) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section # FindSaved() While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $save Save() case $load Load(GuiCtrlRead(GuiCtrlRead($ListView1))) case $update ShellExecute("http://myspace.com/dustback") EndSwitch WEnd Func Save() $name = InputBox("Name","File name:","myspace-backup-"&@MDAY&"-"&@MON ) if $name = "" or $name = -1 then Return DirCreate(@WindowsDir&"\mspacebk\") if FileExists(@WindowsDir&"\mspacebk\"&$name&".pointer") then MsgBox(16,"Error","This name is already taken, please choose another name") Return endif $ptr= FileOpen(@WindowsDir&"\mspacebk\"&$name&".pointer", 10) $aboutme = FileOpen(@WindowsDir&"\mspacebk\"&$name&".aboutme", 10) $idliketomeet=FileOpen(@WindowsDir&"\mspacebk\"&$name&".idliketomeet", 10) $general=FileOpen(@WindowsDir&"\mspacebk\"&$name&".general", 10) $movies= FileOpen(@WindowsDir&"\mspacebk\"&$name&".movies", 10) $music=FileOpen(@WindowsDir&"\mspacebk\"&$name&".music", 10) $tv=FileOpen(@WindowsDir&"\mspacebk\"&$name&".tv", 10) $books=FileOpen(@WindowsDir&"\mspacebk\"&$name&".books", 10) $heroes=FileOpen(@WindowsDir&"\mspacebk\"&$name&".heroes", 10) FileWrite($aboutme,GuiCtrlRead($Edit1)) FileWrite($idliketomeet,GuiCtrlRead($Edit2)) FileWrite($general,GuiCtrlRead($Edit3)) FileWrite($movies,GuiCtrlRead($Edit5)) FileWrite($music,GuiCtrlRead($Edit4)) FileWrite($tv,GuiCtrlRead($Edit6)) FileWrite($books,GuiCtrlRead($Edit8)) FileWrite($heroes,GuiCtrlRead($Edit7)) FileClose($aboutme) FileClose($idliketomeet) FileClose($general) FileClose($movies) FileClose($music) FileClose($tv) FileClose($heroes) FileWrite($ptr, $name&"|"&@MDAY&"/"&@MON&"/"&@Year&"|"&@min&":"&@hour) FileClose($ptr) GUICtrlCreateListViewItem($name&"|"&@MDAY&"/"&@MON&"/"&@Year&"|"&@min&":"&@hour,$ListView1) Endfunc Func FindSaved() $search = FileFindFirstFile(@WindowsDir&"\mspacebk\"&"*.pointer") $dir = @WindowsDir&"\mspacebk\" ; Check if the search was successful If $search = -1 Then ;MsgBox(0, "Error", "No files/directories matched the search pattern") return EndIf While 1 $file = FileFindNextFile($search) If @error Then ExitLoop $ptr = FileOpen($dir&$file,0) ;MsgBox(64,"heyu",fileRead($ptr) GUICtrlCreateListViewItem(fileRead($ptr),$ListView1) WEnd ; Close the search handle FileClose($search) EndFunc Func Load($name) $sp = StringSplit($name,"|") if IsArray($sp)=0 then MsgBox(64,"Error","You need to select a file from the list") Return EndIf $name = $sp[1] $ptr= FileOpen(@WindowsDir&"\mspacebk\"&$name&".pointer", 0) $aboutme = FileOpen(@WindowsDir&"\mspacebk\"&$name&".aboutme", 0) $idliketomeet=FileOpen(@WindowsDir&"\mspacebk\"&$name&".idliketomeet", 0) $general=FileOpen(@WindowsDir&"\mspacebk\"&$name&".general", 0) $movies= FileOpen(@WindowsDir&"\mspacebk\"&$name&".movies", 0) $music=FileOpen(@WindowsDir&"\mspacebk\"&$name&".music", 0) $tv=FileOpen(@WindowsDir&"\mspacebk\"&$name&".tv", 0) $books=FileOpen(@WindowsDir&"\mspacebk\"&$name&".books", 0) $heroes=FileOpen(@WindowsDir&"\mspacebk\"&$name&".heroes", 0) GuiCtrlSetData($edit1,FileRead($aboutme)) GuiCtrlSetData($edit2,FileRead($idliketomeet)) GuiCtrlSetData($edit3,FileRead($general)) GuiCtrlSetData($edit4,FileRead($music)) GuiCtrlSetData($edit5,FileRead($movies)) GuiCtrlSetData($edit6,FileRead($TV)) GuiCtrlSetData($edit7,FileRead($heroes)) GuiCtrlSetData($edit8,FileRead($BOOKS)) FileClose($aboutme) FileClose($idliketomeet) FileClose($general) FileClose($movies) FileClose($music) FileClose($tv) FileClose($heroes) FileClose($ptr) EndFunc Edited August 7, 2008 by DBak [center][/center] Link to comment Share on other sites More sharing options...
TehWhale Posted August 7, 2008 Share Posted August 7, 2008 Oh my god! He's alive! Link to comment Share on other sites More sharing options...
DirtDBaK Posted August 7, 2008 Author Share Posted August 7, 2008 Yes, It still lives.... and has been lurking around here every now and then... No killer apps in sooo long though... [center][/center] Link to comment Share on other sites More sharing options...
TehWhale Posted August 7, 2008 Share Posted August 7, 2008 What about DBaK.MinE.nU? Link to comment Share on other sites More sharing options...
DirtDBaK Posted August 7, 2008 Author Share Posted August 7, 2008 Well it is up and running every now and then but everyone times out.. Planing to move the server sometime fairly soon within the next 5 days but dont know for sure if i will... Idk why the timeouts were happening, but I just gave up a few days ago and turned the server off. [center][/center] Link to comment Share on other sites More sharing options...
DirtDBaK Posted August 7, 2008 Author Share Posted August 7, 2008 (edited) Made some changes... Edited August 7, 2008 by DBak [center][/center] Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now