Departurefor people who wants a flooder with speed options…
(read the code to know what controls to add)
sub Timeout(interval)
Dim Current
Current = Timer
Do While Timer – Current < Val(interval)
DoEvents
Loop
End Sub
Private Sub Label3_Click()
Label4.Enabled = True
Label3.Enabled = False
Do
DoEvents
Palsend Text1.Text
DoEvents
If Slider1.Value = 9 Then Timeout (0.1)
If Slider1.Value = 8 Then Timeout (0.2)
If Slider1.Value = 7 Then Timeout (0.3)
If Slider1.Value = 6 Then Timeout (0.4)
If Slider1.Value = 5 Then Timeout (0.5)
If Slider1.Value = 4 Then Timeout (0.6)
If Slider1.Value = 3 Then Timeout (0.7)
If Slider1.Value = 2 Then Timeout (0.8)
If Slider1.Value = 1 Then Timeout (0.9)
If Slider1.Value = 0 Then Timeout (1)
Loop While Label3.Enabled = False
Label3.Enabled = True
Label4.Enabled = False
Exit Sub
End Sub
then in modular
Public Function Palsend(Sendit As String)
Dim PaltalkHwnd As Long
Dim PaltalkEdit As Long
Dim SendKey As Long
Dim Palb As Long
PaltalkHwnd = FindWindowWild(“*Voice Conference”, False)
PaltalkEdit = FindWindowEx(PaltalkHwnd, 0&, “RichEdit20A”, vbNullString)
PaltalkEdit = FindWindowEx(PaltalkHwnd, PaltalkEdit, “RichEdit20A”, vbNullString)
Call SendMessageByString(PaltalkEdit, WM_SETTEXT, 0, Sendit$)
If PaltalkEdit = 0 Then
MsgBox (“.::Paltalk Room is not open::.”)
End
Exit Function
End If
Do
DoEvents
PaltalkHwnd = FindWindowWild(“Voice Confrence”, False)
Palb = FindWindowEx(PaltalkHwnd, 0&, “PALBUTTON”, vbNullString)
Palb = FindWindowEx(PaltalkHwnd, Palb, “PALBUTTON”, vbNullString)
Palb = FindWindowEx(PaltalkHwnd, Palb, “PALBUTTON”, vbNullString)
Call SendMessageLong(Palb, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessageLong(Palb, WM_LBUTTONUP, 0&, 0&)
If Palb = 0 Then
MsgBox “.::Palbutton error::.”
End
Exit Function
End If
Loop Until Palb 0
End Function
Function EnumWinProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
Dim k As Long, sName As String
If IsWindowVisible(hwnd) And GetParent(hwnd) = 0 Then
sName = Space$(128)
k = GetWindowText(hwnd, sName, 128)
If k > 0 Then
sName = Left$(sName, k)
If lParam = 0 Then sName = UCase(sName)
If sName Like sPattern Then
hFind = hwnd
EnumWinProc = 0
Exit Function
End If
End If
End If
EnumWinProc = 1
End Function
Public Function FindWindowWild(sWild As String, Optional bMatchCase As Boolean = True) As Long
sPattern = sWild
If Not bMatchCase Then sPattern = UCase(sPattern)
EnumWindows AddressOf EnumWinProc, bMatchCase
FindWindowWild = hFind
End Function
Now this is NOT for paltalk 7, but its dead easy to change it for paltalk 7 ,
Ohh and dont forget to declear functions :O)
Dont you people think its better to share code with newbies than to complie
it? at least they will learn something