ATL problem ? Here is a work around solution.

by **UAEWebMaster** » Fri Oct 06, 2006 2:15 pm

Hi all,

Dear Locohacker, I found a way to fix the ATL value problem, now i have icluded some code from API SPY vb code, and used it to solve the problem..

i know it is not the full solution, but it is a work around.

here is my code , pls check it and give me your comments.

by **locohacker** » Fri Oct 06, 2006 2:45 pm

I see departure did something similar

using a update.ini work similar to what u do, thas wha i a using for that as of right now.
thanks

by **BattleStar-Galactica** » Sun Oct 08, 2006 11:28 am

I don't know what's wrong with you guys but there are api constants you can get first child, last child, next window ect.

by **locohacker** » Mon Oct 09, 2006 9:56 am

ah damn, so we using the worg getchild on the nick list :roll:

by **BattleStar-Galactica** » Mon Oct 09, 2006 10:29 am

look this code, ez??

by **UAEWebMaster** » Mon Oct 09, 2006 12:54 pm

nanomachine007 thaaaaaaaaaaaaaaaaaank you so much!!!

i was looking for something like this ... i appreciate it u and locohacker .. u guys r the best.

by **locohacker** » Mon Oct 09, 2006 3:28 pm

lol man what can i say this is just what i needed nano thanks a lot

UAEWebMaster you are welcome man

by **Departure** » Mon Oct 09, 2006 4:52 pm

yeah i dont use the update.ini I use GW_Child it works great, ill check your code out namomachine

UAEWebMaster by the way how can you say YOU solved it ?? your using a direct copy and paste of MY code

Code: Select all: 'Send Text To Paltalk Public Function Palsend(Sendit As String) Dim X As Long Dim xx As Long Dim xxx As Long Dim xxxx As Long Dim xxxxx As Long Dim xxxxxx As Long Dim xxxxxxx As Long Dim xxxxxxxx As Long Dim xxxxxxxxx As Long Dim xxxxxxxxxx As Long X = FindWindowWild("*Voice Room", False) 'I use my FindWindowWild Function To search For - Voice room If X = 0 Then Exit Function End If xx = FindWindowEx(X, 0&, "wtl_splitterwindow", vbNullString) xxx = FindWindowEx(xx, 0&, "wtl_splitterwindow", vbNullString) xxxx = FindWindowEx(xxx, 0&, "wtl_splitterwindow", vbNullString) xxxxx = GetWindow(xxxx, GW_CHILD) 'This will get the next control after wtl_splitterwindow, the next control is also knowen as Atl:####### what ever... xxxxxx = FindWindowEx(xxxxx, 0&, "atlaxwin71", vbNullString) xxxxxxx = FindWindowEx(xxxxxx, 0&, "#32770", vbNullString) xxxxxxxx = FindWindowEx(xxxxxxx, 0&, "richedit20a", vbNullString) xxxxxxxx = FindWindowEx(xxxxxxx, xxxxxxxx, "richedit20a", vbNullString) Call SendMessageByString(xxxxxxxx, WM_SETTEXT, 0&, Sendit$) Do DoEvents xxxxxxxxx = FindWindowEx(xxxxxxx, 0&, "toolbarwindow32", vbNullString) xxxxxxxxxx = FindWindowEx(xxxxxxxxx, 0&, "wtl_bitmapbutton", vbNullString) Call SendMessageLong(xxxxxxxxxx, WM_LBUTTONDOWN, 0&, 0&) Call SendMessageLong(xxxxxxxxxx, WM_LBUTTONUP, 0&, 0&) Loop Until xxxxxxxxxx <> 0 End Function

by **Ghost** » Mon Oct 09, 2006 5:00 pm

i just opened that about 5 mins ago and i was like...uhh, dep totaly coded this...lmfao

by **UAEWebMaster** » Tue Oct 10, 2006 10:59 am

i am sorry i didnt mean i have solved it, i was only trying to figure out a solution for the ATL value, since i need to get the users list, believe me , i am no vb guru, i am the last person who knows anything in vb around here.

sorry departure :oops: