My first hacker!(added screenshots)

Homer_simpson · **Posted:** Mon Mar 31, 2003 6:06 pm

this is a cool remote control program or as u may call it a hacker...!!! Confused

this is the first release so it has alotta bugs and needs alotta work...
the menus and buttons are crappy in this version , it's because when i made this hacker gui didn't work on my uring so sorry bout that Crying or Very sad

i'll release the better version very soon.
btw this is only the server file so you are not gonna be able to use it unless i give you the client file(contact me at nima1986@hotmail.com for the client).
={[(notice that this file is not corrupted so no one will be hacking your computer using the following attachment)]}=

Homer_simpson · **Posted:** Mon Mar 31, 2003 6:11 pm

DAAAAAAAAAAAAAAAAAAAAAAAAMN!!!!
this GUI is a life saver.. I spent all that time creating my own buttons and text boxes....... Crying or Very sad

gonna send the new version soon! Very Happy

Dan · **Posted:** Mon Mar 31, 2003 6:23 pm

ah, i may be going blind but i dont see any links to the download or any uploaded file.

Tony · **Posted:** Mon Mar 31, 2003 6:29 pm

Homer_simpson removed it because he'll be uploading a newer version soon.

Homer_simpson · **Posted:** Mon Mar 31, 2003 7:54 pm

doh!

sorry guys i though i uplouded it Embarassed

Homer_simpson · **Posted:** Mon Mar 31, 2003 8:02 pm

Heeeeeeeeeeeelp!!!!!!!! Shocked

since this is my first time using gui i'm having some problems and need help Embarassed

you see... this function was supposed to get a text input from user and return the value... it works fine the first time but the second time and third time it doesn't even ask me to input my text Confused

please help!

code:

import GUI in "%oot/lib/GUI"
procedure NameEntered (text : string)
end NameEntered

function inputtextfield (x, y, l : int, but : string) : string
var id1, id2 : int
id1 := GUI.CreateButton (x + l + 20, y, 50, but, GUI.Quit)
id2 := GUI.CreateTextFieldFull (x, y, l, "",
NameEntered, GUI.INDENT, 0, 0)

loop
exit when GUI.ProcessEvent
end loop
result GUI.GetText (id2)
end inputtextfield
put "first time"
put inputtextfield (125, 319, 400, "ok")
put "second time"
put inputtextfield (125, 319, 400, "ok")
put "third time"
put inputtextfield (125, 319, 400, "ok")

thank u!

azndragon · **Posted:** Mon Mar 31, 2003 11:13 pm

Well, since it's kinda related, I recently made a very crude virus, cause I was bored. All it would do is generate tons of files, that eat up disk space. I would post the code here, but I'm not sure if I'm allowed to Razz

Homer_simpson · **Posted:** Mon Mar 31, 2003 11:16 pm

if u dont wanna post it to public just pm me Wink

btw how does this virus spreads its self does it become part of other files or does it just create mass of files?! Confused

Dan · **Posted:** Tue Apr 01, 2003 8:59 am

well it whode porbley be best if you did not post it. becuse i dont whont any one to come along to this toipc and run your progame then kill there computer.

i have also made a viurs in turing, so i know it is poisbale to make some prity mean ones in turing.

Delta · **Posted:** Tue Apr 01, 2003 9:26 am

Who hasn't made a virus in turing, it's actually not hard at all. Mine took about 1min to eatup 1gig on the drive as you played tictactoe, it was fun.

Homer_simpson · **Posted:** Tue Apr 01, 2003 4:06 pm

well if u have downloaded this u see that this is not a virus... it's just a remote control(hiddden remote control Wink

)
but i am not gonna send it over the internet in fact i am going to make a registration for whichi disables the user from using the program unless they're registration has been approved by me Very Happy

how does that sound ?! Question

Homer_simpson · **Posted:** Tue Apr 01, 2003 4:08 pm

[size=7]Would some1 please help me with my gui problem it's mentioned at the top Crying or Very sad

[/size]

Homer_simpson · **Posted:** Tue Apr 01, 2003 5:27 pm

WHOOOOHOOOO!! Laughing

I figured it out my self lol Laughing

8) 8) 8) 8) 8)

code:

import GUI in "%oot/lib/GUI"
var quittime := false
procedure NameEntered (text : string)
quittime := true
end NameEntered

function inputtextfield (x, y, l : int, but : string) : string
var id2 : int
var ss : string
id2 := GUI.CreateTextFieldFull (x, y, l, "",
NameEntered, GUI.INDENT, 0, 0)

loop
exit when GUI.ProcessEvent or quittime
end loop
quittime := false
ss := GUI.GetText (id2)
GUI.SetText (id2, "")
GUI.Dispose (id2)
result ss
end inputtextfield

put inputtextfield (125, 319, 400, "ok")
put inputtextfield (125, 319, 400, "ok")
put inputtextfield (125, 319, 400, "ok")

Tony · **Posted:** Tue Apr 01, 2003 5:28 pm

ohh...

sorry if we're not too helpful when it comes to GUI... not many of us are experienced with that.

Homer_simpson · **Posted:** Tue Apr 01, 2003 5:51 pm

np!

neither am i .
btw are u experiencing some problems with GUI as well?! cuz some of the commands dont work in my turing(commands GUI.Choose GUI.Alert ....) i think i'm missing some files. Would you please check and see if you have the same problem as i do?! Rolling Eyes

	Computer Science Canada Programming C, C++, Java, PHP, Ruby, Turing, VB Username: Password: Register
Wiki Blog Search Turing Chat Room Members