Saving and reading information

[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

[d4rk]

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

Edited April 6, 2008 by d4rk

[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 April 6, 2008 by 3dude

[3dude]

nobody knows??

[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

[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

[Madza91]

Here we go, i maded some example for you

expandcollapse popup

#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 April 7, 2008 by n3nE

[3dude]

Thanks a lot

[Madza91]