Timer in pal7

This topic has 14 replies, 4 voices, and was last updated 19 years ago by ice_531.

Viewing 15 posts - 1 through 15 (of 15 total)

Author

Posts
January 6, 2005 at 1:21 pm #189988

UDG Clan
Member

Hey all okay make belive i did a flooder now i put in the button start

Timer1.Enabled = True

Stop button

Timer1.Enabled = False

Now the timer it self what should i cahnge it to Ture or flase i tryed false it wehn i start the programe it sends to paltalk rooms and i get DC i want it wehn i click the button i tryed True it didnt work at all

In old paltalk i use to pick flae and it works

January 6, 2005 at 5:54 pm #190002

ice_531
Member

If only i could read your english than i could answer better.

Make sure the timer1 enabled property on the control is set to false so that it’s not already enabled on form load – by default timers are enabled on form_load event.

January 8, 2005 at 10:15 am #190001

UDG Clan
Member

i tryed to make that but it didnt send at all

January 8, 2005 at 5:17 pm #190000
Admin
Administrator
ok loco this is how i do it 🙂

first add this code to form
```
Sub Delay(ByVal nSeconds As Single)

Dim nStart As Single



nStart = Timer



Do

DoEvents

Loop Until Timer - nStart >= nSeconds

End Sub
```
This a mch better way to use a time action trust me 🙂

Then put this on the loadform
```
Timer1.Interval = 10

Timer1.Enabled = False
```
Then on the timer itself put this code
```
Dim mywindowclass As Long

Dim wtlsplitterwindow As Long

Dim atld As Long

Dim atlaxwin As Long

Dim x As Long

Dim richedita As Long

On Error Resume Next

mywindowclass = FindWindow("my window class", vbNullString)

wtlsplitterwindow = FindWindowEx(mywindowclass, 0&, "wtl_splitterwindow", vbNullString)

wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)

atld = FindWindowEx(wtlsplitterwindow, 0&, "atl:004d0600", vbNullString)

atlaxwin = FindWindowEx(atld, 0&, "atlaxwin71", vbNullString)

x = FindWindowEx(atlaxwin, 0&, "#32770", vbNullString)

richedita = FindWindowEx(x, 0&, "richedit20a", vbNullString)

richedita = FindWindowEx(x, richedita, "richedit20a", vbNullString)

Call SendMessageByString(richedita, WM_SETTEXT, 0&, RichTextBox1)



If richedita = 0 Then



Exit Sub

End If



Do

DoEvents

mywindowclass = FindWindow("my window class", vbNullString)

wtlsplitterwindow = FindWindowEx(mywindowclass, 0&, "wtl_splitterwindow", vbNullString)

wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)

atld = FindWindowEx(wtlsplitterwindow, 0&, "atl:004d0600", vbNullString)

atlaxwin = FindWindowEx(atld, 0&, "atlaxwin71", vbNullString)

x = FindWindowEx(atlaxwin, 0&, "#32770", vbNullString)

richedita = FindWindowEx(x, 0&, "richedit20a", vbNullString)

richedita = FindWindowEx(x, richedita, "richedit20a", vbNullString)

Call SendMessageLong(richedita, WM_KEYDOWN, 13, 0&)

Loop Until richedita  0

Call Delay(1)
```
Then to start it on a command button, but u might know this 🙂
```
Timer1.Enabled = True
```
To stop it
```
Timer1.Enabled = False
```
thas wha i do 🙂
January 8, 2005 at 10:25 pm #189999

UDG Clan
Member

Just want to make sure where do i put this

Sub Delay(ByVal nSeconds As Single)
Dim nStart As Single

nStart = Timer

Do
DoEvents
Loop Until Timer – nStart >= nSeconds
End Sub

cuse i tryed it every where but it dont work

January 8, 2005 at 10:45 pm #189998

ice_531
Member

its a sub…. simply place it in your forms code then wherever you need to call it use the ByRef arguments that are in the sub

for instance: Usgage:

Delay 1000 ‘ delay 1 second

January 9, 2005 at 3:06 am #189997

UDG Clan
Member

okay thanks

January 9, 2005 at 3:09 am #189996

UDG Clan
Member

err dont know why it give erros maybe my vb6 got something worng

January 9, 2005 at 4:26 am #189995

ice_531
Member

what errors? an RTE? rte – Run Time Error

or what.. please tell what error and show what line its on 🙂

January 9, 2005 at 7:31 am #189994

Crashypoo
Member

lolol udg ur slow ass cant speak english
i bet u juss forget to set the interval 😕

January 9, 2005 at 11:10 am #189993

UDG Clan
Member

fuck you man i anit going to programe all day i got a life man and its not just an auto room paster i want to add alot of options that no one had so shut up

January 9, 2005 at 11:14 am #189992

UDG Clan
Member

ice its not in lins its in my vb6 man every time i trye to make one of theas button that Admin have it pop up box then closes vb6 does any one have a good version

January 9, 2005 at 4:08 pm #189991

Admin
Administrator

loco try doing it without the buttons, just with regular command buttton to see,

January 9, 2005 at 5:53 pm #189990

ice_531
Member

You’ve still not responded with what error it gives you. Can’t help you if i don’t know the error message. 🙄

January 9, 2005 at 8:19 pm #189989

Crashypoo
Member

@UDG Clan wrote:

fuck you man i anit going to programe all day i got a life man and its not just an auto room paster i want to add alot of options that no one had so shut up

lololol man when fuckin ice said “its a sub…. simply place it in your forms code then wherever you need to call it use the ByRef arguments that are in the sub

for instance: Usgage:

Delay 1000 ‘ delay 1 second”

u go “OKAY THANKS” as if u actually understood what he told u to do
shut ur ass up

how about u try to actually program somethin that doesnt have to do with usin an API spy ?
or is that all u do since u got the source code to some fuckin flooder n now u abusin that bitch
Author

Posts

Viewing 15 posts - 1 through 15 (of 15 total)

You must be logged in to reply to this topic.

Related