Espaces sur MyDrive

Nombre de messages : 186 Date d'inscription : 26/11/2012

Bonjour à tous
Pour mémoire et par fainéantise je me suis fait un bout de code pour aller dans les espaces MyDrive des Paranomiciens. En ai-je oublié ? Si oui que ceux-ci me pardonnent.
A+

Code:: label Cnec ,MdP
width 0,170 :height 0,225 :left 0,30 :top 0,30 :border_small 0
list 1 :left 1,15 :top 1,15 :width 1,120 :height 1,120 :font_size 1,10 :on_double_click 1,Cnec
button 2 ::left 2,15 :top 2,150 :width 2,120 :caption 2,"Copier le mot de passe" :on_click 2,MdP
item_add 1,"bignono"
item_add 1,"jicehel"
item_add 1,"klausgunther"
item_add 1,"nardo26"
item_add 1,"papydall"
item_add 1,"sergeauze"
item_add 1,"ygeronimi"
end
Cnec:
execute "http://mydrive.ch" :clipboard_string_copy "panoramic@"+item_read$(1,item_index(1)) :end
MdP:
clipboard_string_copy "panoramic123"

Hops! j'ai rajouté le "end". Comme preuve qu'il me faut des aides mémoire

Sujet: Re: Espaces sur MyDrive Jeu 14 Mar 2013 - 14:11

Ton code répondait doublement à mes attente dans le domaine de la fainéantise...
Tout d’abord, se souvenir des mots de passe et des noms de compte, c'était une galère pas possible.
j'avais donc pensé à faire un petit prog pour faire ça à ma place.
Halleluya ! Quelqu'un m'a même épargné la peine de faire ce dernier.
Merci Oh bienfaiteur de mon système capilopalmaire (poil dans la main)!

Sujet: re Jeu 14 Mar 2013 - 14:41

Tiens, v'là la version que j'avais faite il y a quelque temps ... Laughing

Code:: ' ------------------------------------------------------------------------------
dim D$,x%,M%,sep%,L$,L%
dim s$, res%, hnd%, hnd0%, titre$
' ------------------------------------------------------------------------------
label Init,Close0,Menu,F100,F200,Enregistrer,Supprimer,Quitter
label Init_F100,couleur104,Init_F200,Change202,Connection
' ------------------------------------------------------------------------------
dll_on "KGF.dll"
' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
width 0,250:height 0,360:top 0,100:left 0,100:on_close 0,Close0
font_name 0,"Times new roman":font_size 0,10:Caption 0,"Connect to MyDrive"
hnd0% = handle(0)

main_menu 1
sub_menu 2:parent 2,1:caption 2,"Fichier"
sub_menu 3:parent 3,2:caption 3,"Quitter"
sub_menu 4:parent 4,1:caption 4,"Edit"
sub_menu 5:parent 5,4:caption 5," Ajouter "
sub_menu 6:parent 6,4:caption 6," Supprimer "
for x%=2 to 6:on_click x% ,Menu:next x%

list 7:width 7,234:height 7,270:cursor_point 7:on_double_click 7,Connection

alpha 8:top 8,275:left 8,25
font_color 8,0,0,255:caption 8,"Double click pour sélectionner"

dlist 9

gosub Init
end
' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
Init:
D$=Dir_current$
if file_exists(D$+"\Connect.Bdd")=1
clear 9 :clear 7
file_load 9,D$+"\Connect.Bdd"
for x%=1 to count(9)
L$=item_read$(9,x%)
sep%=instr(L$,";")
item_add 7,left$(L$,sep%-1)
next x%
else
file_open_write 10,D$+"\Connect.Bdd":file_close 10
end_if
return
' ------------------------------------------------------------------------------
Menu:
for x%=2 to 6
if clicked(x%)=1 then M%=x%
next x%
select M%
case 2
case 3
gosub Close0
gosub Quitter
case 4
case 5
gosub F100
case 6
gosub F200
end_select
return
' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
F100:
if object_exists(100)=1
Show 100
else
form 100:width 100,250:height 100,160
Font_name 100,"Times new roman":font_size 100,10:caption 100,"Ajouter un compte"
command_target_is 100
alpha 101 :top 101,10:left 101,10:caption 101,"Login :"
edit 103 :top 103,28:left 103,10:width 103,150
alpha 102 :top 102,50:left 102,10:caption 102,"Mot de passe :"
edit 104 :top 104,68:left 104,10:on_change 104,couleur104
button 105:top 105,95:left 105,155:caption 105,"Enregistrer":cursor_point 105
on_click 105,Enregistrer
end_if
gosub Init_F100
return
' ------------------------------------------------------------------------------
Init_F100:
text 103,""
text 104,"panoramic123":font_color 104,210,210,210
return
' ------------------------------------------------------------------------------
couleur104:
font_color 104,0,0,0
return
' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
F200:
if object_exists(200)=1
Show 200
else
form 200:width 200,250:height 200,120
Font_name 200,"Times new roman":font_size 200,10:caption 200,"Supprimer un compte"
command_target_is 200
alpha 201 :top 201,10:left 201,10:caption 201,"Compte"
combo 202 :top 202,28:left 202,10:width 202,150:on_change 202,Change202
button 203:top 203,55:left 203,155:caption 203,"Supprimer":cursor_point 203
on_click 203,Supprimer
end_if
gosub Init_F200
return
' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
Init_F200:
Clear 202
for x%=1 to count(9)
L$=item_read$(9,x%)
sep%=instr(L$,";")
item_add 202,left$(L$,sep%-1)
next x%
return
' ------------------------------------------------------------------------------
Change202:
L%=item_index(202)
return
' ------------------------------------------------------------------------------
Enregistrer:
item_add 9,trim$(text$(103))+";"+trim$(text$(104))
file_save 9,D$+"\Connect.Bdd"
gosub Init
gosub Init_F100
return
' ------------------------------------------------------------------------------
Supprimer:
item_delete 9,L%
file_save 9,D$+"\Connect.Bdd"
gosub Init_F200
gosub Init
return
' ------------------------------------------------------------------------------
Connection:
hide 0
Execute "http://www.mydrive.ch/login"
repeat
pause 1000
titre$ = string$(255," ")
hnd% = dll_call1("GetActiveWindowTitle",adr(titre$))
titre$ = trim$(titre$)
until instr(titre$, "Login |" )>0
pause 1000
hide 0
pause 1000
titre$ = string$(255," ")
hnd% = dll_call1("GetActiveWindowTitle",adr(titre$))
if instr(titre$, "Login |" )=0
show 0
message "Il faut d'abord cliquer sur [MyDrive] !"
message "Le titre actuel est: ["+titre$+"]"
return
end_if
s$ = item_index$(7)
hnd% = dll_call0("GetActiveControl")
res% = dll_call2("SendStringAsText",hnd%,adr(s$))
s$ = chr$(9)
res% = dll_call2("SendStringAsText",hnd%,adr(s$))
pause 1000
s$ = item_read$(9,item_index(7))
sep%=instr(s$,";")
s$=right$(s$,len(s$)-sep%)
res% = dll_call2("SendStringAsText",hnd%,adr(s$))
pause 1000
s$ = chr$(9)
res% = dll_call2("SendStringAsText",hnd%,adr(s$))
res% = dll_call2("SendStringAsText",hnd%,adr(s$))
res% = dll_call2("SendStringAsText",hnd%,adr(s$))
s$ = chr$(13)
res% = dll_call2("SendStringAsText",hnd%,adr(s$))
pause 1000
show 0
return
' ------------------------------------------------------------------------------
Close0:
dll_off
return
' ------------------------------------------------------------------------------
Quitter:
terminate

avec KGF.dll

Sujet: Re: Espaces sur MyDrive Jeu 14 Mar 2013 - 14:52

Bonjour Ygeronimi Smile

Ton programme est très bien et je l'utilise tous les jours. Je l'avais un peu bricolé et j'ai rajouté des boutons pour lancer automatiquement certains sites avec des identifiants et mot de passe comme turbosquid ou autres, ainsi que le forum panoramic!
A+ Wink

Sujet: Re: Espaces sur MyDrive Jeu 14 Mar 2013 - 14:57

Woww class !
Au premier abord ça a l'air pas mal du tout
J'vais y regarder de plus près

Sujet: re Jeu 14 Mar 2013 - 15:18

@ bignono,

Merci pour cette confiance en mon programme.
Je vais peut être le revoir pour le mettre à la mode "Sub" Wink

Là je suis sur un jeu avec les pions du scrabble pour base et je me bagarre avec les sprites
enfin leur déplacement retour... Laughing

@ Mumu,

Explores, regardes, jettes un oeil voir les deux, modifies à ta guise... Laughing

Allez ! pause kawa !!!

Sujet: Re: Espaces sur MyDrive Jeu 14 Mar 2013 - 16:03

Hallo Francis-mr, ygeronimi, bignono

sind diese Programme für die englische Seite geeignet ?
Das wäre mal ein guter Hinweis auf die Aktivitäten der Panoramic.

These programs are suitable for the English side ?
That would be a good indication of the activities of the Panoramic.

Ces programmes sont adaptés pour le côté anglais?
Ce serait une bonne indication des activités de la Panoramique.

Sujet: re Jeu 14 Mar 2013 - 17:03

@ Severin,

this program needs KGK.Dll and i don't know if Klaus translated the documentation .

Sujet: Re: Espaces sur MyDrive Jeu 14 Mar 2013 - 17:19

Entschuldigung, das hatte ich nicht bedacht.
Sorry, I had not considered.
Désolé, je n'avais pas pris en compte.

Sujet: Re: Espaces sur MyDrive Jeu 14 Mar 2013 - 17:20

NO. I don't provide translations, neither for German nor for English. Too much work. But I do provide a Word version in *.DOC format and a PDF version - both ready for automatic translations. Sorry.

NON. Je ne fournis pas de traductions, ni pour l'allemand, ni pour l'anglais. Trop de travail. Mais je mets à disposition une version Word en format *.DOC et une version PDF - les deux sont susceptibles d'être soumis à une traduction automatique. Désolé.

Sujet: re Jeu 14 Mar 2013 - 17:28

Je comprends très bien que tu veuilles pas te compliquer le boulot,
déjà énorme, avec KGF.dll.

Mais tu pourrais publier les versions sur le forum anglais de
KGF.dll et KGF_Sub.bas... Laughing

Libre à eux de travailler un peu pour la traduction... Laughing

Sujet: Re: Espaces sur MyDrive Jeu 14 Mar 2013 - 18:56

C'est une idée. Je vais voir ça lorsque j'aurai intégré la doc des 20 fonctions de gestion Excel !

Sujet: Re: Espaces sur MyDrive Jeu 14 Mar 2013 - 22:09

Whoua, Klaus qui fait des mise à jour de DLL plus vite que son ombre avoue qu'il est débordé ... Bon courage Klaus

» Commande EXECUTE
» Remplacer tous les espaces par _ dans les noms des fichiers
» Au sujet de mydrive
» Partage sur MyDrive
» site mydrive