Paltalk Locohacker Programs Source Code

Here is Paltalk Locohacker Programs Source Code, You will find all the VB 6 Source code for all my programs, Such as, Admin Bot, Music Bot, Funtext, Winamp Bot, Paltalk Multi Paster, Paltalk Auto Greeter and more. It’s real cool for people that want to get into paltalk programming. This Codes only work with paltalk 9.5 to 9.7 so far, but in any case if you guys need help just go to the forums so we can help you.

Download Paltalk Locohacker Programs Source Code

76 thoughts on “Paltalk Locohacker Programs Source Code

  1. Public Function find_x() As Long
    ' If this function finds the window, it will return it's
    ' handle. If it doesn't find it, it will return 0.
    Dim x As Long
    x = FindWindow("#32770", vbNullString)
    Dim Winkid1 As Long, Winkid2 As Long, Winkid3 As Long, Winkid4 As Long, Winkid5 As Long, Winkid6 As Long, Winkid7 As Long, Winkid8 As Long, FindOtherWin As Long
    FindOtherWin = GetWindow(x, GW_HWNDFIRST)
    Do While FindOtherWin  0
           DoEvents
           Winkid1 = FindWindowEx(FindOtherWin, 0&, "combobox", vbNullString)
           Winkid2 = FindWindowEx(FindOtherWin, 0&, "edit", vbNullString)
           Winkid3 = FindWindowEx(FindOtherWin, 0&, "avmui_cuiimagebutton", vbNullString)
           Winkid4 = FindWindowEx(FindOtherWin, 0&, "static", vbNullString)
           Winkid5 = FindWindowEx(FindOtherWin, 0&, "ctransparenttextout", vbNullString)
           Winkid6 = FindWindowEx(FindOtherWin, 0&, "avmui_cuilabel", vbNullString)
           Winkid7 = FindWindowEx(FindOtherWin, 0&, "cicontextdropbtn", vbNullString)
           Winkid8 = FindWindowEx(FindOtherWin, 0&, "ctransparenttextout", vbNullString)
           If (Winkid1  0) and (Winkid2  0) and (Winkid3  0) and (Winkid4  0) and (Winkid5  0) and (Winkid6  0) and (Winkid7  0) and (Winkid8  0) Then 
                  find_x = FindOtherWin
                  Exit Function
           End If
           FindOtherWin = GetWindow(FindOtherWin, GW_HWNDNEXT)
    Loop
    find_x = 0
    ' example on how to use:
    ' Dim TheWin As Long
    ' TheWin = find_x()
    ' If TheWin  0 Then
    ' What to do if window is there
    ' End If
    End Function

    how to add to my project if this is the correct method?

    1. Well if you are able to see my project I started on the dropbox link, I wish to make it connect, and place mic timer in room send game invites to room and trivia and music and more that I’m still thinking of. Yes I buy your pro version of trivia and yes it does still work Thank You. I did that in vb vissual studios 2015 but can recode it in VB6 will just take me bit longer to redo it all.

        1. I made alot progress recodeing in vb6 but countdown timer is in seconds not minutes lol trying find way make mins and sec with stop and reset

          Private Sub Form_Load()
              Timer1.Enabled = False
          End Sub
          
          Private Sub Timer1_Timer()
              Label1.Caption = Label1.Caption - 1
              If Label1.Caption = 0 Then
                  Timer1.Enabled = False
                  MsgBox "Your Time Is Over Sucker Get Off Mic!", vbInformation, "Message"
                  Label1.Caption = 900
              End If
          End Sub
          

          soon as i finish music form ill upload then be almost same as i wrote in visual studio but now in VB6

          1. Are you trying to make a talk timer, cause I made one and that thing was so unreliable lol Anyways Im going to check it next week I am taking a little vacation 🙂

  2. seems this might point me right direction to design the trivia that I use have since I cant make it open and modify the old one i have screen shot of how it looked but this code is giving me ideas

    Imports System.Data.OleDb
    Public Class Form1
        Dim ConnectString As String = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
          " Data Source= C:\Users\Sales\Documents\Visual Studio 2010\Normalised Database.accdb"
    
        Dim dr As OleDbDataReader
        Dim cm As New OleDbCommand
        Dim cn As New OleDbConnection
        Dim provider As String
        Dim dataFile As String
        Dim no As Integer
        Dim q(no) As String
        Dim quesnum As Integer
        Dim answer As String
        Dim selected As String
        Dim score As Integer
    
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    
            no = InputBox("Input the number of questions you want. You can choose from 1 to 10.")
            Label1.Hide()
            Label2.Hide()
            Label3.Hide()
            RadioButton1.Hide()
            RadioButton2.Hide()
            RadioButton3.Hide()
            RadioButton4.Hide()
            Button1.Hide()
            Button2.Hide()
            Button2.Hide()
            Button3.Hide()
            Button4.Hide()
    
            For i = 1 To no
                question()
            Next
    
        End Sub
    
        Private Sub question()
            cn.ConnectionString = ConnectString
            cn.Open()
    
            quesnum = 1
            Label1.Text = "Question " & quesnum & " of " & no
    
            cm.CommandText = "SELECT Question, Answer1, Answer2, Answer3, CorrectAnswer FROM Question"
            cm.Connection = cn
    
            dr = cm.ExecuteReader
    
            Dim answerList As New List(Of String)
    
            If dr.HasRows Then
                dr.Read()
                Label2.Text = dr.Item("Question")
    
                answerList.Items.Add(dr.Item("Answer1"))
                answerList.Items.Add(dr.Item("Answer2"))
                answerList.Items.Add(dr.Item("Answer3"))
                answerList.Items.Add(dr.Item("CorrectAnswer"))
                answerList = RandomizeListOrder(answerList)
                RadioButton1.Text = answerList(0)
                RadioButton2.Text = answerlist(1)
                RadioButton3.Text = answerList(2)
                RadioButton4.Text = answerlist(3)
                dr.Close()
            End If
            cn.Close()
    
        End Sub
    
        Private Sub mark()
            cn.ConnectionString = ConnectString
            cn.Open()
            cm.CommandText = "SELECT CorrectAnswer FROM Question"
            cm.Connection = cn
            dr = cm.ExecuteReader
            If dr.HasRows Then
                dr.Read()
                answer = dr.Item("CorrectAnswer")
                dr.Close()
    
            End If
            cn.Close()
    
            If selected = answer Then score = score + 1
            MsgBox("score is " & score)
        End Sub
    
    
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    
            If RadioButton1.Checked = True Then selected = RadioButton1.Text
            mark()
    
    
        End Sub
    
    
        Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
            Label1.Show()
            Label2.Show()
            Label3.Show()
            RadioButton1.Show()
            RadioButton2.Show()
            RadioButton3.Show()
            RadioButton4.Show()
            Button1.Show()
            Button2.Show()
            Button3.Show()
            Button4.Show()
            Button5.Hide()
        End Sub
    
        Private Function RandomizeListOrder(answers As List(Of String)) As List(Of String)
            Dim answer2 As Integer
            Dim rnd As New Random
            'loop though each item in the list
            For answer1 As Integer = 0 To answers.Count - 1
                'pick a random answer
                answer2 = rnd.Next(0, answers.Count - 1)
                'If answer1 and answer2 are the same then skip the rest of the code
                'in the loop and go onto the next question
                If answer1 = answer2 Then
                    Continue For
                End If
                'swap the questions over
                Dim temp As String
                temp = answers(answer1)
                answers(answer1) = answers(answer2)
                answers(answer2) = temp
            Next
            'return the list of answers
            Return answers
        End Function
    
    End Class
  3. trying work timer out im close but getting error

    Dim Hours As Integer
    Dim Minutes As Integer
    Dim Seconds As Integer
    Dim Time As Date
    Private Sub Mydisplay()
    'This code is common to all three text boxes so I
    'put it in it's own sub.
    
    'Extract the numbers from the text boxes by using
    'the Val() statement.
        Hours = Val(Text1.Text)
        Minutes = Val(Text2.Text)
        Seconds = Val(Text3.Text)
    'Convert variables to time format
        Time = TimeSerial(Hours, Minutes, Seconds)
    'Display the converted time variable in label 1
        Label1.Caption = Format$(Time, "hh") & ":" & Format$(Time, "nn") & ":" & Format$(Time, "ss")
    End Sub
    Private Sub Command2_Click(Index As Integer)
        Timer1.Enabled = True
        Command4.Enabled = False
    End Sub
    
    Private Sub Command3_Click()
    'Pause button - temporarily stop timer and enable
    'reset button. You can restart countdown by clicking
    'the start button. Or reset the time by clicking
    'the reset button.
        Timer1.Enabled = False
        Command4.Enabled = True
    End Sub
    
    Private Sub Command4_Click()
    'Reset button - reset all varibles and text boxes
    'to nothting.
        Hours = 0
        Minutes = 0
        Seconds = 0
        Time = 0
        Text1.Text = " "
        Text2.Text = " "
        Text3.Text = " "
        Text1.SetFocus 'put curser in the hour text box
    End Sub
    
    Private Sub Command5_Click()
        Form2.Show
    End Sub
    
    Private Sub Command6_Click()
        Form3.Show
    End Sub
    Dim Hours As Integer
    Dim Minutes As Integer
    Dim Seconds As Integer
    Dim Time As Date
    Private Sub Form_Load()
        Timer1.Enabled = False
    End Sub
    
    Private Sub Label1_Click()
    'Extract the numbers from the text boxes by using
    'the Val() statement.
        Hours = Val(Text1.Text)
        Minutes = Val(Text2.Text)
        Seconds = Val(Text3.Text)
    'Convert variables to time format
        Time = TimeSerial(Hours, Minutes, Seconds)
    'Display the converted time variable in label 1
        Label1.Caption = Format$(Time, "hh") & ":" & Format$(Time, "nn") & ":" & Format$(Time, "ss")
    End Sub
    
    Private Sub Timer1_Timer()
        Label1.Caption = Label1.Caption - 1
        If Label1.Caption = 0 Then
            Timer1.Enabled = False
            If (Format$(Time, "hh") & ":" & Format$(Time, "nn") & ":" & Format$(Time, "ss"))  "00:00:00" Then 'Counter to continue loop until 0
            Time = DateAdd("s", -1, Time)
            Label1.Visible = False
            Label1.Caption = Format$(Time, "hh") & ":" & Format$(Time, "nn") & ":" & Format$(Time, "ss")
            Label1.Visible = True
            Timer1.Enabled = True
            MsgBox "Your Time Is Over Sucker Get Off Mic!", vbInformation, "Message"
    End Sub
    
  4. Dim Hours As Integer
    Dim Minutes As Integer
    Dim Seconds As Integer
    Dim Time As Date
    Private Sub Label1Caption()
    'This code is common to all three text boxes so I
    'put it in it's own sub.
    
    'Extract the numbers from the text boxes by using
    'the Val() statement.
        Hours = Val(Text1.Text)
        Minutes = Val(Text2.Text)
        Seconds = Val(Text3.Text)
    'Convert variables to time format
        Time = TimeSerial(Hours, Minutes, Seconds)
    'Display the converted time variable in label 1
        Label1.Caption = Format$(Time, "hh") & ":" & Format$(Time, "nn") & ":" & Format$(Time, "ss")
    End Sub
    Private Sub Command2_Click()
        Timer1.Enabled = True
        Command4.Enabled = False
    End Sub
    
    Private Sub Command3_Click()
    'Pause button - temporarily stop timer and enable
    'reset button. You can restart countdown by clicking
    'the start button. Or reset the time by clicking
    'the reset button.
        Timer1.Enabled = False
        Command4.Enabled = True
    End Sub
    
    Private Sub Command4_Click()
    'Reset button - reset all varibles and text boxes
    'to nothting.
        Hours = 0
        Minutes = 0
        Seconds = 0
        Time = 0
        Text1.Text = " "
        Text2.Text = " "
        Text3.Text = " "
        Text1.SetFocus 'put curser in the hour text box
    End Sub
    
    Private Sub Command5_Click()
        Form2.Show
    End Sub
    
    Private Sub Command6_Click()
        Form3.Show
    End Sub
    Dim Hours As Integer
    Dim Minutes As Integer
    Dim Seconds As Integer
    Dim Time As Date
    Private Sub Form_Load()
        Timer1.Enabled = False
    End Sub
    
    Private Sub Label1_Click()
    'Extract the numbers from the text boxes by using
    'the Val() statement.
        Hours = Val(Text1.Text)
        Minutes = Val(Text2.Text)
        Seconds = Val(Text3.Text)
    'Convert variables to time format
        Time = TimeSerial(Hours, Minutes, Seconds)
    'Display the converted time variable in label 1
        Label1.Caption = Format$(Time, "hh") & ":" & Format$(Time, "nn") & ":" & Format$(Time, "ss")
    End Sub
    
    Private Sub Timer1_Timer()
        'Count down loop
        Timer1.Enabled = False
        If (Format$(Time, "hh") & ":" & Format$(Time, "nn") & ":" & Format$(Time, "ss"))  "00:00:00" Then 'Counter to continue loop until 0
            Time = DateAdd("s", -1, Time)
            Label1.Visible = False
            Label1.Caption = Format$(Time, "hh") & ":" & Format$(Time, "nn") & ":" & Format$(Time, "ss")
            Label1.Visible = True
            Timer1.Enabled = True
        Else
            'Turn off timer, set off alarm, and enable reset.
            Timer1.Enabled = False
            Beep
            Beep
            Command3.Enabled = True
            MsgBox "Your Time Is Over Sucker Get Off Mic!", vbInformation, "Message"
        End If
    End Sub
    
  5. figured out timer all but reset all else works great can chose time hours minutes or seconds and start and stop

    Dim Hours As Integer
    Dim Minutes As Integer
    Dim Seconds As Integer
    Dim Time As Date
    Private Sub Mydisplay()
    'This code is common to all three text boxes so I
    'put it in it's own sub.
    
    'Extract the numbers from the text boxes by using
    'the Val() statement.
        Hours = Val(Text3.Text)
        Minutes = Val(Text4.Text)
        Seconds = Val(Text5.Text)
    'Convert variables to time format
        Time = TimeSerial(Hours, Minutes, Seconds)
    'Display the converted time variable in label 1
        Label1.Caption = Format$(Time, "hh") & ":" & Format$(Time, "nn") & ":" & Format$(Time, "ss")
    End Sub
    
    Private Sub Command2_Click(Index As Integer)
        'Start button - turn on timer and disable reset
    'button
        Timer1.Enabled = True
        Command4.Enabled = False
    End Sub
    
    Private Sub Command3_Click()
        'reset button. You can restart countdown by clicking
    'the start button. Or reset the time by clicking
    'the reset button.
        Timer1.Enabled = False
        Command3.Enabled = True
    End Sub
    
    Private Sub Command4_Click()
        'Reset button - reset all varibles and text boxes
    'to nothting.
        Hours = 0
        Minutes = 0
        Seconds = 0
        Time = 0
        Text3.Text = " "
        Text4.Text = " "
        Text5.Text = " "
        Text3.SetFocus 'put curser in the hour text box
    End Sub
    
    Private Sub Command7_Click()
        'Exit button - end program and clear varibles
        End
    End Sub
    
    Private Sub Form_Load()
    'Center form on screen.
    Form1.Top = (Screen.Height - Form1.Height) / 2
    Form1.Left = (Screen.Width - Form1.Width) / 2
    'Set timer interval and varibles
        Timer1.Interval = 1000
        Hours = 0
        Minutes = 0
        Seconds = 0
        Time = 0
    End Sub
    
    Private Sub Text1_Change()
    'Call Mydisplay sub to display text box data
        Mydisplay
    End Sub
    
    Private Sub Text4_Change()
    'Call Mydisplay sub to display text box data
        Mydisplay
    End Sub
    
    Private Sub Text5_Change()
    'Call Mydisplay sub to display text box data
        Mydisplay
    End Sub
    
    Private Sub Timer1_Timer()
        'Count down loop
        Timer1.Enabled = False
        If (Format$(Time, "hh") & ":" & Format$(Time, "nn") & ":" & Format$(Time, "ss"))  "00:00:00" Then 'Counter to continue loop until 0
            Time = DateAdd("s", -1, Time)
            Label1.Visible = False
            Label1.Caption = Format$(Time, "hh") & ":" & Format$(Time, "nn") & ":" & Format$(Time, "ss")
            Label1.Visible = True
            Timer1.Enabled = True
        Else
            'Turn off timer, set off alarm, and enable reset.
            Timer1.Enabled = False
            Beep
            Beep
            Command3.Enabled = True
        End If
    End Sub
    
    1. Man programming can be a pain, it usually one little thing messing the whole code 🙂 and man you got lots of comments hehe, which is where can I get the full code 🙂 I done know which one to choose ehehehe

  6. dam thought i had it something wrong hahahah
    Private Sub Language_Change()
    Adodc1.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DatabaseName.mdb”
    Combo1.Clear
    Adodc1.RecordSource = “Trivia_Afrikaans”
    Adodc1.Refresh
    With Adodc1.Recordset Do Until .EOF Combo1.AddItem ![Trivia_Afrikaans].MoveNext Loop
    End With
    Adodc1.RecordSource = “Trivia_Afrikaans”
    Adodc1.Refresh
    Code for Combo1_Click(Trivia_Afrikaans):
    Adodc1.RecordSource = “select * Trivia_Afrikaans ='” & Combo1 & “‘”
    Adodc1.Refresh
    End Sub

  7. lol ops i rename folder and lost all database connections and change folder name back OMG 1 little change and fricked it all up orginal folder name NewBot Project files then works again and all files show in dropdown list hahahah

  8. Ultimate Bot too Do List:
    Form1:
    1: Connect to Paltalk and Join Room and Exit Room (I added Exit Button Under Join Button)
    2: Beable to Publish Label 1 – Digital Countdown timer into room
    Form2:
    1: Trivia – Form4 – need to make functional (all adodc files instaled in space to the right made invisible)
    need to add a custom delay timer for questions also (delay time for question and correct answer) and beable to change that time user choice
    2: have away to send personal invite to play the other games on form
    example: if wish to play pool send invite to join
    Form3:
    1: publish song and artist in room being played
    2: Not sure about this yet but beable to use VirtualDJ 2020 Mixer when Playing Music a Free Program

Leave a Reply

You must Register or Login to comment on Paltalk Locohacker Programs Source Code