| View previous topic :: View next topic |
| Author |
Message |
Box Grandmaster Cheater
Reputation: 0
Joined: 16 Oct 2007 Posts: 541
|
Posted: Sat Dec 22, 2007 10:34 am Post subject: anybody make a code |
|
|
so if you click on command button it will post a message from a textbox on this (http://pic1.piczo.com/bleachtraining2/?g=33156869&cr=1&linkvar=000044)
ill+rep and ill be verry greatful (only if it works!) please hurry :0
oh and if you can spear the code to ad a number to a number like each time you click the button the number in the label the nuymber will go up
_________________
| zurkei wrote: | | Wow box your a real dick, I can't believe I actually thought that you were telling the truth... |
Fact: no one tells the truth on cheat engine fourms |
|
| Back to top |
|
 |
killar456 Master Cheater
Reputation: 0
Joined: 30 Mar 2007 Posts: 415
|
Posted: Sat Dec 22, 2007 10:39 am Post subject: |
|
|
| for the bottom half, you mean like a counter?
|
|
| Back to top |
|
 |
Box Grandmaster Cheater
Reputation: 0
Joined: 16 Oct 2007 Posts: 541
|
Posted: Sat Dec 22, 2007 10:41 am Post subject: |
|
|
no like if you click on a command button on the label i have the number 0
and it will ad a number like it will change to 1
_________________
| zurkei wrote: | | Wow box your a real dick, I can't believe I actually thought that you were telling the truth... |
Fact: no one tells the truth on cheat engine fourms |
|
| Back to top |
|
 |
Blader I post too much
Reputation: 2
Joined: 19 Jan 2007 Posts: 2049
|
Posted: Sat Dec 22, 2007 10:42 am Post subject: |
|
|
For the second question:
Make a label, and a button
Now set the label's caption to 1
On the button click event, add this:
| Code: | | label1.caption = val(label1.caption) + 1 |
_________________
|
|
| Back to top |
|
 |
Box Grandmaster Cheater
Reputation: 0
Joined: 16 Oct 2007 Posts: 541
|
Posted: Sat Dec 22, 2007 10:47 am Post subject: |
|
|
what about a code that will reset the number after a certanit time period if you can tell me that i defintly +rep if not i still will but i wont be as greatful
_________________
| zurkei wrote: | | Wow box your a real dick, I can't believe I actually thought that you were telling the truth... |
Fact: no one tells the truth on cheat engine fourms |
|
| Back to top |
|
 |
Blader I post too much
Reputation: 2
Joined: 19 Jan 2007 Posts: 2049
|
Posted: Sat Dec 22, 2007 10:49 am Post subject: |
|
|
| magic moo wrote: | what about a code that will reset the number after a certanit time period if you can tell me that i defintly +rep if not i still will but i wont be as greatful  |
You could use a timer and set the interval to a high number
The code would be for the timer:
_________________
|
|
| Back to top |
|
 |
Michel Expert Cheater
Reputation: 0
Joined: 16 May 2007 Posts: 214 Location: The Netherlands
|
Posted: Sat Dec 22, 2007 11:13 am Post subject: |
|
|
1st question:
so you want it to add a message to the guestbook?
then do this:
| Code: | procedure TForm1.Button1Click(Sender: TObject);
begin
AppActivate('Add a Post') ;
SendKeys ('text here pl0x' , true) ;
end;
end. |
For easier use, set a timer (in the system tab) and add this code:
| Code: |
if odd (GetAsyncKeyState (VK_F1)) then begin
button1.click;
end;
end. |
If you press F1 it`ll put in the code.
|
|
| Back to top |
|
 |
atom0s Moderator
Reputation: 205
Joined: 25 Jan 2006 Posts: 8587 Location: 127.0.0.1
|
Posted: Sat Dec 22, 2007 11:18 am Post subject: |
|
|
Ok, took a few mins to whip this up but got it working. Firstly, start a new project, and goto Project -> Components and add:
- Microsoft Internet Transfer Control 6.0
Next, add the following to your project:
- 1 INet control.
- 1 textbox.
- 2 labels.
- 1 command button.
Next, the first label should say: "Messages Sent: "
The second should say: "0"
They should be next to each other, the second is the label increment that you wanted as well.
Next your command button should say "Send" on the caption. And then the code:
| Code: | Private Sub Command1_Click()
Dim strPostData As String
strPostData = "plid=10648339&plo=339363&plpid=0&shouldval=y&isnew=y"
strPostData = strPostData & "&maintext=" & Text1.Text
Call Inet1.Execute("http://pic1.piczo.com/go/editpost", "POST", strPostData, "Content-Type: application/x-www-form-urlencoded")
Label2.Caption = Val(Label2.Caption) + 1
End Sub |
I made two posts using this on that guest book using my code, worked fine.
Good luck.
Edit, example attached now.
_________________
- Retired. |
|
| Back to top |
|
 |
|