Skip to content

Paltalk Bot Source Code VB .net 2010

Viewing 15 posts - 46 through 60 (of 77 total)
  • Author
    Posts
  • #186779
    Chike
    Member

    @Johnny5 wrote:

    The code doesn’t seem to be able to send text on Paltalk Version 11.1 build 537. can someone please confirm this?

    Can’t confirm, what about this?

    #186778
    trumhamdoa
    Member

    hello chike …im download but run is file not found …plz help me

    #186777
    Johnny5
    Member

    @Chike wrote:

    @Johnny5 wrote:

    The code doesn’t seem to be able to send text on Paltalk Version 11.1 build 537. can someone please confirm this?

    Can’t confirm, what about this?

    Thanks Chike, your version works for PT 11.1 build 537

    #186776
    Johnny5
    Member

    @aidayvaypakon wrote:

    hello chike …im download but run is file not found …plz help me

    If you look at the code it try to load some text files from the Form Load method, those file are settings, designs, trivia questions and music list etc. make up your own.

    #186775
    Chike
    Member

    @aidayvaypakon wrote:

    hello chike …im download but run is file not found …plz help me

    This is not the bot it’s the source code, it needs to be built with VB.NET 2010 or above.

    @Johnny5 wrote:

    Thanks Chike, your version works for PT 11.1 build 537

    Should work with any version, but I only changed the room read/send text, and nicklist was changed before, for other rhings I don’t know.

    #186774
    Admin
    Administrator

    This is the latest Update 🙂

    #186773
    saaminathan
    Member

    Hi Loco

    Thank you for the source code. are you still updating the code? I want to learn how to check who is on the mic and how many people have their hands raised. Any references or suggestions?

    #186772
    Chike
    Member

    Hi Loco

    Thank you for the source code. are you still updating the code? I want to learn how to check who is on the mic and how many people have their hands raised. Any references or suggestions?

    This worked with ver. 11.4, should work still. It’s in c++ but you can get the hang of it:

    The image parameter is the LVITEM.image field.

    The flag are easier to test than the image code, e.g. if flags and user_flag_hand then…

    typedef enum {
    	user_flag_cam	= 0x00010000,
    	user_flag_hand	= 0x00020000,
    	user_flag_mic	= 0x00040000,
    	user_flag_dot	= 0x00080000,
    	user_flag_mute	= 0x00100000,
    	user_flag_hq	= 0x00200000,
    	user_flag_view	= 0x00100000,
    };
    
    static
    	int image_flags(int image) {
    		int flags = 0;
    		if (image >= 20) {
    			flags |= user_flag_hand;
    			image -= 20;
    		}
    		if (image >= 10) {
    			flags |= user_flag_mic;
    			image -= 10;
    		}
    		if (image >= 5) {
    			flags |= user_flag_dot;
    			image -= 5;
    		}
    		if (image == 4) {
    			flags |= user_flag_cam | user_flag_view;
    		} else if (image == 2) {
    			flags |= user_flag_cam | user_flag_hq;
    		} else if (image == 1) {
    			flags |= user_flag_cam;
    		}
    		return flags;
    	}

     

    #186771
    saaminathan
    Member

    Hi Loco

    Thank you for the code snippet, how do I read the flags from the user list? Please advise or show some sample code.

    #186770
    Chike
    Member

    I’m no loco,

    code to retrive item you can find in mdlSysListView.vb.

    To get the image:

    Const LVIF_IMAGE As Integer = &H2
    Const LVM_GETITEM As Integer = (LVM_FIRST + 5)
    
    myItem.mask = LVIF_IMAGE 
    myItem.iSubItem = 0
    
    ...
    
    SendMessage(lstviewhwnd, LVM_GETITEM, i, pMyItemMemory)

    Note that LVM_GETITEM  is already defined but incorrectly

    #186769
    saaminathan
    Member

    Oh my bad. Sorry Chike.

    Thank you for the quick reply.

    Will check and try now.

    #186768
    Admin
    Administrator

    Lol but Chike is loco (crazy in spanish) lol umm maybe we can add like a Talk timer to the bot 🙂

    #186767
    Chike
    Member

    Lol but Chike is loco (crazy in spanish) lol umm maybe we can add like a Talk timer to the bot :)

    When I said I’m no loco I meant both 😛

    #186766
    Chike
    Member

    Or you can make mic protector that immediately reddot and post a warming to mic jumper, if it’s not an admin.
    Easier to make than a timer

    #186765
    saaminathan
    Member

    Hi Chike

    I have changed the code as per your suggestion but then the string returned by the function is empty. what did i do wrong here? Thank you in advance.

    My code below :

    Public Function GetSLVSelectedImageItem(ByVal lstviewhwnd As IntPtr) As String
    Dim result As Integer
    Dim myItem As LV_ITEMA
    Dim pHandle As Integer
    Dim pStrBufferMemory As Integer
    Dim pMyItemMemory As Integer
    Dim strBuffer() As Byte
    Dim index As Integer
    Dim tmpString As String = String.Empty
    Dim ProcessID As Integer
    Dim usernum, itemIndex As Integer
    Dim i As Short
    itemIndex = SendMessage(lstviewhwnd, LVM_GETNEXTITEM, -1, LVNI_SELECTED)
    usernum = SendMessage(lstviewhwnd, LVM_GETITEMCOUNT, 0, 0)
    '**********************
    'init the string buffer
    '**********************
    ReDim strBuffer(StringBufferLength)
    '***********************************************************
    'open a handle to the process and allocate the string buffer
    '***********************************************************
    Call GetWindowThreadProcessId(lstviewhwnd, ProcessID)
    pHandle = OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE, False, ProcessID)
    pStrBufferMemory = VirtualAllocEx(pHandle, 0, StringBufferLength, MEM_COMMIT, PAGE_READWRITE)
    '************************************************************************************
    'initialize the local LV_ITEM structure
    'The myItem.iSubItem member is set to the index of the column that is being retrieved
    '************************************************************************************
    myItem.mask = LVIF_IMAGE
    myItem.iSubItem = 0
    myItem.pszText = pStrBufferMemory
    myItem.cchTextMax = StringBufferLength
    '**********************************************************
    'write the structure into the remote process's memory space
    '**********************************************************
    pMyItemMemory = VirtualAllocEx(pHandle, 0, Len(myItem), MEM_COMMIT, PAGE_READWRITE)
    result = WriteProcessMemory(pHandle, pMyItemMemory, myItem, Len(myItem), 0)
    
    '*************************************************************
    '*************************************************************
    '*************************************************************
    i = itemIndex
    '*************************************************************
    'send the get the item message and write back the memory space
    '*************************************************************
    result = SendMessage(lstviewhwnd, LVM_GETITEM, i, pMyItemMemory)
    result = ReadProcessMemory(pHandle, pStrBufferMemory, strBuffer(0), StringBufferLength, 0)
    result = ReadProcessMemory(pHandle, pMyItemMemory, myItem, Len(myItem), 0)
    '**************************************************
    'turn the byte array into a string and send it back
    '**************************************************
    For index = LBound(strBuffer) To UBound(strBuffer)
    If Chr(strBuffer(index)) = vbNullChar Then Exit For
    tmpString = tmpString & Chr(strBuffer(index))
    Next index
    tmpString = Trim(tmpString)
    '**************************************************
    'deallocate the memory and close the process handle
    '**************************************************
    result = VirtualFreeEx(pHandle, pStrBufferMemory, 0, MEM_RELEASE)
    result = VirtualFreeEx(pHandle, pMyItemMemory, 0, MEM_RELEASE)
    result = CloseHandle(pHandle)
    If Len(tmpString) > 0 Then GetSLVSelectedImageItem = tmpString
    Return tmpString
    End Function
    End Module
Viewing 15 posts - 46 through 60 (of 77 total)
  • You must be logged in to reply to this topic.