Page 1 sur 2

webgadget et plus

Publié : ven. 11/nov./2005 9:02
par scaraber
Salut

voila je voulait afire un logiciel pour activer des conte sans le bon mail pour un jeu online (je c c pas bien masi l'ADmin a fait pire)

donc voilr ma facon de proceder
jai ladresse dactivatrion qui contien
-une id qui agment a chaque creation dun perso
-le pseudo en majuscule

je conte donc faire un programme uqi augmente de 1 un variabmle (ID) et un case de selection du osedo qui sera mis en majuscule

le seule probleme c que le site de safiche pas.

voici mon code

Code : Tout sélectionner

Enumeration
  #Web_0
  #String_0
EndEnumeration


  If OpenWindow(0, 216, 0, 600, 300,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "New window ( 0 )")
    If CreateGadgetList(WindowID())
       WebGadget(0,10,10,580,280,"http://www.purebasic.com")
      StringGadget(#String_0, 30, 210, 150, 30, "")
      ButtonGadget(1, 30,240,20, 20,"test" )

  

    EndIf
  EndIf
a=181596
WaitWindowEvent()
Repeat 

a=a+1 
texte$="http://www.slayersonline.info/register/confirm.php?nom="+texte0$+"&id="+Str(a)
SetGadgetText(#Web_0, Texte$)
texte0$=GetGadgetText(#string_0)


Delay (5000)
 Until WaitWindowEvent()=#PB_Event_CloseWindow
voila a++

Publié : lun. 21/nov./2005 10:53
par brossden
Si tu parlais en français ma réponse serait certainement plus pertinante mais tu ne fournis pas de décodeur. En espérant que le code ci dessous t'aideras!

Je ne parle pas de l'orthographe :

Scaraber pour Scarabée
Programeur pour Programmeur

Dans un Avatar ça fait Tâche non ? :roll:





Code : Tout sélectionner

Enumeration
  #Window_0:#Web_0: #String_0: #Button_0: #Text_0
EndEnumeration
Procedure Open_Window_0()
  If OpenWindow(#Window_0, 425, 60, 600, 300,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "Internet")
    If CreateGadgetList(WindowID())
      WebGadget(#Web_0, 30, 10, 550, 200, "http://www.purebasic.com")
      StringGadget(#String_0, 80, 230, 440, 20, "http://www.slayersonline.info")
      ButtonGadget(#Button_0, 530, 230, 50, 20, "Go")
      TextGadget(#Text_0, 30, 230, 80, 20, "Adresse :")
    EndIf
  EndIf
EndProcedure
Open_Window_0()
Repeat
  Event = WaitWindowEvent()
  GadgetID = EventGadgetID()
  If Event = #PB_EventGadget 
    If GadgetID = #Button_0
      SetGadgetText(#Web_0, GetGadgetText(#String_0))
    EndIf
  EndIf
Until Event = #PB_Event_CloseWindow 
End
²

Publié : lun. 21/nov./2005 12:57
par Backup
Si tu parlais en français ma réponse serait certainement plus pertinante mais tu ne fournis pas de décodeur
je tiens un encodeur "scarabetiseur" a ta disposition , le decodeur est pas evident a faire , je cherche encore :lol:

Publié : lun. 21/nov./2005 13:07
par comtois
brossden a écrit :Dans un Avatar ça fait Tâche non ? :roll:
on m'a toujours dit à l'école qu'une tache ça suffit , pas besoin d'en ajouter une autre en mettant un accent sur le a :)

Tâche avec l'accent c'est dans le sens ouvrage .
Tache sans l'accent c'est une salissure.

Maintenant reste à voir dans quel sens tu voulais l'employer ? :)

Publié : lun. 21/nov./2005 14:12
par djes
Au niveau grammaire, ce forum est l'un des pires que j'ai jamais vu.

Publié : lun. 21/nov./2005 14:21
par Chris
djes a écrit :Au niveau grammaire, ce forum est l'un des pires que j'ai jamais vu.
Tu n'as pas dû en voir beaucoup, ou on ne fréquente pas les mêmes forums, (fora, au pluriel, mais ça, on s'en b.l.c...).

A part certains qui se croient sur leur portable, ou d'autres qui écrivent comme des gorets, dans l'ensemble, le niveau est plutôt pas mal.

On n'est pas à l'Académie Française, que je sache! :)

Publié : lun. 21/nov./2005 14:33
par djes
C'était juste une remarque, et ça tient plus au rapport nombre de messages postés/qualité. Tu as pû remarquer que je continuais à participer malgré ça. Mais j'avoue que je ne prends pas le temps de décoder certains posts. Il faut faire un minimum d'effort pour être compréhensible, surtout quand on demande de l'aide! Ca fait partie de la nétiquette.

Publié : lun. 21/nov./2005 14:37
par Chris
djes a écrit :C'était juste une remarque, et ça tient plus au rapport nombre de messages postés/qualité. Tu as pû remarquer que je continuais à participer malgré ça. Mais j'avoue que je ne prends pas le temps de décoder certains posts. Il faut faire un minimum d'effort pour être compréhensible, surtout quand on demande de l'aide! Ca fait partie de la nétiquette.
D'accord sur ce point. Les messages qui demandent ne serait-ce qu'un minimum d'effort pour les décoder, je les zappe aussi.

Publié : lun. 21/nov./2005 14:41
par Backup
Il faut faire un minimum d'effort pour être compréhensible
Ce propos est valable aussi pour certains qui se donnent un genre en cherchant a écrire trop bien ! , la Bible est tres bien écrite , mais personne ne la comprend vraiment !... n'est-ce pas Fweil :lol: :lol:

Publié : lun. 21/nov./2005 15:08
par Chris
Tu cherches la m...., Dobro!
C'est pas cool ça :?

Publié : lun. 21/nov./2005 15:16
par Backup
non! je rebondis sur les propos de Djes :D




... si on peut plus rien dire :? :D

Publié : lun. 21/nov./2005 15:55
par brossden
Pour comtois !

Je n'ai jamais dit que je ne faisais aucune faute mais je pense qu'il y a quand même des limites, si tu ne vois pas la différence ... Ce qui m'étonne, c'est que ce post est resté sans aucune réponse de ta part pendant plusieurs jour mais que depuis ma réponse pour tenter d'aider "SCARABER" ......

Publié : lun. 21/nov./2005 16:03
par Backup
"SCARABER"
soit dit en passant il peut bien ecrire son pseudo comme il le veut non ?

Scarabet
skaraber
squarrabai
sccarrabbé
ect ... <-- ce n'est plus un speudo (quoique .. :D)

Publié : lun. 21/nov./2005 16:06
par brossden
Et l'image associée c'est un camion ?
pour programeur tu as une idée ??

Mdr ! :lol:

Publié : lun. 21/nov./2005 16:08
par Anonyme2
Moi je trouve plutôt du plaisir à lire les posts de F. weil et en plus ses codes sont excellents :D

Bien sur il ne parle pas le Dobro :jesors: (chacun sa langue)

D'accord avec Chris, t'es pas trop cool Dobro, F. weil fait partie de ceux qui se donnent de la peine pour aider les autres