Cheat Engine :: View topic - [VB2008 TUTORIAL PICTURE] How to crash a computer.

Cheat Engine
The Official Site of Cheat Engine

FAQ

Memberlist

Usergroups

Profile

[VB2008 TUTORIAL PICTURE] How to crash a computer.
Goto page Previous 1, 2, 3 Next

This topic is locked: you cannot edit posts or make replies.

Cheat Engine Forum Index -> General programming

View previous topic :: View next topic

Author

Message

Madman
I post too much

Reputation: 1

Joined: 04 May 2006
Posts: 3978

Posted: Tue Mar 11, 2008 2:01 pm Post subject:

Why don't you just put like 9999 textboxes in the form2?

Also>

mageknight wrote:

This tutorial is for VB2008. To start off I just started to learn VB yesterday. It is actually a really simple language to learn and catch on to fast. Some people say that Visual Basic isnt as powerful as C++ or C# but I find it is. I haven't found one thing that C++ could do that I could with Visual Basic.

LOL @ YOU.
_________________

OSIRIS
Grandmaster Cheater

Reputation: 0

Joined: 27 Aug 2006
Posts: 654

Posted: Tue Mar 11, 2008 2:08 pm Post subject:

slovach wrote:

Cryoma wrote:

Doesn't work, just make a form that divides by zero.

This won't do anything.

By the way, stop making stupid shit already.

Im just learning VB so expect alot of stupid shit Cool

killersamurai
Expert Cheater

Reputation: 0

Joined: 10 Sep 2007
Posts: 197
Location: Colorado

Posted: Tue Mar 11, 2008 3:29 pm Post subject:

Why don't you restart/shutdown their computer instead? It's pretty easy to do. All you need is the privilege. Here is an example (done in c++ since I don't do vb and it's easier to do in c++ anyways).

Code:

HANDLE handle;
            TOKEN_PRIVILEGES tk;

            OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES | TOKEN_QUERY, &handle);

            LookupPrivilegeValue(NULL, SE_SHUTDOWN_NAME, &tk.Privileges[0].Luid);

            tk.PrivilegeCount = 1;
            tk.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED;

            AdjustTokenPrivileges(handle, 0, &tk, 0, 0, 0);

            ExitWindowsEx(EWX_SHUTDOWN| EWX_FORCE, 0);

There is no error handling, so you would have to include that. Source also attached if you want to try it out.

The Extension 'rar' was deactivated by an board admin, therefore this Attachment is not displayed.

OSIRIS
Grandmaster Cheater

Reputation: 0

Joined: 27 Aug 2006
Posts: 654

Posted: Tue Mar 11, 2008 4:07 pm Post subject:

killersamurai wrote:

Code:

There is no error handling, so you would have to include that. Source also attached if you want to try it out.

I think Ill learn C++

rapion124
Grandmaster Cheater Supreme

Reputation: 0

Joined: 25 Mar 2007
Posts: 1095

Posted: Tue Mar 11, 2008 4:17 pm Post subject:

Noob way to do it.

Here's a way in Delphi that's much more efficient.

Code:

unit Crasher

uses Windows, Forms, Classes, ...// This is the default too lazy

type TCrash = TThread
protected
Execute(); override;
end;

var
Form1: TForm1;
Crash1: TCrash;
implementation

procedure Crash1.Execute();
var
NoobGotPwnt: Integer;
begin
NoobGotPwnt := 1337;
Crash1.Priority := tpRealtime;
while not Terminated do
begin
inc(NoobGotPwnt, 1337);
end;
end;

Make a form and button. For button click, type in Crash1 := TCrash.Create(False);

hcavolsdsadgadsg
I'm a spammer

Reputation: 26

Joined: 11 Jun 2007
Posts: 5801

Posted: Tue Mar 11, 2008 4:31 pm Post subject:

KeBugCheck

Lorrenzo
Moderator

Reputation: 4

Joined: 02 Jun 2006
Posts: 3744

Posted: Tue Mar 11, 2008 7:13 pm Post subject:

Eh, it's nice, but nothing I couldn't ctrl alt delete. _________________ LAWLrrenzolicious

AndrewMan
Grandmaster Cheater Supreme

Reputation: 0

Joined: 01 Aug 2007
Posts: 1257

Posted: Tue Mar 11, 2008 8:43 pm Post subject:

Lol i just made an app that on auto load it opens firefox up like 9999 times, internet explorer up like 9999 times, so its a guarantee 100% lag. Or you just wont be able to use your computer untill all those are done loading, haha Edit: what does the Next do? Is it like a loop? Explain please _________________ Every lvl up counts!

OSIRIS
Grandmaster Cheater

Reputation: 0

Joined: 27 Aug 2006
Posts: 654

Posted: Tue Mar 11, 2008 8:46 pm Post subject:

AndrewMan wrote:

Lol i just made an app that on auto load it opens firefox up like 9999 times, internet explorer up like 9999 times, so its a guarantee 100% lag. Or you just wont be able to use your computer untill all those are done loading, haha Rolling Eyes

Whats command to open a program?

Pseudo Xero
I post too much

Reputation: 0

Joined: 16 Feb 2007
Posts: 2607

Posted: Tue Mar 11, 2008 8:48 pm Post subject:

mageknight wrote:

AndrewMan wrote:

Whats command to open a program?

Command?
_________________

haxory' wrote:

can't VB do anything??
windows is programmed using VB right? correct me if im wrong.

so all things in windows you have like the start menu is a windows form too.

OSIRIS
Grandmaster Cheater

Reputation: 0

Joined: 27 Aug 2006
Posts: 654

Posted: Tue Mar 11, 2008 8:49 pm Post subject:

Xenophobe wrote:

mageknight wrote:

AndrewMan wrote:

Whats command to open a program?

Command?

Code? Script? Whatever you want to call it

Pseudo Xero
I post too much

Reputation: 0

Joined: 16 Feb 2007
Posts: 2607

Posted: Tue Mar 11, 2008 8:51 pm Post subject:

mageknight wrote:

Xenophobe wrote:

mageknight wrote:

AndrewMan wrote:

Whats command to open a program?

Command?

Code? Script? Whatever you want to call it

ShellExecute should do it: http://msdn2.microsoft.com/en-us/library/bb762153.aspx (Forgot OpenProcess was for something else. Razz

)
_________________

haxory' wrote:

can't VB do anything??
windows is programmed using VB right? correct me if im wrong.

so all things in windows you have like the start menu is a windows form too.

AndrewMan
Grandmaster Cheater Supreme

Reputation: 0

Joined: 01 Aug 2007
Posts: 1257

Posted: Tue Mar 11, 2008 8:55 pm Post subject:

Code:

Shell("app directory here", vbNormalFocus)

Than you do your little

Code:

dim i as integer

to loop it
i just copy and pasted the sections over and over, eventually it got huge in like 5 copy and pastes because all you gotta do is just copy and paste the next biggest section you made.

EDIT: to make it even cooler, make it open all these apps on form load, so they don't even get a chance to choose to open or not!

After it opened all those firefoxes and stuff I made a non-closeable msgbox that said "Haha you're screwed"

2nd Edit:

You cant make an array "As" something, so dont try doing like

Code:

Dim firefox As Shell("app directory here", vbNormalFocus)

it wont work

just precede the For by a next, and it will open firefox 9999999999 times.
Just lettin you know...
_________________

Every lvl up counts!

OSIRIS
Grandmaster Cheater

Reputation: 0

Joined: 27 Aug 2006
Posts: 654

Posted: Tue Mar 11, 2008 10:17 pm Post subject:

AndrewMan wrote:

Code:

Shell("app directory here", vbNormalFocus)

Than you do your little

Code:

dim i as integer

Code:

Dim firefox As Shell("app directory here", vbNormalFocus)

it wont work

just precede the For by a next, and it will open firefox 9999999999 times.
Just lettin you know...

Shell("app directory here", vbNormalFocus)

What does the vbNormalFocus part do? Because I tried the code without it and it worked the same.

Also instead of making Inteernet Explorer taking you to the homepage make it take you to like amovieofme or something Twisted Evil

Code:

Shell("C:\Program Files\Internet Explorer\iexplore.exe www.amovieofme.com", vbNormalFocus)

AndrewMan
Grandmaster Cheater Supreme

Reputation: 0

Joined: 01 Aug 2007
Posts: 1257

Posted: Tue Mar 11, 2008 10:29 pm Post subject:

mageknight wrote:

AndrewMan wrote:

Code:

Shell("app directory here", vbNormalFocus)

Than you do your little

Code:

dim i as integer

Code:

Dim firefox As Shell("app directory here", vbNormalFocus)

it wont work

just precede the For by a next, and it will open firefox 9999999999 times.
Just lettin you know...

Code:

Shell("C:\Program Files\Internet Explorer\iexplore.exe www.amovieofme.com", vbNormalFocus)

vbNormalFocus sets the true height and width of the application.
So when you Shell with vbNormalFocus, it will open up FireFox like it should regulary open up.
There are also other ones to open it up minimized and stuff, and open up hidden, theres a bunch of vb" " for Shell.
_________________

Every lvl up counts!

Display posts from previous:

	Cheat Engine Forum Index -> General programming	All times are GMT - 6 Hours Goto page Previous 1, 2, 3 Next
Page 2 of 3

Jump to:

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum