Help w/ API CALLS - vb6
Posted: Tue Aug 02, 2005 8:50 pm
Well i dont know if any of you have used XBC, but im trying to make a spammer for my host server . SInce there is no send button, I do not how to emulate the enter usign API calls. and i do not want to use sendkeys because its unreliable.
here is the code, i just need to figure out how to send it.
here is the code, i just need to figure out how to send it.
Code: Select all
Dim lParent As Long
Dim lChild(1 To 4) As Long
Dim text As String, SetText As Long
'Get Parent Window
lParent = FindWindow("TfrmGame", vbNullString)
'Get Child Window(s)
lChild(1) = FindWindowEx(lParent, 0, "TspSkinPanel", "spSkinPanel5")
lChild(2) = FindWindowEx(lChild(1), 0, "TspSkinPanel", "")
lChild(3) = FindWindowEx(lChild(2), 0, "TspSkinPanel", "")
lChild(4) = FindWindowEx(lChild(3), 0, "TspSkinEdit", "")
SetText = SendMessageByString(lChild(4), WM_SETTEXT, 0&, Text1.text)