ghostriderofthenite Ultimate Bot project

Viewing 15 posts - 181 through 195 (of 305 total)
  • Author
  • #99497

    all languages work correctly in acesses so must me the vb6


    now i have checked all adodc files im going to remove them ll and add 1 by 1 again maybe i made error some were


    so deleted all and started adding again when get to arabic all ??????????????? so the richtext file dont except certian languages


    fixed all trivia databse files now
    but still need make them work with out manual click next button


    and need figure way that richtecxtbox will show all charvteres for different languages


    odd some reason now it connects room but wont send or get text i must have broke it fixing the trivia


    error message Form1.RichTextBox2.Text = LineText


    odd it working now and changed nothing hahahah


    lol good, so you decided to try to use your code than and work with it?


    i have it working but not the trivia to the room still needs functions start stop resume and loop thru the questions allow points for correct answers all that i corrected the databases and loaded correctly now but still not function to room and richtext box not allow all languages even tho correct in access databases


    fixed few things still working on trivia but for some reason the music links dont open in default browser i tried code so anyone using it will open in there default browser it use to work but dont know hmmmmmmmmmm

    new fixed databases and still working on error to load blank database


    I was able to fix the Music links Hurray lol


    Dangit hhahahahah well I thought i fixed music links changed all to youtube links but now they don’t open


    added this but stil not work odd

    Private Declare Function ShellExecute _
                                Lib "shell32.dll" _
                                Alias "ShellExecuteA" ( _
                                ByVal hwnd As Long, _
                                ByVal lpOperation As String, _
                                ByVal lpFile As String, _
                                ByVal lpParameters As String, _
                                ByVal lpDirectory As String, _
                                ByVal nShowCmd As Long) _
                                As Long
    Private Sub mnuAbrirNavegador_Click(Index As Integer)
        OpenUrl ("")
    End Sub
    Private Sub OpenUrl(ByVal url As String)
        a = ShellExecute(0, "open", url, 0, 0, 1)
    End Sub

    i uploade with changes here plus Robin helping me wid the trivia parts still

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