Myspace code backup tool - Your help is needed!

[DirtDBaK 0]

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

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.

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

expandcollapse popup

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 August 7, 2008 by DBak

[TehWhale 0]

Oh my god! He's alive!

[DirtDBaK 0]

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

[TehWhale 0]

What about DBaK.MinE.nU?

[DirtDBaK 0]

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.

[DirtDBaK 0]

Made some changes... Edited August 7, 2008 by DBak