My First GUI "AutoLogFB" :) (Argentina)

[sendeiser]

Hi Everyone I bring a little program just finished: what it does is save the username and password in a database in excel in windows sytem32 route bdlogin call which takes the data from there, to open the facebook (web ), write the username, password and give everything automatically enter the program has a flaw: if the password is only numbers has a limit of 11 numbers if greater than 11 does not take that password .... aah! and also has a timeout combobox until facebook page loads for if it take long to load on their pcs.

 

 

Functions that use are:

GUICtrlCreateButton

GUICtrlSetFont

GUICtrlCreatePic

GUICtrlSetColor

GUICtrlSetBkColor (-1, $ GUI_BKCOLOR_TRANSPARENT)

fileexist

_ExcelBookOpen

_ExcelReadCell

_ExcelWriteCell

_ExcelRowDelete

  _ExcelBookClose

if then ...

Do ....... until

while

Select

StringStripCR

Sleep

send

ShellExecute

_GUICtrlListView_GetSelectedIndices

_GUICtrlListView_DeleteItemsSelected

 

Code Part :

expandcollapse popup

$Date1 = GUICtrlCreateDate("", 256, 48, 209, 21)
GUICtrlSetColor(-1, 0xFFFFFF)
 _GUICtrlListView_InsertColumn($List1, 0, "Usuario", 205) ;inserto nombre de la columna de la list view
GUISetState()
 
if FileExists(@SystemDir & "/bdlogin.xls") Then
$Excel2=_ExcelBookOpen(@SystemDir & "/bdlogin.xls",0) ;Abrimos el archivo .xls
  Local $c=1,$d=0
Do
   $Result = _ExcelReadCell($Excel2,$c,1) ;Lee la (1,1) de mi base de datos excel y lo guarda en la variable
$a=StringIsASCII($Result)
if $a=1 Then
_GUICtrlListView_AddItem($List1,$Result,$d) ;Añade el valor de Result en la list view
            $d=$d+1
EndIf
$c=$c+1 ;incremento para las filas
Until $a=0 ;Termina cuandono encuentra mas valores alfanumericos(osea los usuarios) en mi columna de mi bd de excel
   _ExcelBookClose($Excel2) ; termina el bucle y me cierra el archivo .xls
EndIf
 
 
$Nmsg = 0 ;esta variable controla q` boton aprieto
While $Nmsg <> $GUI_EVENT_CLOSE ;Mientras sea distinto del cierre del gui va a hacer el bucle
Local $Excel ;variable q guardara el archivo .xls creado
$Nmsg = GUIGetMsg()
Select
Case $Nmsg = $GUI_EVENT_CLOSE ;en caso de cierre de la ventana Salir
Exit
Case $Nmsg = $Guardar
_GUICtrlListView_AddItem($List1, GUICtrlRead($Input1),0) ;añade el usuario a la listview
if Not FileExists(@SystemDir & "/bdlogin.xls")   Then    ;Pregunto si no existe el archivo .xls en la carpeta del script(codigo) para crearla
Local $c=1,$f=1 ;variables para las filas
$Excel = _ExcelBookNew(0) ;creo por primera vez el archivo .xls donde guardare el usuario y contraseña el 0 es para q no se vea el gui del archivo abierto
_ExcelWriteCell($Excel, GUICtrlRead($Input1), $c, 1) ;Escribo usuario en la celda 1,1
_ExcelWriteCell($Excel, GUICtrlRead($input2), $f, 2) ;Escribo usuario en la celda 1,2
_ExcelBookSaveAs($Excel,@SystemDir & "/bdlogin","xls") ; Guardo el archivo .xls en la mis carpeta del script(codigo)
_ExcelBookClose($Excel) ;Cierro el archivo
Else
Local $co=1,$e=1
$Excel3=_ExcelBookOpen(@SystemDir & "/bdlogin.xls",0) ;Abrimos el archivo .xls
Do
   $Result1 = _ExcelReadCell($Excel3,$co,1)
$t=StringIsASCII($Result1)
$co=$co+1
if $t=1 Then ;Si encontraba un valor alfanumerico
$e=$e+1 ;lo contaba
EndIf
Until $t=0 ;Termina cuandono encuentra mas valores alfanumericos(osea los usuarios) en mi columna de mi bd de excel
             _ExcelWriteCell($Excel3, GUICtrlRead($Input1), $e, 1)
_ExcelWriteCell($Excel3, GUICtrlRead($input2), $e, 2)
_ExcelBookClose($Excel3)
EndIf
Case $Nmsg=$Eliminar
$Excel5=_ExcelBookOpen(@SystemDir & "/bdlogin.xls",0)
$select1=_GUICtrlListView_GetSelectedIndices($List1)+1
            _ExcelRowDelete($Excel5, $select1)
_GUICtrlListView_DeleteItemsSelected(GUICtrlGetHandle($List1))
_ExcelBookClose($Excel5)
Case $Nmsg= $Entrar
Face()
EndSelect
WEnd

 

This portable program that did the background image had to be in the autoit executable path.

 

Created by my TinChox Gonzalez using functions and tools like Koda in Autoit.

 

I leave the link of the program. Exe:

http://www.mediafire.com/download/ccxck1z23cjfoj1/AutoLogFB.exe

 

My Email: martingt010@hotmail.com

Facebook: http://www.facebook.com/tinchox.gonzalez

Edited June 30, 2013 by sendeiser

[water]

Welcome to AutoIt and the forum!

Unfortunately I don't speak Spanish so for me (and maybe others) your post is a bit hard to understand. Would it be possible for you to post in English because this is the language most of the members speak.

Members come from all over the world but English is the lingua franca here.

[sendeiser]

Welcome to AutoIt and the forum!

Unfortunately I don't speak Spanish so for me (and maybe others) your post is a bit hard to understand. Would it be possible for you to post in English because this is the language most of the members speak.

Members come from all over the world but English is the lingua franca here.

okey will do what is necessary for you to understand me

[Jos]

.. on top of that: It seems you are posting an example script that will log you on to Facebook, but you posted in the GUI support forum which normally is used to ask questions about GUI functions.

One last remark: Most smart people are very reluctant to run a program/script without having seen the source first.

[Jos]

 

No way I can give you the code but notions of the.

 

 

No worries, I am not looking for your source, but as said will also not run your script exe.

Jos

[sendeiser]

No worries, I am not looking for your source, but as said will also not run your script exe.

Jos

Is a Version AutoRun (Portable)

[Jos]

Is a Version AutoRun (Portable)

No idea what you mean but one thing I do know is that your posted EXE is not a regular compiled AutoIt3 script!

[water]

Why don't you want to post the source (like most of the people on this forum do)? From what you posted there doesn't seem to be anything special in it.

Or do you store userid/password in your code?

[sendeiser]

Why don't you want to post the source (like most of the people on this forum do)? From what you posted there doesn't seem to be anything special in it.

Or do you store userid/password in your code?

The username and password are stored on Disk? :/ Windows/system32/bdlogin.xls Excel.

[water]

Is there a reason why you do not want to post your code?

Running compiled scripts makes some people feel uncomfortable.

[Jos]

Running compiled scripts makes some people feel uncomfortable.

I hope it will make all people uncomfortable by default.

@sendeiser: Why would you want to save a password in Excel and moreover, why store it in C:\Windows\System32\ ?

Jos

[sendeiser]

Is there a reason why you do not want to post your code?

Running compiled scripts makes some people feel uncomfortable.

okey add a piece of code

[Melba23]

sendeiser,

Just the one thread at a time please.

M23