Navigation Menu

[Johnny5]

@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.

[Johnny5]

@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

[Johnny5]

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

[Johnny5]

Hi String,

Thank you for the example, do you have an example that is working for paltalk 10.4?

[Johnny5]

Use enum and return it, just random coding i did not actually test the code.

 

Enum UserStatus
RedDot = 5
OnCamRedDot = 6
RedDotHandRaised = 25
End Enum

Function GetUserStatus(ByVal wHnd As IntPtr, ByVal iUserIndex As Integer) As UserStatus
Dim mUserStatus As UserStatus
Dim iStatus As Integer = mdlSysListView.GetSLVUserStatus(wHnd, iUserIndex)
mUserStatus = CType(iStatus , UserStatus)

return mUserStatus
End Function

 

[Johnny5]

does anyone have the bible in text version? I might be able to make it. I have a version in vietnamese but no NIV text version.

[Johnny5]

Not a trust member, new register, 2 post on 1 lame thread 🙄

[Johnny5]

Don’t dl any post from newbie, especially you know they are around for awhile they should have an old act here. This user have only 1post and just registered. Not Trust!

[Johnny5]

What I’ve done in my code is create a paltalk class that will have everything to read text and send text, the class will contain a timer (timer to read text). In this class will have an event.

'Declaration

Dim Timer As New Timer
Public Event NewChatLines(ByVal arChatLines As ArrayList)
Public sLastChatLine As String
Public arrNewChatLines As ArrayList

Public Sub New()
Timer.Interval = 500 ' 1/2 second
AddHandler Timer.Tick, AddressOf Me.Timer_Tick
Timer.Start()
End Sub

Private Sub Timer_Tick(ByVal sender As Object, ByVal e As System.EventArgs)
Dim arrNewLines As ArrayList = GetRoomTextUnreadLines()
If arrNewLines.Count > 0 Then
RaiseEvent NewChatLines(arrNewLines)
End If
End Sub

Public Function GetRoomTextUnreadLines(Optional ByVal LastLine As String = "") As ArrayList
Dim arrTxt As New ArrayList, arrRetTxt As New ArrayList

'separated the previous scanned lines to get new lines. Remember last line is empty.
'add to arrRetTxt the new lines and return
Return arrRetTxt
End Function

 

hopes this will help out some of you guys. This way you can compile into DLL file and reference in your apps.

Regards,
J5

[Johnny5]

sounds like he want to modify the layout and display text of the program. 😆

[Johnny5]

Hmmm, seem to me that you just register this nick to post this link only, Looks like you are a pro user, and could’ve had registered a dif. user. Register programingxp on Jan 12 w/ 1 post. 😆 Anyone use muliti login make sure not to save password, just a tip.

Have funz, Yahhh Paltalk

[Johnny5]

write: (f) ____________________________________________________
Fake Nick: fake text

where _______ is white text :), but will not works all the time, it depend on the chatters’ screen size

[Johnny5]

everytime you create a new object a new thread is created, you would have to keep track off it. by determine if isNothing then create, else reuse the created object.

[Johnny5]

thanks loco for the source code, is the 33344 what’s make dif. by the way what tool are we using to get this param? API SPY?

Thanks again 8)

[Johnny5]

localhaker could you please post the source code for this V-A please?

I could only lock the mic w/ the code below

x = FindWindow(“dlggroupchat window class”, vbNullString)
PostMessage(x, WM_COMMAND, 33340, 0)

🙁

[Author]

Posts