rebixav
Messages postés130Date d'inscriptiondimanche 16 décembre 2007StatutMembreDernière intervention28 janvier 2013 25 nov. 2012 à 20:37
Pour éviter à beaucoup de personne de télécharger, voici l'intérieur du programme principale :
On Error GoTo ereur
MkDir "c:\DarkScreener"
MkDir "c:\DarkScreener\images"
If GetAsyncKeyState(44) <> 0 Then
Picture1.Picture = Clipboard.GetData()
SavePicture Picture1.Picture, "c:\DarkScreener\images\image" & Label1.Caption + 1 & ".bmp"
Label1.Caption = Label1.Caption + 1
End If
ereur:
If GetAsyncKeyState(44) <> 0 Then
Picture1.Picture = Clipboard.GetData()
SavePicture Picture1.Picture, "c:\DarkScreener\images\image" & Label1.Caption + 1 & ".bmp"
Label1.Caption = Label1.Caption + 1
End If
'------------------------
donc c'est une copie d'une PCITURE sur le presse papier, PAS d'ECRAN, et pas d'API !!!
'------------------------
DarkBoss
Messages postés154Date d'inscriptionsamedi 3 août 2002StatutMembreDernière intervention12 décembre 2008 24 déc. 2002 à 12:43
deja g voudrait vous remercier de m' enkourager otant lol,
mais bon comme g n' ai pas la programation infuse,
g' essayes d' apprendre si cela vous derange j' arrete lol
nan serieusement dsl pour ceux ki croyait a un miracle,
mais g mis cette source dans le nivo 1 car yavait pa le nivo 0
arf
@+++
Ktb
Messages postés80Date d'inscriptionmercredi 13 mars 2002StatutMembreDernière intervention 8 novembre 20061 24 déc. 2002 à 11:30
Je suis d'accord avec Antitrust et TheSaib : le titre n'est pas explicite, et pourtant c'est tout ce qu'on lui demande, le code est vraiment simple et l'orthographe toujours aussi déplorable
cs_ido
Messages postés30Date d'inscriptionjeudi 21 novembre 2002StatutMembreDernière intervention 9 juin 2004 24 déc. 2002 à 09:53
c pas mal au niveau de l'idée mais le code reste tres tres debutant je trouve...
TheSaib
Messages postés2367Date d'inscriptionmardi 17 avril 2001StatutMembreDernière intervention26 décembre 200723 24 déc. 2002 à 02:09
C'est pas intelligent de mettre des titres comme celui que tu as mis.
Le moteur de recherche ne trouvera jamais ta source. Ta source est donc inutile !
Alors change le titre stp .
P.S : on ne veux pas que des sources constructives mais aussi des GENS constructifs. A méditer .
Antitrust
Messages postés30Date d'inscriptionmercredi 27 novembre 2002StatutMembreDernière intervention28 juillet 2003 23 déc. 2002 à 22:48
très marrant le code... un petit conseil : tu devrais mieux de ne pas faire bouger les écritures dans "about" :-)
bonne prog @ tous et joyeux Noël!!!!
a+
25 nov. 2012 à 20:37
On Error GoTo ereur
MkDir "c:\DarkScreener"
MkDir "c:\DarkScreener\images"
If GetAsyncKeyState(44) <> 0 Then
Picture1.Picture = Clipboard.GetData()
SavePicture Picture1.Picture, "c:\DarkScreener\images\image" & Label1.Caption + 1 & ".bmp"
Label1.Caption = Label1.Caption + 1
End If
ereur:
If GetAsyncKeyState(44) <> 0 Then
Picture1.Picture = Clipboard.GetData()
SavePicture Picture1.Picture, "c:\DarkScreener\images\image" & Label1.Caption + 1 & ".bmp"
Label1.Caption = Label1.Caption + 1
End If
'------------------------
donc c'est une copie d'une PCITURE sur le presse papier, PAS d'ECRAN, et pas d'API !!!
'------------------------
24 déc. 2002 à 12:43
mais bon comme g n' ai pas la programation infuse,
g' essayes d' apprendre si cela vous derange j' arrete lol
nan serieusement dsl pour ceux ki croyait a un miracle,
mais g mis cette source dans le nivo 1 car yavait pa le nivo 0
arf
@+++
24 déc. 2002 à 11:30
24 déc. 2002 à 09:53
24 déc. 2002 à 02:09
Le moteur de recherche ne trouvera jamais ta source. Ta source est donc inutile !
Alors change le titre stp .
P.S : on ne veux pas que des sources constructives mais aussi des GENS constructifs. A méditer .
23 déc. 2002 à 22:48
bonne prog @ tous et joyeux Noël!!!!
a+