lol this not a biggy but I did this for Method, anyways I wanted use it for something else so I put it here so I can download it from the other pc, but its cool if you guys wanna check it

Man i tried to open it with visual studio 2003 but i could not . i Also tried it with vb 4 and could not open the project. cool u tell me how to open it with visual studeio if that is possible ? Thanks

I did it with visual basi 6 if u dont have it I can hook u up wiht it

nice code

where is the code now ? i missed it !!

oops my bad forgat to put it after the site transfer here it is

loco could u upgrade fast admin . I do not know why it does not work in my end!! could any one confirm if it is not working ?Thanks

wha error is giveing ya. and man at this point i cant do much casue my laptop where i do programming and stuff I have to send it to the repair shop

locohacker wrote:wha error is giveing ya. and man at this point i cant do much casue my laptop where i do programming and stuff I have to send it to the repair shop

man could u tell me how to send text to the room list search textbox? you have doen similer think in fast admin but how to do it for room list search box . just show me how?Thanks

Ah crap you need it for now cause all my programming stuff are on the laptop, dont know when its gonna be fix one thing

di you use the "Room List" on the title

this part of the code

Code: Select all

", vbNullString)

should be

Code: Select all

", "Room List")

mn I need my laptop to help ya better lol

Man i already done that and this is the code. I just want to send a text to search and click go. I keep trying diffrent things and it does not work!! could u help me fix this?Thanks

Code: Select all

Private Sub Command13_Click()
Dim window As Long
Dim X As Long, editx As Long
Dim Button As Long
Dim combobox As Long
On Error Resume Next

window = FindWindow("atl:0053e390", "Rooms List")
'PostMessage window, WM_COMMAND, 33236, 0
'DoEvents
'Call Delay(0.05)
'DoEvents
'X = FindWindow("atl:0053e390", "Rooms List")
'combobox = FindWindowEx(X, 0&, "Edit", vbNullString)
'Call SendMessage(Edit, CB_SETCURSEL, ByVal Text5, ByVal Text5)


'DoEvents
X = FindWindow("wtlsplitterwindow", "Rooms List")
editx = FindWindowEx(X, 0&, "Edit", vbNullString)
Call SendMessageByString(editx, WM_SETTEXT, 0&, Text4)
DoEvents
X = FindWindow("wtlsplitterwindow", "Rooms List")
Button = FindWindowEx(X, 0&, "button", "Search")
Call SendMessageLong(Button, WM_KEYDOWN, VK_SPACE, 0&)
Call SendMessageLong(Button, WM_KEYUP, VK_SPACE, 0&)
End Sub