Paltalk Bot Source Code VB .net 2010

This topic has 76 replies, 17 voices, and was last updated 1 year ago by attockonian.

Viewing 15 posts - 46 through 60 (of 77 total)

← 1 2 3 4 5 6 →

Author

Posts

September 24, 2013 at 5:44 pm #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?

September 25, 2013 at 3:36 am #186778

trumhamdoa

Member

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

September 25, 2013 at 5:19 am #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

September 25, 2013 at 5:21 am #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.

September 25, 2013 at 1:15 pm #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.

April 24, 2014 at 12:05 pm #186774

Admin

Administrator

This is the latest Update 🙂

November 25, 2014 at 3:44 pm #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?

November 25, 2014 at 7:26 pm #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;
	}

November 26, 2014 at 2:09 am #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.

November 26, 2014 at 3:10 am #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

November 26, 2014 at 9:38 am #186769

saaminathan

Member

Oh my bad. Sorry Chike.

Thank you for the quick reply.

Will check and try now.

November 27, 2014 at 6:52 pm #186768

Admin

Administrator

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

November 27, 2014 at 8:05 pm #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 😛

November 28, 2014 at 5:36 pm #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

November 29, 2014 at 6:04 am #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

Author

Posts

Viewing 15 posts - 46 through 60 (of 77 total)

← 1 2 3 4 5 6 →

You must be logged in to reply to this topic.

Paltalk Bot Source Code VB .net 2010

Related