Jump to content
Sign in to follow this  
3dude

Saving and reading information

Recommended Posts

3dude

Hello guys how are you

I want to make a progam which does this:

You enter website

user

pass

and for example save and it saves them in an ini file and the other time you run the program and search in the search tab it finds for exaplme yahoo.com....

you understand me...

(I only want the code with the saving and reading thing not the whole porgram!I know how to make the GUI and buttons)

Thanks :)


View my blog :) 3dude's blog <= help with project :S

Share this post


Link to post
Share on other sites
d4rk

_IECreat()
_IEFormGetObjByName
_IEFormElementGetObjByName
_IEFormElementSetValue
IniWrite()
IniRead()

Edited by d4rk

[quote]Don't expect for a perfect life ... Expect a least troubles ones[/quote]Contact me : ass@kiss.toWhat I Have Done :Favorites Manager Mangage your favorite's folder, that's coolPC Waker For those who want to save stickersWebScipts Supporter For those who've just started with Web and WebScriptsTemporary Looker Simple but powerful to manage your Temporary folder, you know what you downloaded[UDF] _NumberFormat() Better performance on number display[UDF] _DirGet() What a folder contain [how many (hidden,normal,...) files], with one line of code[UDF] _IsPressEs() Just like _IsPress() but for a group of keys

Share this post


Link to post
Share on other sites
3dude

thanks

I made my program save the website(section) User(key) And Pass(default)

but i can't make it search for it and enter it in an inpurbox

I want to make it do that:

You save website user pass(already done that) and when you tipe in the website in a inputobx and press find it searches the ini finds website(section) and enters the User(key) And Pass(default) in other two inpu boxes

Please Help

If you have some better ides please tell them!

Thanks

--

Or maybe 2 tabs enter and database and the database tab is filled with all the info from the ini

Edited by 3dude

View my blog :) 3dude's blog <= help with project :S

Share this post


Link to post
Share on other sites
LIMITER

This is a function which logs you in yahoo mail :

Hope it helps you :)

Func check($id,$pass)
        $ie = _IECreate("http://mail.yahoo.com")
        $hwnd = _IEPropertyGet($ie, "hwnd")
        $oForm = _IEFormGetObjByName($ie, "login_form")
        $oId = _IEFormElementGetObjByName($oForm, "login")
        $oPass = _IEFormElementGetObjByName($oForm, "passwd")
        $idt = $id
        $passt = $pass
        _IELinkClickByText($ie, "Sign Out")
        _IEAction($oId, "focus")
        Sleep(250)
        ControlSend($hwnd, "", "Internet Explorer_Server1", $idt)
        _IEAction($oPass, "focus")
        Sleep(250)
        ControlSend($hwnd, "", "Internet Explorer_Server1", $passt)
        ControlSend($hwnd, "", "Internet Explorer_Server1", "{ENTER}")
        _IELoadWait($ie)
Endfunc

Share this post


Link to post
Share on other sites
3dude

no i doesn't help me! but thanks

I tried another thing!

When you press Add(website pass..)

It fills the ini file and a list in the gui but i cant fill the list and save it the other time the proglam load!

Please help


View my blog :) 3dude's blog <= help with project :S

Share this post


Link to post
Share on other sites
Madza91

Here we go, i maded some example for you :)

#include <GUIConstants.au3>

$inifile = @DesktopDir & "\info.ini"
$add = 0

$gui = GUICreate("Form1", 282, 270, -1, -1)
$List1 = GUICtrlCreateList("", 16, 16, 249, 201)
GUICtrlSetResizing(-1,$GUI_DOCKTOP+$GUI_DOCKSIZE+$GUI_DOCKLEFT)
$Button1 = GUICtrlCreateButton("Add >", 16, 232, 75, 25, 0)
GUICtrlSetResizing(-1,$GUI_DOCKTOP+$GUI_DOCKSIZE+$GUI_DOCKLEFT)
$Button2 = GUICtrlCreateButton("Edit >", 104, 232, 75, 25, 0)
GUICtrlSetResizing(-1,$GUI_DOCKTOP+$GUI_DOCKSIZE+$GUI_DOCKLEFT)
$Button3 = GUICtrlCreateButton("Delete", 192, 232, 75, 25, 0)
GUICtrlSetResizing(-1,$GUI_DOCKTOP+$GUI_DOCKSIZE+$GUI_DOCKLEFT)
$Group1 = GUICtrlCreateGroup("Add new", 16, 272, 249, 113)
GUICtrlSetResizing(-1,$GUI_DOCKTOP+$GUI_DOCKSIZE+$GUI_DOCKLEFT)
$Label1 = GUICtrlCreateLabel("Website:", 32, 308, 46, 17)
GUICtrlSetResizing(-1,$GUI_DOCKTOP+$GUI_DOCKSIZE+$GUI_DOCKLEFT)
$Label2 = GUICtrlCreateLabel("Username:", 32, 332, 55, 17)
GUICtrlSetResizing(-1,$GUI_DOCKTOP+$GUI_DOCKSIZE+$GUI_DOCKLEFT)
$Label3 = GUICtrlCreateLabel("Label3", 32, 356, 36, 17)
GUICtrlSetResizing(-1,$GUI_DOCKTOP+$GUI_DOCKSIZE+$GUI_DOCKLEFT)
$1 = GUICtrlCreateInput("", 88, 304, 161, 21)
GUICtrlSetResizing(-1,$GUI_DOCKTOP+$GUI_DOCKSIZE+$GUI_DOCKLEFT)
$2 = GUICtrlCreateInput("Demo", 88, 328, 161, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetResizing(-1,$GUI_DOCKTOP+$GUI_DOCKSIZE+$GUI_DOCKLEFT)
$3 = GUICtrlCreateInput("Demo", 88, 352, 161, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetResizing(-1,$GUI_DOCKTOP+$GUI_DOCKSIZE+$GUI_DOCKLEFT)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlSetResizing(-1,$GUI_DOCKTOP+$GUI_DOCKSIZE+$GUI_DOCKLEFT)
$Button4 = GUICtrlCreateButton("OK", 16, 392, 251, 25, 0)
GUICtrlSetResizing(-1,$GUI_DOCKTOP+$GUI_DOCKSIZE+$GUI_DOCKLEFT)
GUISetState(@SW_SHOW)
_IniGetSectionNames()

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            if $add = 0 Then
                $add = 1
                GUICtrlSetData($Button1,"Add <")
                $wpm = WinGetPos($gui)
                WinMove($gui,"",$wpm[0],$wpm[1],$wpm[2],$wpm[3]+156)
            Else
                GUICtrlSetData($Button1,"Add >")
                $add = 0
                $wpm = WinGetPos($gui)
                WinMove($gui,"",$wpm[0],$wpm[1],$wpm[2],$wpm[3]-156)
            EndIf
        Case $Button4
            $1a = GUICtrlRead($1)
            GUICtrlSetData($List1,$1a)
            IniWrite($inifile,$1a,"1","Username")
    EndSwitch
WEnd

Func _IniGetSectionNames()
    $varx = IniReadSectionNames($inifile)
    If @error Then
        Exit
    Else
        For $x = 1 To $varx[0]
            _IniReadInfo($varx[$x])
        Next
    EndIf
EndFunc   ;==>_IniGetSectionNames
Func _IniReadInfo($sSection)
    $var = IniReadSection($inifile, $sSection)
    If @error Then
        Exit
    Else
        GUICtrlSetData($List1,$sSection)
    EndIf
EndFunc   ;==>_IniReadInfo
Edited by n3nE

[quote name='dbzfanatic' post='609696' date='Nov 26 2008, 08:46 AM']This is a help forum not a "write this for me" forum.[/quote](Sorry for bad English) :)

Share this post


Link to post
Share on other sites
Madza91
:)

[quote name='dbzfanatic' post='609696' date='Nov 26 2008, 08:46 AM']This is a help forum not a "write this for me" forum.[/quote](Sorry for bad English) :)

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  

×