Skip to content

Next we will learn how to use JK’s API SPY 5.1 to send text

Viewing 11 posts - 1 through 11 (of 11 total)
  • Author
    Posts
  • #190459

    i cant wait for this tutorial 🙂

    #190469
    Admin
    Administrator

    Pretty Easy really if for paltalk what you do is fellow the steps…

    Open JK’s API SPY 5.1…

    Then…

    Find the ”Set window’s text”
    when you have picked it we now wanna left mouse button down the circle bring it over the box you send your text to the paltalk room put that circle over that paltalk text box in the room where the text is put in and let go.

    This is what you should see if you do like i said.

    Now click the Generate Buttun this will make your code to send text to the room.

    It should give you this if you have Paltalk Messenger 8.3

    Dim mywindowclass As Long
    Dim wtlsplitterwindow As Long
    Dim atld As Long
    Dim atlaxwin As Long
    Dim x As Long
    Dim richedita As Long

    mywindowclass = FindWindow("my window class", vbNullString)
    wtlsplitterwindow = FindWindowEx(mywindowclass, 0&, "wtl_splitterwindow", vbNullString)
    wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)
    wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)
    atld = FindWindowEx(wtlsplitterwindow, 0&, "atl:0053d798", 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&, "The New Text")

    If richedita = 0 Then
    Msgbox "Error: Cannot find window"
    Exit Sub
    End If

    Now from here we wanna go to get our API Text Viewer go to start All Programs or Programs depending on what OS you have find your… Microsoft Visual Studio 6.0 move too Microsoft Visual Studio 6.0 Tools then look in there for API Text Viewer open it then… click on file we wanna pick ”Load Text File” then pick the “WIN32API” one now were ready to get the API’s

    Under Declares type in FindWindow and add it then type in FindWindowEx add that type in SendMessage add that. Now….

    The menu where you see decalre drop down and pick… Constants add type in WM_SETTEXT now were pretty much done with the API for now but dont close it. copy your code and put it in a Module now we wanna find this code in the module

    Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

    change it to

    Public Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

    where you see the SendMessage you are adding SendMessageByString

    Now we wanna change this put of the code. that we got from the API Spy

    Call SendMessageByString(richedita, WM_SETTEXT, 0&, "The New Text")

    change it to

    Call SendMessageByString(richedita, WM_SETTEXT, 0&, Text1.Text)

    Remove the “The New Text” and change it to Text1.Text or whatever text box you wanna use to send your text from just add one text box if you new to this. and change it to Text1.Text

    Everything is just about ready.

    We now wanna add the code….

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

    under

    Call SendMessageByString(richedita, WM_SETTEXT, 0&, Text1.Text)

    we now wanna go back to our API Text Viewer and go to the Decalres and find and add SendMessage again then we wanna go back to the Constants and type in WM_KEYDOWN add your new stuff you add to your module make sure that if you did clear that API Text Viewer before you added theses that you go back up and do that part where i told you to change the SendMessageByString that you do again and also for your new SendMessage change it to SendMessageLong the API is all done we can move on to adding the command buttons and textboxs if you haven’t already.

    How to make a RoomSpammer out of what you just learned is easy.
    from what i just told you all you need is to do the above first then add…

    1 timer

    2 command buttons

    1 textbox

    In the timer you wanna add the code you just were teach the send text code should be all like this if you did it right.

    Dim mywindowclass As Long
    Dim wtlsplitterwindow As Long
    Dim atld As Long
    Dim atlaxwin As Long
    Dim x As Long
    Dim richedita As Long

    mywindowclass = FindWindow("my window class", vbNullString)
    wtlsplitterwindow = FindWindowEx(mywindowclass, 0&, "wtl_splitterwindow", vbNullString)
    wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)
    wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)
    atld = FindWindowEx(wtlsplitterwindow, 0&, "atl:0053d798", 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&, Text1.Text)
    Call SendMessageLong(richedita, WM_KEYDOWN, 13, 0&)
    If richedita = 0 Then
    Msgbox "Error: Cannot find window"
    Exit Sub
    End If

    The above is the code that gos into your timer1 to make a room spammer.

    This Gos below in the module1

    Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
    Public Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
    Public Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
    Public Const WM_SETTEXT = &HC
    Public Const WM_KEYDOWN = &H100

    Now if you have added the timer to your form1 click on it there is a menu to the right side yes? ok look for Enabled set it to False the go to Interval set it to ohhhh put in 300

    now in your command1 button put Timer1.Enabled = “True”
    now in your command2 button put Timer1.Enabled = “False”

    True means start and false means stop just so you know 🙂
    now were done with the room spammer if you did everything right you can try and run the app of compile you new project by click on file and make project thats in your vb6 software make sure its saved with the end .exe or it wont work. if i have left out anything i did this tut pretty fast this has to be one of my longest speeches in text ever… Good Luck.

    #190468

    Wow that was fast…. THANKS…. understood that 🙂
    thanks for the time mate 🙂 appreaciate it.

    #190467
    Admin
    Administrator

    Cool by the way i like your lil image you made pretty funny. you make that i read in another topic you make graphics?

    #190466

    me? yup, work with photoshop,maya and aftereffects n stuff.. the norm 🙂

    #190465
    Admin
    Administrator

    cool i find it kinda funny one of the people who uses my forum makes animes like that.

    #190464
    Ponies
    Member

    Whitch one is that 😉

    #190463
    method
    Member

    Dim ZaraByte As String could upload a sample project for it to help uu learn. This part is very confusing for me :

    Under Declares type in FindWindow and add it then type in FindWindowEx add that type in SendMessage add that. Now….

    The menu where you see decalre drop down and pick… Constants add type in WM_SETTEXT now were pretty much done with the API for now but dont close it. copy your code and put it in a Module now we wanna find this code in the module

    i have no idea what to do here could u explain a little more .what to do in this window :

    #190462
    SULTAN RAHI
    Member

    “Dim ZaraByte As String” Can You UpLoad the Described Project for me here. 😉

    #190461
    Admin
    Administrator

    Heres the Send Text Explain your not learning much from it because its just a code try learning the API Text Viewer!!

    #190460
    SULTAN RAHI
    Member

    Thx Bro “Dim ZaraByte As String” 😳
    Actully i am not well educated regarding programming in vb..
    i just have some knowledge of calculations & lil Knowledge of database… & unfortunaitly i never got a chance to work on API… I like to…But now in prectical life… & i hope u know the difficulties of Practicle life. 🙁

    Anyway…thx for uploading this for me 🙂

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