Merci pour tes conseils, qui sont logiques mais justes.
Pour simplifier, et surtout parceque c'est le plus important,
j'aimerai au moins faire un soft pour uploader.
L'interface ressemblerait à ça :
Code : Tout sélectionner
;{- Enumerations / DataSections
;{ Windows
Enumeration
#fenetre_1
#Window_1
EndEnumeration
;}
;{ Gadgets
Enumeration
#Ed_Login
#Ed_Mdp
#Text_titre
#Text_Login
#Text_Mdp
#Bouton_Connect
#Coche
#Ed_DragDrop
#Bouton_CopyDL2Clip
#Text_Titre2
#Button_13
EndEnumeration
;}
Define.l Event, EventWindow, EventGadget, EventType, EventMenu
;}
Procedure OpenWindow_fenetre_1()
If OpenWindow(#fenetre_1, 389, 156, 296, 127, "Window_0", #PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
If CreateGadgetList(WindowID(#fenetre_1))
EditorGadget(#Ed_Login, 0, 25, 190, 20)
EditorGadget(#Ed_Mdp, 0, 45, 190, 20)
TextGadget(#Text_titre, 7, 4, 285, 20, "RS UPLOADER by Ar-S v0.1", #PB_Text_Center)
TextGadget(#Text_Login, 195, 28, 80, 15, "Premium Login")
TextGadget(#Text_Mdp, 195, 48, 95, 15, "Premium Password")
ButtonGadget(#Bouton_Connect, 0, 95, 295, 30, "Connect")
CheckBoxGadget(#Coche, 2, 70, 190, 25, "Remember Login and Password ?")
GadgetToolTip(#Coche, "Tick to remeber, password will be crypt.")
; Gadget Colors
PureCOLOR_SetGadgetColor(#Text_titre, #PureCOLOR_SystemColor, #PureCOLOR_DontSetBackColor)
PureCOLOR_SetGadgetColor(#Text_Login, #PureCOLOR_SystemColor, #PureCOLOR_DontSetBackColor)
PureCOLOR_SetGadgetColor(#Text_Mdp, #PureCOLOR_SystemColor, #PureCOLOR_DontSetBackColor)
PureCOLOR_SetButtonColor(#Bouton_Connect, $0, $76B1F3)
PureCOLOR_SetGadgetColor(#Coche, #PureCOLOR_SystemColor, #PureCOLOR_DontSetBackColor)
; Window Backcolor
PureCOLOR_SetWindowColor(#fenetre_1, $4080FF)
EndIf
EndIf
EndProcedure
Procedure OpenWindow_Window_1()
If OpenWindow(#Window_1, 466, 337, 341, 323, "Window_1", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
If CreateGadgetList(WindowID(#Window_1))
EditorGadget(#Ed_DragDrop, 0, 25, 340, 230, #PB_Editor_ReadOnly)
SetGadgetText(#Ed_DragDrop, "Drag and Drop your file(s) here :)")
ButtonGadget(#Bouton_CopyDL2Clip, 0, 260, 340, 25, "Copy Download link(s) to Clipboard")
TextGadget(#Text_Titre2, 0, 3, 340, 20, "RS UPLOADER by Ar-S v0.1", #PB_Text_Center)
ButtonGadget(#Button_13, 0, 290, 340, 25, "Copy All link(s) to Clipboard")
; Gadget Colors
PureCOLOR_SetGadgetColor(#Text_Titre2, #PureCOLOR_SystemColor, #PureCOLOR_DontSetBackColor)
; Window Backcolor
PureCOLOR_SetWindowColor(#Window_1, $80FF)
EndIf
EndIf
EndProcedure
OpenWindow_fenetre_1()
OpenWindow_Window_1()
;{- Event loop
Repeat
Event = WaitWindowEvent()
Select Event
; ///////////////////
Case #PB_Event_Gadget
EventGadget = EventGadget()
EventType = EventType()
If EventGadget = #Ed_Login
ElseIf EventGadget = #Ed_Mdp
ElseIf EventGadget = #Text_titre
ElseIf EventGadget = #Text_Login
ElseIf EventGadget = #Text_Mdp
ElseIf EventGadget = #Bouton_Connect
ElseIf EventGadget = #Coche
ElseIf EventGadget = #Ed_DragDrop
ElseIf EventGadget = #Bouton_CopyDL2Clip
ElseIf EventGadget = #Text_Titre2
ElseIf EventGadget = #Button_13
EndIf
; //////////////////////
Case #PB_Event_CloseWindow
EventWindow = EventWindow()
If EventWindow = #fenetre_1
CloseWindow(#fenetre_1)
Break
ElseIf EventWindow = #Window_1
CloseWindow(#Window_1)
Break
EndIf
EndSelect
ForEver
;
;}
Evidement la fenetre window_1 apparaitrait uniquement si le login et passe de la fenetre 0 seraient ok.
Pour les procédures j'en voit plusieurs :
CryptPass()
pour crypter dans un txt le pass et login, voir juste le pass
DragNdrop()
Gérer le glisser déplacer dans #Ed_DragDrop
RecupeLiens()
Qui servirait à récupérer tous les liens générés par Rapidshare apres le up
Affiche()
Pour afficher dans l'editor #Ed_DragDrop les liens de RecupeLiens()
Copy2ClipBoard()
qui servirait evidement à copier les liens de download générés dans le clipboard
CopyAll2ClipBoard()
qui servirait à copier tous les liens de download+delete link générés par rapidshare dans le clipboard
Ce seraient les principales procédures, même si j'ai surement à en trouver d'autres (dont les principales : envoyer les fichiers sur rapidshare)
.
mais oui tu as raison