Skip to content

Timer in pal7

Viewing 15 posts - 1 through 15 (of 15 total)
  • Author
    Posts
  • #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

    #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.

    #190001
    UDG Clan
    Member

    i tryed to make that but it didnt send at all

    #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 🙂

    #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

    #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

    #189997
    UDG Clan
    Member

    okay thanks

    #189996
    UDG Clan
    Member

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

    #189995
    ice_531
    Member

    what errors? an RTE? rte – Run Time Error

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

    #189994
    Crashypoo
    Member

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

    #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

    #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

    #189991
    Admin
    Administrator

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

    #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. 🙄

    #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

Viewing 15 posts - 1 through 15 (of 15 total)
  • You must be logged in to reply to this topic.