Sign in to follow this  
Followers 0
DirtDBaK

Myspace code backup tool - Your help is needed!

6 posts in this topic

#1 ·  Posted (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 organization

Future 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 :P

The part where I need you help

I 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.

Posted Image

Posted Image

^^^ That is also the Image that is used, its called IMG.jpg

if 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 by DBak

[center][/center]

Share this post


Link to post
Share on other sites



Oh my god! He's alive!

Share this post


Link to post
Share on other sites

Yes, It still lives.... and has been lurking around here every now and then... No killer apps in sooo long though...


[center][/center]

Share this post


Link to post
Share on other sites

What about DBaK.MinE.nU?

Share this post


Link to post
Share on other sites

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]

Share this post


Link to post
Share on other sites

#6 ·  Posted (edited)

Made some changes... Edited by DBak

[center][/center]

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0