Timer in pal7

by **UDG Clan** » Thu Jan 06, 2005 8:21 am

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

by **ice_531** » Thu Jan 06, 2005 12:54 pm

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.

by **UDG Clan** » Sat Jan 08, 2005 5:15 am

i tryed to make that but it didnt send at all

by **locohacker** » Sat Jan 08, 2005 12:17 pm

ok loco this is how i do it

first add this code to form

Code: Select all: 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

Code: Select all: Timer1.Interval = 10 Timer1.Enabled = False

Then on the timer itself put this code

Code: Select all: 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

Code: Select all: Timer1.Enabled = True

To stop it

Code: Select all: Timer1.Enabled = False

thas wha i do

by **UDG Clan** » Sat Jan 08, 2005 5:25 pm

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

by **ice_531** » Sat Jan 08, 2005 5:45 pm

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

by **UDG Clan** » Sat Jan 08, 2005 10:06 pm

okay thanks

by **UDG Clan** » Sat Jan 08, 2005 10:09 pm

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

by **ice_531** » Sat Jan 08, 2005 11:26 pm

what errors? an RTE? rte - Run Time Error

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

by **Crashypoo** » Sun Jan 09, 2005 2:31 am

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

by **UDG Clan** » Sun Jan 09, 2005 6:10 am

f**k 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

by **UDG Clan** » Sun Jan 09, 2005 6:14 am

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

by **locohacker** » Sun Jan 09, 2005 11:08 am

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

by **ice_531** » Sun Jan 09, 2005 12:53 pm

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

by **Crashypoo** » Sun Jan 09, 2005 3:19 pm

UDG Clan wrote:f**k 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

Timer in pal7

Timer in pal7

Who is online